Text auf Tastendruck ändern

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

Darky

Betreff: Text auf Tastendruck ändern

BeitragFr, Aug 05, 2005 10:26
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi ich habe gleich noch ne Frage. Wegen meinen Quizprogramm. Wie sage ich BB das es wenn ich die Taste 1 drücke einen anderen text angezeigen soll? Hoffe Ihr könnt mir wieder weiterhelfen. Wink

Code:

Code: [AUSKLAPPEN]
; By Darky // Quiz Version 1.0
; Features
; 15 verschiedene Fragen und 60 Antworten
; Musik und Sound importiert
; Hauptmenü sowie Submenü importiert
Text 130, 20, "Quiz Version  1.0"
Text 60, 34, "By Darky developed with Blitz Basic"
Text 100, 250, "Press please enter key."
sound = LoadSound("click.wav")
kanal = PlaySound(sound)
LoopSound sound 
ChannelVolume kanal, 50
ChannelPitch kanal, 44100;
ChannelPlaying(kanal)
WaitKey 
Cls
Text 130, 20, "Quiz Version  1.0"
Text 130, 50, "(1) New Game"
Text 130, 66, "(2) Credits"
Text 130, 81, "(3) Quit"
If KeyHit(scancode)
ascuii_code = GetKey()
taste  = WaitKey()
End If
Cls
Text 130, 20, "Wie alt bist du?"


~EDITIERT~

Code-Tag hinzugefügt und Titel aus "Frage. bitte lesen." geändert.

Wunderkind

wunderkind

BeitragFr, Aug 05, 2005 10:40
Antworten mit Zitat
Benutzer-Profile anzeigen
~VERSCHOBEN~

Es handelt sich um Grundlagen, deshalb mit der Bitte um Verständnis verschoben.

Darky

BeitragFr, Aug 05, 2005 11:29
Antworten mit Zitat
Benutzer-Profile anzeigen
Kann mir jemand bitte weiterhelfen? Habe schon im Forum durchgeschaut.
Wäre echt super von Euch. Danke

Aktueller Code:

; By Darky // Quiz Version 1.0
; Features
; 15 verschiedene Fragen und 60 Antworten
; Musik und Sound importiert
; Hauptmenü sowie Submenü importiert
Text 130, 20, "Quiz Version 1.0"
Text 60, 34, "By Darky developed with Blitz Basic"
Text 100, 250, "Press please enter key."
sound = LoadSound("click.wav")
kanal = PlaySound(sound)
LoopSound sound
ChannelVolume kanal, 50
ChannelPitch kanal, 44100;
ChannelPlaying(kanal)
WaitKey
Cls
Text 130, 20, "Quiz Version 1.0"
Text 130, 50, "(1) New Game"
Text 130, 66, "(2) Credits"
Text 130, 81, "(3) Quit"
If KeyHit(scancode)
ascuii_code = GetKey()
taste = WaitKey()
End If
WaitKey
Cls
Name$ = Input$("Wie heißen sie:")
Text 130,50, "Hallo, " + Name$ + "!"
WaitKey
Cls


Gruß
Darky

Xaron

BeitragFr, Aug 05, 2005 12:17
Antworten mit Zitat
Benutzer-Profile anzeigen
Hast Du auch nicht nur geschaut sondern einfach auch mal nachgedacht?

Frage einfach den entsprechenden Tastencode ab und zeig dementsprechend einen Text an. Wink Oder sollen wir Dir besser gleich Dein Quiz fertigprogrammieren?

Was Du im wesentlichen brauchst, ist eine Schleife, in der bei jedem Durchlauf die Tasten abgefragt werden und dementsprechend Aktionen ausgeführt werden. Diese Schleife wird nur dann verlassen, wenn das Spiel beendet wird

Gruß - Xaron
Cerberus X - Monkey X Reloaded!

Darky

BeitragFr, Aug 05, 2005 13:05
Antworten mit Zitat
Benutzer-Profile anzeigen
Ne ich programiere schon, Wink aber mit den Tastencode habe ich nicht so ganz kapiert. weis du ein gutes Tutorial? Wegen Tastencode. Rolling Eyes

Gruß
Darky

dominik

BeitragFr, Aug 05, 2005 13:08
Antworten mit Zitat
Benutzer-Profile anzeigen
was soll in einem Tut über tastencodes stehen?

Es gibt ne Tabelle in der alle Scancodes aufgeführt sind. und die Befehle Keydown() und Keyhit().

Lies dir die beschreibung der Befehle in der OH durch, danach sollte eigentlich alles geklärt sein.
BB+ 1.41|Sempron 2.8|geforce fx5200|1GB DDR|XP home SP2 / prof.

Xaron

BeitragFr, Aug 05, 2005 13:17
Antworten mit Zitat
Benutzer-Profile anzeigen
Achso... na dann sorry.

Schau mal hier ins Codearchiv:

https://www.blitzforum.de/viewtopic.php?t=13063

Gruß - Xaron
Cerberus X - Monkey X Reloaded!

Darky

BeitragFr, Aug 05, 2005 13:29
Antworten mit Zitat
Benutzer-Profile anzeigen
Danke dir Wink Xaron bist echt klasse. Smile Wie alle BBler Very Happy

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group