program bascom led jalan bolak-balik,jalan kanan dan kiri, hidup

PROGRAM LED

Untuk membuat sebuah program simulasi mikrokontroler anda memlukan sebuah software Proteus dan Bascom. Kedua software itu di gunakan hanya untuk simulasi saja, seperti Proteus digunakan untuk mengecek apakah program yang kita buat itu trobel atau tidak, dan Bascom itu utuk membuat programnya.

Langsung saja saya beri contoh beberapa program dari macam-macam rangkaian.

1. langkah pertama kita harus membuat sebuah rangkaian, seperti rangkaian di bawah

kamu bisa download softwarenya

disini

2. baru buat programnya, atau kalian bisa langsung copy aja dibawah ini

download software bascom
disini

# program ini untuk menyalakan sebuah lampu

'deklarasi crystal

$crystal = 4000000

'deklarasi header

$regfile = "m8535.dat"

'deklarasivariabel

Dim Data1 As Byte

'pendifinisian bit mikro

Config Portd = Output

'rutin utama

Do

   Data1 = 255

Portd = Data1

Loop

End

# program ini untuk menyalakan sebuah lampu yang berkedip

'deklarasi crystal

$crystal = 4000000

'seklarasi header

$regfile = "m8535.dat"

'deklarasi variabel

Dim Data1 As Byte

Dim Data2 As Byte

'pendifinisian pin mikro

Config Portd = Output

'rutin utama

Data1 = 255

Data2 = 0

Do

Portd = Data1

Waitms 200

Portd = Data2

Waitms 200

Loop

End

# program ini untuk menyalakan sebuah lampu yang berkedip bergantian antara lampu genap dan ganjil

'deklarasi crystal

$crystal = 4000000

'deklarasi header

$regfile = "m8535.dat"

'deklarasi variabel

Dim Data1 As Byte

Dim Data2 As Byte

'pendifinisian pin mikro

Config Portd = Output

'rutin utama

Data1 = 85

Data2 = 170

Do

Portd = Data1

Waitms 500

Portd = Data2

Waitms 500

Loop

End

# program ini untuk menyalakan sebuah lampu berjalan keatas

'deklarasi crystal

$crystal = 4000000

'deklarasi header

$regfile = "m8535.dat"

'deklarasi variabel

Dim Data1 As Byte

'pendifinisian pin mikro

Config Portd = Output

'rutin utama

Data1 = &B11111110

Do

Rotate Data1 , Left , 1

Portd = Data1

Waitms 100

Loop

End

# program ini untuk menyalakan sebuah lampu berjalan kebawah

'deklrasi crystal

$crystal = 4000000

'deklarasi header

$regfile = "m8535.dat"

'deklarasi variabel

Dim Data1 As Byte

'pendifinisian pin mikro

Config Portd = Output

'rutin utama

Data1 = &B11111110

Do

Rotate Data1 , Right , 1

Portd = Data1

Waitms 100

Loop

End

# program ini untuk menyalakan sebuah lampu berjalan bolak-balik

'deklarasi crystal

$crystal = 4000000

'deklarasi header

$regfile = "m8535.dat"

'deklarasi variabel

Dim Data1 As Byte , Data2 As Byte

'pendifinisian pin mikro

Config Portd = Output

'rutin utama

Data1 = &B00000001

Do

For Data2 = 1 To 8

Portd = Data1

Rotate Data1 , Right , 1

Waitms 100

Next Data2

For Data2 = 1 To 8

Portd = Data1

Rotate Data1 , Left , 1

Waitms 100

Next Data2

Loop

End


Kamu bisa mengubah waktu atau delay time programnya dengan menganti kata yang bergaris bawah, dan nanti kalau habos diganti jangan lupa hapus garis bawahnya.
Semoga bermafaat......