Beiträge von x-master

schleichwerbung

jo danke

also ich hab ihn ohne widerstand verdrahtet.
Wie viel ohm müsste der denn haben?

jo dann muss wohl die röhre her. egal trotzdem danke

Halli hallo,

Wenn ich mir nen UVlichtfilter für nen Teich bauen möchte, brauch ich da spezielle UVlichtlampen oder gehen die UV LED's von LED-Tech?

das programm Blitz1 funktioniert, aber er will zu Blitz 2 nich weiter schalten

ne das ganze will nich

also die eine seite blitzt und die andere nicht aber bei blitz 1 sollte ja erst die eine seite blitzen und die andere seite. ich guck nochma nach

also wenn ich das ganze gelöte anschließe macht er wie gewollt auf der einen seite die blitzfolge. Wenn man den Taster drückt sollte er die Blitzfolge ja auf beiden seiten machen. Das macht er aber nich

oh den hab ich voll übersehen . Ich pack den mal kurz drauf

naja der will aber auch nich

irgendwie will das nich so wie es sein soll

ok danke dir. Ich bau das dann mal um

also der soll halt beim trücken des tasters das Programm "Blitz2" starten.

[code:1]$regfile = "2313def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40

Config Portb = Output
Config Pind.1 = Input

Dim Warten As Byte

Warten = 6

Blitz1:
Do

Portb = &B10000000
Waitms Warten
Waitms Warten
Waitms Warten
Waitms Warten
Portb = &B00000000
Waitms Warten
Waitms Warten
Portb = &B10000000
Waitms Warten
Portb = &B00000000
Waitms Warten
Portb = &B10000000
Waitms Warten
Portb = &B00000000
Portb = &B01000000
Waitms Warten
Waitms Warten
Waitms Warten
Waitms Warten
Portb = &B00000000
Waitms Warten
Waitms Warten
Portb = &B01000000
Waitms Warten
Portb = &B00000000
Waitms Warten
Portb = &B01000000
Waitms Warten
Portb = &B00000000
Waitms Warten

If Pind.1 = 1 Then
Gosub Blitz2

End If

Loop

Blitz2:
Portb = &B11000000
Waitms Warten
Waitms Warten
Waitms Warten
Waitms Warten
Portb = &B00000000
Waitms Warten
Waitms Warten
Portb = &B11000000
Waitms Warten
Portb = &B00000000
Waitms Warten
Portb = &B11000000
Waitms Warten
Waitms Warten
Waitms Warten

If Pind.1 = 1 Then
Return

Loop[/code:1]

is das so richtig?

jo kannst dur ruhig zeitlassen mit dem schaltplan. Funktioniert ja die schaltung.

ich hab hier mal den bascomcode gemacht. Würde das so in etwas dann funktionieren?
[code:1]$regfile = "2313def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40

Config Portb = Output
Config Pind.1 = Input

Dim Warten As Byte

Warten = 6

Blitz1:
Do

Portb = &B10000000
Waitms Warten
Waitms Warten
Waitms Warten
Waitms Warten
Portb = &B00000000
Waitms Warten
Waitms Warten
Portb = &B10000000
Waitms Warten
Portb = &B00000000
Waitms Warten
Portb = &B10000000
Waitms Warten
Portb = &B00000000
Portb = &B01000000
Waitms Warten
Waitms Warten
Waitms Warten
Waitms Warten
Portb = &B00000000
Waitms Warten
Waitms Warten
Portb = &B01000000
Waitms Warten
Portb = &B00000000
Waitms Warten
Portb = &B01000000
Waitms Warten
Portb = &B00000000
Waitms Warten
Loop

If Pind.1 = 1 Then
Gosub Blitz2

Blitz2:
Portb = &B10000000
Waitms Warten
Waitms Warten
Waitms Warten
Waitms Warten
Portb = &B00000000
Waitms Warten
Waitms Warten
Portb = &B10000000
Waitms Warten
Portb = &B00000000
Waitms Warten
Portb = &B10000000
Waitms Warten
Waitms Warten
Waitms Warten
Loop[/code:1]

würde das ganze so aussehen? Config Pind.1 = Input

jo währe cool mit dem schaltbild. Also mit den zusätzlichen Programmen hab ich schonmal versucht ich bin nur dran gescheitert nen einzelnen Pin als Input zu declarieren.

also mit der wartezeit meine ich, weil jeder zweite meinte, dass die wartesequenz so kurz is das man das blinken nich sieht. Und mit der LEd weiß ich erlichgesagt nich was du jetzt meinst.

PS: Noch ne kurze Frage zum schluss. Ich wollte mir jetzt noch ein paar mehr Blitzfolgen rauf machen. Wie bekomme ich das hin, dass ich mit nem Taster immer zur nächsten schaltung weiter gehen kann?

so leute bevor hier noch mehr rumgemotzt wird hab ich mal die bilder gemacht. das Video kann man sich auch runterladen wie die kolegen blitzen zwar nich in ner super auflösung weil die kamera nich die beste is aber man kann was erkennen. Übrigens die Warte zeit wars nich auch wenn Fünfhunderdtausend leute das meinten ;).

Bevor wieder jemand auf ie schlaue Idee kommt zu fragen ob ich das im Straßen verkehr benutzen will: Nein will ich nich.

[Blockierte Grafik: http://denni16.de.funpic.de/lucas/links.jpg]
[Blockierte Grafik: http://denni16.de.funpic.de/lucas/rechts.jpg]
[Blockierte Grafik: http://denni16.de.funpic.de/lucas/schaltung.jpg]
http://denni16.de.funpic.de/lucas/MOV00016.3GP

is mir schon klar das ich nich alels weiß aber man kriegt nach ner zeit so schon nen hals wenn man tausen mal schreiben muss das die dinger trotzdem dem blinken wie ich will nur das die halt immer etwas leuchten

LedBob

Ich schreibs jetzt zum dritten mal die LED's leuchten schwach !!!!!! dann blinken die in der frquenz wie ich sie haben will!!!!!!!!!!!!! und wenn es zu schnell gehen würde würden sie nur leuchten!!!!!!!!!!!!!! verstanden?????