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 :