Wie geht das mit dem Visual Designer?

[Kallewirsch]

Hallo zusammen,

ich habs euch ja geschrieben das ich noch weitere "blöde"Fragen habe.

wie kann man das unten stehedne prg. in ein schönes Windows-Fenster packen. Habe leider noch keine Ahnung wie das geht.

hat jemand eine gute Anfänger Anleitung für mich?

Code: Alles auswählen

OpenConsole()
PrintN (" Gib Zahl 1 ein")
zahl1.s = Input()
PrintN (" Gib Zahl 2 ein")
zahl2.s = Input()
Mittelwert$ = StrF( (ValF(zahl1) + ValF(zahl2)) / 2)
PrintN ("Mittelwert von 1und 2")
PrintN(Mittelwert$)
Input()

Hoffe ihr könnt mir helfen und mir ein Beispiel zeigen.

Vielen Dank schon mal!!!!

Gruß Kalle

[Andesdaf]

wieso willst du eine Console in ein Windowsfenster ausgeben?
OpenConsole() öffnet doch schon so eine Art Fenster, auch
wenn's eigentlich die Console ist. Siehe auch Hilfe.

Aber: Vielleicht hilft ja das:
http://www.purebasic.fr/german/viewtopi ... 16&t=19374

//achso, Visualdesigner

[Kaeru Gaman]

also, du brauchst nicht den VD, um ein Fenster mit Gadgets zu erstellen.

und so ein kleines Demolein in ein Fenster zu packen, da ist das auch die Frage was wie viel Sinn ergibt.

in diesem Fall kannst du StringGadget oder SpinGadget für die Eingabe, und TextGadget für die Ausgabe nehmen.
das wesentlich komplexere wird die Event-Verarbeitung, also die Steuerung wann du die Mittelwertberechnung durchführst.
also, das Beispiel für den Mittelwert ist eher für so ein Console-Programm als für ne Fensteroberfläche geeignet.

PS:
nee, Columbo, völlig falscher Dampfer...

[Andesdaf]

wenn ich schon den ersten Hinweis versaut hab dann wenigstens hier einen
Code der so aussieht wie der vom VD aussehen könnte:
(achtung: schnell gecoded)

Code: Alles auswählen

Enumeration
  #WIN_0
EndEnumeration

Enumeration 
  #STR_0
  #STR_1
  #BUT_0
EndEnumeration

Procedure Main()
  If OpenWindow(#WIN_0,0,0,200,400,"Mittelwert")
    StringGadget(#STR_0,3,3,100,25,"Zahl 1 eingeben")
    StringGadget(#STR_1,3,30,100,25,"Zahl 2 eingeben")
    ButtonGadget(#BUT_0,3,60,100,25,"Berechnen")
  EndIf
  
  Repeat
    iEvent.i = WaitWindowEvent()
    
    Select iEvent
      Case #PB_Event_Gadget
        Select EventGadget()
          Case #BUT_0
            Mittelwert$ = StrF( (ValF(GetGadgetText(#STR_0)) + ValF(GetGadgetText(#STR_1))) / 2)
            MessageRequester("Mittelwert von 1 und 2",Mittelwert$)
        EndSelect
     EndSelect
   Until iEvent = #PB_Event_CloseWindow
EndProcedure

Main()

Ansonsten beschäftige dich einfach ein bisschen mit der VDHilfe,
das wird dann schon was.

[Kaeru Gaman]

ich würde eher empfehlen, auf den VD zu verzichten, aber das ist ja Geschmackssache.

so wie ich das auffasse, geht es Kallewirsch grundsätzlich erst mal um einen Einstieg,
und da wäre der allerwichtigste Punkt wohl die Eventschleife.

[Mok]

ich würde eher empfehlen, auf den VD zu verzichten.

Ich auch... mit Requesters geht das viel einfacher:

Code: Alles auswählen

z1 = Val(InputRequester("Zahl 1","Gib Zahl 1 ein:",""))
z2 = Val(InputRequester("Zahl 2","Gib Zahl 1 ein:",""))
Mittelw = (z1 + z2) / 2
MessageRequester("Info","Mittelwer von Zahl 1 und Zahl 2: "+StrF(Mittelw))

[Kallewirsch]

Hallo an die Helfer,

das kleine Prg. von MOK ist schon das was ich Suche. Aber warum kann ich keine Kommazahlen eingeben bzw. berechnen lassen?

Gruß Kalle

[Kaeru Gaman]

schau dir mal ValF() bzw. ValD() an.

... und das ist für dich als Lernbeispiel leider relativ unnütz, weil du für größere Sachen niemals alles über Standardrequester machst,
sondern dir ne anständige GUI bauen wirst, und dafür brauchst du ne anständige Eventschleife.

[Kallewirsch]

Hallo Kaeru,

hab schon mit VAL, VALD, VALF versucht aber es kommt immer ne ganze Zahl wie 12.000000 heraus.

[Kaeru Gaman]

... hast du denn den Type von z1, z2 und Mittelw auch auf Float oder Double geändert?