راهنمایی ساخت مدار

[nezam9002]

مهندس جان برنامه اش اینجوری نوشته شده فقط برام مدار رو اگه طراحیشو بگی ممنون میشم
$regfile = "m8def.dat"
$crystal = 1000000

Config Portd = Input
Config Portb = Output


Dim C As Byte
C = 0
Do
While Pind.0 = 0

If Pind.7 = 0 Then
Incr C
Waitms 222
End If
Wend

If C = 1 Then Portb = &B1111001 End If
If C = 2 Then Portb = &B0100100 End If
If C = 3 Then Portb = &B0110000 End If
If C = 4 Then Portb = &B0011001
If C = 5 Then Portb = &B0010010
If C = 6 Then Portb = &B0000010
If C = 7 Then Portb = &B1111000 End If
If C = 8 Then Portb = &B0000000
If C = 9 Then Portb = &B0010000

C = 0
Loop
End 'end program