Motor Stepper dengan Bascom AVR
20.501. Rangkaian Simulasi [kembali]
2. Flowchart [kembali]
3. Listing Program [kembali]
$regfile = "m8535.dat" 'memanggil library ATmrga 8535
$regfile = 160000000
'menentukan kecepatan Crystal
Ddra = &B1111 'PORTA sebagai output
Ddrb = &B0000 'PORTB sebagai output
Porta = &B0000 'keadaan awal PORTA
Portb = &B0000 'keadaan awal PORTB
Do 'fungsi utama
If Pinb.0 = 1 Then 'pemilihan kondisi pada PORTB
Porta = &B1000 'keluaran pada PORTA
Waitms 100 'delay 100 ms
Elseif Pinb.1 = 1 Then 'pemilihan kondisi pada PORTB
Porta = &B0100 'keluaran pada PORTA
Waitms 100 'delay 100 ms
Elseif Pinb.2 = 1 Then 'pemilihan kondisi pada PORTB
Porta = &B0010 'keluaran pada PORTA
Waitms 100 'delay 100 ms
Elseif Pinb.3 = 1 Then 'pemilihan kondisi pada PORTB
Porta = &B0001 'keluaran pada PORTA
Waitms 100 'delay 100 ms
Else 'pemilihan kondisi terakhir
Porta = &B0000 'keluaran pada PORTA
Waitms 100 'delay 100 ms
End If 'pemilihan kondisi selesai
Loop 'fungsi utama
End 'program selesai
4. Video [kembali]$regfile = 160000000
'menentukan kecepatan Crystal
Ddra = &B1111 'PORTA sebagai output
Ddrb = &B0000 'PORTB sebagai output
Porta = &B0000 'keadaan awal PORTA
Portb = &B0000 'keadaan awal PORTB
Do 'fungsi utama
If Pinb.0 = 1 Then 'pemilihan kondisi pada PORTB
Porta = &B1000 'keluaran pada PORTA
Waitms 100 'delay 100 ms
Elseif Pinb.1 = 1 Then 'pemilihan kondisi pada PORTB
Porta = &B0100 'keluaran pada PORTA
Waitms 100 'delay 100 ms
Elseif Pinb.2 = 1 Then 'pemilihan kondisi pada PORTB
Porta = &B0010 'keluaran pada PORTA
Waitms 100 'delay 100 ms
Elseif Pinb.3 = 1 Then 'pemilihan kondisi pada PORTB
Porta = &B0001 'keluaran pada PORTA
Waitms 100 'delay 100 ms
Else 'pemilihan kondisi terakhir
Porta = &B0000 'keluaran pada PORTA
Waitms 100 'delay 100 ms
End If 'pemilihan kondisi selesai
Loop 'fungsi utama
End 'program selesai