پاسخ : SRF05 - جان مادرتون کمک کنید...
مداری که من بهت دادم امتحان کن اون خیلی خوب هست
pcb هم داره
مداری که من بهت دادم امتحان کن اون خیلی خوب هست
pcb هم داره
$regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , Rs = Portc.5 , E = Portc.4 Dim D As Word Config Portb.2 = Output Config Portb.0 = Output Config Portb.1 = Input Portb.0 = 0 D = 4 Cursor Off Cls Locate 1 , 1 Lcd "Distance is : " Srf05: Pulseout Portb , 0 , 20 Pulsein D , Pinb , 1 , 1 D = D * 4 D = D / 5 Locate 2 , 1 Lcd D Lcd " CM" Waitms 220 Cls Goto Srf05 End
دیدگاه