Grage Aeromodelling

coyo wrote:Ini source code-nya:

Code: Select all

$regfile = "m48def.dat"                 'MCU yg dipakai ATMEGA48
$crystal = 8000000                      'Frekuensi 8MHz (internal clock, tanpa kristal)
$hwstack = 32                           'default use 32 for the hardware stack
$swstack = 10                           'default use 10 for the SW stack
$framesize = 40                         'default use 40 for the frame space

Config Pind.5 = Output                  ' PD5 (Pin 11) sebagai output
Config Pind.6 = Output                  ' PD6 (Pin 12) sebagai output
Config Pind.7 = Output                  ' PD7 (Pin 13) sebagai output

' Untuk clock 4MHz satuan dalam 1uS (microdetik),
' jadi untuk 8 MHz harus dikalian 2
Const Servomax = 4000                   ' = 2000uS * 2
Const Servocen = 3000                   ' = 1500uS * 2
Const Servomin = 2000                   ' = 1000uS * 2

' Nilainya dari GETADC berkisar antara 0~1023
' Sedangkan pulsa yg akan dihasilkan berkisar 2000~4000
' Pengali = (servo max-servomin)/1024) = 1.95 dibulatkan jadi 2
' Penambah = Servocen - 1024
Const Pengali = 2
Const Penambah = 1976

' Definisikan variable yg dipakai
Dim A As Word
Dim B As Word
Dim C As Word

' Konfigurasi ADC (Analog to Digital Converter)
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc

Do
  A = Getadc(0)                         ' baca nilai Trimpot 1
  B = Getadc(1)                         ' baca nilai Trimpot 2
  C = Getadc(2)                         ' baca nilai Trimpot 3

  A = A * Pengali
  A = A + Penambah
  B = B * Pengali
  B = B + Penambah
  C = C * Pengali
  C = C + Penambah
  Pulseout Portd , 5 , A                ' kirim sinyal ke Servo 1
  Pulseout Portd , 6 , B                ' kirim sinyal ke Servo 2
  Pulseout Portd , 7 , C                ' kirim sinyal ke Servo 3
  Waitms 13                             ' tunggu selama 13 milidetik
 Loop                                   ' ulangi terus sampai bosen
End

bascom ngeselin banget ya

#nyesel belajar C

aduh rumit banget "source code-nya" asli ga mengerti

ikutan menyimak aja ilmunya suhu.....

micro pake apa.... nulis program pake program apa....
pengen coba buat...

rachmatjeny wrote:......
bascom ngeselin banget ya

#nyesel belajar C

coba belajar Arduino, lebih ngeselin lg Suhu..... library-nya buanyak buangett..., tinggal pake aja

Oh iya kelupaan, sy pake Atmel ATMEGA48.
kenapa pake yg ini ? kebetulan yg ATMEGA8 lg kosong, jd kepaksa pake yg ini
Bedanya apa? ATMEGA48 flash memorynya cuma 4KB, klo ATMEGA8 8KB harganya kira2 sama, tp ATMEGA8 lebih populer
Satu lagi, ADC internal voltage reference-nya beda, ATMEGA48: 1.1V, ATMEGA8: 2.56V
Jadi nanti klo bikin program yg butuh ADC, itung2annya beda.
Klo sy lebih suka pake 2.56V karena klo dibagi 1024 hasilnya bulet
Tapi berhubung kali ini voltage reference-nya pake AVCC, ya ga ngaruh mau pake ATMEGA48 ato ATMEGA8.
Bisa dilihat di skematik, AVCC (pin20) disambung ke VCC, artinya voltage reference-nya mengacu ke tegangan catu.
Hati2, tegangan catunya jangan lebih dr 5,5V bisa2 ATMEGA-nya tewas...

Kompilernya sy pake BASCOM, versi demo bisa di donlod gratisan di: http://www.mcselec.com/index.php?option ... &Itemid=54
di versi demo ini dibatasi ukuran code-nya maksimal 4KB - klo untuk program2 sederhana sudah sangat2 cukuplah.....

baru tau kalo " Loop " itu artinya ulangi terus sampai bosen

Firman87 wrote:aduh rumit banget "source code-nya" asli ga mengerti

ikutan menyimak aja ilmunya suhu.....

Coba baca ini dulu Om: viewtopic.php?f=121&t=6789
mudah2 bisa lebih mengerti

deninabil wrote:baru tau kalo " Loop " itu artinya ulangi terus sampai bosen

NF wrote:.............nah....., setelah ntar suhu roji dan suhu darwin dapet , saya mau produk ini

waduhh.....

klo pake arduino, programmnya jd lebih simple:
http://arduino.cc/en/Tutorial/Knob