XProfan

- Seite 1 -

Hi,

@Frank: Bist du das in deinem Avatar ?
_________________
Gruß,
iF

13.05.2004 ▲

Dietmar
Horn

Hallo,

@Frank: ja, leider - hab einfach ein Foto von unserer Vereins-HP genommen

Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

13.05.2004 ▲

Michael
Wodrich

Wieso leider???

Mich stört es nicht, daß Du beim posten telefonierst.
Bist halt online.

MfG
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

14.05.2004 ▲

- Seite 2 -

Ich hab nochmal ne blöde frage, aber ich komme mit der hilfe datei von profan einfach nicht weiter. ich versuch im moment das programmieren von AuswahlBoxen zu lernen. aber in der hilfe datei sind keine beispiele und aus den beispielen kapier ich nur mal immer mehr als aus dem text dazu. kann mit jm den source von so einer AuswahlBox geben, aus der ich viel lernen kann (ich benutze die 5er freewareversion von profan)?

außerdem kapier ich das in den hilfe dateien nie:

@CreateChoiceBox(N,S,X1,X2,Y1,Y2)
N : Integer - Handle des übergeordneten Fensters
S : String - muß ein Leerstring sein
X1,Y1 : Integer - Linke obere Ecke der AuswahlBox
X2,Y2 : Integer - Größe der AuswahlBox

Ergebnis : Integer - Handle des erzeugten Objektes

Was bedeutet der quatsch? integer

string

??? hää?
kapier ich irgendwie nicht ganz........ wär doch vielleicht mal ganz hilfsam, wenn ich wüsste was das zu bedeuten hat, oda?

Rolf
Koch

Hallo Doik,
nunja Quatsch ist es bei weitem nicht.
Siehe zu Deiner Frage mit den Variablen in Deiner Profanhilfe nach:
7 - Variablen, Konstanten, Datentypen und Typen-Umwandlung

Rolf

[quote:5220512242=Doik] ich versuch im moment das programmieren von AuswahlBoxen zu lernen. aber in der hilfe datei sind keine beispiele und aus den beispielen kapier ich nur mal immer mehr als aus dem text dazu. [/quote:5220512242]
Hilft Dir das?
Kompilieren Markieren Separieren

Def GetSysColor(1) !"User32","GetSysColor"
declare cb1&,cb2&,rb1&,rb2&
window 100,100 - 500,500
cls getsyscolor(15)
let cb1&=createcheckbox(%hwnd,"Test1",10,10,100,20)
let cb2&=createcheckbox(%hwnd,"Test2",10,40,100,20)
let rb1&=createradiobutton(%hwnd,"Test3",120,10,100,20)
let rb2&=createradiobutton(%hwnd,"Test4",120,40,100,20)

while 1

    locate 10,1
    print "Test1-Status:",getcheck(cb1&)
    print "Test2-Status:",getcheck(cb2&)
    print "Test3-Status:",getcheck(rb1&)
    print "Test4-Status:",getcheck(rb2&)
    waitinput

wend

PS: Wenn das mit dem DEF unter Profan5 nicht klappt, nimm einfach die Zeile raus, dann aber auch die cls getsyscolor zeile.

iF

Dietmar
Horn

Hallo Doik,

Variablen sind Platzhalter für irgendwelche Werte, die im Programm mehrfach benötigt werden - vergleichbar mit den Variablen bei Gleichungen in der Mathematik.

Weil unterschiedliche Werte verschieden viel Platz im Arbeitsspeicher des PCs benötigen, gibt es in jeder Programmiersprache auch verschiedene Variabentypen. Außerdem ist es für den Prozessor noch ein Unterschied, ob er mit den Werten irgendwann in Deinem Programm auch mal rechnen soll (Zahlenwerte), oder diese Werte nur auf dem Bildschirm ausgegeben, bzw. in Dateien geschrieben oder auf dem Drucker ausgegeben werden sollen, usw. (Text).

Texte werden als String bezeichnet und können bei Profan² 5.0 pro String-Variable maximal 255 Zeichen lang sein (bei Profan² ab 7.0 sogar bis 32 KB).

Unterschieden werden die verschiedenen Variablentypen durch das Suffix, welches dem Variablenbezeichner folgt. Für den Anfang solltest Du mit folgenden Variablentypen in Deinen ersten Programmen auskommen können:

String
Beispiel: Text$ - Texte bis 255 Zeichen

Integer
Beispiel: Zahl% - ganze Zahlen im Bereich von - 32768 bis +32676

LongInteger (oder Long)
Beispiel: Zahl& - ganze Zahlen von ca. -2 Milliarden bis ca. +2 Milliarden

Float
Beispiel: Zahl! - Dezimalzahlen bzw. reelle Zahlen

Vor der ersten Verwendung mußt Du Windows mitteilen, daß Du für jede Deiner Variablen Speicherplatz im RAM benötigst. Dies erfolgt durch die Declare-Anweisung.

Beispiel:
Kompilieren Markieren Separieren

declare zahl%,zahl&,zahl!,text$

oder:
Kompilieren Markieren Separieren

declare zahl%
declare zahl&
declare zahl!
declare text$

Ein Leerstring ist eine String-Variable, die noch keinen Text zugewiesen bekommen hat. Nach dem Deklarieren sind alle Variablen erst mal leer. Leere Zahlenvariablen (also integer, longint, float) haben dann immer den Wert 0, bei Stringvariablen ist das dann jeweils der Wert (steht für: Sorry - leider kein Text in der Stringvariablen enthalten!).

