Hallo geschätztes Forum,
ich habe mich heute hier angemeldet, bin also der Neue.
Ich versuch seit 2 Tagen, mich in die Materie Bascom / Microkontroller einzulesen.
Was das Internet so hergibt. Ein Buch habe ich noch nicht.
Meinen ersten Code hänge ich hier mal ran.
Ich habe da ein Problem mit dem ich nicht weiter komme, wie ich es auch drehe und wende.
An Portb.0 und Portb.4 kommt ein Rechtecksignal raus.
So soll es auch sein.
An Pin.1 liegt ein Signal mit 5ms Längean, dass an Portb.3 mit 500ms Länge ausgegeben werden soll.
So der Plan.
Kein Signal an Pinb.1 macht an Portb.0 und Portb.4 ein Rechtecksignal.
Ein Signal an Pinb.1 macht an Portb.4 ein Rechtecksignal und Portb.0 wird gegen GND gezogen.
Was mache ich falsch, bzw. wie kann ich es anders oder besser machen?
Vorab schon mal danke für die Hilfe.
MfG Shetland
Alles anzeigen
ich habe mich heute hier angemeldet, bin also der Neue.
Ich versuch seit 2 Tagen, mich in die Materie Bascom / Microkontroller einzulesen.
Was das Internet so hergibt. Ein Buch habe ich noch nicht.
Meinen ersten Code hänge ich hier mal ran.
Ich habe da ein Problem mit dem ich nicht weiter komme, wie ich es auch drehe und wende.
An Portb.0 und Portb.4 kommt ein Rechtecksignal raus.
So soll es auch sein.
An Pin.1 liegt ein Signal mit 5ms Längean, dass an Portb.3 mit 500ms Länge ausgegeben werden soll.
So der Plan.
Kein Signal an Pinb.1 macht an Portb.0 und Portb.4 ein Rechtecksignal.
Ein Signal an Pinb.1 macht an Portb.4 ein Rechtecksignal und Portb.0 wird gegen GND gezogen.
Was mache ich falsch, bzw. wie kann ich es anders oder besser machen?
Vorab schon mal danke für die Hilfe.
MfG Shetland
BASCOM-Quellcode
- $regfile = "attiny13.dat"
- $crystal = 1200000
- $hwstack = 16
- $swstack = 5
- $framesize = 16
- Config Portb.0 = Output '5 Ausgang Rechteck invertiert
- Config Portb.4 = Output '3 Ausgang Rechteck nichtinvertiert
- Config Pinb.1 = Input '6 Eingang Dataausgang von LM358 Pin1
- Pinb.1 = 0
- Config Portb.3 = Output '2 Ausgang zur U Wandler
- Config Pinb.2 = Input '7 Eingang =To
- Pinb.2 = 0
- Do
- Gosub Rechteck
- Gosub Sekunde
- Loop
- End
- Sekunde:
- If Pinb.1 > 0 Then
- Toggle Portb.3
- Waitms 500
- Else
- Portb.3 = 0
- End If
- Rechteck:
- If Portb.4 > 0 Then
- Portb.0 = 0
- Else
- Portb.0 = 1
- End If
- Toggle Portb.4
- Toggle Portb.0
- Waitus 140
- Return