Uhr

Übersicht BlitzBasic Codearchiv

Neue Antwort erstellen

TheProgrammer

Betreff: Uhr

 BeitragMi, März 31, 2004 18:46
Antworten mit Zitat
Benutzer-Profile anzeigen
Neulich beim probieren...

BlitzBasic: [AUSKLAPPEN] 

Graphics 300,300,16,2
SetBuffer BackBuffer()

While Not KeyHit(1)
 Cls 
 AppTitle "Clock - "+CurrentDate()+" - "+CurrentTime()

 CreateClock 0,0

 Flip 
Wend
End 

Function CreateClock(posX,posY)

	time$ = CurrentTime()
	std% = Mid(time$,1,2)
	min% = Mid(time$,4,5)
	sec% = Mid(time$,7,8)
	
	If std > 12 Then std = std - 12
	std2 = std*30
	std2 = std2 - 90
	If std2 < 0 Then std2 = 360-std2

	min2 = min*6
	min2 = min2 - 90
	If min2 < 0 Then min2 = 360-min2

	sec2 = sec*6
	sec2 = sec2 - 90
	If sec2 < 0 Then sec2 = 360+sec2
 
	Color 255,255,255
	Oval posX,posY,300,300,0
	For I = 0 To 360 Step 6
	 Line posX+150+Cos(I)*140,posY+150+Sin(I)*140,posX+150+Cos(I)*145,posY+150+Sin(I)*145
	Next 
	For I = 0 To 360 Step 30
	 Line posX+150+Cos(I)*130,posY+150+Sin(I)*130,posX+150+Cos(I)*145,posY+150+Sin(I)*145
	Next
	Line posX+150,posY+150,posX+150+Cos(std2)*100,posY+150+Sin(std2)*100
	Line posX+150,posY+150,posX+150+Cos(min2)*130,posY+150+Sin(min2)*130
	Color 255,0,0
	Line posX+150,posY+150,posX+150+Cos(sec2)*145,posY+150+Sin(sec2)*145

End Function


Wenn jemand Verbesserungsvorschläge hat, immer her damit!
aktuelles Projekt: The last day of human being
 

CodeMaster

 BeitragMi, März 31, 2004 19:25
Antworten mit Zitat
Benutzer-Profile anzeigen
Schön. Aber es wäre noch besser wenn der Stundenzeiger sich auch zwischen zwei ganzen Stunden bewegen würde.
Dies ist ein Text, der an jeden Beitrag von dir angehängt werden kann. Es besteht eine Limit von 500 Buchstaben.

Zuletzt bearbeitet von CodeMaster am Mo Apr 01, Parse error: syntax error, unexpected ';' in htdocs\viewtopic.php on line 102

TheProgrammer

 BeitragMi, März 31, 2004 19:27
Antworten mit Zitat
Benutzer-Profile anzeigen
Das habe ich auch schonmal gedacht.
Ich kann es ja mal probieren.
aktuelles Projekt: The last day of human being

TheProgrammer

 BeitragMi, März 31, 2004 19:41
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich habs:

BlitzBasic: [AUSKLAPPEN] 

Graphics 300,300,16,2
SetBuffer BackBuffer()

While Not KeyHit(1)
 Cls 
 AppTitle "Clock - "+CurrentDate()+" - "+CurrentTime()

 CreateClock 0,0

 Flip 
Wend
End 

Function CreateClock(posX,posY)

	time$ = CurrentTime()
	std% = Mid(time$,1,2)
	min% = Mid(time$,4,5)
	sec% = Mid(time$,7,8)
	
	If std > 12 Then std = std - 12
	std2 = std*30
	std2 = std2 - 90
	If std2 < 0 Then std2 = 360-std2
	std3 = (100*min)/60
	std4 = (30*std3)/100
	std2 = std2 + std4

	min2 = min*6
	min2 = min2 - 90
	If min2 < 0 Then min2 = 360-min2

	sec2 = sec*6
	sec2 = sec2 - 90
	If sec2 < 0 Then sec2 = 360+sec2
 
    Color 192,192,192
	Rect posX+100,posY+70,100,20,1
	Rect posX+100,posY+230,100,20,1
    Color 100,100,100
	Rect posX+100,posY+70,100,20,0
	Rect posX+100,posY+230,100,20,0
	Color 0,0,0
	Text posX+150,posY+80,CurrentDate(),1,1
	Text posX+150,posY+240,CurrentTime(),1,1
	Color 255,255,255
	Oval posX,posY,300,300,0
	For I = 0 To 360 Step 6
	 Line posX+150+Cos(I)*140,posY+150+Sin(I)*140,posX+150+Cos(I)*145,posY+150+Sin(I)*145
	Next 
	For I = 0 To 360 Step 30
	 Line posX+150+Cos(I)*130,posY+150+Sin(I)*130,posX+150+Cos(I)*145,posY+150+Sin(I)*145
	Next
	Line posX+150,posY+150,posX+150+Cos(std2)*100,posY+150+Sin(std2)*100
	Line posX+150,posY+150,posX+150+Cos(min2)*130,posY+150+Sin(min2)*130
	Color 255,0,0
	Line posX+150,posY+150,posX+150+Cos(sec2)*145,posY+150+Sin(sec2)*145

End Function
aktuelles Projekt: The last day of human being

Kryan

 BeitragMi, März 31, 2004 19:58
Antworten mit Zitat
Benutzer-Profile anzeigen
da isn fehler!
als es von 19:59:59 bei mir auf 20:00:00 ging, dann war der minutenzeiger bei 30min und der stundenzeiger geht auch nur bei jeder vollen stunde mit
Webspaceanbieter?
Klick hier!
Kultige Spieleschmiede?
Klick hier!
 

HOT-BIT

Gast

