Aplikasi Motor Stepper Bascom AVR
04.31Motor Stepper BASCOM AVR
Prosedur Percobaan:
1. Pastikan semua supply dalam keadaan off
2. Hubungkan jumper seperti rangkaian dibawah
3. Buatlah listing program yang telah ada pada modul
4. periksakan rangkaian kepada asisten yang mengawas
5. Hidupkan semua supply
6. Upload program dari laptop ke modul
7. Tekan tombol Reset
8. Amati percobaan, jika tidak sesuai perbaiki rangkaian atau program
9. Jika sesuai, maka selesai dan demokan pada asisten yang mengawas
10.Jelaskan prinsip kerja + program dan hubungan keduanya kepada asisten
11.Demokan ke pembimbing praktikum
12.Matikan supply
1. Rangkaian Simulasi [kembali]
2. Listing Program [kembali]
3. Link Download [kembali]
4. Link Download [kembali]
File HTML - Download
File Proteus - Download
File Program - Download
File Video - Download
$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
$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. Link Download [kembali]
File HTML - Download
File Proteus - Download
File Program - Download
File Video - Download
