Program Motor Stepper dengan Bascom AVR

Pada postingan saya sebelumnya, saya sudah post kan tentang Prinsip program Motor Stepper | Wiring Motor Stepper serta Program Motor Stepper dengan CodeVision AVR , maka dalam tulisan kali ini tentang Program Motor Stepper dengan Bascom AVR.

Untuk memudahkan belajar buat rangkaian simulasinya di proteus, seperti gambar dibawah ini:

Program Motor Stepper dengan Bascom AVR

Berikut programnya

$regfile = "m8535.dat"
$crystal = 12000000
Config Portc = Output
Dim A As Integer



"Misal 1 step motor stepper sebesar 1 derajat maka untuk menggerakkan motor stepper sebesar 60 derajat"

For A = 0 To 60
Portc = &B00000001
Waitms 50
Portc = &B00000010
Waitms 50
Portc = &B00000100
Waitms 50
Portc = &B00001000
Waitms 50
Next A


"Misal 1 step motor stepper sebesar 1 derajat maka untuk menggerakkan motor stepper sebesar 180 derajat"
For A = 0 To 180
Portc = &B00000001
Waitms 50
Portc = &B00000010
Waitms 50
Portc = &B00000100
Waitms 50
Portc = &B00001000
Waitms 50
Next A


"Misal 1 step motor stepper sebesar 1 derajat maka untuk menggerakkan motor stepper secara continues"

do
Portc = &B00000001
Waitms 50
Portc = &B00000010
Waitms 50
Portc = &B00000100
Waitms 50
Portc = &B00001000
Waitms 50
loop

 Program Motor Stepper dengan Bascom AVR