سلام به همگی دوستان.من برنامه ی ساخت دفتر نقاشی دیجیتال رو به زبان بسکام از همین سایت گرفتم.میخواستم ببینم کسی میتونه همین برنامه رو برای من به زبان c تبدیل کنه؟
1) $regfile = "m32def.dat"
2) $crystal = 8000000
3) $lib "glcdKS108.lbx"
4) Config Adc = Single , Prescaler = Auto
5) Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portc , Ce = 3 , Ce2 = 4 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2
6) Config Portd = Input
7) Dim X(20) As Word , Y(20) As Word , Xx As Word , Yy As Word , I As Byte , S As Byte
8) S = 255
9) Enable Adc
10) Stop Adc
11) Cls Graph
12) Start Adc
13) Line(3 , 3) -(3 , 55) , 1
14) Line(4 , 55) -(117 , 55) , 1
15) Line(117 , 54) -(117 , 3) , 1
16) Line(116 , 3 ) -(3 , 3) , 1
17) Do
18) Debounce Pind.0 , 1 , Pen , Sub
19) Debounce Pind.1 , 1 , Eras , Sub
20) Debounce Pind.2 , 1 , Clean , Sub
21) Config Porta.0 = Output
22) Config Porta.1 = Input
23) Config Porta.2 = Output
24) Config Porta.3 = Input
25) Set Porta.0
26) Reset Porta.1
27) Reset Porta.2
28) Reset Porta.3
29) For I = 0 To 20
30) X(i) = Getadc(1)
31) Next I
32) I = 0
33) Xx = X(1) + X(2) : Xx = Xx + X(3) : Xx = Xx + X(4) : Xx = Xx + X(5) : Xx = Xx + X(6) : Xx = Xx + X(7) : Xx = Xx + X(8) : Xx = Xx + X(9) : Xx = Xx + X(10)
34) Xx = Xx + X(11) : Xx = Xx + X(12) : Xx = Xx + X(13) : Xx = Xx + X(14) : Xx = Xx + X(15) : Xx = Xx + X(16) : Xx = Xx + X(17) : Xx = Xx + X(18) : Xx = Xx + X(19) : Xx = Xx + X(20)
35) Xx = Xx / 20
36) Xx = Xx / 8
37) Xx = Xx - 11
38) Waitms 5
39) Config Porta.0 = Input
40) Config Porta.1 = Output
41) Config Porta.2 = Input
42) Config Porta.3 = Output
43) Reset Porta.0
44) Set Porta.1
45) Reset Porta.2
46) Reset Porta.3
47) For I = 0 To 20
48) Y(i) = Getadc(2)
49) Next I
50) I = 0
51) Yy = Y(1) + Y(2) : Yy = Yy + Y(3) : Yy = Yy + Y(4) : Yy = Yy + Y(5) : Yy = Yy + Y(6) : Yy = Yy + Y(7) : Yy = Yy + Y(8) : Yy = Yy + Y(9) : Yy = Yy + Y(10)
52) Yy = Yy + Y(11) : Yy = Yy + Y(12) : Yy = Yy + Y(13) : Yy = Yy + Y(14) : Yy = Yy + Y(15) : Yy = Yy + Y(16) : Yy = Yy + Y(17) : Yy = Yy + Y(18) : Yy = Yy + Y(19) : Yy = Yy + Y(20)
53) Yy = Yy / 20
54) Yy = Yy / 14
55) Yy = Yy - 13
56) Pset Xx , Yy , S
57) Loop
58) End
59) Pen:
60) S = 255
61) Return
62) Eras:
63) S = 0
64) Return
65) Clean:
66) Cls Graph
67) S = 255
68) Line(3 , 3) -(3 , 55) , 1
69) Line(4 , 55) -(117 , 55) , 1
70) Line(117 , 54) -(117 , 3) , 1
71) Line(116 , 3 ) -(3 , 3) , 1
72) Return
1) $regfile = "m32def.dat"
2) $crystal = 8000000
3) $lib "glcdKS108.lbx"
4) Config Adc = Single , Prescaler = Auto
5) Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portc , Ce = 3 , Ce2 = 4 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2
6) Config Portd = Input
7) Dim X(20) As Word , Y(20) As Word , Xx As Word , Yy As Word , I As Byte , S As Byte
8) S = 255
9) Enable Adc
10) Stop Adc
11) Cls Graph
12) Start Adc
13) Line(3 , 3) -(3 , 55) , 1
14) Line(4 , 55) -(117 , 55) , 1
15) Line(117 , 54) -(117 , 3) , 1
16) Line(116 , 3 ) -(3 , 3) , 1
17) Do
18) Debounce Pind.0 , 1 , Pen , Sub
19) Debounce Pind.1 , 1 , Eras , Sub
20) Debounce Pind.2 , 1 , Clean , Sub
21) Config Porta.0 = Output
22) Config Porta.1 = Input
23) Config Porta.2 = Output
24) Config Porta.3 = Input
25) Set Porta.0
26) Reset Porta.1
27) Reset Porta.2
28) Reset Porta.3
29) For I = 0 To 20
30) X(i) = Getadc(1)
31) Next I
32) I = 0
33) Xx = X(1) + X(2) : Xx = Xx + X(3) : Xx = Xx + X(4) : Xx = Xx + X(5) : Xx = Xx + X(6) : Xx = Xx + X(7) : Xx = Xx + X(8) : Xx = Xx + X(9) : Xx = Xx + X(10)
34) Xx = Xx + X(11) : Xx = Xx + X(12) : Xx = Xx + X(13) : Xx = Xx + X(14) : Xx = Xx + X(15) : Xx = Xx + X(16) : Xx = Xx + X(17) : Xx = Xx + X(18) : Xx = Xx + X(19) : Xx = Xx + X(20)
35) Xx = Xx / 20
36) Xx = Xx / 8
37) Xx = Xx - 11
38) Waitms 5
39) Config Porta.0 = Input
40) Config Porta.1 = Output
41) Config Porta.2 = Input
42) Config Porta.3 = Output
43) Reset Porta.0
44) Set Porta.1
45) Reset Porta.2
46) Reset Porta.3
47) For I = 0 To 20
48) Y(i) = Getadc(2)
49) Next I
50) I = 0
51) Yy = Y(1) + Y(2) : Yy = Yy + Y(3) : Yy = Yy + Y(4) : Yy = Yy + Y(5) : Yy = Yy + Y(6) : Yy = Yy + Y(7) : Yy = Yy + Y(8) : Yy = Yy + Y(9) : Yy = Yy + Y(10)
52) Yy = Yy + Y(11) : Yy = Yy + Y(12) : Yy = Yy + Y(13) : Yy = Yy + Y(14) : Yy = Yy + Y(15) : Yy = Yy + Y(16) : Yy = Yy + Y(17) : Yy = Yy + Y(18) : Yy = Yy + Y(19) : Yy = Yy + Y(20)
53) Yy = Yy / 20
54) Yy = Yy / 14
55) Yy = Yy - 13
56) Pset Xx , Yy , S
57) Loop
58) End
59) Pen:
60) S = 255
61) Return
62) Eras:
63) S = 0
64) Return
65) Clean:
66) Cls Graph
67) S = 255
68) Line(3 , 3) -(3 , 55) , 1
69) Line(4 , 55) -(117 , 55) , 1
70) Line(117 , 54) -(117 , 3) , 1
71) Line(116 , 3 ) -(3 , 3) , 1
72) Return
دیدگاه