Verfügbare Informationen zu "Ampel"
Qualität des Beitrags: Beteiligte Poster: darmzerfetzer - MaLaRiA - Sepp Forum: Blood Board Forenbeschreibung: Multifunction-Board: Metal, Tasteless, Computer aus dem Unterforum: Pure Basic Antworten: 3 Forum gestartet am: Montag 16.08.2004 Sprache: deutsch Link zum Originaltopic: Ampel Letzte Antwort: vor 19 Jahren, 5 Monaten, 17 Tagen, 19 Stunden, 36 Minuten
Alle Beiträge und Antworten zu "Ampel"
Re: Ampel
darmzerfetzer - 27.09.2004, 15:18Ampel
Hab für Physik ne kleine Lampe in ca. 10 min. gecodet (nur mit Bildschirm tastatur):
Code: If InitMouse()=0 Or InitSprite()=0
End
EndIf
If OpenScreen(800, 600, 16, "Ampel")
oldtick = GetTickCount_()
alt=MouseX()
Gelb = 1
Repeat
Gosub Umschalten
Gosub AmpelSchaltung
ExamineMouse()
StartDrawing(ScreenOutput())
Box(310, 100, 100, 285, RGB(45,45,45))
Box(345, 385, 30, 230, RGB(44,44,44))
Circle(360, 150, 40, RotFarbe)
Circle(360, 240, 40, GelbFarbe)
Circle(360, 330, 40, GruenFarbe)
StopDrawing()
FlipBuffers()
If MouseX() = alt
Else
Quit = 1
End
EndIf
Until Quit = 1
EndIf
End
AmpelSchaltung:
If Gelb = 1
RotFarbe = RGB(100, 0, 0)
GelbFarbe = RGB(255,255,0)
GruenFarbe = RGB(0, 100, 0)
ElseIf Rot = 1
RotFarbe = RGB(255, 0, 0)
GelbFarbe = RGB(100,100,0)
GruenFarbe = RGB(0, 100, 0)
ElseIf Gruen = 1
RotFarbe = RGB(100, 0, 0)
GelbFarbe = RGB(100,100,0)
GruenFarbe = RGB(0, 255, 50)
EndIf
Return
Umschalten:
If GetTickCount_() - oldtick > 1000 And Gelb = 1
oldtick = GetTickCount_()
If Rot = 1
Rot = 0
Gelb = 0
Gruen = 1
Else
Rot = 1
Gelb = 0
Gruen = 0
EndIf
EndIf
If (GetTickCount_() - oldtick > 4000) And (Rot = 1 Or Gruen = 1) And Gelb = 0
oldtick = GetTickCount_()
Gelb = 1
EndIf
Return
Re: Ampel
MaLaRiA - 12.10.2004, 15:02
uii ... die blinkt ja sogar!
Re: Ampel
Sepp - 05.11.2004, 18:56
diese ampel ist magisch da könnt man stunden lang drauf gucken find ich
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum Blood Board
NSBM? - gepostet von Blasphemer am Donnerstag 23.02.2006
Isch liebe disch und sonnenlischt - gepostet von Sepp am Donnerstag 09.03.2006
Ähnliche Beiträge wie "Ampel"
die Trinker Ampel - Zorro (Dienstag 01.05.2007)
Was wird aus der Lauterner Rotlicht-Ampel? - Benjamin (Donnerstag 09.08.2007)
bzgl. Spritsparen: Gang raus vor der Ampel? - Megaron (Donnerstag 20.04.2006)
An der Ampel - TheDriver (Samstag 11.03.2006)
bremsen quietschen brutal bei leichtbremse an der ampel... - rookiekiller2008 (Mittwoch 23.01.2008)
NUR NOCH HEUTE AMPEL - Tommaten.Tom (Dienstag 05.12.2006)
Unsere Ampel im Berliner Tor. - Verkehrs Erzieher (Mittwoch 08.08.2007)
Bei rot über Ampel, mit Gefährdung und Fahrerflucht - supergrobi900 (Mittwoch 13.06.2007)