[B2d] Konsole: vielleicht braucht sie wer!
Übersicht
BlitzBasic Codearchiv
totonak5Betreff: [B2d] Konsole: vielleicht braucht sie wer! |
 Mi, Feb 15, 2006 20:22Antworten mit Zitat 
|
|
|---|---|---|
|
hi!
ich weiß dass es sicher schon tausende konsolen gibt! aber ich hab jetzt mal eine mit keydown geschrieben (auch verwendbar für freie tastenbelegung). das besondere: man kann tasten halten und, so wie in texteditoren schreibt das programm erst mal 1 buchstaben und wenn man ein bisschen länger draufhält mehrere! so, hier mal der code: Code: [AUSKLAPPEN] Graphics 640,480
SetBuffer BackBuffer() Global KonsText$ Global SCJ Global SCV Global TSG Repeat Cls Konsole() Color 255,255,255 Text 10,10, KonsText$ Flip Until KeyHit(1) Function Konsole() SCJ = 0 Buchstabe$ = "" If KeyDown(14) Then SCJ = 14 If KeyDown(41) Then SCJ = 41 : If SCJ = 41 Then Buchstabe$ = "^" If KeyDown(41) And (KeyDown(42) Or KeyDown(54)) Then SCJ = 1041 : If SCJ = 1041 Then Buchstabe$ = "°" If KeyDown(2) Then SCJ = 2 : If SCJ = 2 Then Buchstabe$ = "1" If KeyDown(2) And (KeyDown(42) Or KeyDown(54)) Then SCJ = 1002 : If SCJ = 1002 Then Buchstabe$ = "!" If KeyDown(3) Then SCJ = 3 : If SCJ = 3 Then Buchstabe$ = "2" If KeyDown(3) And (KeyDown(42) Or KeyDown(54)) Then SCJ = 1003 : If SCJ = 1003 Then Buchstabe$ = Chr$(34) If KeyDown(4) Then SCJ = 4 : If SCJ = 4 Then Buchstabe$ = "3" If KeyDown(4) And (KeyDown(42) Or KeyDown(54)) Then SCJ = 1004 : If SCJ = 1004 Then Buchstabe$ = "§" If KeyDown(5) Then SCJ = 5 : If SCJ = 5 Then Buchstabe$ = "4" If KeyDown(5) And (KeyDown(42) Or KeyDown(54)) Then SCJ = 1005 : If SCJ = 1005 Then Buchstabe$ = "$" If KeyDown(6) Then SCJ = 6 : If SCJ = 6 Then Buchstabe$ = "5" If KeyDown(6) And (KeyDown(42) Or KeyDown(54)) Then SCJ = 1006 : If SCJ = 1006 Then Buchstabe$ = "%" If KeyDown(7) Then SCJ = 7 : If SCJ = 7 Then Buchstabe$ = "6" If KeyDown(7) And (KeyDown(42) Or KeyDown(54)) Then SCJ = 1007 : If SCJ = 1007 Then Buchstabe$ = "&" If KeyDown(8) Then SCJ = 8 : If SCJ = 8 Then Buchstabe$ = "7" If KeyDown(8) And (KeyDown(42) Or KeyDown(54)) Then SCJ = 1008 : If SCJ = 1008 Then Buchstabe$ = "/" If KeyDown(9) Then SCJ = 9 : If SCJ = 9 Then Buchstabe$ = "8" If KeyDown(9) And (KeyDown(42) Or KeyDown(54)) Then SCJ = 1009 : If SCJ = 1009 Then Buchstabe$ = "(" If KeyDown(10) Then SCJ = 10 : If SCJ = 10 Then Buchstabe$ = "9" If KeyDown(10) And (KeyDown(42) Or KeyDown(54)) Then SCJ = 1010 : If SCJ = 1010 Then Buchstabe$ = ")" If KeyDown(11) Then SCJ = 11 : If SCJ = 11 Then Buchstabe$ = "0" If KeyDown(11) And (KeyDown(42) Or KeyDown(54)) Then SCJ = 1011 : If SCJ = 1011 Then Buchstabe$ = "=" If KeyDown(12) Then SCJ = 12 : If SCJ = 12 Then Buchstabe$ = "ß" If KeyDown(12) And (KeyDown(42) Or KeyDown(54)) Then SCJ = 1012 : If SCJ = 1012 Then Buchstabe$ = "?" If KeyDown(13) Then SCJ = 13 : If SCJ = 13 Then Buchstabe$ = "´" If KeyDown(13) And (KeyDown(42) Or KeyDown(54)) Then SCJ = 1013 : If SCJ = 1013 Then Buchstabe$ = "`" If KeyDown(181) Then SCJ = 181 : If SCJ = 181 Then Buchstabe$ = "/" If KeyDown(55) Then SCJ = 55 : If SCJ = 55 Then Buchstabe$ = "*" If KeyDown(74) Then SCJ = 74 : If SCJ = 74 Then Buchstabe$ = "-" If KeyDown(16) Then SCJ = 16 : If SCJ = 16 Then Buchstabe$ = "q" If KeyDown(17) Then SCJ = 17 : If SCJ = 17 Then Buchstabe$ = "w" If KeyDown(18) Then SCJ = 18 : If SCJ = 18 Then Buchstabe$ = "e" If KeyDown(19) Then SCJ = 19 : If SCJ = 19 Then Buchstabe$ = "r" If KeyDown(20) Then SCJ = 20 : If SCJ = 20 Then Buchstabe$ = "t" If KeyDown(21) Then SCJ = 21 : If SCJ = 21 Then Buchstabe$ = "z" If KeyDown(22) Then SCJ = 22 : If SCJ = 22 Then Buchstabe$ = "u" If KeyDown(23) Then SCJ = 23 : If SCJ = 23 Then Buchstabe$ = "i" If KeyDown(24) Then SCJ = 24 : If SCJ = 24 Then Buchstabe$ = "o" If KeyDown(25) Then SCJ = 25 : If SCJ = 25 Then Buchstabe$ = "p" If KeyDown(26) Then SCJ = 26 : If SCJ = 26 Then Buchstabe$ = "ü" If KeyDown(27) Then SCJ = 27 : If SCJ = 27 Then Buchstabe$ = "+" If KeyDown(27) And (KeyDown(42) Or KeyDown(54)) Then SCJ = 27 : If SCJ = 27 Then Buchstabe$ = "*" If KeyDown(71) Then SCJ = 71 : If SCJ = 71 Then Buchstabe$ = "7" If KeyDown(82) Then SCJ = 82 : If SCJ = 82 Then Buchstabe$ = "0" If KeyDown(73) Then SCJ = 73 : If SCJ = 73 Then Buchstabe$ = "9" If KeyDown(72) Then SCJ = 72 : If SCJ = 72 Then Buchstabe$ = "8" If KeyDown(78) Then SCJ = 78 : If SCJ = 78 Then Buchstabe$ = "+" If KeyDown(30) Then SCJ = 30 : If SCJ = 30 Then Buchstabe$ = "a" If KeyDown(31) Then SCJ = 31 : If SCJ = 31 Then Buchstabe$ = "s" If KeyDown(32) Then SCJ = 32 : If SCJ = 32 Then Buchstabe$ = "d" If KeyDown(33) Then SCJ = 33 : If SCJ = 33 Then Buchstabe$ = "f" If KeyDown(34) Then SCJ = 34 : If SCJ = 34 Then Buchstabe$ = "g" If KeyDown(35) Then SCJ = 35 : If SCJ = 35 Then Buchstabe$ = "h" If KeyDown(36) Then SCJ = 36 : If SCJ = 36 Then Buchstabe$ = "j" If KeyDown(37) Then SCJ = 37 : If SCJ = 37 Then Buchstabe$ = "k" If KeyDown(38) Then SCJ = 38 : If SCJ = 38 Then Buchstabe$ = "l" If KeyDown(39) Then SCJ = 39 : If SCJ = 39 Then Buchstabe$ = "ö" If KeyDown(40) Then SCJ = 40 : If SCJ = 40 Then Buchstabe$ = "ä" If KeyDown(43) Then SCJ = 43 : If SCJ = 43 Then Buchstabe$ = "#" If KeyDown(43) And (KeyDown(42) Or KeyDown(54)) Then SCJ = 1043 : If SCJ = 1043 Then Buchstabe$ = "'" If KeyDown(75) Then SCJ = 75 : If SCJ = 75 Then Buchstabe$ = "4" If KeyDown(76) Then SCJ = 76 : If SCJ = 76 Then Buchstabe$ = "5" If KeyDown(77) Then SCJ = 77 : If SCJ = 77 Then Buchstabe$ = "6" If KeyDown(86) Then SCJ = 86 : If SCJ = 86 Then Buchstabe$ = "<" If KeyDown(86) And (KeyDown(42) Or KeyDown(54)) Then SCJ = 1086 : If SCJ = 1086 Then Buchstabe$ = ">" If KeyDown(44) Then SCJ = 44 : If SCJ = 44 Then Buchstabe$ = "y" If KeyDown(45) Then SCJ = 45 : If SCJ = 45 Then Buchstabe$ = "x" If KeyDown(46) Then SCJ = 46 : If SCJ = 46 Then Buchstabe$ = "c" If KeyDown(47) Then SCJ = 47 : If SCJ = 47 Then Buchstabe$ = "v" If KeyDown(48) Then SCJ = 48 : If SCJ = 48 Then Buchstabe$ = "b" If KeyDown(49) Then SCJ = 49 : If SCJ = 49 Then Buchstabe$ = "n" If KeyDown(50) Then SCJ = 50 : If SCJ = 50 Then Buchstabe$ = "m" If KeyDown(51) Then SCJ = 51 : If SCJ = 51 Then Buchstabe$ = "," If KeyDown(51) And (KeyDown(42) Or KeyDown(54)) Then SCJ = 1051 : If SCJ = 1051 Then Buchstabe$ = ";" If KeyDown(52) Then SCJ = 52 : If SCJ = 52 Then Buchstabe$ = "." If KeyDown(52) And (KeyDown(42) Or KeyDown(54)) Then SCJ = 1052 : If SCJ = 1052 Then Buchstabe$ = ":" If KeyDown(53) Then SCJ = 53 : If SCJ = 53 Then Buchstabe$ = "-" If KeyDown(53) And (KeyDown(42) Or KeyDown(54)) Then SCJ = 1053 : If SCJ = 1053 Then Buchstabe$ = "_" If KeyDown(79) Then SCJ = 79 : If SCJ = 79 Then Buchstabe$ = "1" If KeyDown(80) Then SCJ = 80 : If SCJ = 80 Then Buchstabe$ = "2" If KeyDown(81) Then SCJ = 81 : If SCJ = 81 Then Buchstabe$ = "3" If KeyDown(57) Then SCJ = 57 : If SCJ = 57 Then Buchstabe$ = " " If KeyDown(83) Then SCJ = 83 : If SCJ = 83 Then Buchstabe$ = "," If SCJ <> 14 If SCV = SCJ If (TSG Mod 2) = 1 And TSG > 20 Then KonsText$ = KonsText$ + Buchstabe$ TSG = TSG + 1 Else TSG = 0 KonsText$ = KonsText$ + Buchstabe$ EndIf Else If Len(KonsText$) > 0 If SCV = SCJ If (TSG Mod 2) = 1 And TSG > 20 Then KonsText$ = Left$(KonsText$,Len(KonsText$)-1) TSG = TSG + 1 Else TSG = 0 KonsText$ = Left$(KonsText$,Len(KonsText$)-1) EndIf EndIf EndIf SCV = SCJ End Function groß- und kleinschreibung geht zwar nicht aber die zeichen zu den zahlen, die man mit shift aktiviert funktionieren. lg |
||
|
Just for Fun!
Jesus loves U! |
||
Blood Brother |
Mi, Feb 15, 2006 21:36 Antworten mit Zitat
|
|
|---|---|---|
| Sorry, hab mir das Programm net genau angeschaut, aber mir fällt bei den ganzen If's nur eins ein: Select - Case | ||
|
lucifer |
Mi, Feb 15, 2006 21:40 Antworten mit Zitat
|
|---|---|---|
| Mit GetKey() geht das viel leichter. | ||
|
Aktuelles Projekt:
Demonspawn RPG |
||
totonak5 |
Mi, Feb 15, 2006 21:47 Antworten mit Zitat
|
|
|---|---|---|
|
getkey löscht das die befehle gleich aus dem buffer! da kann man die tasten nicht gedrückt lassen.
Edit: select/case- die hab ich schon fast aus meinem gedächtnis gstrichen. aber ich hätte sie bei dem code so wie so nicht wirklich gut anwenden können |
||
|
Just for Fun!
Jesus loves U! |
||
|
RallimenSieger des 30-EUR-Wettbewerbs |
Mi, Feb 15, 2006 22:05 Antworten mit Zitat
|
|---|---|---|
|
Zitat: getkey löscht das die befehle gleich aus dem buffer! da kann man die tasten nicht gedrückt lassen.
Bei BB2D und 3D ist das so! BlitzPlus macht es aber! |
||
|
[BB2D | BB3D | BB+]
|
||
totonak5 |
Mi, Feb 15, 2006 22:43 Antworten mit Zitat
|
|
|---|---|---|
ja, ich hab b3d 
|
||
|
Just for Fun!
Jesus loves U! |
||
Blackbelt |
Mo, Feb 20, 2006 20:50 Antworten mit Zitat
|
|
|---|---|---|
|
Code: [AUSKLAPPEN] .marke
a$ = Input$ (" ") Cls Goto marke End oder hab ich was falsch verstanden? Gr33tz Blackbelt |
||
#ReaperNewsposter |
Mo, Feb 20, 2006 21:04 Antworten mit Zitat
|
|
|---|---|---|
|
Input() unterbricht ein Programm, also für consolen sehr schlecht
|
||
|
AMD Athlon 64 3500+, ATI AX800 Pro/TD, 2048 MB DRR 400 von Infineon, ♥RIP♥ (2005 - Juli 2015 -> sic!)
Blitz3D, BlitzMax, MaxGUI, Monkey X; Win7 |
||
$tankY |
Do, Apr 06, 2006 14:31 Antworten mit Zitat
|
|
|---|---|---|
|
Die Alt-Kombinationen gehen nicht, wie @ und €!
Sonst ganz lustig... |
||
|
Triton |
Do, Apr 13, 2006 1:17 Antworten mit Zitat
|
|---|---|---|
| Bitte dringend verbessern. Andernfalls wird es in den Trash wandern. | ||
| Coding: silizium-net.de | Portfolio: Triton.ch.vu | ||
Übersicht
BlitzBasic Codearchiv
Powered by phpBB © 2001 - 2006, phpBB Group