Kód: Egész kijelölése
$regfile = "m8def.dat"
$crystal = 8000000
Config Pinb.5 = Output
Config Pind.0 = Input
Portd.0 = 1
Do
If Portd.0 = 0 Then
Portb.5 = 1
Waitms 200
End If
Loop
EndKód: Egész kijelölése
If Pind.0 = 0 Then ' bemenetet pinX-el kell vizsgálni
Kód: Egész kijelölése
Config Pinb.5 = Output 'helyett
Config Portb.5 = Output 'ezt használd
Kód: Egész kijelölése
$regfile = "m8def.dat" 'proci: AtMega8
$crystal = 8000000 'belső órajel
Config Pinb.5 = Output 'kimenet: LED
Config Pind.0 = Input 'bemenet: Nyomógomb
Portd.0 = 1 'belső felhúzó ellenállás bekapcsol
'főprogram
Do
'feltétel
If Pind.0 = 0 Then
Portb.5 = 1
Waitms 500
End If
If Pind.0 = 0 Then
Portb.5 = 0
Waitms 500
End If 'feltétel vége
Loop 'főprogram vége
End 'end programKód: Egész kijelölése
$regfile = "m8def.dat" 'proci: AtMega8
$crystal = 8000000 'belső órajel
Config Pinb.5 = Output 'kimenet: LED
Config Pind.0 = Input 'bemenet: Nyomógomb
Portd.0 = 1 'belső felhúzó ellenállás bekapcsol
dim kapcsoloallapot as bit ' állapotjelző bit használata
'főprogram
Do
'feltétel
If Pind.0 = 0 and kapcsoloallapot=0 Then
Portb.5 = 1
set kapcsoloallapot ' állapotjelzés átváltása
Waitms 500
bitwait pind.0, set ' vár gombelengedésig - opcionálisan használható
End If
If Pind.0 = 0 and kapcsoloallapot=1 Then
Portb.5 = 0
reset kapcsoloallapot ' állapotjelzés átváltása
Waitms 500
bitwait pind.0, set ' vár gombelengedésig - opcionálisan használható
End If 'feltétel vége
Loop 'főprogram vége
End 'end programKód: Egész kijelölése
$regfile = "m88def.dat"
' input ------------------------------------------------------------------------
Config Pinb.0 = Input 'L1-L2 IN
Config Pinb.1 = Input 'L1-L3 IN
Config Pinc.0 = Input 'ADC SZIRÉNA FIGYELŐ CHANNEL 0
Config Pinc.1 = Input 'ADC AKKU CHANNEL 1
Config Pind.5 = Input 'INT Reset gomb
Config Pind.7 = Input 'L2-L3 IN
'OUTPUT ------------------------------------------------------------------------
Config Portb.2 = Output 'RIASZT RELÉ
Config Portc.2 = Output 'KIKAPCSOLÁS FET
Config Portc.3 = Output 'FÁZIS OK LED
Config Portc.4 = Output 'L2-L3 LED
Config Portc.5 = Output 'L1-L2 LED
Config Portd.0 = Output 'L1-L3 LED
Config Portd.1 = Output 'BUZZER
Config Portd.6 = Output 'VEZÉRLŐ HIBA LED
'INPUT ALIAS -------------------------------------------------------------------
Resetgomb Alias Pind.5
L2l3in Alias Pind.7
L1l2in Alias Pinb.0
L1l3in Alias Pinb.1
' OUTPUT ALIAS -----------------------------------------------------------------
Vezerlohibaled Alias Portd.6
Riasztrele Alias Portb.2
Poweroff Alias Portc.2
Fazisokled Alias Portc.3
L2l3led Alias Portc.4
L1l2led Alias Portc.5
L1l3led Alias Portd.0
Buzzer Alias Portd.1
' ÉRTÉKADÁS --------------------------------------------------------------------
Riasztrele = 1
Poweroff = 1
Vezerlohibaled = 1
L2l3led = 0
L1l2led = 0
L1l3led = 0
' START MAIN PROGRAM -----------------------------------------------------------
Do
If Resetgomb = 0 Then
Waitms 75
If Resetgomb = 0 Then
Fazisokled = 1
Else
Fazisokled = 0
End If
End If
Loop
