[a.mehran]

 

کد پی‌اچ‌پی:

$regfile = "m32def.dat"
$crystal = 4000000
Dim D As Word
Dim E As Single
Dim F As Word
Dim G As Single
Config Single = Scientific , Digits = 1
Config Pinc.0 = Output
Config Pinc.2 = Output
Config Pinc.1 = Input
Config Pinc.3 = Input
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Pb.7 , Db6 = Pb.6 , Db5 = Pb.5 , Db4 = Pb.4 , Rs = Pb.2 , E = Pb.3
Cursor Off
Reset Portc.0
Reset Portc.2
D = 0
F = 0
Locate 1 , 3
Lcd "POWERED BY"
Locate 2 , 3
Lcd "NAVIDKASHI"
Wait 2
Cls
Locate 1 , 1
Lcd "ULTRA 1="
Locate 2 , 1
Lcd "ULTRA 2="
A:
     Pulseout Portc , 0 , 20
     Pulsein D , Pinc , 1 , 1
     Pulseout Portc , 2 , 20
     Pulsein F , Pinc , 3 , 1
     D = D * 4
     F = F * 4
     E = D / 5
     G = F / 5
     Locate 1 , 9
     Lcd E ; "cm"
     Locate 2 , 9
     Lcd G ; "cm"
Goto A 


 

[seoli]

schematic یا pcb ??? هیچی نداره ؟
 

[a.mehran]

اینکه سادس دوست عزیز
از دوعدد سنسور استفاده کرده   
******************
portc.0 = input sensor
portc.1 = outpout sensor
********************
********************
portc.2= input sensor2
portc.3 = outpout sensor2
********************
بازهم مشکلی بود درخدمتم