Digitaler Zähler

Übersicht BlitzBasic Codearchiv

Neue Antwort erstellen

ToeB

Betreff: Digitaler Zähler

 BeitragSo, Dez 24, 2006 13:15
Antworten mit Zitat
Benutzer-Profile anzeigen
Code: [AUSKLAPPEN]
Graphics 640,480
sz = MilliSecs()

z0= CreateImage(50,100)
SetBuffer ImageBuffer(z0)
Rect 45,0,5,100
Rect 0,0,50,5
Rect 0,0,5,100
Rect 45,50,5,100
Rect 0,95,50,5


z1 = CreateImage(50,100)
SetBuffer ImageBuffer(z1)
Rect 45,0,5,100

z2 = CreateImage(50,100)
SetBuffer ImageBuffer(z2)
Rect 0,0,50,5
Rect 45,0,5,50
Rect 0,50,50,5
Rect 0,50,5,50
Rect 0,95,50,5

z3 = CreateImage(50,100)
SetBuffer ImageBuffer(z3)
Rect 45,0,5,100
Rect 0,0,50,5
Rect 0,50,50,5
Rect 0,95,50,5

z4 = CreateImage(50,100)
SetBuffer ImageBuffer(z4)
Rect 45,0,5,100
Rect 0,0,5,50
Rect 0,50,50,5

z5 = CreateImage(50,100)
SetBuffer ImageBuffer(z5)
Rect 0,0,50,5
Rect 0,0,5,50
Rect 0,50,50,5
Rect 45,50,5,100
Rect 0,95,50,5


z6 = CreateImage(50,100)
SetBuffer ImageBuffer(z6)
Rect 0,0,50,5
Rect 0,0,5,100
Rect 0,50,50,5
Rect 45,50,5,100
Rect 0,95,50,5


z7 = CreateImage(50,100)
SetBuffer ImageBuffer(z7)
Rect 45,0,5,100
Rect 0,0,50,5

z8 = CreateImage(50,100)
SetBuffer ImageBuffer(z8)
Rect 45,0,5,100
Rect 0,0,50,5
Rect 0,0,5,100
Rect 0,50,50,5
Rect 45,50,5,100
Rect 0,95,50,5



z9 = CreateImage(50,100)
SetBuffer ImageBuffer(z9)
Rect 45,0,5,100
Rect 0,0,50,5
Rect 0,0,5,50
Rect 0,50,50,5
Rect 45,50,5,100
Rect 0,95,50,5

Punkt = CreateImage(5,100)
SetBuffer ImageBuffer(Punkt)
Rect 0,30,5,5
Rect 0,70,5,5



SetBuffer BackBuffer()


Repeat
time = (MilliSecs()-sz)
s = (time/ 1000) Mod 60
m = (time/60000) Mod 60
If s = 0 Or s = 10 Or s = 20 Or s = 30 Or s = 40 Or s = 50 Or s = 60 Then DrawImage z0,400,300
If s = 1 Or s = 11 Or s = 21 Or s = 31 Or s = 41 Or s = 51 Or s = 61 Then DrawImage z1,400,300
If s = 2 Or s = 12 Or s = 22 Or s = 32 Or s = 42 Or s = 52 Or s = 62 Then DrawImage z2,400,300
If s = 3 Or s = 13 Or s = 23 Or s = 33 Or s = 43 Or s = 53 Or s = 63 Then DrawImage z3,400,300
If s = 4 Or s = 14 Or s = 24 Or s = 34 Or s = 44 Or s = 54 Or s = 64 Then DrawImage z4,400,300
If s = 5 Or s = 15 Or s = 25 Or s = 35 Or s = 45 Or s = 55 Or s = 65 Then DrawImage z5,400,300
If s = 6 Or s = 16 Or s = 26 Or s = 36 Or s = 46 Or s = 56 Or s = 66 Then DrawImage z6,400,300
If s = 7 Or s = 17 Or s = 27 Or s = 37 Or s = 47 Or s = 57 Or s = 67 Then DrawImage z7,400,300
If s = 8 Or s = 18 Or s = 28 Or s = 38 Or s = 48 Or s = 58 Or s = 68 Then DrawImage z8,400,300
If s = 9 Or s = 19 Or s = 29 Or s = 39 Or s = 49 Or s = 59 Or s = 69 Then DrawImage z9,400,300
If s < 10Then DrawImage z0,300,300
If s = 10Then DrawImage z1,300,300:DrawImage z0,400,300
If s > 10 And s < 20 Then DrawImage z1,300,300
If s > 19 And s < 30 Then DrawImage z2,300,300
If s > 29 And s < 40 Then DrawImage z3,300,300
If s > 39 And s < 50 Then DrawImage z4,300,300
If s > 49 And s < 60 Then DrawImage z5,300,300
If s > 59 Then DrawImage z6,300,300

