Nu vill jga utveckla mitt stepperprogram lite med 2 knappar, en som ökar varvtalet och en som minskar. Någon som kan BASCOM-AVR och vet vad jag ska lätta till för att få de funktioner jag vill ha med knapparna ?
Först måste du väl hitta en metod i ditt verktyg för att få en
bättre upplösning än bara hela millisekunder
Antagligen bör du läsa på lite om timers och gå den vägen...
$crystal = 3200000
$regfile "2313def.dat"
Dim Wa As Byte
Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pinb.2 = Input
Config Pinb.3 = Input
Config Timer0 = Timer , Prescale = 64
Wa = 150
Do
Debounce Pinb.2 , 0 , Snabbare , Sub
Debounce Pinb.3 , 0 , Langsammare , Sub
Set Portb.0
Reset Portb.1
Gosub Vanta
Set Portb.1
Set Portb.0
Gosub Vanta
Reset Portb.0
Set Portb.1
Gosub Vanta
Reset Portb.1
Reset Portb.0
Gosub Vanta
Loop
Vanta:
Do
Loop Until Tcnt0 >= Wa
'when 10 pulses are count the loop is exited
'or use the special variable TIMER0
Timer0 = 0
Return
Snabbare:
If Wa <= 34 Then
Wa = 5
Else
Wa = Wa - 29
End If
Return
Langsammare:
End If
If Wa => 121 Then
Wa = 150
Else
Wa = Wa + 29
End If
Return
Med koden borde du kunna reglera hastigheten från 3 ms till 0.1 ms i fem steg.
Jag sa att jag inte hade testat det (dvs. ej kompilerat eller kollat syntax). Men jag misstänker att felet inte var svårare än att du lyckas korrigera det .
Körde programmet i simulatorn, det loopar inte utan kör tills det kommer till "Loop until Tcnt >= Wa" där det stannar, kanske blir annat då det är överlagt i avren dock.
Jag har kollat i simulatorn nu och det verkar fungera som det ska. Det som kan hjälpa är att stänga av timern i knappfunktionerna. Kopplade du knapparna rätt? Dvs de ska gå låga när du trycker ner knappen. Om du har kopplat fel så ändra debounce-parametern till aktiv hög.
Och startar motorn med en paus på 3ms? Du sa aldrig vilket intervall du ville ha på hastigheten!
Dock det finns 2 fel i koden: 
Får testa imorrn, mår dåligt idag samt att ingenting är kopplat pga städning.
.
