Bildbetrachtung

[*Andi]

Ich versuche gerade ein programm für den Gtr zu schreiben womit man sich die bilde auf demtr ansehen kann.
Aber wie schaffe ich es, dass man ein bild nach dem anderen anschauen kann, und nicht immer 6 verschiedene Programme aufm
rechner haben muss????

[efi]

Willst du ein Menü oder eine Slideshow oder eine Navigation auf Tastendruck, oder was ganz anderes?

[*Andi]

:rolleyes:ich denke ein navigations menü!

[*Andi]

;)ich meine Navigation auf tastendruck!

[Maik]

Dann würde ich das so machen:
ClrText
Lbl 1
Locate 1,1,"[1] Bild 1"
Locate 1,2,"[2] Bild 2"
Locate 1,3,"[3] Bild 3"
Locate 1,4,"[4] Bild 4"
Locate 1,5,"[5] Bild 5"
Locate 1,6,"[6] Bild 6"
Do
LpWhile Getkey<>72 And Getkey<>62 And Getkey<>52 And Getkey<>73 And Getkey<>63 And Getkey<>53
Getkey=72=>RclPict 1
Getkey=62=>RclPict 2
Getkey=52=>RclPict 3
Getkey=73=>RclPict 4
Getkey=63=>RclPict 5
Getkey=53=>RclPict 6
Goto 1

<> (Shift+Vars+F6+F3+F2)
=> (Shift+Vars+F3+F3)

[Editiert durch Maik am Sonntag, Februar 29, 2004 @ 15:19]

[Andi]

danke soweit, aber wie schreibe ich das "And"????

[Maik]

optn+F6+F6+F4+F1

[Andi]

:(langsam verzweifel ich, es funktoniert immer noch nich...

[Maik]

kommt ein syn error?
wenn ja, klick mal auf cursor-rechts. wenn der cursor dann auf ein And sprongt, hast du vor das And ein leerzeichen mit Alpha+. gezeichnet, die musst du alle löschen

wenn kein synerror kommt: belib mal lange auf der taste, zb (1)

[Editiert durch Maik am Sonntag, Februar 29, 2004 @ 21:53]

[luces]

der richtige code:

Do
LpWhile Getkey<>72 And Getkey<>62 And Getkey<>52 And Getkey<>73 And Getkey<>63 And Getkey<>53
Getkey=72=>RclPict 1
Getkey=62=>RclPict 2
Getkey=52=>RclPict 3
Getkey=73=>RclPict 4
Getkey=63=>RclPict 5
Getkey=53=>RclPict 6
Text 1,1,"luces"
While Not GetKey:WhileEnd
Goto 1

liegt daran, dass RclPict nicht in den Grafikmodus wechselt...

[Editiert durch luces am Montag, März 1, 2004 @ 10:32]