Percobaan Komunikasi Data Melalui Radio Modem FC203/ SA

Percobaan dilakukan dengan 2 buah radio modem FC-203/SA , 2 buah komputer dan 2 buah logic translator yang dirangkai sebagai berikut

Gambar 1. Rangkaian percobaan komunikasi data melalui radio modem

Secara detail hubungan antara komputer dan modem melalui logic translator IC max 232 adalah sebagai berikut:




Gambar rangkaian konektor serial port DB9F ke komputer dengan konektor SIP10 pada radio modem. Konektor pada komputer adalah Db9 M(male) jodohnya Db9F (female).

Percobaan pengiriman data dengan software hyperterminal.

Software hyper terminal dijalankan dengan setelan Baud rate 9600, 8bit, parity none, stop bit 1, flow control none, pada kedua komputer. Setelah radio modem dihubungkan dengan catu daya 9 volt, dengan batas arus 1 amper, karakter yang diketikkan pada komputer sistem percobaan 1 akan dikirim dan ditampilkan di komputer sistem percobaan 2, dan begitu pula berlaku sebaliknya. Radio modem ini beroperasi secara half duplex, yaitu tidak bisa menerima dan mengirim data secara bersamaan. Maka pengiriman data harus dilakukan secara bergantian.

Percobaan pengiriman data dengan software Visual Basic

Percobaan dilakukan dengan 4 buah komponen yaitu 2 buah TEXT BOX ( Text1 dan Text2), MSCOMMCONTROL (MSComm1), dan sebuah COMMANDBUTTON (Command1) dengan caption kirim, seperti gambar di bawah ini.



Gambar susunan komponen-komponen pada percobaan





Prosedur Inisial

Prosedur ini dijalankan pertama kali ketika program dijalankan

Private Sub Form_Initialize()

MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Settings = "9600,n,8,1"
MSComm1.RThreshold = 1

End Sub

Maksud prosedur tersebut

• Serial port yang digunakan Comm1
• Port Comm1 dibuka
• baud rate 9600, no parity, 8 bit, stop bit 1.
• Ambang karakter penerimaan 1


Prosedur penerimaan data
Prosedur ini dijalankan ketika ada pesan Event dari MSComm1

Private Sub MSComm1_OnComm() ‘

Select Case MSComm1.CommEvent
Case comEvReceive
Text2.Text = Text2.Text + MSComm1.Input
Case 3

Case Else

End Select
End Sub

Maksud prosedur tersebut

• Cek MSComm1.CommEvent
• jika MSComm1.CommEvent = comEvReceive, baca karakter yang diterima lalu tambahkan di TEXTBOX (Text2)
• Selain MSComm1.CommEvent = comEvReceive, tidak melakukan apa-apa.


Prosedur pengiriman data
Prosedur ini dijalankan ketika command1 diklik

Private Sub Command1_Click()
MSComm1.Output = Text1.Text + Chr(13) + Chr(10)
Text1.Text = ""

End Sub

Maksud prosedur tersebut

• Kirimkan isi Text1 + karakter ASCII (13) + karakter ASCII (10) melalui port serial.
• Kosongkan isi Text1.


Tampilan Program

Program akan tampil seperti gambar berikut ini


Gambar tampilan program pada ke dua komputer.


Pengoperasian Program

1. Menuliskan data yang akan dikirim pada text 1
2. Mengklik tombol kirim

Setelah tombol kirim pada komputer 1 diklik, data yang dituliskan pada text1 pada komputer 1 akan ditampilkan pada text 2 pada komputer 2, kemudian text1 kosong dan siap diisi data baru. Demikian berlaku sebaliknya jika data dituliskan pada text1 pada komputer2 dan tombol kirim pada komputer2 diklik.