Monday, May 30, 2011

Tulis Data ke EEPROM Microcontroller 8535 bahasa pemrograman Bascom / write data to eeprom memory bascom + avr atmega 8535

Tulis Data ke EEPROM Microcontroller 8535 bahasa pemrograman Bascom

'pemrograman menulis data ke eeprom  pada mikrokontroller at mega 8535 atau mikrokontroller at mega 16 dengan BascomAVR

'di bawah ini pengenalan mikrokontroller n cristal yang digunakan
$regfile = "m16def.dat"
$crystal = 16000000

' di bawah ini deklarasi data
Dim Data_eeprom As Byte

' dibawah ini perintah menulis data ke eeprom
Data_eeprom = &H00
Writeeeprom Data_eeprom , 0
Data_eeprom = &H01
Writeeeprom Data_eeprom , 1
Data_eeprom = &H02
Writeeeprom Data_eeprom , 2
Data_eeprom = &H03
Writeeeprom Data_eeprom , 3

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)

atau facebook : taufikadi@yahoo.co.id

KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Baca Data dan Tulis Data EEPROM Microcontroller 8535 bahasa pemrograman Bascom (write and read data to eeprom / eeprom accessing bascom)

Baca Data dan Tulis Data EEPROM Microcontroller 8535 bahasa pemrograman Bascom

'pemrograman pembacaan eeprom tampil ke LCD mikrokontroller  at mega 8535 atau mikrokontroller at mega 16 dengan BascomAVR

' di bawah ini pengenalan mikrokontroller n cristal yang dipergunakan
$regfile = "m16def.dat"
$crystal = 16000000

' di bawah ini konfigurasi LCD
Config Lcdpin = Pin , Rs = Portd.0 , E = Portd.2 , Db4 = Portd.4
Config Lcdpin = Pin , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7
Config Lcd = 16 * 2
Cursor Off
Cls

' di bawah ini deklarasi variable yakni data eeprom
Dim Data_eeprom As Byte

' di bawah ini menulis data ke eeprom
Data_eeprom = &HAB
Writeeeprom Data_eeprom , 0
Data_eeprom = &H01
Writeeeprom Data_eeprom , 1
Data_eeprom = &HEF
Writeeeprom Data_eeprom , 2
Data_eeprom = &H02
Writeeeprom Data_eeprom , 3

' di bawah ini membaca data  eeprom, lalu tampilkan ke LCD
Readeeprom Data_eeprom , 1
Lcd "data1:" ; Data_eeprom

Readeeprom Data_eeprom , 3
Locate 2 , 1
Lcd "data2:" ; Data_eeprom


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)

atau facebook : taufikadi@yahoo.co.id

KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Komunikasi serial Microcontroller 8535 bahasa pemrograman Bascom (Dua arah Mikrokontroler ke PC, PC ke Mikrokontroller) / serial communication between personal computer and microcontroller Atmega8535 bascom

'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)

atau facebook : taufikadi@yahoo.co.id

KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Komunikasi serial Microcontroller 8535 bahasa pemrograman Bascom (satu arah Mikrokontroler ke PC) / serial communication PC - microntroller

Komunikasi serial Microcontroller 8535 bahasa pemrograman Bascom (satu arah Mikrokontroler ke PC)

$regfile = "m16def.dat"                                     '  jenis mikro yang digunakan
' pemrograman komnikasi serial pada mikrokontroller at mega 8535 atau mikrokontroller at mega 16 dengan BascomAVR

$crystal = 16000000                                         'Cristal yang digunakan
$baud = 19200                                               'baud rate yang digunakan


Print "test serial"                                         ' menulis ke pc tulisan di antara ""
Print "Komunikasine sukses mas dab!"                        ' menulis ke pc tulisan di antara ""
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)

atau facebook : taufikadi@yahoo.co.id

KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Pengendali Nyala Led dengan Microcontroller 8535 bahasa pemrograman Bascom ( serial communication : led controling 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)

atau facebook : taufikadi@yahoo.co.id

KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Capture Foto Dengan Delphi DS Pack 234 (delphi capture pictue using dspack 234)

Capture Foto Dengan Delphi DS Pack 234


Webcam adalah piranti hardware pada computer yang berfungi sebagai alat untuk mengambil video ataupun gambar.
Saat ini webcam adalah sebuah piranti tambahan pada computer yang sedang menjadi trend penggunaannya, biasanya webcam digunakan sebagai media chatting yang dapat menampilkan wajah masing – masing pengguna media chatting senyara nyata dan real time.
Dalam tulisan saya kali ini, saya akan memberikan sebuah contoh program dengan Delphi 7 memanfaatkan komponen DSPACK 2.3.4. Namun tujuan dari tulisan saya kali ini hanya memberikan contoh program yang dapat digunakan sebagai pengambi gambar /  capture foto dengan webcam. Pada pengembangannya , program ini dapat di aplikasikan pada system pengaman ruangan (pemantau), penampil gambar gigi berlubang pada monitor (memanfaatkan web cam dengan ukuran sangat kecil), pelengkap SIM (Sistem Informasi Management) pada suatu lembaga dalam hal ini sebagai pengambil gambar / foto karyawan dan sebagainya.

berikut adalah gabarnya :



 untuk download program dan source code, silakan KLIK DISINI

jangan lupa tinggal kan komentar

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


atau facebook : taufikadi@yahoo.co.id

KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Baca SMS Delphi

Baca SMS Delphi

Kamus Bahasa dengan Delphi ( delphi application : Simple dictionary )

Kamus Bahasa dengan Delphi

gambar kamus di bawah ini adalah aplikasi sederhana kamus dengan database acces yang dikoneksikan dengan delphi... dapat dipakai untuk berbagai macam bahasa (tinggal mengganti label ataupun isi database kamus bahasa)







 CATATAN : Bagi yang menginginkan source code program Kamus Bahasa dengan Delphi
silakan KLIK DI SINI
KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

SMS Brodacaster dengan Delphi

SMS Brodacaster dengan Delphi

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Hot Sonakshi Sinha, Car Price in India