Sunday, March 31, 2013

Akses LCD 16x2 teks berjalan dengan bascom avr dan at mega 8535 Blog Adi Sanjaya Global Techno Solution - AS-GTS



Akses LCD 16x2 teks berjalan  dengan bascom avr dan at mega 8535

Skema rangkaian Akses LCD 16x2 teks berjalan  dengan bascom avr dan at mega 8535

Source code Akses LCD 16x2 teks berjalan  dengan bascom avr dan at mega 8535
$regfile = "m8535.dat"
$crystal = 16000000
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2
Config Lcdpin = Pin , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcd = 20 * 4
Cursor Off
Dim I As Byte
Cls
Lcd "Coba Geser Tulisan LCD"
Do
Shiftlcd Left
Waitms 500
Loop
End

Thursday, March 28, 2013

Akses LCD 16x2 menampilkan cursor lcd dengan bascom avr dan at mega 8535 Blog Adi Sanjaya Global Techno Solution - AS-GTS



Akses LCD 16x2  menampilkan cursor lcd  dengan bascom avr dan at mega 8535

Skema rangkaian Akses LCD 16x2  menampilkan cursor lcd  dengan bascom avr dan at mega 8535

Source code Akses LCD 16x2  menampilkan cursor lcd  dengan bascom avr dan at mega 8535
$regfile = "m8535.dat"
$crystal = 16000000
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2
Config Lcdpin = Pin , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5

Config Lcd = 16 * 2
Cursor Off
Do
Cls
Lcd "Cursor tampil"
Cursor On
Wait 2
Cls
Lcd "Cursor off"
Cursor Off
Wait 2
Loop
End

Akses LCD 20x4 dengan bascom avr dan at mega 8535 Blog Adi Sanjaya Global Techno Solution - AS-GTS



Akses LCD 20x4 dengan bascom avr dan at mega 8535

Skema rangkaian Akses LCD 20x4 dengan bascom avr dan at mega 8535

Source code Akses LCD 20x4 dengan bascom avr dan at mega 8535
$regfile = "m8535.dat"
$crystal = 16000000
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2
Config Lcdpin = Pin , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcd = 16 * 2
Cursor Off
Cls
Lcd " Aplikasi uC"
Lowerline
Lcd "LCD Text 20 x2"
End

Akses LCD 16 x 2 dengan bascom avr dan at mega 8535 Blog Adi Sanjaya Global Techno Solution - AS-GTS



Akses LCD 16 x 2 dengan bascom avr dan at mega 8535

Skema rangkaian Akses LCD 16 x 2 dengan bascom avr dan at mega 8535


Source code Akses LCD 16 x 2 dengan bascom avr dan at mega 8535
$regfile = "m8535.dat"
$crystal = 16000000
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2
Config Lcdpin = Pin , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcd = 16 * 2
Cursor Off
Cls
Lcd "99 Aplikasi uC"
Lowerline
Lcd "LCD Text 16x2"
End

Animasi Dot Matrik (titik berjalan dari pojok kiri bawah keatas trus ke dalam sampai pusat) dengan bascom dan at mega 8535 Blog Adi Sanjaya Global Techno Solution - AS-GTS



Animasi Dot Matrik (titik berjalan dari pojok kiri bawah keatas trus ke dalam sampai pusat) dengan bascom dan at mega 8535

Skema rangkaian Animasi Dot Matrik (titik berjalan dari pojok kiri bawah keatas trus ke dalam sampai pusat) dengan bascom dan at mega 8535

Source code Animasi Dot Matrik (titik berjalan dari pojok kiri bawah keatas trus ke dalam sampai pusat) dengan bascom dan at mega 8535

$regfile = "m8535.dat"
$crystal = 16000000
Config Portc = Output
Config Portd = Output
Dim I As Byte , J As Byte
Do
For I = 0 To 33
Portd = Lookup(i , Kolom)
Portc = Lookup(i , Baris)
Waitms 100
Next
For J = 0 To 20
For I = 34 To 36
Portd = Lookup(i , Kolom)
Portc = Lookup(i , Baris)
Waitms 5
Next
Next
For J = 0 To 20
For I = 37 To 41
Portd = Lookup(i , Kolom)
Portc = Lookup(i , Baris)

Waitms 5
Next
Next
Loop
End
Kolom:
Data &HFE , &HFE , &HFE , &HFE , &HFE , &HFE , &HFE
Data &HFD , &HFB , &HF7 , &HEF
Data &HEF , &HEF , &HEF , &HEF , &HEF , &HEF
Data &HF7 , &HFB , &HFD
Data &HFD , &HFD , &HFD , &HFD , &HFD
Data &HFB , &HF7
Data &HF7 , &HF7 , &HF7 , &HF7
Data &HFB , &HFB , &HFB
Data &HFD , &HFB , &HF7
Data &HFE , &HFD , &HFB , &HF7 , &HEF
Baris:
Data &HBF , &HDF , &HEF , &HF7 , &HFB , &HFD , &HFE
Data &HFE , &HFE , &HFE , &HFE
Data &HFD , &HFB , &HF7 , &HEF , &HDF , &HBF
Data &HBF , &HBF , &HBF
Data &HDF , &HEF , &HF7 , &HFB , &HFD
Data &HFD , &HFD
Data &HFB , &HF7 , &HEF , &HDF
Data &HDF , &HEF , &HF7
Data &B11100011 , &B11101011 , &B11100011
Data &B11000001,&B11011101,&B11011101,&B11011101,&B11000001

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