۲۳-اسفند-۱۳۸۹, ۰۲:۳۱:۰۰
با سلام من از امروز تصمیم گرفتم تو زمینه ربات فعالیت کنم یکی از دوستان یه فایلی به من پیشنهاد داد که توش 12تاسنسور به کار رفته در مورد این مدار لطفا راینمایی کنین![[تصویر: t1660oaj3ors0aukg2.jpg]](http://up.iranblog.com/images/t1660oaj3ors0aukg2.jpg)
![[تصویر: y9qdzy8fokay8ksdtkeh.bmp]](http://up.iranblog.com/images/y9qdzy8fokay8ksdtkeh.bmp)
کد php:
$regfile = "m32def.dat"
$crystal = 8000000
Config Porta = Input
Config Portc = Input
Config Portd = Output
Do
If Porta = 00000000 Then Portd = 00000000
Loop
Do
If Pina = &B11110111 Then Portd = &B00110000
If Pina = &B11101111 Then Portd = &B00110000
If Pina = &B11100111 Then Portd = &B00110000
If Pina = &B11000111 Then Portd = &B00110000
If Pina = &B11100011 Then Portd = &B00110000
If Pina = &B11000011 Then Portd = &B00110000
If Pina = &B11000001 Then Portd = &B00110000
If Pina = &B10000011 Then Portd = &B00110000
If Pina = &B10000001 Then Portd = &B00110000
If Pina = &B10000000 Then Portd = &B00110000
If Pina = &B00000001 Then Portd = &B00110000
If Pina = &B00000000 Then Portd = &B00110000
If Pina = &B00001000 Then Portd = &B00110000
If Pina = &B00010000 Then Portd = &B00110000
If Pina = &B00011000 Then Portd = &B00110000
If Pina = &B00011100 Then Portd = &B00110000
If Pina = &B00111000 Then Portd = &B00110000
If Pina = &B00111100 Then Portd = &B00110000
If Pina = &B00111110 Then Portd = &B00110000
If Pina = &B01111100 Then Portd = &B00110000
If Pina = &B01111110 Then Portd = &B00110000
If Pina = &B01111111 Then Portd = &B00110000
If Pina = &B11111110 Then Portd = &B00110000
If Pinc = &B11111101 Then Portd = &B00110000
If Pinc = &B11110111 Then Portd = &B00110000
If Pinc = &B11110101 Then Portd = &B00110000
If Pina = &B11111110 Then Portd = &B00010000
If Pina = &B11111100 Then Portd = &B00010000
If Pina = &B11111000 Then Portd = &B00010000
If Pina = &B11110000 Then Portd = &B00010000
If Pina = &B11100000 Then Portd = &B00010000
If Pina = &B11000000 Then Portd = &B00010000
If Pinc = &B11111011 Then Portd = &B00010000
If Pina = &B01111111 Then Portd = &B00100000
If Pina = &B00111111 Then Portd = &B00100000
If Pina = &B00011111 Then Portd = &B00100000
If Pina = &B00001111 Then Portd = &B00100000
If Pina = &B00000111 Then Portd = &B00100000
If Pina = &B00000011 Then Portd = &B00100000
If Pinc = &B11111110 Then Portd = &B00100000
If Pina = &B11111111 Then Portd = &B00000000
Reset Portd
Loop
End
