Flowchart Bagian Pemancar START
Baca Nilai EEPROM pemancar
Masukkan Nilai EEPROM ke Counter
BACA SENSOR
TIDAK
Nilai Sensor = 1 ?
YA Counter + 1
Masukkan Nilai Counter Ke EEPROM
Biaya = Nilai Counter x 3
Pisahkan 3 digit nilai counter Pisahkan 3 digit nilai biaya
Konversikan 3 digit nilai counter dan 3 digit nilai biaya ke dalam nilai tampilan
Kirim Nilai Tampilan Ke Display
Kirim Sinyal Startbit
Kirim Data Counter Melalui RF
END
Universitas Sumatera Utara
Flowchart Bagian Penerima START
TIDAK
Baca Nilai RF Receiver
Nilai RF = Nilai Startbit ?
YA
Baca Data Dari RF
Biaya = Nilai RF x 3
Pisahkan 3 Digit Data RF Pisahkan 3 Digit Data biaya
Konversikan 3 digit Data RF dan 3 digit Data biaya ke dalam nilai tampilan display
Kirim Nilai Tampilan Ke Display
END
Universitas Sumatera Utara
(Program Pemancar) bil0 bil1 bil2 bil3 bil4 bil5 bil6 bil7 bil8 bil9
equ equ equ equ equ equ equ equ equ equ
21h 0edh 19h 89h 0c5h 83h 03h 0e9h 01h 81h
acall baca_iprom mov a,64h cjne a,#0ffh,main mov 7dh,#0 mov 64h,7dh acall tulis_iprom main: acall baca_iprom mov 7dh,64h mov p1,#0ffh mov 73h,#bil0 mov 74h,#bil0 mov 75h,#bil0 mov 79h,#bil0 mov 7ah,#bil0 mov 7bh,#bil0 acall kirim_disp utama: jnb p2.0,$ acall tunda jb p2.0,$ acall tunda inc 7dh mov 64h,7dh acall tulis_iprom mov a,7dh mov b,#100 div ab mov 72h,a mov a,b mov b,#10 div ab mov 71h,a mov 70h,b
Universitas Sumatera Utara
mov mov mul mov div mov mov mov div mov mov
a,7dh b,#3 ab b,#100 ab 78h,a a,b b,#10 ab 77h,a 76h,b
mov r0,70h acall konversi mov 73h,r1 mov r0,71h acall konversi mov 74h,r1 mov r0,72h acall konversi mov 75h,r1
;73h nilai satuan des
;74h nilai puluhan des
;75h nilai ratusan des
mov r0,76h acall konversi mov 79h,r1 ;73h nilai satuan des mov r0,77h acall konversi mov 7ah,r1 ;74h nilai puluhan des mov r0,78h acall konversi mov 7bh,r1 ;75h nilai ratusan des acall kirim_disp acall kirimdata sjmp utama konversi: cjne r0,#0,satu mov r1,#bil0 ret satu: cjne r0,#1,dua mov r1,#bil1 ret dua: cjne r0,#2,tiga mov r1,#bil2 ret
Universitas Sumatera Utara
tiga: cjne r0,#3,empat mov r1,#bil3 ret empat: cjne r0,#4,lima mov r1,#bil4 ret lima: cjne r0,#5,enam mov r1,#bil5 ret enam: cjne r0,#6,tujuh mov r1,#bil6 ret tujuh: cjne r0,#7,delapan mov r1,#bil7 ret delapan: cjne r0,#8,sembilan mov r1,#bil8 ret sembilan: cjne r0,#9,konversi mov r1,#bil9 ret kirim_disp: mov jnb clr mov jnb clr mov jnb clr mov jnb clr mov jnb clr mov jnb clr ret
sbuf,79h ti,$ ti sbuf,7ah ti,$ ti sbuf,7bh ti,$ ti sbuf,73h ti,$ ti sbuf,74h ti,$ ti sbuf,75h ti,$ ti
Universitas Sumatera Utara
kirimdata: mov a,7dh mov p1,#0feh lcall delay mov p1,#0ffh lcall delay data0L: jb acc.0,data0H acall dataL sjmp data1L data0H: acall dataH data1L: jb acc.1,data1H acall dataL sjmp data2L data1H: acall dataH data2L: jb acc.2,data2H acall dataL sjmp data3L data2H: acall dataH data3L: jb acc.3,data3H acall dataL sjmp data4L data3H: acall dataH data4L: jb acc.4,data4H acall dataL sjmp data5L data4H: acall dataH data5L: jb acc.5,data5H acall dataL sjmp data6L data5H: acall dataH
Universitas Sumatera Utara
data6L: jb acc.6,data6H acall dataL sjmp data7L data6H: acall dataH data7L: jb acc.7,data7H acall dataL sjmp finish data7H: acall dataH finish: ret
dataL: mov p1,#0feh lcall delay mov p1,#0fdh lcall delay ret dataH: mov p1,#0feh lcall delay mov p1,#0fbh lcall delay ret delay: mov r7,#90 dly: mov r6,#255 djnz r6,$ djnz r7,dly ret tunda: mov r7,#255 tnd: mov r6,#255 djnz r6,$ djnz r7,tnd ret
Universitas Sumatera Utara
tunda1: mov r7,#3 tnd1: mov r6,#255 td1: mov r5,#255 djnz r5,$ djnz r6,td1 djnz r7,tnd1 ret tulis_iprom: mov dptr,#123h mov a,64h
;data yang mau ditulis ke eeprom
movx @dptr,a acall tunda acall tunda ret baca_iprom: mov dptr,#123h movx a,@dptr acall tunda mov 64h,a ret
;data dari iprom
Universitas Sumatera Utara
(program penerima) bil0 bil1 bil2 bil3 bil4 bil5 bil6 bil7 bil8 bil9
equ equ equ equ equ equ equ equ equ equ
21h 0edh 19h 89h 0c5h 83h 03h 0e9h 01h 81h
utama: jnb p3.5,$ acall delay filter1: jnb p3.6,filter2 sjmp utama filter2: jnb p3.7,filter3 sjmp utama filter3: jnb p3.5,filter1 data0L: jnb p3.7,data0H setb acc.0 sjmp data1 data0H: jnb p3.6,data0L clr acc.0 sjmp data1 data1: jnb p3.5,$ data1L: jnb p3.7,data1H setb acc.1 sjmp data2
Universitas Sumatera Utara
data1H: jnb p3.6,data1L clr acc.1 sjmp data2 data2: jnb p3.5,$ data2L: jnb p3.7,data2H setb acc.2 sjmp data3 data2H: jnb p3.6,data2L clr acc.2 sjmp data3 data3: jnb p3.5,$ data3L: jnb p3.7,data3H setb acc.3 sjmp data4 data3H: jnb p3.6,data3L clr acc.3 sjmp data4 data4: jnb p3.5,$ data4L: jnb p3.7,data4H setb acc.4 sjmp data5 data4H: jnb p3.6,data4L clr acc.4 sjmp data5
Universitas Sumatera Utara
data5: jnb p3.5,$ data5L: jnb p3.7,data5H setb acc.5 sjmp data6 data5H: jnb p3.6,data5L clr acc.5 sjmp data6 data6: jnb p3.5,$ data6L: jnb p3.7,data6H setb acc.6 sjmp data7 data6H: jnb p3.6,data6L clr acc.6 sjmp data7 data7: jnb p3.5,$ data7L: jnb p3.7,data7H setb acc.7 sjmp selesai data7H: jnb p3.6,data7L clr acc.7 sjmp selesai selesai: mov mov div mov mov mov div mov mov
7dh,a b,#100 ab 72h,a a,b b,#10 ab 71h,a 70h,b
Universitas Sumatera Utara
mov mov mul mov div mov mov mov div mov mov
a,7dh b,#3 ab b,#100 ab 78h,a a,b b,#10 ab 77h,a 76h,b
mov r0,70h acall konversi mov 73h,r1 mov r0,71h acall konversi mov 74h,r1 mov r0,72h acall konversi mov 75h,r1
;73h nilai satuan des
;74h nilai puluhan des
;75h nilai ratusan des
mov r0,76h acall konversi mov 79h,r1 ;73h nilai satuan des mov r0,77h acall konversi mov 7ah,r1 ;74h nilai puluhan des mov r0,78h acall konversi mov 7bh,r1 ;75h nilai ratusan des acall kirim_disp ljmp utama konversi: cjne r0,#0,satu mov r1,#bil0 ret satu: cjne r0,#1,dua mov r1,#bil1 ret dua: cjne r0,#2,tiga mov r1,#bil2 ret
Universitas Sumatera Utara
tiga: cjne r0,#3,empat mov r1,#bil3 ret empat: cjne r0,#4,lima mov r1,#bil4 ret lima: cjne r0,#5,enam mov r1,#bil5 ret enam: cjne r0,#6,tujuh mov r1,#bil6 ret tujuh: cjne r0,#7,delapan mov r1,#bil7 ret delapan: cjne r0,#8,sembilan mov r1,#bil8 ret sembilan: cjne r0,#9,konversi mov r1,#bil9 ret kirim_disp: mov jnb clr mov jnb clr mov jnb clr
sbuf,79h ti,$ ti sbuf,7ah ti,$ ti sbuf,7bh ti,$ ti
mov jnb clr mov jnb clr mov
sbuf,73h ti,$ ti sbuf,74h ti,$ ti sbuf,75h
Universitas Sumatera Utara
jnb ti,$ clr ti acall delay ret tunda: mov r7,#255 tnd: mov r6,#255 djnz r6,$ djnz r7,tnd ret delay: mov r7,#120 dly: mov r6,#255 djnz r6,$ djnz r7,dly ret
Universitas Sumatera Utara
Rangkaian Pemancar
Universitas Sumatera Utara
Universitas Sumatera Utara
Rangkaian Penerima
Universitas Sumatera Utara
Universitas Sumatera Utara
Data BERDASARKAN TINGGI ANTENA Pengukuran Jarak efektif pengiriman data radio frekwensi 27 Mhz Berdasarkan tinggi antena pemancar
Tinggi antena = 58 cm Beban = 300 watt (3 buah bola lampu pijar @ 100 watt) Setiap posisi jarak dilakukan waktu pencatatan 30 detik
Jarak pemancar dengan
Angka yang ditunjukkan
Angka yang ditunjukkan
penerima (CM)
Display pengirim (Kwh)
display penerima (Kwh)
100
002
002
150
006
006
200
008
008
250
011
011
300
013
013
350
016
016
400
019
019
450
022
022
500
024
024
550
028
028
600
030
030
650
033
033
700
035
035
750
038
038
800
041
041
850
044
044
900
046
046
950
049
------
1000
052
------
Universitas Sumatera Utara
Tinggi antena = 50 cm Beban = 300 watt (3 buah bola lampu pijar @ 100 watt) Setiap posisi jarak dilakukan waktu pencatatan 30 detik Jarak pemancar dengan
Angka yang ditunjukkan
Angka yang ditunjukkan
penerima (CM)
Display pengirim (Kwh)
display penerima (Kwh)
100
057
057
150
061
061
200
063
063
250
066
066
300
068
068
350
071
071
400
074
074
450
077
077
500
079
079
550
082
082
600
085
085
650
088
088
700
090
090
750
093
093
800
096
096
850
099
-----
900
102
------
950
106
------
Universitas Sumatera Utara
Tinggi antena = 40 cm Beban = 300 watt (3 buah bola lampu pijar @ 100 watt) Setiap posisi jarak dilakukan waktu pencatatan 30 detik Jarak pemancar dengan
Angka yang ditunjukkan
Angka yang ditunjukkan
penerima (CM)
Display pengirim (Kwh)
display penerima (Kwh)
100
108
108
150
111
111
200
113
113
250
116
116
300
119
119
350
122
122
400
124
124
450
128
128
500
130
130
550
133
133
600
135
135
650
138
138
700
141
141
750
144
144
800
146
-----
850
149
-----
900
152
------
950
155
------
Universitas Sumatera Utara
Tinggi antena = 30 cm Beban = 300 watt (3 buah bola lampu pijar @ 100 watt) Setiap posisi jarak dilakukan waktu pencatatan 30 detik Jarak pemancar dengan
Angka yang ditunjukkan
Angka yang ditunjukkan
penerima (CM)
Display pengirim (Kwh)
display penerima (Kwh)
100
161
161
150
163
163
200
166
166
250
168
168
300
171
171
350
174
174
400
177
177
450
179
179
500
182
182
550
185
185
600
188
-----
650
190
-----
700
193
-----
750
196
-----
800
199
-----
850
203
-----
900
207
------
950
209
------
Universitas Sumatera Utara
Tinggi antena = 20 cm Beban = 300 watt (3 buah bola lampu pijar @ 100 watt) Setiap posisi jarak dilakukan waktu pencatatan 30 detik Jarak pemancar dengan
Angka yang ditunjukkan
Angka yang ditunjukkan
penerima (CM)
Display pengirim (Kwh)
display penerima (Kwh)
100
217
217
150
220
220
200
223
223
250
225
225
300
227
227
350
230
230
400
233
233
450
235
------
500
238
------
550
240
-----
600
243
-----
650
245
-----
Universitas Sumatera Utara
