
nnerhalb von 10 Minuten und einer Wortzahl von 1000/min hat er mir ein Grundgerüst gebaut welches ich mit nur ein paar Fragen, komplett Verstand und nun das mit der 3.3 Vers.:
[Das soll für heute reichen, GANZ GROßEN DANK FÜR DIE VIELEN TOLLEN LINKS ]
Code: Alles auswählen
A=MessageRequester("Kerkerschrei motzt:", "Rot und Blau, schmückt die Sau?",#PB_MessageRequester_YesNoCancel )
If A=6
MessageRequester("Egal:", "Schau mal unter C:\test.bmp",#PB_MessageRequester_OK )
ElseIf A=7
MessageRequester("und dennoch:", "Schau mal unter C:\test.bmp",#PB_MessageRequester_OK )
ElseIf A=2
MessageRequester("los du Sau :", "Schau mal unter C:\test.bmp",#PB_MessageRequester_OK )
EndIf
CreateImage(0,320,240)
UseImage(0)
StartDrawing(ImageOutput())
Box(0,0,20,20,RGB(255,0,0))
Box(300,220,20,20,RGB(0,0,255))
StopDrawing()
SaveImage(0,"C:\Test.bmp")