XProfan

- Página 1 -

Hi,

@Franco: Bist Si es usted el en deinem Avatar ?
_________________
Saludo,
IF

13.05.2004 ▲

Dietmar
Horn

¡Hola,

@Franco: sí, desafortunadamente - tener simplemente una Foto de 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

¿Por qué desafortunadamente???

Mich stört no, daß Usted beim puesto telefonierst.
Bist sólo online.

MfG
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

14.05.2004 ▲

- Página 2 -

Yo otra vez ne blöde frage, pero yo komme con el hilfe datei de seculares simplemente no más. Yo versuch en el moment el programa de AuswahlBoxen a aprender. aber en el hilfe datei son no beispiele y de el beispielen kapier Yo sólo veces siempre más que de el texto dazu. kann con jm el source de así uno AuswahlBox geben, de el Yo viel aprender kann (Yo benutze el 5él freewareversion de seculares)?

außerdem kapier Yo el en el hilfe dateien nie:

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

Ergebnis : Integer - Handle des erzeugten Objektes

Was bedeutet el quatsch? integer

cadena

??? hää?
kapier Yo irgendwie no bastante........ wär doch tal vez veces bastante hilfsam, si yo saber qué el a bedeuten ha, oda?

Rolf
Koch

¡Hola Doik,
nunja Quatsch es en weitem no.
Siehe a Deiner Cuestión con el Variables en Deiner Profanhilfe después de:
7 - Variables, Konstanten, Datentypen y Typen-Umwandlung

Rolf

[quote:5220512242=Doik] Yo versuch en el moment el programa de AuswahlBoxen a aprender. aber en el hilfe datei son no beispiele y de el beispielen kapier Yo sólo veces siempre más que de el texto dazu. [/quote:5220512242]
Hilft Usted el?
Kompilieren Marca Separación

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: Si el con el DEF bajo Profano5 no klappt, nimm simplemente el Línea fuera, entonces aber auch el cls getsyscolor zeile.

IF

Dietmar
Horn

¡Hola Doik,

Variables son Platzhalter para irgendwelche Werte, el en el Programa mehrfach benötigt voluntad - vergleichbar con el Variables en Gleichungen en el Mathematik.

Weil diferente Werte verschieden viel Platz en el Arbeitsspeicher des PCs benötigen, hay en cada Lenguaje de programación auch verschiedene Variabentypen. Außerdem es para el Prozessor todavía una Diferencia, si él con el Werten irgendwann en Deinem Programa auch veces rechnen se (Zahlenwerte), oder esta Werte sólo en el Bildschirm ausgegeben, o. en Archivos geschrieben oder en el Drucker ausgegeben voluntad debería, usw. (Texto).

Textos voluntad como String bezeichnet y puede en Profano² 5.0 pro String-Variable máximo 255 Signo lang ser (en Profano² de 7.0 incluso a 32 KB).

Unterschieden voluntad el verschiedenen Variablentypen por el Suffix, welches el Variablenbezeichner folgt. Für el Anfang solltest Usted con folgenden Variablentypen en Su ersten Programmen auskommen puede:

String
Ejemplo: Texto$ - Textos a 255 Signo

Integer
Ejemplo: Zahl% - todo Pagar en de - 32768 a +32676

LongInteger (oder Largo)
Ejemplo: Zahl& - todo Pagar de ca. -2 Milliarden a ca. +2 Milliarden

Float
Ejemplo: Zahl! - Dezimalzahlen o. real Pagar

Vor el ersten Verwendung mußt Usted Windows mitteilen, daß Usted para jede Deiner Variables Speicherplatz en el RAM necesidad. Dies es por el Declarar-Anweisung.

Ejemplo:
Kompilieren Marca Separación

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

oder:
Kompilieren Marca Separación

declare zahl%
declare zahl&
declare zahl!
declare te

pre>

Ein Leerstring es una String-Variable, el todavía no Texto zugewiesen bekommen ha. Nach el Deklarieren son todos Variables sólo veces leer. Leere Zahlenvariablen (also integer, longint, float) haben entonces siempre valor 0, en Stringvariablen es el entonces jeweils el Valor (es para: Sorry - desafortunadamente kein Texto en el Stringvariablen enthalten!).

Handle bedeutet traducido soviel como Griff. Jedes Objeto, welches Usted en Deinem Programa en el Ventana principal oder en otro Fenstern erzeugst, bekommt de Windows intern una Zahlenwert zugewiesen, welcher vom Programmierer en uno LongInt-Variables gespeichert voluntad debería. Der genaue Zahlenwert uno Handles es uninteressant, porque dieser es sowieso después de cada Programmstart una otro.

Das Handle des Hauptfensters Deines Programmes speichert Profano² stets en el Systemvariablen %HWnd. En otro Objekten muß uno se como Programmierer selber por lo tanto kümmern, así se el Programa esta Handle-Zahlenwerte para später a para Programa-Ende merkt.

Solche Handles son wichtig, así uno en seinem Programa darauf reagieren kann, si la Anwender z.B. una Button angeklickt ha - oder así Windows kapieren kann, si Usted una Button el Ventana principal, oder en irgendein más Dialogfenster en Deinem Programa conjunto möchtest.