If m = 0 Then DrawImage z0,150,300
If m < 10Then DrawImage z0,50,300
If m = 0 Or m = 10 Or m = 20 Or m = 30 Or m = 40 Or m = 50 Or m = 60 Then DrawImage z0,150,300
If m = 1 Or m = 11 Or m = 21 Or m = 31 Or m = 41 Or m = 51 Or m = 61 Then DrawImage z1,150,300
If m = 2 Or m = 12 Or m = 22 Or m = 32 Or m = 42 Or m = 52 Or m = 62 Then DrawImage z2,150,300
If m = 3 Or m = 13 Or m = 23 Or m = 33 Or m = 43 Or m = 53 Or m = 63 Then DrawImage z3,150,300
If m = 4 Or m = 14 Or m = 24 Or m = 34 Or m = 44 Or m = 54 Or m = 64 Then DrawImage z4,150,300
If m = 5 Or m = 15 Or m = 25 Or m = 35 Or m = 45 Or m = 55 Or m = 65 Then DrawImage z5,150,300
If m = 6 Or m = 16 Or m = 26 Or m = 36 Or m = 46 Or m = 56 Or m = 66 Then DrawImage z6,150,300
If m = 7 Or m = 17 Or m = 27 Or m = 37 Or m = 47 Or m = 57 Or m = 67 Then DrawImage z7,150,300
If m = 8 Or m = 18 Or m = 28 Or m = 38 Or m = 48 Or m = 58 Or m = 68 Then DrawImage z8,150,300
If m = 9 Or m = 19 Or m = 29 Or m = 39 Or m = 49 Or m = 59 Or m = 69 Then DrawImage z9,150,300
If m < 10Then DrawImage z0,50,300
If m = 10Then DrawImage z1,50,300:DrawImage z0,150,300
If m > 10 And m < 20 Then DrawImage z1,50,300
If m > 19 And m < 30 Then DrawImage z2,50,300
If m > 29 And m < 40 Then DrawImage z3,50,300
If m > 39 And m < 50 Then DrawImage z4,50,300
If m > 49 And m < 60 Then DrawImage z5,50,300
If m > 59 Then DrawImage z6,300,300

 





DrawImage Punkt,250,300



Flip
Cls
Until KeyHit(1)
End


Das ist mein digitaler Zähler. Very Happy
Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat.
Race-Project - Das Rennspiel der etwas anderen Art
SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek
Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt!
  • Zuletzt bearbeitet von ToeB am So, Dez 24, 2006 14:57, insgesamt einmal bearbeitet

BladeRunner

Moderator

BeitragSo, Dez 24, 2006 13:18
Antworten mit Zitat
Benutzer-Profile anzeigen
Falsches Archiv.
Daher:
~VERSCHOBEN~
Dieser Thread passte nicht in das Forum, in dem er ursprünglich gepostet wurde.


Abgesehen davon ist der code recht ... umständlich.
Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

ToeB

 BeitragSo, Dez 24, 2006 13:19
Antworten mit Zitat
Benutzer-Profile anzeigen
ja sry, hab in BlitzMax gepostet.Ist mia grad aufgefallen.... Wink

Naund ? haubtsach et funtzt... Smile

