Hallo Profi Programmierer,
ich habe heute mich gewagt meine Arduino uno mit Bascom zu programmiere dann habe mir gedacht etwas weiter zu gehen, geht aber nicht bitte um Korrektur und Erklärung. Danke sehr in voraus
Gruß Antonio.
Alles anzeigen
Edit von stefanhamburg: Ich habe den Code jetzt in ein Code-Fenster gesetzt. Bitte denkt wegen der Lesbarkeit beim Posten von Programmcode daran, das zu tun. Danke
Danke dir Stefan muss noch viel lernen, ich weis nicht wie es geht aber ich bemühe mich. Antonio
ich habe heute mich gewagt meine Arduino uno mit Bascom zu programmiere dann habe mir gedacht etwas weiter zu gehen, geht aber nicht bitte um Korrektur und Erklärung. Danke sehr in voraus
Gruß Antonio.
BASCOM-Quellcode
- $regfile = "m328pdef.dat"
- $crystal = 16000000
- $hwstack = 40
- $swstack = 16
- $framesize = 32
- baud = 4800
- Config Portb.5 = output 'Konfigurieren des Ausgangs der Onboard LED
- Config Portb.4 = Output
- Config Portb.3 = Output
- Config Portb.2 = Output
- Config Portb.1 = Output
- Config Portb.0 = Output
- dim Durchlauf as Byte 'Variable fuer Durchlaufe setzen
- Durchlauf = 0 'Durchläufe auf null setzen, default ist 255
- Print "Bascom Test auf Arduino UNO R3"
- Wait 1
- DO 'start der schleife
- Print "durchlauf Nr "; durchlauf
- print "LED an"
- portb.5 = 1 'LED einschalten
- print "Warten 1 sekunde"
- Waitms 100
- print "LED an"
- Portb.5 = 0 'LED einschalten
- print "Warten 1 sekunde"
- Waitms 100
- print "LED aus"
- Portb.4 = 1 'LED ausschalten
- Waitms 90
- Print "Warten 2 sekunden"
- Print "LED aus"
- Portb.4 = 0 'LED ausschalten
- Waitms 90
- print "LED an"
- Portb.3 = 1 'LED einschalten
- print "Warten 1 sekunde"
- Waitms 80
- print "LED an"
- Portb.3 = 0 'LED einschalten
- print "Warten 1 sekunde"
- Waitms 80
- print "LED aus"
- Portb.2 = 1 'LED ausschalten
- Waitms 70
- Print "Warten 2 sekunden"
- Print "LED aus"
- Portb.2 = 0 'LED ausschalten
- Waitms 70
- print "LED an"
- Portb.1 = 1 'LED einschalten
- print "Warten 1 sekunde"
- Waitms 60
- print "LED an"
- Portb.1 = 0 'LED einschalten
- print "Warten 1 sekunde"
- Waitms 60
- print "LED aus"
- Portb.0 = 1 'LED ausschalten
- Waitms 50
- Print "Warten 2 sekunden"
- Print "LED aus"
- Portb.0 = 0 'LED ausschalten
- Waitms 50
- Incr Durchlauf
- Loop
Danke dir Stefan muss noch viel lernen, ich weis nicht wie es geht aber ich bemühe mich. Antonio
Teilen dein Wissen, so erlagst du zu Unsterblichkeit
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von ledblu ()