Hallo
Ich hab ja inzwischen gesehen, dass es hier viele Leute im Board gibt, die sich gut mit Bascom auskennen.
Ich mache gerade meine ersten vorsichtigen Gehversuche mit der Programmierung von µC's mit Bascom, vielleicht könntet Ihr mal einen kurzen Blick auf den Code werfen und statt dem "Bauernweg" Verbesserungen vorschlagen. Ich habe zwei Taster an den Ports B0 und C0 und möchte mit denen das Tastverhältnis von der PWM in Schritten verändern. Das funktioniert auch soweit, ich würde aber gerne wissen, ob man das auch eleganter schreiben kann oder Euch sogra Fehler auffallen. Vielen Dank im Voraus!
Code
$regfile = "m8def.dat"
$hwstack = 82
$framesize = 68
$swstack = 68
$crystal = 8000000 '8MHz intern
'PWM-Ausgang 1 einstellen
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1
' Die Pins für die Taster
Config Pinb.0 = Input
Config Pinc.0 = Input
'Ports auf I/O setzen
Portc.0 = 1
Portb.0 = 1
'Pin-Bezeichnung
Plus Alias Pinb.0
Minus Alias Pinc.0
'LED an PWM-Ausgang
Config Pinb.1 = Output
Led Alias Portb.1
Dim I As Integer
I = 255
Do
If Plus = 0 Then
I = I + 50
'Entprellung
Do
Waitms 1
Loop Until Plus = 1
End If
If I <= 1 Then
I = 1
End If
If Minus = 0 Then
I = I - 50
'Entprellung
Do
Waitms 1
Loop Until Minus = 1
End If
If I >= 255 Then
I = 255
End If
Compare1a = I
Loop
End
Alles anzeigen