Config Timer0 = Timer , Prescale = 1
Tcnt0 = 105
A = Max_var_pwm
Portb = Portb And 254 Portd = 0
Portd=Portd And 248
for(x=99;x>=0;x--)
{
pwm[1]=x;
delay_ms(7);
}
delay_ms(1000);
$regfile = "m8def.dat"
$crystal = 8000000
Motor1 Alias Portd.0
Motor2 Alias Portd.1
Motor3 Alias Portd.2
Max_var_pwm Alias 99
Dim Pwm(10) As Byte , A As Byte
Dim I As Byte , J As Byte , K As Byte
I = 0
J = 85
K = 170
'Config All =============================================
'Config Timers
'Config Ports
Config Timer0 = Timer , Prescale = 8
Enable Interrupts
Enable Timer0
On Ovf0 T0
Start Timer0
Ddrb = 1
Ddrd = 255
'End Config ============================================
Do
Pwm(1) = Lookup(i , Sin_data)
Pwm(2) = Lookup(j , Sin_data)
Pwm(3) = Lookup(k , Sin_data)
Incr I
Incr J
Incr K
Loop
End 'end program
T0:
If A > 0 Then
If A = Pwm(1) Then Set Motor1
If A = Pwm(2) Then Set Motor2
If A = Pwm(3) Then Set Motor3
End If
Decr A
If A = 255 Then
Portd = Pind And 248
End If
Return
Sin_data:
Data &H80 , &H83 , &H86 , &H89 , &H8C , &H8F , &H92 , &H95 , &H98 , &H9C , &H9F , &HA2 , &HA5 , &HA8 , &HAB , &HAE,
Data &HB0 , &HB3 , &HB6 , &HB9 , &HBC , &HBF , &HC1 , &HC4 , &HC7 , &HC9 , &HCC , &HCE , &HD1 , &HD3 , &HD5 , &HD8,
Data &HDA , &HDC , &HDE , &HE0 , &HE2 , &HE4 , &HE6 , &HE8 , &HEA , &HEC , &HED , &HEF , &HF0 , &HF2 , &HF3 , &HF5,
Data &HF6 , &HF7 , &HF8 , &HF9 , &HFA , &HFB , &HFC , &HFC , &HFD , &HFE , &HFE , &HFF , &HFF , &HFF , &HFF , &HFF,
Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFE , &HFE , &HFD , &HFC , &HFC , &HFB , &HFA , &HF9 , &HF8 , &HF7,
Data &HF6 , &HF5 , &HF3 , &HF2 , &HF0 , &HEF , &HED , &HEC , &HEA , &HE8 , &HE6 , &HE4 , &HE2 , &HE0 , &HDE , &HDC,
Data &HDA , &HD8 , &HD5 , &HD3 , &HD1 , &HCE , &HCC , &HC9 , &HC7 , &HC4 , &HC1 , &HBF , &HBC , &HB9 , &HB6 , &HB3,
Data &HB0 , &HAE , &HAB , &HA8 , &HA5 , &HA2 , &H9F , &H9C , &H98 , &H95 , &H92 , &H8F , &H8C , &H89 , &H86 , &H83,
Data &H80 , &H7C , &H79 , &H76 , &H73 , &H70 , &H6D , &H6A , &H67 , &H63 , &H60 , &H5D , &H5A , &H57 , &H54 , &H51,
Data &H4F , &H4C , &H49 , &H46 , &H43 , &H40 , &H3E , &H3B , &H38 , &H36 , &H33 , &H31 , &H2E , &H2C , &H2A , &H27,
Data &H25 , &H23 , &H21 , &H1F , &H1D , &H1B , &H19 , &H17 , &H15 , &H13 , &H12 , &H10 , &H0F , &H0D , &H0C , &H0A,
Data &H09 , &H08 , &H07 , &H06 , &H05 , &H04 , &H03 , &H03 , &H02 , &H01 , &H01 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H01 , &H01 , &H02 , &H03 , &H03 , &H04 , &H05 , &H06 , &H07 , &H08,
Data &H09 , &H0A , &H0C , &H0D , &H0F , &H10 , &H12 , &H13 , &H15 , &H17 , &H19 , &H1B , &H1D , &H1F , &H21 , &H23,
Data &H25 , &H27 , &H2A , &H2C , &H2E , &H31 , &H33 , &H36 , &H38 , &H3B , &H3E , &H40 , &H43 , &H46 , &H49 , &H4C,
Data &H4F , &H51 , &H54 , &H57 , &H5A , &H5D , &H60 , &H63 , &H67 , &H6A , &H6D , &H70 , &H73 , &H76 , &H79 , &H7C
Config Timer0 = Timer , Prescale = 8
Config Timer0 = Timer , Prescale = 1
oo:$regfile = "m8def.dat"
$crystal = 8000000
Led1 Alias portd.0
Led2 Alias portd.1
Led3 Alias portd.2
Led4 Alias portd.3
Led5 Alias portd.4
Led6 Alias Portb.6
Led7 Alias Portb.7
Led8 Alias Portd.5
Led9 Alias Portd.6
Led10 Alias Portd.7
Led11 Alias Portb.0
Led12 Alias Portb.1
Led13 Alias Portb.2
Led14 Alias Portb.3
Led15 Alias Portb.4
Led16 Alias Portb.5
Led17 Alias Portc.0
Led18 Alias Portc.1
Led19 Alias Portc.2
Led20 Alias Portc.3
Led21 Alias Portc.4
Led22 Alias Portc.5
Max_var_pwm Alias 99
Max_led Alias 22
Delay1 Alias 20
'ms
Delay2 Alias 200
'ms
Dim Pwm(35) As Byte , A As Byte , _
Y2 As Byte , _
X1 As Byte , X2 As Byte , X3 As Byte
Y2 = Max_led + Max_led
A = Max_var_pwm
'Config All =============================================
'Config Timers
'Config Ports
Config Timer0 = Timer , Prescale = 8
Enable Interrupts
Enable Timer0
On Ovf0 T0
Tcnt0 = 105
Start Timer0
Ddrb = 255
Ddrc = 63
Ddrd = 255
'End Config ============================================
Do
X1 = 0
While X1 < Y2
X2 = Max_led
While X2 > 1
X3 = X2 - 1
Pwm(x2) = Pwm(x3)
Decr X2
Wend
Pwm(1) = Lookup(x1 , Rain)
Waitms Delay1
Incr X1
Wend
Waitms Delay2
Loop
End 'end program
T0:
Tcnt0 = 105
If A > 0 Then
If A = Pwm(1) Then Led1 = 1
If A = Pwm(2) Then Led2 = 1
If A = Pwm(3) Then Led3 = 1
If A = Pwm(4) Then Led4 = 1
If A = Pwm(5) Then Led5 = 1
If A = Pwm(6) Then Led6 = 1
If A = Pwm(7) Then Led7 = 1
If A = Pwm(8) Then Led8 = 1
If A = Pwm(9) Then Led9 = 1
If A = Pwm(10) Then Led10 = 1
If A = Pwm(11) Then Led11 = 1
If A = Pwm(12) Then Led12 = 1
If A = Pwm(13) Then Led13 = 1
If A = Pwm(14) Then Led14 = 1
If A = Pwm(15) Then Led15 = 1
If A = Pwm(16) Then Led16 = 1
If A = Pwm(17) Then Led17 = 1
If A = Pwm(18) Then Led18 = 1
If A = Pwm(19) Then Led19 = 1
If A = Pwm(20) Then Led20 = 1
If A = Pwm(21) Then Led21 = 1
If A = Pwm(22) Then Led22 = 1
End If
Decr A
If A = 255 Then
A = Max_var_pwm
Portb = 0
Portc = 0
Portd = 0
End If
Return
Rain:
Data 99 , 80 , 70 , 60 , 40 , 20 , 15 , 9 , 7 , 5 , _
3 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , _
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ,_
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ,_
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
oo:$regfile = "m8def.dat"
$crystal = 8000000
Led1 Alias portd.0
Led2 Alias portd.1
Led3 Alias portd.2
Led4 Alias portd.3
Led5 Alias portd.4
Led6 Alias Portb.6
Led7 Alias Portb.7
Led8 Alias Portd.5
Led9 Alias Portd.6
Led10 Alias Portd.7
Led11 Alias Portb.0
Led12 Alias Portb.1
Led13 Alias Portb.2
Led14 Alias Portb.3
Led15 Alias Portb.4
Led16 Alias Portb.5
Led17 Alias Portc.0
Led18 Alias Portc.1
Led19 Alias Portc.2
Led20 Alias Portc.3
Led21 Alias Portc.4
Led22 Alias Portc.5
Max_var_pwm Alias 99
Max_led Alias 22
Delay1 Alias 20
'ms
Delay2 Alias 200
'ms
Dim Pwm(35) As Byte , A As Byte , _
Y2 As Byte , _
X1 As Byte , X2 As Byte , X3 As Byte
Y2 = Max_led + Max_led
A = Max_var_pwm
'Config All =============================================
'Config Timers
'Config Ports
Config Timer0 = Timer , Prescale = 8
Enable Interrupts
Enable Timer0
On Ovf0 T0
Tcnt0 = 105
Start Timer0
Ddrb = 255
Ddrc = 63
Ddrd = 255
'End Config ============================================
Do
X1 = 0
While X1 < Y2
X2 = Max_led
While X2 > 1
X3 = X2 - 1
Pwm(x2) = Pwm(x3)
Decr X2
Wend
Pwm(1) = Lookup(x1 , Rain)
Waitms Delay1
Incr X1
Wend
Waitms Delay2
Loop
End 'end program
T0:
Tcnt0 = 105
If A > 0 Then
If A = Pwm(1) Then Led1 = 1
If A = Pwm(2) Then Led2 = 1
If A = Pwm(3) Then Led3 = 1
If A = Pwm(4) Then Led4 = 1
If A = Pwm(5) Then Led5 = 1
If A = Pwm(6) Then Led6 = 1
If A = Pwm(7) Then Led7 = 1
If A = Pwm(8) Then Led8 = 1
If A = Pwm(9) Then Led9 = 1
If A = Pwm(10) Then Led10 = 1
If A = Pwm(11) Then Led11 = 1
If A = Pwm(12) Then Led12 = 1
If A = Pwm(13) Then Led13 = 1
If A = Pwm(14) Then Led14 = 1
If A = Pwm(15) Then Led15 = 1
If A = Pwm(16) Then Led16 = 1
If A = Pwm(17) Then Led17 = 1
If A = Pwm(18) Then Led18 = 1
If A = Pwm(19) Then Led19 = 1
If A = Pwm(20) Then Led20 = 1
If A = Pwm(21) Then Led21 = 1
If A = Pwm(22) Then Led22 = 1
End If
Decr A
If A = 255 Then
A = Max_var_pwm
Portb = 0
Portc = 0
Portd = 0
End If
Return
Rain:
Data 99 , 80 , 70 , 60 , 40 , 20 , 15 , 9 , 7 , 5 , _
3 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , _
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ,_
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ,_
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
$regfile = "m8def.dat" $crystal = 8000000 Led1 Alias portd.0 Led2 Alias portd.1 Led3 Alias portd.2 Led4 Alias portd.3 Led5 Alias portd.4 Led6 Alias Portb.6 Led7 Alias Portb.7 Led8 Alias Portd.5 Led9 Alias Portd.6 Led10 Alias Portd.7 Led11 Alias Portb.0 Led12 Alias Portb.1 Led13 Alias Portb.2 Led14 Alias Portb.3 Led15 Alias Portb.4 Led16 Alias Portb.5 Led17 Alias Portc.0 Led18 Alias Portc.1 Led19 Alias Portc.2 Led20 Alias Portc.3 Led21 Alias Portc.4 Led22 Alias Portc.5 Max_var_pwm Alias 99 Max_led Alias 22 Delay1 Alias 20 'ms Delay2 Alias 200 'ms Dim Pwm(35) As Byte , A As Byte , _ Y2 As Byte , _ X1 As Byte , X2 As Byte , X3 As Byte Y2 = Max_led + Max_led A = Max_var_pwm 'Config All ============================================= 'Config Timers 'Config Ports Config Timer0 = Timer , Prescale = 8 Enable Interrupts Enable Timer0 On Ovf0 T0 Tcnt0 = 105 Start Timer0 Ddrb = 255 Ddrc = 63 Ddrd = 255 'End Config ============================================ Do Loop End 'end program T0: Tcnt0 = 105 If A > 0 Then If A = Pwm(1) Then Led1 = 1 If A = Pwm(2) Then Led2 = 1 If A = Pwm(3) Then Led3 = 1 If A = Pwm(4) Then Led4 = 1 If A = Pwm(5) Then Led5 = 1 If A = Pwm(6) Then Led6 = 1 If A = Pwm(7) Then Led7 = 1 If A = Pwm(8) Then Led8 = 1 If A = Pwm(9) Then Led9 = 1 If A = Pwm(10) Then Led10 = 1 If A = Pwm(11) Then Led11 = 1 If A = Pwm(12) Then Led12 = 1 If A = Pwm(13) Then Led13 = 1 If A = Pwm(14) Then Led14 = 1 If A = Pwm(15) Then Led15 = 1 If A = Pwm(16) Then Led16 = 1 If A = Pwm(17) Then Led17 = 1 If A = Pwm(18) Then Led18 = 1 If A = Pwm(19) Then Led19 = 1 If A = Pwm(20) Then Led20 = 1 If A = Pwm(21) Then Led21 = 1 If A = Pwm(22) Then Led22 = 1 End If Decr A If A = 255 Then A = Max_var_pwm Portb = 0 Portc = 0 Portd = 0 End If Return
For X = 0 To 99
Pwm(1) = X
Waitms 10
Next
For X = 99 To 0 Step -1
Pwm(1) = X
Waitms 10
Next
For X = 0 To 99
Pwm(1) = X
Waitms 10
Next
Waitms 1000
For X = 99 To 0 Step -1
Pwm(1) = X
Waitms 10
Next
Waitms 1000
Portb=255
Portb=portb Or 3
TCNT0 = 105;
دیدگاه