Input routine - Numblock
Übersicht
BlitzBasic Beginners-Corner
DüsiBetreff: Input routine - Numblock |
 So, Aug 17, 2008 22:29Antworten mit Zitat 
|
|
|---|---|---|
|
Moin,
wie kann ich in einer Input routine die Tasten vom Numblock verwenden? GetKey() gibt nix zurück bei den Tasten 
MfG |
||
|
FireballFlame |
So, Aug 17, 2008 22:37 Antworten mit Zitat
|
|---|---|---|
| Dann musst du sie vermutlich einzeln mit KeyHit abfragen... | ||
|
PC: Intel Core i7 @ 4x2.93GHz | 6 GB RAM | Nvidia GeForce GT 440 | Desktop 2x1280x1024px | Windows 7 Professional 64bit
Laptop: Intel Core i7 @ 4x2.00GHz | 8 GB RAM | Nvidia GeForce GT 540M | Desktop 1366x768px | Windows 7 Home Premium 64bit |
||
|
RallimenSieger des 30-EUR-Wettbewerbs |
So, Aug 17, 2008 22:42 Antworten mit Zitat
|
|---|---|---|
|
das geht mit den Scancodes
ich habe auch schon eine geschrieben und sollte auch hier zu finden sein.. such............ Code: [AUSKLAPPEN] Graphics 600 ,500,16,2
While Not KeyDown (1) ;############################################ b = GetKeyNew () Select b Case 13 Print "" ; return Case 0 Default Write Chr (B) End Select Delay 1 ; da sonst flushkeys nicht richtig funktioniert ;da die Zeitspanne der Aufrufe in diesem beispiel zu kurz ist! Wend : End ;####################################################### Function GetKeyNew () Local xx If KeyHit (181) Then xx = 47 ;/ ElseIf KeyHit (82) Then XX = 48 ;0 ElseIf KeyHit (83) Then XX = 44 ;, ElseIf KeyHit (79) Then XX = 49 ;1 ElseIf KeyHit (80) Then XX = 50 ;2 ElseIf KeyHit (81) Then XX = 51 ;3 ElseIf KeyHit (75) Then XX = 52 ;4 ElseIf KeyHit (76) Then XX = 53 ;5 ElseIf KeyHit (77) Then XX = 54 ;6 ElseIf KeyHit (71) Then XX = 55 ;7 ElseIf KeyHit (72) Then XX = 56 ;8 ElseIf KeyHit (73) Then XX = 57 ;9 End If If xx= 0 Then XX = GetKey () FlushKeys () Return xx End Function |
||
|
[BB2D | BB3D | BB+]
|
||
Düsi |
Mo, Aug 18, 2008 11:46 Antworten mit Zitat
|
|
|---|---|---|
Dankeschön 
|
||
Übersicht
BlitzBasic Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group