Grage Aeromodelling

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........