hilfe zu function

Übersicht

BlitzBasic

Beginners-Corner

Gehe zu Seite Zurück 1, 2

	Killer999	Di, Okt 12, 2004 16:22 Antworten mit Zitat
hab nach geguckt also ich hab es so abgespeichert dadurch wird der zufall zufälliger ^^ aber ich war gerade an der Lösung an arbeiten und ahbe mir sowas über legt. Code: [AUSKLAPPEN] [EINKLAPPEN] If MouseDown(1)And RectsOverlap (MouseX(),Mouse(),1,1,0,490,485,19) ;----------------------------------------- if loesung$ = 1 Then Frage2 ; zu der Function Else Text 0,20, "Loser" Endif EndIf If MouseDown(1)And RectsOverlap (MouseX(),MouseY(),1,1,0,514,503,20) ;----------------------------------------- if loesung$ = 2 Then Frage2 ; zu der Function Else Text 0,20, "Loser" Endif Endif f MouseDown(1)And RectsOverlap (MouseX(),MouseY(),1,1,0,535,521,20) ;----------------------------------------- if loesung$ = 3 Then Frage2 ; zu der Function Else Text 0,20, "Loser" Endif endif ;----------------------------------------- edit : ok habe da nciht richtig nachgedacht. sry

Killer999

Di, Okt 12, 2004 16:22
Antworten mit Zitat

hab nach geguckt also ich hab es so abgespeichert dadurch wird der zufall zufälliger ^^

aber ich war gerade an der Lösung an arbeiten und ahbe mir sowas über legt.
Code: [AUSKLAPPEN]

If MouseDown(1)And RectsOverlap (MouseX(),Mouse(),1,1,0,490,485,19)
;-----------------------------------------
if loesung$ = 1 Then
Frage2 ; zu der Function
Else
Text 0,20, "Loser"
Endif
EndIf

If MouseDown(1)And RectsOverlap (MouseX(),MouseY(),1,1,0,514,503,20)
;-----------------------------------------
if loesung$ = 2 Then
Frage2 ; zu der Function
Else
Text 0,20, "Loser"
Endif
Endif
f MouseDown(1)And RectsOverlap (MouseX(),MouseY(),1,1,0,535,521,20)
;-----------------------------------------
if loesung$ = 3 Then
Frage2 ; zu der Function
Else
Text 0,20, "Loser"
Endif
endif
;-----------------------------------------

edit : ok habe da nciht richtig nachgedacht. sry

Zuletzt bearbeitet von Killer999 am Di, Okt 12, 2004 16:27, insgesamt einmal bearbeitet

	simi	Di, Okt 12, 2004 16:25 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] select loesung$ case 1 Frage2 case 2 Frage2 case 3 Frage2 default Text 0,20,"loser" end select [/quote]

simi

Di, Okt 12, 2004 16:25
Antworten mit Zitat

Code: [AUSKLAPPEN]

select loesung$
case 1
Frage2
case 2
Frage2
case 3
Frage2
default
Text 0,20,"loser"
end select

[/quote]