Pengendali Nyala Led dengan Microcontroller 8535 bahasa pemrograman Bascom

Pengendali Nyala Led dengan Microcontroller 8535 bahasa pemrograman Bascom

' pemrograman led berkedip pada mikrokontroller at mega 8535 atau mikrokontroller at mega 16 dengan BascomAVR

$regfile = "m16def.dat"                                     '  jenis mikro yang digunakan

$crystal = 16000000                                         'Cristal yang digunakan

Ddrc = &B11111111                                           ' pull up

  Do                                                        'awal perulangan

Portc = &H00                                                ' led nyala

Waitms 1500                                                 ' tunda 1,5 detik

Portc = &HFF                                                'led padam

Waitms 1500                                                 ' tunda 1,5 detik

Loop                                                        ' perulangan ke do

End                                                         ' selesai

------------------------------------------------------------------------------------------------------

' pemrograman led berjalan pada mikrokontroller at mega 8535 atau mikrokontroller at mega 16 dengan BascomAVR

$regfile = "m16def.dat"                                     '  jenis mikro yang digunakan

$crystal = 16000000                                         'Cristal yang digunakan

Config Portc = Output                                       ' mengkonfigurasi port c sebagai output

  Do

Portc = &B11111110                                          ' led 1 nyala

Waitms 1000                                                 ' tunda 1 detik

Portc = &B11111101                                          ' led 2 nyala

Waitms 1000                                                 ' tunda 1 detik

Portc = &B11111011                                          ' led 3 nyala

Waitms 1000                                                 ' tunda 1 detik

Portc = &B11110111                                          ' led 4 nyala

Waitms 1000                                                 ' tunda 1 detik

Portc = &B11101111                                          ' led 5 nyala

Waitms 1000                                                 ' tunda 1 detik

Portc = &B11011111                                          ' led 6 nyala

Waitms 1000                                                 ' tunda 1 detik

Portc = &B10111111                                          ' led 7 nyala

Waitms 1000                                                 ' tunda 1 detik

Portc = &B01111111                                          ' led 8 nyala

Waitms 1000                                                 ' tunda 1 detik

Loop

End

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)

website penulis :  http://pembuatwebdanblog.web.id

Email : taufiksanjaya@yahoo.com

atau facebook : taufikadi@yahoo.co.id