ALAT DETEKSI GEMPA BUMI (EXPERIMENTAL) DENGAN MIKROKONTROLER ATMEGA8535

$regfile = "m8535.dat"
$crystal = 4000000
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.4 , Db6 = Portc.5 , Db7 = Portc.6 , E = Portc.1 , Rs = Portc.0
Config Lcd = 16 * 2

Config Portd.0 = Input
Portd.0 = 0


Dim I As Byte , B As Byte
Dim Sret As String * 66 , Stemp As String * 6
Dim A As Word , Volt As Word , Volt_d As Byte

Config Adc = Single , Prescaler = Auto , Reference = Internal
Declare Sub Tweet()


Start Adc                                                   ' memulai ADC

 Cls
    Cursor Off Noblink
    Lcd "  ALAT DETEKSI  "
    Wait 2
    Lowerline
    Lcd "   GEMPA BUMI   "
    Wait 5

Amplitudo:

Do
Waitms 100
If Volt => 7 Then Gosub Tweet
Waitms 200
Cls
Locate 2 , 1
Lcd "A:"

A = Getadc(1)
Volt = A * 5
Volt_d = Volt Mod 10
Volt = Volt / 20
Locate 2 , 4
Lcd Volt ; "," ; Volt_d
Locate 1 , 2
Lcd "Rata-rata Getar"

Waitms 100

Locate 2 , 15
Lcd "MMI"
Wait 1
Loop

Sub Tweet()
Cls
Portd.0 = 1
Lcd "     BAHAYA     "
Wait 1
Portd.0 = 0
Cls
Wait 1
Lcd "     BAHAYA     "
Portd.0 = 1
Wait 1
Portd.0 = 0
Cls
Portd.0 = 1
Lcd "     BAHAYA     "
Wait 1
Portd.0 = 0
Cls
Wait 1
Lcd "     BAHAYA     "
Portd.0 = 1
Wait 1
Portd.0 = 0
Cls
Goto Amplitudo

End Sub