Handle bedeutet übersetzt soviel wie Griff. Jedes Objekt, welches Du in Deinem Programm auf dem Hauptfenster oder auf anderen Fenstern erzeugst, bekommt von Windows intern einen Zahlenwert zugewiesen, welcher vom Programmierer in einer LongInt-Variablen gespeichert werden sollte. Der genaue Zahlenwert eines Handles ist uninteressant, denn dieser ist sowieso nach jedem Programmstart ein anderer.

Das Handle des Hauptfensters Deines Programmes speichert Profan² stets in der Systemvariablen %HWnd. Bei anderen Objekten muß man sich als Programmierer selber darum kümmern, damit sich das Programm diese Handle-Zahlenwerte für später bis zum Programm-Ende merkt.

Solche Handles sind wichtig, damit man in seinem Programm darauf reagieren kann, wenn der Anwender z.B. einen Button angeklickt hat - oder damit Windows kapieren kann, ob Du einen Button auf das Hauptfenster, oder auf irgendein anderes Dialogfenster in Deinem Programm setzen möchtest.

Beispiel:
Kompilieren Markieren Separieren

declare exit&,ende%
cls
let exit& = CreateButton(%HWnd,"Beenden",10,10,80,25)

whilenot ende%

    WaitInput

    if GetFocus(exit&)

        let ende% = 1

    endif

wend

end

Im Beispiel wird das Handle des Buttons in der LongInt-Variablen exit& gespeichert. Wenn der Anwender das Objekt mit dem Handle exit& angeklickt hat (er es also aktiviert bzw. den Focus darauf gesetzt hat), dann wird die Variable ende% auf einen Wert ungleich Null gesetzt, damit die While-Schleife verlassen und das Programm beendet werden kann. Hier dient also die GetFocus-Anweisung dazu herauszubekommen, ob der Anwender auf den Beenden-Button geklickert hat, oder nicht.

Wenn auf dem Button kein Test stehen soll, dann sagt man auch : Der CreateButton-Anweisung ist ein Leerstring zu übergeben.

Beispiel:
Kompilieren Markieren Separieren

let exit& = CreateButton(%HWnd,"",10,10,80,25)

Gruß
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

so erstmal thx an euch.

@if: das ist keine auswahlbox! eine auswahlbox wir mit diesem befehl erzeugt:

@CreateChoiceBox(N,S,X1,X2,Y1,Y2)

allerdings versteh ich nicht recht, wieso der bei mir nie so ein ding erzeugt, wenn ich auf run drücke. in der hilfe datei steht, dass da noch mehr eingegeben werden muss. ich werd nur leider absolut nicht schlau aus der hilfe datei. und ein richtiges beispiel ist da aucn nicht vorhanden. deswegen frag ich ja nach einem source für eine funktionierende auswahlbox, damit ich weiß, was ich falsch mache und ändern muss.
falls es euch interessiert, das hier steht in der hilfe datei in profan zu den auwahlboxen:

@CreateChoiceBox
@GetText$
@MoveListToChoice, @AddChoice

Eine Auswahlbox ist eine Sonderform der sogenannten Combobox: Durch Anklicken des Pfeiles nach unten kann aus einer Liste von Auswahlmöglichkeiten eine Zeile ausgewählt werden. Eine Eingabe von Zeilen ist nicht möglich. Eine Auswahlbox ist in PROFAN² immer alphabetisch sortiert.

Mit der Funktion @ADDCHOICE kann der Auswahlbox ein Eintrag hinzugefügt werden. Mit @MOVELISTTOCHOICE wird die komplette ListBox-Liste, die z.B. zuvor mit ADDFONTS, ADDFILES oder ADDWINDOWS gefüllt wurde, der Auswahlbox hinzugefügt.

Mit @DELETECHOICE:fdeletechoice] kann ein Eintrag aus der Auswahlbox entfernt werden.

Die ausgewählte Zeile kann mit der Funktion @GETTEXT$ ermittelt werden.

Im Zusammenhang mit AuswahlBoxen sind die AuswahlBox-Messages interessant. So kann zum Beispiel mit cb_Dir eine Verzeichnis-/Laufwerksliste erzeugt werden oder mit cb_ResetContent der Inhalt einer AuswahlBox gelöscht werden. Mit cb_SetCurSel kann ein bestimmter Eintrag vorausgewählt werden. Die Messages werden mit @SendMessage an die betreffende ListBox gesandt.

ACHTUNG: Die hier beschriebenen Funktionen sind nur auf AuswahlBoxen anzuwenden! Werden Sie auf andere Steuerelemente (z.B. ListBoxen) angewandt liefern sie unerwartete Ergebnisse und können in einigen Fällen auch Windows oder die Anwendung zum Absturz bringen! Der Befehl SETTEXT ist keinesfalls auf eine AuswahlBox anzuwenden!

SELBSTDEFINIERTE DIALOGE
INHALT
REFERENZ

Doik

16.05.2004 ▲

Rolf
Koch

Hi Doik,

scheinbar hast Du noch nicht den Object Creator von mir.
Wenn Du diesen runtergeladen hast, führe diesen aus und erstelle ein neues Fenster, lege eine Choicebox drauf und drücke auf Vorschau (Lupe).
Nun siehst Du den erzeugten Quelltext.
Wie If schonmal sagte: Aus Roc kann man sogar lernen.

Rolf

16.05.2004 ▲