Pada tutorial kali ini kita akan belajar BASCOM tentang pemograman port serial menggunakan BASCOM
Pada pemograman BASCOM ini, Saya berharap anda dapat mengerti dengan tutorial yang saya jelaskan ini.
Jika tidak mengerti saya membuka diri bagi anda yang ingin bertanya.
Pada pemograman BASCOM ini, Saya berharap anda dapat mengerti dengan tutorial yang saya jelaskan ini.
Jika tidak mengerti saya membuka diri bagi anda yang ingin bertanya.
Baiklah, saya akan memulai tutorial mikrokontroler ini.
Sebelum melakukan pemograman terlebih dahulu.
Rangkaian yang kita gunakan haruslah benar.
Jadi pastikan rangkaian anda bekerja terleih dahulu, barulan anda membuat program.
Usul saya alangkah baiknya beli rangkaian yang sudah jadi dari perusahaan dan cobakan program buatan anda.
Barulah anda membuat rangkaian sendiri setelah program anda selesai dites dengan rangkaian sistem minimum yang anda beli.Berikut gambar sistem minimum dan rangkaian IC serial:
Pada IC MAX232 pin 11(T1IN) dan pin 12(R1OUT) terhubung ke ATMEGA 8535
PORTD1(TxD-->T1IN) dan PORTD0(RxD-->R1OUT)
Sementara untuk header 3 bisa dihubungkan ke Komputer atau ke mikrokontroler lain yang memiliki IC serial port.
Program dibawah adalah mengirim data melalui serial port:
'--------------------------------------------------------
'DEKLARASI HEADER
'--------------------------------------------------------
$regfile = "8535def.dat" 'untuk deklarasi menggunakan IC ATMEGA8535
'--------------------------------------------------------
'DEKLARASI CRITAL
'--------------------------------------------------------
$crystal = 12000000 'menggunakan crystal 12MHz
'--------------------------------------------------------
'DEKLARASI Baudrate
'--------------------------------------------------------
$baud = 9600 'menggunakan baudrate sebesar 9600
'--------------------------------------------------------
'Rutin utama
'--------------------------------------------------------
Print "Pengiriman Test" & Chr(13) 'perintah mengirim pesan Kirim Pesan ke Serial Port lewat RS232
End 'mengakhiri program
Penjelasan:
Dalam pemograman dengan BASCOM untuk melakukan pemograman serial port anda harus menginisialisasi $baud yang digunakan. bisa anda pilih seperti berikut ini: 300,600,1200,2400,4800,9600,14400,19200,28800,38400,57600,115200
Jika anda memiliki komputer untuk komunikasi dengan mikro, anda dapat menyamakan baudratenya, Bagaimana hasil koneksi dan komunikasinya dapat terlihat dengan komputer?
Kita bisa menggunakan hyperterminal dengan baudrate yang sama.
Berikut adalah contoh mikrokontroler menerima masukan dari device luar yang terhubung dengan komputer/mikrokontroler lain, contoh pengirimnya dari program mikrokontroler di atas:
'--------------------------------------------------------
'DEKLARASI HEADER
'--------------------------------------------------------
$regfile = "8535def.dat" 'untuk deklarasi menggunakan IC ATMEGA8535
'--------------------------------------------------------
'DEKLARASI CRYSTAL
'--------------------------------------------------------
$crystal = 12000000 'menggunakan crystal 12MHz
'--------------------------------------------------------
'DEKLARASI Baudrate
'--------------------------------------------------------
$baud = 9600 'menggunakan baudrate sebesar 9600
'--------------------------------------------------------
'Rutin utama
'--------------------------------------------------------
Dim mport As Byte 'mendeklarasikan variabel mport sebagai bilangan byte
Dim masukan As String * 15 'mendeklarasikan var masukan sebagai tipe data string sebesar 12 karakter
Do 'perintah perulangan
mport = Waitkey() 'Menunggu sebuah karakter diterima ke variabel mport
If mport = 13 Then Goto Keluar 'jika mport berisi enter atau baris baru maka goto(pergi) ke label keluar masukan = masukan + Chr(mport) 'masukkan var masukan + char dari var mport yang ditambahkan
Loop
Keluar: 'label dalam bascom
End
Penjelasan:
Pada rutin utama kita membuat variabel mport untuk menampung data dari port serial cara mengambil satu karakter dari port serial adalah dengan perintah
mport = Waitkey()
Sedangkan perintah do..Loop berguna untuk memasukkan data yang dikirim dari penerima kedalam variabel masukan
Perintah dibawah ini jika pada variabel mport ditemukan adanya char13 maka loncat ke label keluar
If mport = 13 Then Goto Keluar
Perintah dibawah adalah masukkan ke variabel masukan, isi dari variabel masukan sebelumnya ditambah karakter yang diambil dari varialbel mport masukan = masukan + Chr(mport) memasukkam sebuah string ke var masukan + karakter yang ditambahkan Ikuti terus tulisan saya tentang mikrokontroler di blog ini terima kasih
0 komentar:
Post a Comment
Note: Only a member of this blog may post a comment.