coyo wrote:Berhubung banyak yg tanya tentang RC Switch, maka setelah berhasil bikin servo tester viewtopic.php?f=121&t=6789 akhirnya coba2 bikin RC Switch versi AVR.
Coba buat nyalain LED 3 kaki dulu, skematiknya sangat sederhana:
Listing programnya juga sederhana:Code: Select all
$regfile = "attiny13.dat" ' Micon yg dipakai adalah ATtiny13
$crystal = 9600000 ' = 9.6MHz
$hwstack = 32
$swstack = 8
$framesize = 16
Config Portb = Output
Dim A As Word
Dim B As Word
Portb = 0 ' matikan semua LED
Do
Pulsein A , Pinb , 0 , 1
Select Case A
Case 100 To 150 : B = &B00001000 ' red LED
Case 151 To 200 : B = &B00010000 ' green LED
Case 201 To 250 : B = &B00011000 ' orange LED
Case Else : B = 0
End Select
Portb = B
Loop
End
Baru sy coba pake servo tester hasilnya OK, belum coba pake Tx - Rx.
Kalo ternyata ada masalah, tinggal diubah angka2 berikut:Code: Select all
Select Case A
Case 100 To 150 : B = &B00001000 ' red LED
Case 151 To 200 : B = &B00010000 ' green LED
Case 201 To 250 : B = &B00011000 ' orange LED
Case Else : B = 0
End Select
Stik Tx di posisi minimum => nyala warna Merah
Stik Tx di posisi tengah => nyala warna Hijau
Stik Tx di posisi maksimum=> nyala warna Oranye
Silahkan dikembangkan........
kepengen buat tapi ilmu ga sampe....
