Blackout...
Übersicht
BlitzBasic Allgemein
cavebirdBetreff: Blackout... |
 Fr, Aug 20, 2004 22:07Antworten mit Zitat 
|
|
|---|---|---|
|
Puuuh ich habe grade voll das Blackout und versuche seit ca. 3Stunden folgendes zu machen.
Wenn eine Taste gedrückt wird soll es entweder 1 oder 2 sein. Bitte um Hilfe. Danke. [edit] Ich sollte nicht kiffen  [/edit]
|
||
| MegaUpload.de -- Uploade bis zu 2MB pro Bild !!DEIN PARTNER IN SACHEN UPLOAD --bitte weiterempfehlen, nur so können wir bekannt werden... | ||
|
dominik |
Fr, Aug 20, 2004 22:08 Antworten mit Zitat
|
|---|---|---|
|
Code: [AUSKLAPPEN] if keydown(xxx) then
if a = 1 then a = 2 if a = 2 then a = 1 endif so in der art.....? |
||
cavebird |
Fr, Aug 20, 2004 22:11 Antworten mit Zitat
|
|
|---|---|---|
| Nein, es soll nicht nur bei Tasstendruck so bleiben sondern auch stehen bleiben. Also so ne Art dazu zählen. | ||
| MegaUpload.de -- Uploade bis zu 2MB pro Bild !!DEIN PARTNER IN SACHEN UPLOAD --bitte weiterempfehlen, nur so können wir bekannt werden... | ||
Blitzkrieg Bop |
Fr, Aug 20, 2004 22:12 Antworten mit Zitat
|
|
|---|---|---|
|
Machs doch mit 0 und 1, spart Codezeilen.
Hier 2 Möglichkeiten: Code: [AUSKLAPPEN] Graphics 640,480 SetBuffer BackBuffer() Repeat Cls var = var Xor MouseHit(1) If MouseHit(2) var2 = Not var2 EndIf Text 0,0,var Text 0,30,var2 Flip Until KeyHit(1):End ...auch noch stolz aufs kiffen?
|
||
| ~ Hey Ho Let's Go ~ | ||
Timo |
Fr, Aug 20, 2004 22:14 Antworten mit Zitat
|
|
|---|---|---|
|
Code: [AUSKLAPPEN] a = 2
repeat waitkey() if keyhit(2) then a = 3 - a Print a until keyhit(1) end nur eine Zeile 
|
||
|
theBlade |
Fr, Aug 20, 2004 22:15 Antworten mit Zitat
|
|---|---|---|
|
wenn du nicht mal das hinbekommst...
if keyhit(xxx) then var = 1 - var dazuzzählen: if keyhit(xxx) then var = var + n |
||
|
"Ich bin wie ich bin. Die einen kennen mich, die anderen können mich." (Dr. Konrad Adenauer)
UTFSB -> (use the fuckin "suchen"-button) User posted image <- link -.- |
||
cavebird |
Fr, Aug 20, 2004 22:15 Antworten mit Zitat
|
|
|---|---|---|
Nein das hatte ich auch vorher mit 0 und 1, allerdings brauche ich die 1 und 2 für Vollbild und Fenstermodus, mit 0 und 1 funktioniert es nicht in der exe Datei 
Also muss es 1 und 2 sein 
|
||
| MegaUpload.de -- Uploade bis zu 2MB pro Bild !!DEIN PARTNER IN SACHEN UPLOAD --bitte weiterempfehlen, nur so können wir bekannt werden... | ||
Timo |
Fr, Aug 20, 2004 22:17 Antworten mit Zitat
|
|
|---|---|---|
|
wieso, meins funzt doch mit 1 und 2 !!
|
||
|
|
theBlade |
Fr, Aug 20, 2004 22:18 Antworten mit Zitat
|
|---|---|---|
|
wieso sagst du das denn nicht sofort??
dann machs so wie dominik vorgeschlagen hat... ist das leichteste |
||
|
"Ich bin wie ich bin. Die einen kennen mich, die anderen können mich." (Dr. Konrad Adenauer)
UTFSB -> (use the fuckin "suchen"-button) User posted image <- link -.- |
||
cavebird |
Fr, Aug 20, 2004 22:19 Antworten mit Zitat
|
|
|---|---|---|
|
Ah ich habs es funzt wenn ich
If KeyHit(2) Then a=2-a Dann ist es immer 0 und 2. 0 ist in der Exe-Datei Vollbild 
|
||
| MegaUpload.de -- Uploade bis zu 2MB pro Bild !!DEIN PARTNER IN SACHEN UPLOAD --bitte weiterempfehlen, nur so können wir bekannt werden... | ||
cavebird |
Fr, Aug 20, 2004 22:53 Antworten mit Zitat
|
|
|---|---|---|
|
Oh was isn das w ieder für nen scheiß!
Code: [AUSKLAPPEN] Graphics 640,480 SetBuffer BackBuffer() Repeat Cls hx=20 hy=20 Color 255,255,255 Rect hx,hy,20,20 If MouseX()>hx And MouseX()<(20+hx) And MouseY()>hy And MouseY()<(20+hy) And MouseHit(1) Then v=2-v Color 255,0,0 If v=0 Then Rect hx+4,hy+4,12,12 hx=50 hy=50 Color 255,255,255 Rect hx,hy,20,20 If MouseX()>hx And MouseX()<(20+hx) And MouseY()>hy And MouseY()<(20+hy) And MouseHit(1) Then v=2-v Color 255,0,0 If v=0 Then Rect hx+4,hy+4,12,12 Flip Until KeyHit(1) End Ich möchte wenn ich auf eines der beiden felde klicke das beide rot werden. Es funktioniert aber nur beim ersten! Mit MouseHit und dann MouseDown funzt es. Aber warum nicht mit 2mal Mousehit? |
||
| MegaUpload.de -- Uploade bis zu 2MB pro Bild !!DEIN PARTNER IN SACHEN UPLOAD --bitte weiterempfehlen, nur so können wir bekannt werden... | ||
|
Hubsi |
Fr, Aug 20, 2004 23:04 Antworten mit Zitat
|
|---|---|---|
|
theBlade hat Folgendes geschrieben: wieso sagst du das denn nicht sofort??
Das kann aber nicht funktionieren:Code: [AUSKLAPPEN] dann machs so wie dominik vorgeschlagen hat... ist das leichteste if keydown(xxx) then
Timo's Lösung ist die sparsamste if a = 1 then a = 2 ; hier wird a auf 2 gesetzt if a = 2 then a = 1 ; womit es hier auch gleich 2 ist und wieder zu 1 wird endif
Edit: Weil MouseHit() den Buffer leert. Speicher es vorher ab (z. B.: mh=MouseHit(1)) und es geht 
|
||
| Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn... | ||
cavebird |
Fr, Aug 20, 2004 23:09 Antworten mit Zitat
|
|
|---|---|---|
|
hehe oh...das wusste ich noch garnicht.
THX |
||
| MegaUpload.de -- Uploade bis zu 2MB pro Bild !!DEIN PARTNER IN SACHEN UPLOAD --bitte weiterempfehlen, nur so können wir bekannt werden... | ||
Blitzkrieg Bop |
Fr, Aug 20, 2004 23:12 Antworten mit Zitat
|
|
|---|---|---|
|
Ich hab da mal ne Funktion für gebastelt!
Klappt auch wunderbar und ist einsatzbereit
Code: [AUSKLAPPEN] Graphics 640,480 SetBuffer BackBuffer() Repeat Cls If MouseHit(1) = True mhit = 2 - mhit EndIf CreateRect(50,50,40,40,mhit);x,y,breite,hoehe,mhit CreateRect(60,200,60,20,mhit) Flip Until KeyHit(1) End Function CreateRect(x,y,breite,hoehe,mhit) Color 255,255,255 Rect x,y,breite,hoehe If mhit = 2 Color 255,0,0 Rect x+4,y+4,breite-8,hoehe-8 EndIf End Function Und so ist der Codestil auch besser
|
||
| ~ Hey Ho Let's Go ~ | ||
Übersicht
BlitzBasic Allgemein
Powered by phpBB © 2001 - 2006, phpBB Group