TELEMETRI ARAH DAN KECEPATAN ANGIN VIA SMS

Pada wilayah Gunung Api, arah dan kecepatan angin sangat diperlukan untuk mengetahui arah hembusan awan panas maupun abu vulkanik, alat yang kami rakit ini walaupun sederhana mudah-mudahan dapat bermanfaat bagi pemantauan mandiri bencana alam.

Pengiriman data ke pemantau menggunakan sms dengan intensitas pengiriman berkala (dapat diatur)




Di bawah ini adalah program mikrokontroler pengukur arah dan kecepatan angin

'ALAT PENGUKUR ARAH DAN KECEPATAN ANGIN
'ARAH MENGGUNAKAN POTENSIOMETER 10K BIASA
'KECEPATAN MENGGUNAKAN OPTOKOPLER MASUK KE INTERRUPT 1 (pinb.1)
'OLEEH :ALEXIUS RUKMONO - DERAP ORG
'MANDIRI BERSAMA BANGSA




$regfile = "m16def.dat"
$crystal = 4000000

Config Lcdpin = Pin , Rs = Portb.2 , E = Portb.3 , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
Config Lcd = 16 * 2

Config Timer1 = Counter , Edge = Rising
Enable Interrupts
Enable Ovf1

On Ovf1 Int_counter

Dim Rpm As Integer
Dim Vol_ref As Word
Dim Vol As Long
Dim Sudut As Long

Config Adc = Single , Prescaler = Auto , Reference = Internal

Start Adc                                                   ' memulai ADC

 Cls
    Cursor Off Noblink
    Lcd "  ALAT PENGUKUR  "
      Wait 2
    Lowerline
   Lcd "      Angin     "
    Wait 2
    Cls


Do
Cls
Waitms 50

Counter1 = 0
Rpm = 0
Start Timer1
 Wait 1
Stop Timer1
  Rpm = Rpm + Counter1
  Rpm = Rpm * 60
  Rpm = Rpm / 9.4


Vol_ref = Getadc(0)
'Waitms 100

Vol = Vol_ref / 100
Vol = Vol_ref

Select Case Vol
 Case 0 To 50 : Sudut = 10
 Case 50 To 100 : Sudut = 20
 Case 100 To 180 : Sudut = 30
 Case 100 To 180 : Sudut = 30
 Case 180 To 240 : Sudut = 40
 Case 180 To 330 : Sudut = 50
 Case 330 To 360 : Sudut = 60
 Case 360 To 490 : Sudut = 70
 Case 490 To 580 : Sudut = 80
 Case 580 To 660 : Sudut = 90
 Case 660 To 760 : Sudut = 100
 Case 760 To 840 : Sudut = 110
 Case 840 To 880 : Sudut = 120
 Case 880 To 900 : Sudut = 130
 Case 900 To 960 : Sudut = 140
 Case 960 To 1000 : Sudut = 150
 Case 1000 To 1010 : Sudut = 160
 Case 1010 To 1023 : Sudut = 180
 End Select


Locate 2 , 1
Lcd "Arah :"
Locate 2 , 8
Lcd Sudut
Locate 1 , 1
Lcd "V :"

Locate 1 , 6
Lcd Rpm


Locate 1 , 12
Lcd "cm/s"

Locate 2 , 14
Lcd "deg"

Waitms 100
Loop

Int_counter:
  Rpm = Rpm + 65535

Return


Skema Rangkaian ditunjukkan pada gambar di bawah ini :