Pada malam hari ini saya akan menjelaskan mengenai bagaimana cara membuat sebuah sistem yang menggunakan komunikasi serial, prinsip kerja alat yang akan dibuat yaitu terdapat 8 buah led yang terpasang di PortC.0 sampai PortC.7, untuk menghidupkan led 1 atau led 2 ada suatu perintah khusus atau kode khusus misal "B12345S" dan untuk menghidupkan semua led seperti "B11111S" dan untuk mematikannya menggunakan kode "B22222S". Penjelasan lebih detail mengenai program dan skemanya yaitu seperti berikut.
a. Minimum System
b. Rangkaian RS232
c. Software Hypoterminal 2.0 / Hyperterminal
d. Program Bascom AVR
$regfile = "m16def.dat"
$crystal = 12000000
$baud = 9600
'Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2
'Config Lcdpin = Pin , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
'Config Lcd = 16 * 2
Ddrc = &B11111111
'Ddra = &B11111111
Cls
Cursor Off
Dim Data_masuk As String * 10
Dim Cmd_pos As Byte
Dim Cmd As String * 7
Do
Input Data_masuk
Cmd_pos = Instr(data_masuk , "B")
If Cmd_pos <> 0 Then
Incr Cmd_pos
Cmd = Mid(data_masuk , Cmd_pos , 6)
If Cmd = "12345S" Then
Print "portc 0 nyala"
Portc.0 = 1
Elseif Cmd = "13579S" Then
Print "portc 0 mati"
Portc.0 = 0
Elseif Cmd = "23456S" Then
Print "portc 1 nyala"
Portc.1 = 1
Elseif Cmd = "90987S" Then
Print "portc 0 mati"
Portc.1 = 0
Elseif Cmd = "11111S" Then
Print "portc nyala semua"
Portc = &B11111111
Elseif Cmd = "22222S" Then
Print "portc mati semua"
Portc = &B00000000
End If
End If
Loop
$crystal = 12000000
$baud = 9600
'Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2
'Config Lcdpin = Pin , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
'Config Lcd = 16 * 2
Ddrc = &B11111111
'Ddra = &B11111111
Cls
Cursor Off
Dim Data_masuk As String * 10
Dim Cmd_pos As Byte
Dim Cmd As String * 7
Do
Input Data_masuk
Cmd_pos = Instr(data_masuk , "B")
If Cmd_pos <> 0 Then
Incr Cmd_pos
Cmd = Mid(data_masuk , Cmd_pos , 6)
If Cmd = "12345S" Then
Print "portc 0 nyala"
Portc.0 = 1
Elseif Cmd = "13579S" Then
Print "portc 0 mati"
Portc.0 = 0
Elseif Cmd = "23456S" Then
Print "portc 1 nyala"
Portc.1 = 1
Elseif Cmd = "90987S" Then
Print "portc 0 mati"
Portc.1 = 0
Elseif Cmd = "11111S" Then
Print "portc nyala semua"
Portc = &B11111111
Elseif Cmd = "22222S" Then
Print "portc mati semua"
Portc = &B00000000
End If
End If
Loop
e. Cara Penggunaan Alat
Untuk penggunaan alat ini pertama hubungkan 8 buah led ke portC.0 sampai PortC.7 Aktif High, kemudian hubungkan RS232 dari mikrokontroller ke komputer melalui port USB, jika sudah dihubungkan, maka aktifkan software Hypoterminal lalu pilih Port dan baudrate yang digunakan, misal COM10 dan baudrate 9600, kemudian tekan tombol connect. Masukkan beberapa perintah berikut satu persatu pada Hypoterminal dengan cara mengetik dengan keyboard komputer. Jika berhasil maka akan ada balasan tulian di Hypoterminal dan juga led akan mati / menyala sesuai perintah / kode yang diberikan.
B12345S
B13579S
B11111S
B22222S
B23456S
B90987S
B13579S
B11111S
B22222S
B23456S
B90987S
No comments:
Post a Comment