Hallo,
wie schnell dreht der Motor bei euch?
bei mir ist er elend langsam. Bei Wartezeiten unter 1ms dreht er dann gar nicht mehr.
Gehört das so?
Alles anzeigen
wie schnell dreht der Motor bei euch?
bei mir ist er elend langsam. Bei Wartezeiten unter 1ms dreht er dann gar nicht mehr.
Gehört das so?
Quellcode
- $regfile = "m328pdef.dat"
- $crystal = 16000000
- $hwstack = 34
- $swstack = 32
- $framesize = 64
- Config Adc = Single , Prescaler = Auto , Reference = Avcc
- Start Adc
- Dim Poti As Word
- Dim Schritt As Byte
- Schritt = 1
- Dim Pause As Word
- Config Portd = Output
- Portd = 0
- Dim A As Byte
- A = 1
- Do
- Poti = Getadc(3)
- If Poti > 537 Then
- Schritt = Schritt + 1
- If Schritt = 9 Then Schritt = 1
- Pause = 1023
- Pause = Pause - Poti
- Elseif Poti < 486 Then
- Schritt = Schritt - 1
- If Schritt = 0 Then Schritt = 8
- Pause = Poti
- End If
- Gosub Drehen
- Waitms Pause
- Loop
- Drehen:
- Select Case Schritt
- Case 1 : Portd.7 = 1
- Portd.6 = 0
- Portd.5 = 0
- Portd.4 = 0
- Case 2 : Portd.7 = 1
- Portd.6 = 1
- Portd.5 = 0
- Portd.4 = 0
- Case 3 : Portd.7 = 0
- Portd.6 = 1
- Portd.5 = 0
- Portd.4 = 0
- Case 4 : Portd.7 = 0
- Portd.6 = 1
- Portd.5 = 1
- Portd.4 = 0
- Case 5 : Portd.7 = 0
- Portd.6 = 0
- Portd.5 = 1
- Portd.4 = 0
- Case 6 : Portd.7 = 0
- Portd.6 = 0
- Portd.5 = 1
- Portd.4 = 1
- Case 7 : Portd.7 = 0
- Portd.6 = 0
- Portd.5 = 0
- Portd.4 = 1
- Case 8 : Portd.7 = 1
- Portd.6 = 0
- Portd.5 = 0
- Portd.4 = 1
- End Select
- Return