می تونید از این برنامه استفاده کنید
کد:
$regfile = "m32def.dat"
$crystal = 8000000
'-------------------------------- Variables ----------
Config Porta = Input
Config Portb = Input
Config Portd = Output
Config Portc = Output
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 64
Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim D As Byte
Dim E As Byte
Dim I As Bit
Dim Loop1 As Byte
Dim X As Bit
Dim Tim As Word
Dim Lop As Bit
Dim Pin0 As Bit
Dim Pin1 As Bit
'-------------------------------- main ------------------
B = 0
C = 0
D = 0
E = 0
I = 0
Do
Goooo:
A.0 = Pina.0
A.1 = Pina.1
A.2 = Pina.2
A.3 = Pina.3
A.4 = Pina.4
A.5 = Pina.5
A.6 = Pina.6
'---------------------- zamine meshki-------------------
Select Case A
Case &B0111111: '0111111
Pwm1a = 0
Pwm1b = 255
Portc.0 = 0
Portc.1 = 1
I = 1
Goto Goooo
Case &B1011111: '1011111
Pwm1a = 10
Pwm1b = 255
Portc.0 = 0
Portc.1 = 0
I = 1
Goto Goooo
Case &B1101111: '1101111
Pwm1a = 120
Pwm1b = 255
Portc.0 = 0
Portc.1 = 0
I = 1
Goto Goooo
Case &B1110111: '1110111
Pwm1a = 255
Pwm1b = 255
Portc.0 = 0
Portc.1 = 0
I = 1
Goto Goooo
Case &B1111011: '1111011
Pwm1a = 255
Pwm1b = 120
Portc.0 = 0
Portc.1 = 0
I = 1
Goto Goooo
Case &B1111101: '1111101
Pwm1a = 255
Pwm1b = 10
Portc.0 = 0
Portc.1 = 0
I = 1
Goto Goooo
Case &B1111110: '1111110
Pwm1a = 255
Pwm1b = 0
Portc.0 = 1
Portc.1 = 0
I = 1
Goto Goooo
Case &B1100011 : '1100011
Pwm1a = 255
Pwm1b = 255
Portc.0 = 0
Portc.1 = 0
I = 1
Goto Goooo
Case &B1111111 : '1111111
I = 1
Goto Goooo
End Select
'--------------------- zamine sefid ------------------
I = 0
B.0 = A.4
B.1 = A.2
C.0 = A.5
C.1 = A.1
D.0 = A.6
D.1 = A.0
If A.3 = 1 Then
Pwm1a = 255
Pwm1b = 255
Portc.0 = 0
Portc.1 = 0
Goto Goooo
End If
Select Case B
Case 1: '01
Pwm1a = 120
Pwm1b = 255
Portc.0 = 0
Portc.1 = 0
Goto Goooo
Case 2: '10
Pwm1a = 255
Pwm1b = 120
Portc.0 = 0
Portc.1 = 0
Goto Goooo
Case 3: '11
Pwm1a = 255
Pwm1b = 255
Portc.0 = 0
Portc.1 = 0
Goto Goooo
End Select
Select Case C '01
Case 1:
Pwm1a = 5
Pwm1b = 255
Portc.0 = 0
Portc.1 = 0
Goto Goooo
Case 2: '10
Pwm1a = 255
Pwm1b = 5
Portc.0 = 0
Portc.1 = 0
Goto Goooo
Case 3: '11
Pwm1a = 255
Pwm1b = 255
Portc.0 = 0
Portc.1 = 0
Goto Goooo
End Select
Select Case D
Case 1:
Pwm1a = 0
Pwm1b = 255
Portc.0 = 0
Portc.1 = 1
Goto Goooo
Case 2:
Pwm1a = 255
Pwm1b = 10
Portc.0 = 1
Portc.1 = 0
Goto Goooo
Case 3 :
Pwm1a = 255
Pwm1b = 255
Portc.0 = 0
Portc.1 = 0
Goto Goooo
End Select
Loop
End