| |
|
|
Micha12334 | Test de mehrzeiligen Eingaben dans cela msg un kleines Beispiel zur Vue d'ensemble einiger Funktionen:
var j
var n
var txt1
var txt2
var vide = " "
var mehrzeilige_eingabe
cls rgb 0 0 150
msg msg.box,time(7)+" um "+time(2),"Test de mehrzeiligen msg",["JA","NEIN","VIELLEICHT"],zéro,ergebnis
proc ergebnis btn txt1
imprimer "
"
imprimer vide + "Es wurde "+str(btn)+". gewählt"
imprimer vide + "______________________________"
imprimer vide
si str(btn) == 1
imprimer vide + "JA"
imprimer vide
imprimer vide
imprimer vide + "Nach Eingabe de TEXT,"
imprimer vide + "ergibt 'ENTER' une neue Zeile"
imprimer vide
imprimer vide + "Zweites 'JA' ergibt Anzeige qui Eingabe"
imprimer vide + "tatschen = Ende"
imprimer vide
imprimer vide + "'ENDE' finissez alles"
imprimer vide
imprimer vide
msg msg.box, "TEST","neue la ligne avec 'Enter'",["JA","NEIN","ENDE"],[»,131072+1],eingabe
endif
si str(btn) == 2
imprimer vide + "NEIN"
imprimer vide
imprimer vide + "zum finissons s'il te plaît tatschen"
endif
si str(btn) == 0
imprimer vide + "vielleicht"
imprimer vide
imprimer vide + "zum finissons s'il te plaît tatschen"
gui gui.bgcolor, gui.hwnd, rgb 255 0 0 128
endif
endproc
proc eingabe btn txt2
mehrzeilige_eingabe = txt2
imprimer mehrzeilige_eingabe
si str(btn) == 0
end
endif
endproc
proc event (id, data)
si id == event.touchdown
msg msg.box, "ENDE"
imprimer vide+"ENDE"
end
endif
endproc
|
| 146 kB | | Bezeichnung: | msgtest | | Version: | v0.0.1 | | Kurzbeschreibung: | siehe dessus | | Hochgeladen: | 09.01.2016 | | Downloadcounter: | | | | Download |
|
|
| |
|
|