Ejemplo:
Kompilieren Marca Separación

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 Ejemplo se el Handle des Buttons en el LongInt-Variables exit& gespeichert. Wenn el Anwender el Objeto con el Handle exit& angeklickt ha (él lo also aktiviert o. el Focus darauf gesetzt ha), Luego se el Variable ende% en una Valor ungleich Null gesetzt, así el Mientras que-Bucle verlassen y el Programa darse por concluido kann. Hier dient Así que el GetFocus-Anweisung dazu herauszubekommen, si el Anwender en el Beenden-Button geklickert ha, oder no.

Wenn en el Button kein Test posición se, entonces sagt uno auch : Der CreateButton-Anweisung es una Leerstring a transferencia.

Ejemplo:
Kompilieren Marca Separación

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

Saludo
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: [...]

así primero thx a euch.

@if: el es no auswahlbox! una auswahlbox wir con diesem befehl producido:

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

allerdings versteh Yo no bastante, wieso el en me nie así una ding producido, si yo en run drücke. en el hilfe datei es, dass como todavía mehr eingegeben voluntad muss. Yo werd sólo desafortunadamente absolut no schlau de el hilfe datei. y una richtiges beispiel es como aucn no disponible. deswegen frag Yo sí una source para una funktionierende auswahlbox, así Yo weiß, Yo falso mache y ändern muss.
si lo euch interessiert, que aquí es en el hilfe datei en profano a auwahlboxen:

@CreateChoiceBox
@GetText$
@MoveListToChoice, @AddChoice

Un Auswahlbox es una Sonderform el sogenannten Combobox: Durch Anklicken des Pfeiles después de unten kann de uno Liste de Auswahlmöglichkeiten una Línea ausgewählt voluntad. Un Eingabe de Zeilen es no posible. Un Auswahlbox es en PROFAN² siempre alphabetisch sortiert.

Mit el Función @ADDCHOICE kann el Auswahlbox una Eintrag hinzugefügt voluntad. Mit @MOVELISTTOCHOICE se el komplette ListBox-Liste, el z.B. zuvor con ADDFONTS, ADDFILES oder ADDWINDOWS gefüllt wurde, el Auswahlbox hinzugefügt.

Mit @DELETECHOICE:fdeletechoice] kann una Eintrag de el Auswahlbox lejos voluntad.

El ausgewählte Línea kann con el Función @GETTEXT$ ermittelt voluntad.

Im Zusammenhang con AuswahlBoxen son el AuswahlBox-Messages interessant. So kann para Ejemplo con cb_Dir una Directorio-/Laufwerksliste producido voluntad oder con cb_ResetContent el Inhalt uno AuswahlBox gelöscht voluntad. Mit cb_SetCurSel kann una bestimmter Eintrag vorausgewählt voluntad. El Messages voluntad con @SendMessage a el betreffende ListBox gesandt.

ACHTUNG: El hier beschriebenen Características son sólo en AuswahlBoxen anzuwenden! Werden Sie en otro Steuerelemente (z.B. ListBoxen) angewandt liefern ellos unerwartete Ergebnisse y puede en algunos Fällen auch Windows o Anwendung para Choque bringen! Der Befehl SETTEXT es keinesfalls en una AuswahlBox anzuwenden!

SELBSTDEFINIERTE DIALOGE
INHALT
REFERENZ

Doik

16.05.2004 ▲

Rolf
Koch

Hi Doik,

scheinbar hast Usted todavía no el Object Creator de me.
Si usted esta runtergeladen hast, führe esta de y erstelle una neues Ventana, lege una Choicebox en él y drücke en Prevista (Lupe).
Nun siehst Usted el erzeugten Ver código fuente.
Como If schonmal sagte: Aus Roc puede ser incluso aprender.

Rolf

16.05.2004 ▲

Rolf
Koch

OK, hier veces una Choiceboxbeispiel:
Kompilieren Marca Separación

Declare choicebox&, text&
cls
************ CHOICEBOX ERSTELLEN ***********************
LET CHOICEBOX&=Createchoicebox(%HWND,,5,6,300,400)
let text&=createtext(%HWND,Gewählter Text:,305,6,300,20)
Hier siehst Du die Parameter
Let Choicebox&=Zugeordnetes Handle der Choicebox (um diese später anzusprechen)
siehe unten Addchoice(Choicebox&.... oder getfocus(choicebox&)
%HWND = das Elternfenster - also das Hauptfenster
= der Leerstring
5     = Position vom linken Rand (des Hauptfensters) berechnet
6     = Position vom oberen Rand (des Hauptfensters) berechnet
300   = Breite der Choicebox
400   = Höhe der Choicebox (bei Choicboxen sieht man dies nur wenn man diese aufklappt!)
************* CHOICEBOX FÜLLEN ************************
ADDCHOICE(CHOICEBOX&,Halli Hallo)
ADDCHOICE(CHOICEBOX&,Ein Kasten Bier bitte)
ADDCHOICE(CHOICEBOX&,Ich bin ein Profaner)
ADDCHOICE(CHOICEBOX&,Friede, Freude, Eierkuchen)
ADDCHOICE(CHOICEBOX&,www.rokosoft.de)
ADDCHOICE(CHOICEBOX&,RocknRolf)
ADDCHOICE(CHOICEBOX&,Dies ist ein Test)
**********************************************

WHILE 1

    WAITINPUT
    *** Hier die Abfrage zur Choicebox ***************************

    If getfocus(Choicebox&)

        settext text&,add$(Gewählter Text: ,gettext$(choicebox&))

    ENDIF

WEND

Und es dies Haga clic en Aceptar?
Rolf

16.05.2004 ▲