Komunikasi antar Mikrokontroller ATmega 8 dengan PC menggunakan VB

2009-06-06T11:39:00.000-07:00

Keb

Kebutuhan manusia yang selalu bertambah pada akhirnya memerlukan suatu piranti untuk mempermudah dan membantu hampir semua aktivitas manusia di segala bidang. Teknologi muncul sebagai solusi yang terus dikembangkan atas permasalahan tersebut. Perkembangan teknologi di negara maju memang lebih cepat dibandingkan di negara berkembang. Sehingga kita dapat mempergunakan suatu teknologi untuk dikembangkan guna mengatasi permasalahan yang kita hadapi dalam dunia ini. Contohnya dalam dunia indsutri ataupun teknologi lainnya.

Kita dapat temui berbagai macam aplikasi dalam dunia industry ataupun rumah tangga dan lain-lainnya. Sehingga dapat mempermudah pekerja dalam mengemban tugasnya. Kita dapat temui dalam kehidupan sehari-hari, masih ada yang menggunakan teknologi yang masih tertinggal.

Oleh karena itu, penulis membuat suatu simulasi dalam hal pemadam kebakaran yang dapat dilakukan di rumah tangga ataupun yang lainnya.

Simulasi yang penulis buat dengan menggunakan mikrokontroller ATmega 8 dalam hal mengkomunikasikan ke PC melalui RS Max 232. Dalam hal ini, program yang digunakan menggunakan Bascom AVR dengan downloadnya menggunakan ponyprog.

Dalam rangkaian yang diggunakan, simulasi deteksi asap menggunakan LDR sebagai input dan Output yaitu buzzer yang kemudian di komunikasikan melalui PC dengan Visual Basic.

Kebut

Ini merupakan contoh rangkaian mikrokontroller ATmega 8, detector asap yaitu LDR dan Buzzer sebagai output.

Ini ,merupakan contoh rangkaian RSmax 232 yang digunakan pada perancangan sistem ini , dimana perangkat ini yang menjalankan komunikasi antara mikrokontroler dengan PC ataupun telepon seluler. Yang dihubungkan kaki RXD dan TXD pada mikrokontroller dipasang terbalik dengan RSmax232. Sehingga RXD RSmax mndapatkan TXD Mikro dan sebaliknya.

Ini merupakan skema perangkat keras keseluruhan yang juga menggunakan DB 9.

Program dibawah ini merupakan program untuk Mikrokontr oller ATmega 8 yang digunakan untuk menghidupkan Buzzer ataupun menghidupkan outpun lainnya.

Program ATmega8

$regfile = "m8def.dat"
$crystal = 4000000
$baud = 19200
Config Portc.1 = Output
Config Adc = Single , Prescaler = Auto , Reference = Internal ;portc.0 = ADC
Start Adc
Dim W As Word
Main:
W = Getadc(0) ;W=nilai resolusi portc.0
If W > 12 Then
Print "KEBAKARAN"
Portc.1 = 1
Else
Print "AMAN"
Portc.1 = 0
End If
Wait 1
Goto Main

Pehatian…………..

Jika kita men

ggunakan komunikasi dengan HP, kit

a menambahkan perintah ATcommand. Di balik tampilan menu pesan pada sebuah telepon seluler sebenarnya ada perintah AT yang bertugas mengirim dan menerima data dari/ke pusat pesan singkat. Peri

ntah AT dari setiap pe

ralatan pesan singkat dapat berbeda-beda, walaupun pada dasarnya sama.

Perintah AT

digunakan untuk berko

munikasi de

ngan terminal melalui penghu

bung serial (s

erial port) pada kompute

r. Dengan perintah AT, dapat diketahui besarnya suatu sinyal dari terminal, mengirim pesan, menambahakan item pada buku alamat, mematikan terminal dan fungsi lainnya. Setiap vendor biasanya memberikan suatu referensi tentang d

aftar pe

rintah AT yang tersedia. Pengiriman pesan ataupun penerimaan

pesan dengan bantuan DB 9. Perintah ATcommand dapat kita cari di internet. Namun, dalam hal penulis tidak

menggunakan HP sebagai media, tetapi menggunakan PC dengan program V

B sebagai mediasinya.

Untuk pembuatan VB pada PC, ini contoh program dan gambar VB

Ini merupakan program pada VB :

Untuk lebih jelasnya lihat dibawah ini :

Private Sub Command1_Click()
If MSComm1.PortOpen = True Then
MSCom m1.PortOpen = False
End If
End
End Sub

Private Sub Form_Load()
MSComm1.Settings = "4800,n,8,1"
MSComm1.CommPort = 1
MSComm1.PortOpen = True
Form1.Visible = True
'Do
'Do
'DoEvents
'Loop Until MSComm1.InBu fferCount > 0
'Loop
End Sub

Private Sub Timer1_Timer()
Text1.Text = Trim(MSComm1.Input)
End Sub

Ini merupakan tampilan awal VB sebelum dijalankan.

Ini merupakan tampilan VB setelah dijalankan.

Pada gambar dibawah ini, merupakan alat yang sudah kami buat sebagai simulasi dalam menjalankan komunikasi ini.

M.Turibius Hendereza

Komunikasi antar Mikrokontroller ATmega 8 dengan PC menggunakan VB