آقا من یه کد دارم ولی تو بسکام نمیتونم تبدیل به هگر کنمش کمکم میکنید لطفا
ممنون میشم
1_$regfile="m8def.dat"
2_$crystal=8000000
3_Config Lcdpin = Pin , Db4 = Pinc.2 , Db5 = Pinc.3 , -
4_db6 = Pinc.4 , Db7 = Pinc.5 , E = Pinc.1 , Rs = Pinc.0
5_Config Lcd = 16 * 2
6_Config Timer1 = Timer , Prescale = 8
7_Config Int1 = Rising
8_Enable Interrupts
9_Enable Int1
10_On Int0 Receive
11_Dim A As Single , B As Single
12_Config Pind.6 = Output
13_Cls
14_Cursor Off
15_Do
16_Start Timer1
17_Set Portd.6
18_Waitms 500
19_Reset Portd.6
20_Waitms 100
21_Loop
22_End
23_Receive :
24_Stop Timer1
25_Reset Portd.6
26_A = Timer1
27_B = A
28_If a > 8000 Then
29_Cls
30_Home
31_Lcd "OUT OF RANGE"
32_Goto Down
33_End If
34_A = A / 100
35_Cls
36_Home
37_Lcd A
38_Locate 2 , 1
39_Lcd B
40_Down :
41_Timer 1 = 0
42_A = 0
43_B = 0
44_Return
ممنون میشم
1_$regfile="m8def.dat"
2_$crystal=8000000
3_Config Lcdpin = Pin , Db4 = Pinc.2 , Db5 = Pinc.3 , -
4_db6 = Pinc.4 , Db7 = Pinc.5 , E = Pinc.1 , Rs = Pinc.0
5_Config Lcd = 16 * 2
6_Config Timer1 = Timer , Prescale = 8
7_Config Int1 = Rising
8_Enable Interrupts
9_Enable Int1
10_On Int0 Receive
11_Dim A As Single , B As Single
12_Config Pind.6 = Output
13_Cls
14_Cursor Off
15_Do
16_Start Timer1
17_Set Portd.6
18_Waitms 500
19_Reset Portd.6
20_Waitms 100
21_Loop
22_End
23_Receive :
24_Stop Timer1
25_Reset Portd.6
26_A = Timer1
27_B = A
28_If a > 8000 Then
29_Cls
30_Home
31_Lcd "OUT OF RANGE"
32_Goto Down
33_End If
34_A = A / 100
35_Cls
36_Home
37_Lcd A
38_Locate 2 , 1
39_Lcd B
40_Down :
41_Timer 1 = 0
42_A = 0
43_B = 0
44_Return
دیدگاه