motor stepeer 8545 pakai bascom

saya akan coba membuat program motor stepeer sederhana menggunakan bascom dan atmga8535
alat dan bahan
atmga 8535
dioda in 4007 4 buah
transistor darlinton d2604
motor steper

buat sekema di proteus seperti di bawah ini

buka program bascom danbuat seperti di bawah ini
=======================================================

'penggerak motor stepeer sederhana barlianno
$regfile = "m8535.dat"
$crystal = 12000000
Config Portc = Output
Dim A As Integer


For A = 0 To 30                                             'memutar cw (searah jarum jam) sampai 30.
Portc = &B00000001
Waitms 10
Portc = &B00000010
Waitms 10
Portc = &B00000100
Waitms 10
Portc = &B00001000
Waitms 10
Next A
'

  For A = 0 To 30                                           'memutar ccw sampai 30
Portc = &B00001000
Waitms 10
Portc = &B00000100
Waitms 10
Portc = &B00000010
Waitms 10
Portc = &B00000001
Waitms 10
Next A

====================================================================
cara kerja program
motor akan bergerak kekiri ( searah jarum jam )30 kali laku akan berputar ke kanan (berlawana jarum jam )
For A = 0 To 30 untuk meggerakan putaran sampai 30 kali setelah itu akan menjalan perintah ke kedua yaitu memutar ke kanan 


selamat mencoba telah di uji coba di lab barlianno