[B2D] Variable unerkannt

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

N0X

Betreff: [B2D] Variable unerkannt

BeitragMo, Jan 05, 2009 21:26
Antworten mit Zitat
Benutzer-Profile anzeigen
Hey, Community !
Steh grade irgendwie voll auf dem Schlauch ...
Ich 'hab ein total simples Problem mit KeyHit !

1. Die x-Variable wird irgendwie nicht erkannt
2. Wenn ich alle KeyHit-Variablen außerhalb der Repeat-Schleife stelle, bleiben sie auch unerkannt

Warum ?

Hier der Code: [AUSKLAPPEN]
x=10
While Not KeyHit(1)
   
   If a Then Text x,10,"a" x=x+10
   If b Then Text x,10,"b" x=x+10
   If c Then Text x,10,"c" x=x+10
   If d Then Text x,10,"d" x=x+10
   If e Then Text x,10,"e" x=x+10
   If f Then Text x,10,"f" x=x+10
   If g Then Text x,10,"g" x=x+10
   If h Then Text x,10,"h" x=x+10
   If i Then Text x,10,"i" x=x+10
   If j Then Text x,10,"j" x=x+10
   If k Then Text x,10,"k" x=x+10
   If l Then Text x,10,"l" x=x+10
   If m Then Text x,10,"m" x=x+10
   If n Then Text x,10,"n" x=x+10
   
   a=KeyHit(30)
   b=KeyHit(48)
   c=KeyHit(46)
   d=KeyHit(32)
   e=KeyHit(18)
   f=KeyHit(33)
   g=KeyHit(34)
   h=KeyHit(35)
   i=KeyHit(23)
   j=KeyHit(36)
   k=KeyHit(37)
   l=KeyHit(38)
   m=KeyHit(50)
   n=KeyHit(49)
   o=KeyHit(24)
   p=KeyHit(25)
   q=KeyHit(16)
   r=KeyHit(19)
   s=KeyHit(31)
   t=KeyHit(20)
   u=KeyHit(22)
   v=KeyHit(47)
   w=KeyHit(17)
   x=KeyHit(45)
   y=KeyHit(44)
   z=KeyHit(21)
   
Wend
End


Mfg,
N0X
Projekte: |Tibario| http://www.blitzforum.de/worklogs/325/ | 5%

tedy

BeitragMo, Jan 05, 2009 21:32
Antworten mit Zitat
Benutzer-Profile anzeigen
Dir fehlt zwischen dem Text Befehl und x+x=10 ein ; um die befehle zu trennen
01010100 01100101 01000100 01111001 00100000 00111010 01000100

N0X

BeitragMo, Jan 05, 2009 21:34
Antworten mit Zitat
Benutzer-Profile anzeigen
Bringt nichts Sad
Projekte: |Tibario| http://www.blitzforum.de/worklogs/325/ | 5%
 

ke^kx

BeitragMo, Jan 05, 2009 21:36
Antworten mit Zitat
Benutzer-Profile anzeigen
wenn du willst, dass x auch um 10 erhöht wird musst du einen doppelpunkt verwenden. Dieser ist immer nötig, wenn du zwei befehle in einer Zeile ausführen willst.

Abgesehen davon hast du keine brauchbare Ausgabe, da du keinen Backbuffer (mit cls und flip) verwendest. Schau dir die Befehle mal in der Hilfe an. Aufpassen solltest du außerdem, mit deiner x variable, denn du weißt ihr bei tastendruck von x den Wert "1" (true) zu.

[Edit]
Wichtig: ein Semikolon ";" leitet einen Kommentar ein, ein Doppelpunkt ":" ersetzt einen zeilenumbruch!
http://i3u8.blogspot.com
Asus Striker II
Intel Core2Quad Q9300 @ 2,5 GHz (aber nur zwei Kerne aktiv aufgrund der Instabilität -.-)
Geforce 9800 GTX
2GB RAM

N0X

BeitragMo, Jan 05, 2009 21:39
Antworten mit Zitat
Benutzer-Profile anzeigen
Die Buffer-Befehle, Cls, Flip kenn ich ja alle Wink
War nur mal so spaßig programmiert Rolling Eyes
Und das ändert nichts an meinem eigentlichen Problem Confused

Edit:
Irgendwie hat es das doch, nachdem ich die x-Variable, breite genannt hab. Rolling Eyes
'Hab ich übersehen, danke Jiriki und Holzchopf Smile
Projekte: |Tibario| http://www.blitzforum.de/worklogs/325/ | 5%
  • Zuletzt bearbeitet von N0X am Mo, Jan 05, 2009 21:43, insgesamt 2-mal bearbeitet

Holzchopf

Meisterpacker

BeitragMo, Jan 05, 2009 21:41
Antworten mit Zitat
Benutzer-Profile anzeigen
Wenn man schon so nett ist, dir zu helfen, solltest du das in Zukunf auch beherzigen. Jiriki hats nämlich schon gesagt...
Code: [AUSKLAPPEN]
x=KeyHit(45)

Na?
Erledige alles Schritt um Schritt - erledige alles. - Holzchopf
CC BYBinaryBorn - Yogurt ♫ (31.10.2018)
Im Kopf da knackt's und knistert's sturm - 's ist kein Gedanke, nur ein Wurm

tedy

BeitragMo, Jan 05, 2009 21:45
Antworten mit Zitat
Benutzer-Profile anzeigen
AWW
Bei BMax ist es ein ; und bei bb ein : >.<
01010100 01100101 01000100 01111001 00100000 00111010 01000100
 

BadDeath

BeitragMo, Jan 05, 2009 21:47
Antworten mit Zitat
Benutzer-Profile anzeigen
So geht's noch kürzer:

Code: [AUSKLAPPEN]
xx=10
While Not KeyHit(1)

   Char$ = Chr$(GetKey())
   If Lower$(Instr("abcdefghijklmnopqrstuvwxyz",Char)) > 0 Then Text x,10, Char : x = x+10
Wend
End
-~= real coders just code in binary =~-

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group