'pemrograman komunikasi serila mikrokontroller dengan PC pada mikrokontroller at mega 8535 atau mikrokontroller at mega 16 dengan BascomAVR
$regfile = "m8535.dat" ' jenis mikro yang digunakan
$crystal = 16000000 'Cristal yang digunakan
$baud = 9600 'baud rate yang digunakan
Dim Tombol As Byte 'deklarasi variable
Config Portc = Output ' mengkonfigurasi port C sebagai output (nyala led)
Portc = &HFF ' Pull Up
Print "tekan sembarang tomp_Bhol Keyboard" ' mengirim tulisan ke PC
Do
Tombol = Waitkey() ' untuk menangkap tombol yang ditekan
Print "Tombol yang ditekan" ' mengirim tulisan ke Pc
Print Tombol ' menampilkan tombol yang ditekan
Select Case Tombol
Case "1" : Portc = &B00001110 ' jika angka1 ditekan, maka led yang berlogika 1 nyala
Case "2" : Portc = &B00001101 ' jika angka1 ditekan, maka led yang berlogika 1 nyala
Case "3" : Portc = &B00001011 ' jika angka1 ditekan, maka led yang berlogika 1 nyala
Case "a" : Portc = &B00000111 ' jika angka1 ditekan, maka led yang berlogika 1 nyala
End Select ' mengakhiri select case
Loop ' perulangan, kembali ke perintah Do
Biografi Penulis
Taufik Adi Sanjaya. Numpang lahir di Garut, Jawa Barat. Dibesarkan di Kulon Progo. S1 Jurusan Pendidikan Teknik Elektro Universitas Negeri Yogyakarta. Konsentrasi Study yang diambil adalah Kendali Industri. Kegiatan yang dilakukan saat ini adalah bermain-main dengan bahasa Pemrograman Delphi (khususnya Akses Port Paralel PC, Database dan Reporting, Akses SMS pada HP) Pernah juga sedikit belajar tentang Visual Basic, serta bahasa C. serta sedikit belajar pengembangan web sederhana dengan Joomla (Open Source) . Jasa Pembuatan Web dengan Joomla, Hobi menulis artikel singkat, membaca buku
Juga Pernah Belajar Basic Mocrocontroller dengan pemrograman bahasa basic (Bascom)
0 comments:
Post a Comment