Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam
$regfile = "m88def.dat"
$crystal = 8000000
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1
Dim I as byte
I = 0
do
Pwm1a = I ' jak tu napiszesz Pwm1a= 127 to bedziesz mial 50% "predkosci silnika" jak dasz Pwm1a= 254 to predkosc bedzie max itd
Pwm1b = I
waitms 90
incr I
loop
end
$regfile = "m88def.dat"
$crystal = 16000000
Config Portb = Output
Config Portd = &B01111111
Config Portc = Input
Portd.7 = 1
Przycisk Alias Pind.7
Led Alias Portd.6
Enable_a Alias Portb.1
Enable_b Alias Portb.2
In1 Alias Portd.3
In2 Alias Portd.2
In3 Alias Portd.1
In4 Alias Portd.0
Config Adc = Single , Prescaler = Auto
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Dim I As Byte
I = 0
Do
Pwm1a = 127
Pwm1b = 127
Waitms 90
Incr I
Loop
Start Adc
Dim W As Word , Channel As Byte
Channe0 = 0
Do
W = Getadc(channe0)
Print 0 ; Channel ; " value " ; W
Incr Channe0
If Channel > 7 Then Channel = 0
Loop
Channe1 = 0
Do
W = Getadc(channe1)
Print 1 ; Channel ; " value " ; W
Incr Channel
If Channel > 7 Then Channel = 0
Loop
Channe2 = 0
W = Getadc(channe2)
Print 2 ; Channel ; ; W
If Channel > 7 Then Channel = 0
Loop
Channe3 = 0
W = Getadc(channe3)
Print 3 ; Chanel ; " value " ; W
If Channel > 7 Then Channel = 0
Loop
Channe4 = 0
W = Getadc(channe4)
Print 4 ; Chanel ; " value " ; W
If Channel > 7 Then Channel = 0
Loop
Channe5 = 0
W = Getadc(channe3)
Print 5 ; Chanel ; " value " ; W
If Channel > 7 Then Channel = 0
Loop
Channe6 = 0
W = Getadc(channe6)
Print 6 ; Chanel ; " value " ; W
If Channel > 7 Then Channel = 0
Loop
End