BeitragMi, März 31, 2004 20:02
Antworten mit Zitat
Holla !

Mußt wahrscheinlich mal anständig rütteln, das Ding ! Smile

Toni
 

Dreamora

 BeitragMi, März 31, 2004 20:23
Antworten mit Zitat
Benutzer-Profile anzeigen
nene
Batterien auswechseln und die Mechanik mal wieder entstauben Smile

TheProgrammer

 BeitragDo, Apr 01, 2004 17:09
Antworten mit Zitat
Benutzer-Profile anzeigen
Woran kann das liegen?
aktuelles Projekt: The last day of human being
 

CodeMaster

 BeitragDo, Apr 01, 2004 18:25
Antworten mit Zitat
Benutzer-Profile anzeigen
Sorry, ich weiß das ist unfein, aber es hat mich einfach gekitzelt auch mal ne Analoguhr zu machen:BlitzBasic: [AUSKLAPPEN] 
Graphics 800,600
SetBuffer BackBuffer()

Global StartTime

InitializeClock

While Not KeyDown(1)
 Cls
 UpdateClock
 Flip
Wend
End

Function InitializeClock()
 Temp$ = CurrentTime()
 While Temp$ = CurrentTime()
 Wend
 StartTime = MilliSecs()
End Function

Function UpdateClock()
 TimeStamp = (MilliSecs() - StartTime) Mod 1000 + Int(Left(CurrentTime(),2)) * 24 * 60 * 60 * 1000 + Int(Mid(CurrentTime(),4,2)) * 60 * 1000 + Int(Right(CurrentTime(),2)) * 1000
 S# = Float#(TimeStamp Mod 60000) / 1000
 M# = (TimeStamp / 1000 / 60) Mod 60 + S# / 60
 H# = (TimeStamp / 1000 / 60 / 60 / 24) Mod 12 + M# / 60
 x# = GraphicsWidth() / 2
 y# = GraphicsHeight() / 2
 xs# = Cos(S# * 360 / 60 - 90) * 145
 ys# = Sin(S# * 360 / 60 - 90) * 145
 xm# = Cos(M# * 360 / 60 - 90) * 130
 ym# = Sin(M# * 360 / 60 - 90) * 130
 xh# = Cos(H# * 360 / 12 - 90) * 100
 yh# = Sin(H# * 360 / 12 - 90) * 100
 Color 40,40,40    Oval x#-150,y#-150,300,300,1
 Color 255,255,255 Oval x#-150,y#-150,300,300,0
 For i = 0 To 360 Step 6
  If i Mod 30 = 0 Then
   Line x#+Cos(i)*130,y#+Sin(i)*130,x#+Cos(i)*145,y#+Sin(i)*145
  Else
   Line x#+Cos(i)*140,y#+Sin(i)*140,x#+Cos(i)*145,y#+Sin(i)*145
  EndIf
 Next
 Color 80,80,80
 Rect x#-38,y#+36,76,18,1
 Rect x#-48,y#-53,96,18,1
 Color 255,255,255
 Text x#,y#+45,CurrentTime(),1,1
 Text x#,y#-45,CurrentDate(),1,1
 Line x#, y#, x#+xm#, y#+ym#
 Line x#, y#, x#+xh#, y#+yh#
 Color 255,0,0
 Line x#, y#, x#+xs#, y#+ys#
 Text 1,1,TimeStamp
 Text 1,20,S
 Text 1,40,M
 Text 1,60,H
 Text 1,80,CurrentTime()
End Function
Dies ist ein Text, der an jeden Beitrag von dir angehängt werden kann. Es besteht eine Limit von 500 Buchstaben.

Zuletzt bearbeitet von CodeMaster am Mo Apr 01, Parse error: syntax error, unexpected ';' in htdocs\viewtopic.php on line 102

Michi1988

 BeitragFr, Apr 02, 2004 1:59
Antworten mit Zitat
Benutzer-Profile anzeigen
Ohh man ihr seid ja alle scheiße. Ich kann ne Digitaluhr.

BlitzBasic: [AUSKLAPPEN] 

Graphics 800,600,16,2
SetBuffer BackBuffer()

f1=LoadFont("Tahoma",72,1,0,0)
SetFont f1
Color 255,0,0
While Not KeyHit(1)
Text 400,300,CurrentTime(),1,1
Flip
Cls
Wend


*g* Is natürlich Spss nech

TheProgrammer

 BeitragFr, Apr 02, 2004 13:53
Antworten mit Zitat
Benutzer-Profile anzeigen
Das mit dem "laufenden" Sekundenzeiger find ich auch geil.
aktuelles Projekt: The last day of human being

dominik

 BeitragFr, Apr 02, 2004 16:58
Antworten mit Zitat
Benutzer-Profile anzeigen
@code master: dein sekunden zeiger hat ihrgentwie spastische anfälle der zuck alle 3 bis 4 sec. zur nächsten virtelstunde. Very Happy
 

CodeMaster

 BeitragFr, Apr 02, 2004 17:28
Antworten mit Zitat
Benutzer-Profile anzeigen
Komisch... Könnte eventuell an einem Fehler während der Synchronisation liegen. Oder hast du vielleicht während der Laufzeit mal die Systemzeit verändert? Dann muss die Uhr nämlich neu synchronisiert werden (durch die Funktion InitializeClock).
Beim mir scheints einwandfrei zu laufen.
Dies ist ein Text, der an jeden Beitrag von dir angehängt werden kann. Es besteht eine Limit von 500 Buchstaben.

Zuletzt bearbeitet von CodeMaster am Mo Apr 01, Parse error: syntax error, unexpected ';' in htdocs\viewtopic.php on line 102

Neue Antwort erstellen


Übersicht BlitzBasic Codearchiv

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group