[syntax=basic4gl]'testowy program sterowania
'silnikiem DC mostek H
'start 07-05-2015
$regfile = "m32def.dat"
$crystal = 16000000
$hwstack = 40
$swstack = 16
$framesize = 32
$lib "glcd.lib"
'-------------------------------------------------------------------------------
'konfiguracja wyświetlacza graficznego
Config Graphlcd = 240 * 128 , Dataport = Porta , Controlport = Portc , Ce = 5 , Cd = 6 , Wr = 3 , Rd = 4 , Reset = 7 , Fs = 2 , Mode = 6
'-------------------------------------------------------------------------------
'konfiguracja portów
Config Portd = &B11110011
Config Portb = &B11000000
'-------------------------------------------------------------------------------
'ustawienia początkowe portów
Portd = &B00000011
Portb = &B11111111
'-------------------------------------------------------------------------------
'aliasy portów
Pwm_cw Alias Portd.5
Pwm_ccw Alias Portd.4
Cw Alias Portd.6
Ccw Alias Portd.7
Sw_cw Alias Pinb.0
Sw_ccw Alias Pinb.1
Led_cw Alias Portb.6
Led_ccw Alias Portb.7
'-------------------------------------------------------------------------------
'zmienne
Dim Pwm_set As Byte
Config Timer1 = Pwm , Pwm = 8 , Prescale = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Enable Timer1
Start Timer1
Cursor Off
Cls
Wait 1
Pwm_set = 128
Do
Locate 1 , 1 : Lcd Pwm1a ; " "
Locate 1 , 5 : Lcd "Pwm1a"
Locate 2 , 1 : Lcd Pwm1b ; " "
Locate 2 , 5 : Lcd "Pwm1b"
Locate 3 , 1 : Lcd "Pwm_set=" ; Pwm_set
If Sw_cw = 0 Then
Gosub Prog_cw
Else
Gosub Prog_stop
End If
If Sw_ccw = 0 Then
Gosub Prog_ccw
' Else '?? błąd jak uruchomię te dwie linie to przestaje działać
'Gosub Prog_stop '?? Pwm1a
End If
Loop
End
Prog_cw:
Pwm1a = Pwm_set
Set Cw
Pwm1b = 0
Reset Ccw
Reset Led_cw
Return
Prog_ccw:
Pwm1b = Pwm_set
Set Ccw
Pwm1a = 0
Reset Cw
Reset Led_ccw
Return
Prog_stop:
Pwm1a = 0
Reset Cw
Pwm1b = 0
Reset Ccw
Set Led_cw
Set Led_ccw
Return[/syntax]
i jak w opisie - jak uruchomię 2 linie które są opisane to przestaje działać Pwm1a
co robię źle.
pozdrawiam Jacek.Statystyki: Napisane przez Jacek — 8 maja 2015, o 23:01
]]>