Oleh:
Yulius Fendy P 075013038
Purnawinarwan 075013045
Program Studi DIII Mekatronika
Fakultas Sains dan Teknologi
Universitas Sanata Dharma
Yogyakarta
2009
A. Dasar Teori
Komunikasi data adalah transmisi data elektronik melalui suatu media. Media tersebut dapat berupa kabel coaxial, fiber optic, microwave, atau media pembawa data yang lain. Sistem Hardware dan Software yang memungkinkan adanya transmisi data membentuk “Jaringan Komunikasi Data”
Komponen
1. Sumber Komunikasi
2. Media Komunikasi
3. Penerima
Standar Komunikasi Serial
• RS 232
• RS 422
• RS 485
• Fieldbus
• Profibus
• CAN
• dll
B. Komunikasi Serial Mikrokontroler AT89C51
Port yang digunakan untuk komunikasi serial adalah port no 10,dan 11.
Dalam AT89C51 ini dapat berkomunikasi untuk sesame mikro ataupun dengan PC. Untuk berkomunikasi dengan PC dibutuhkan rangkaian untuk menyamakan voltase antar pc dan mikro. Rangkain yang dibutuhkan adalah dengan menggunakan ic max 232.
Gambar rangkaian ic max 232
Dan untuk rangkaian komunikasi dengan PC gambar lengkapnya
Gambar Rangkaian komunikasi serial antar mikro
C. Aplikasi komunikasi serial
Contoh pengerak motor dc menggunakan komunikasi serial PC dengan mikro AT89C51.
Gambar rangkaian
a. Progam untuk di mikro
org 0h
sjmp main
org 23h
sjmp serint
org 30h
main: mov tmod,#20h
mov th1,#0f3h
setb tr1
mov scon,#50h
mov r0,#60h
mov sp,#10h
setb es
setb ea
cek: jb p3.7,serint
kirim: clr a
mov a,#'w'
mov sbuf,a
jnb ti,$
clr ti
ljmp main
serint: jb ti,terima
clr ti
sjmp main
terima:
push psw
push acc
mov a,sbuf
clr ri
cjne a,#'a',led1
mov p1,#0feh
sjmp exit
led1: cjne a,#'b',led2
mov p1,#0fdh
sjmp exit
led2: cjne a,#'c',led3
mov p1,#0fbh
sjmp exit
led3: cjne a,#'d',led4
mov p1,#0f7h
sjmp exit
led4: mov p1,#0ffh
exit: mov sbuf,a
pop acc
pop psw
ljmp main
end
b. program di Visual basic
Private Sub Command1_Click()
MSComm1.Output = "B"
End Sub
Private Sub Command2_Click()
MSComm1.Output = "C"
End Sub
Private Sub Command3_Click()
MSComm1.Output = "D"
End Sub
Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub
Private Sub Timer1_Timer()
Text1.Text = MSComm1.Input
If Text1.Text = "W" Then
Shape1.FillStyle = 0
Else
Shape1.FillStyle = 1
End If
If Text1.Text = "B" Then
Shape2.FillStyle = 0
Else
Shape2.FillStyle = 1
End If
If Text1.Text = "C" Then
Shape3.FillStyle = 0
Else
Shape3.FillStyle = 1
End If
If Text1.Text = "D" Then
Shape4.FillStyle = 0
Else
Shape4.FillStyle = 1
End If
End Sub
c. Tampilan di VB
d. Rangkaian Driver Motor
D. Dokumentasi
1. Rangkaian serial mikro
2. Rangkain driver motor
3. Motor
4. Rangkaian Alat
E. Kesimpulan
Perangkat untuk komunikasi serial pada mikro dibutuhkan diantaranya : kabel serial,,timing,dan untuk komunikasi dengan device yang berbeda misal PC maka dibutuhkan rangkain tambahan yaitu ic max 232.
Untuk kabel yang digunakan mengunakan konektor DB9 dan jenis kabelnya apa saja tergantung kondisi medan,missal rs 232,atau yang lain yang umum untuk standar industry