Cardonic

 BeitragSo, Dez 24, 2006 14:17
Antworten mit Zitat
Benutzer-Profile anzeigen
Crack93 hat Folgendes geschrieben:
Naund ? haubtsach et funtzt... Smile


Wenn das deine Einstellung ist, dann ist dein Code hier im Codearchiv nicht am richtigen Platz.

Du könntest das ganze ja noch überarbeiten ...
Features wie einstellbare grösse der Ziffern usw. wären noch ganz nett.

mfg Cardonic
If you should go skating on the thin ice of modern life, dragging behind you the silent reproach of a million tear-stained eyes, don't be surprised when a crack in the ice appears under your feet.

ToeB

 BeitragSo, Dez 24, 2006 14:24
Antworten mit Zitat
Benutzer-Profile anzeigen
Da müst ich ja das ganze prog nochma umschreiben Sad
Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat.
Race-Project - Das Rennspiel der etwas anderen Art
SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek
Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt!
 

Mr Hopp

 BeitragSo, Dez 24, 2006 14:50
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich hab mir den Code ja nicht ganz durchgelesen, aber wie kann man für sowas so viel schreiben? Rolling Eyes z.B. dein ganzes Image-erstellen könnte man bestimmt durch ein passendes Font umgehen
Zitat:
Wie poste ich falsch?

Nachdem ich Google, die FAQ's und die Boardsuche erfolgreich ignoriert habe, erstelle ich zwei bis fünf neue Themen, in den falschen Unterforen, mit kreativen Titeln und undeutlichem Text, unter dem sich jeder etwas anderes vorstellen kann.

ToeB

 BeitragSo, Dez 24, 2006 14:56
Antworten mit Zitat
Benutzer-Profile anzeigen
Sad Genau das hab ich gesucht aba nich gefunden... Sad
deshalb hab ich es so gemscht...geht ja auch...
Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat.
Race-Project - Das Rennspiel der etwas anderen Art
SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek
Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt!

DerHase

 BeitragSo, Dez 24, 2006 17:10
Antworten mit Zitat
Benutzer-Profile anzeigen
Crack, vielleicht hörst Du es nicht gern, aber diese ganzen If abfragen hättest Du Dir sparen können. Und wenn Du schon nach Bedingungen dieser Art abfrägst, dann benütz doch das unglaublich sexy Select Case. Da kannst Du für ein Case, mehrer Werte angeben.
Code: [AUSKLAPPEN]
Select x
case 1,11,21
   DoTheBlub()
case 2,12,22
   DoTheTwist()
End Select

Aber wie gesagt, kann man sich das z.B. Dank des unglaublich sexy Mod-Operators sparen. Der einfach zu einem der grundlegensten Elementen des Programmierens gehört. Aber auch ohne Mod kann man die If Abfragen umgehen. Viel Spass beim drüber nachgrübeln Smile
Play Satyr!

StepTiger

 BeitragSo, Dez 24, 2006 18:03
Antworten mit Zitat
Benutzer-Profile anzeigen
viel leichter ginge es natürlich mit dim image(9) und right$(m,1)

aber naja Rolling Eyes
Noch gestern standen wir am Abgrund, doch heute sind wir schon einen Schritt weiter.
Computer:
AMD Sempron 3000+; ATI Radeon 9800 Pro; 512 MB DDR RAM 400Mhz; Asus E7N8X-E Deluxe; Samsung 200GB HD 5.4ns acces t
Gewinner: BP Code Compo #2
Π=3.141592653589793238...<--- und das aus dem kopf Laughing
Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser.

AMY

 BeitragSo, Dez 24, 2006 18:26
Antworten mit Zitat
Benutzer-Profile anzeigen
einfach googln findet man doch relativ schnell
z.b.
http://www.fontriver.com/font/lcd_lcd_mono/
Projekte: www.amyscbi.de
I never comment my sourcecode. What's HARD to write must be HARD to read!

Neue Antwort erstellen


Übersicht BlitzBasic Codearchiv

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group