At89s51 microcontroller based annunciation system with led display

Thread Starter

varalakshmisethepalli

Joined Mar 14, 2010
1
this circuit uses AT89S51 MICROCONTROLLER.and voice chip APR9600.PLZ SEND ME THE LANGUAGE OF THE CODE AND DETAILS FOR UNDERSTANDING THAT CODE.
Include $regfile
Include Reg51.dat

'Trigger input
Inp1 Var P0.0
Inp2 Var P0.1
Inp3 Var P0.2
Inp4 Var P0.3
Inp5 Var P0.4
Inp6 Var P0.5
Inp7 Var P0.6
Inp8 Var P0.7

'LED - Outputs
Ledout Var P1
Led1 Var P1.0
Led2 Var P1.1
Led3 Var P1.2
Led4 Var P1.3
Led5 Var P1.4
Led6 Var P1.5
Led7 Var P1.6
Led8 Var P1.7
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
'Voice Outputs
Trig1 Var P2.0
Trig2 Var P2.1
Trig3 Var P2.2
Trig4 Var P2.3
Trig5 Var P2.4
Trig6 Var P2.5
Trig7 Var P2.6
Trig8 Var P2.7

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Main

Temp = 0

Do

If Inp1 = 0 Then Goto Msg_1
If Inp2 = 0 Then Goto Msg_2
If Inp3 = 0 Then Goto Msg_3
If Inp4 = 0 Then Goto Msg_4
If Inp5 = 0 Then Goto Msg_5
If Inp6 = 0 Then Goto Msg_6
If Inp7 = 0 Then Goto Msg_7
If Inp8 = 0 Then Goto Msg_8

End If

Loop


Msg_1

Reset Led1 : Reset Trig1
Incr Temp
If Temp = 15 Then Goto Alarmmode
Bitwait Reset_sw , Reset
Set P1 : Set P2 : Reset Bz : Reset Relay
Goto Main
End If

Msg_2
Reset Led2 : Reset Trig2
Incr Temp
If Temp = 15 Then Goto Alarmmode
Bitwait Reset_sw , Reset
Set P1 : Set P2 : Reset Bz : Reset Relay
Goto Main
End If

Msg_3
Reset Led3 : Reset Trig3
Incr Temp
If Temp = 15 Then Goto Alarmmode
Bitwait Reset_sw , Reset
Set P1 : Set P2 : Reset Bz : Reset Relay
Goto Main
End If


Msg_4
Reset Led4 : Reset Trig4
Incr Temp
If Temp = 15 Then Goto Alarmmode
Bitwait Reset_sw , Reset
Set P1 : Set P2 : Reset Bz : Reset Relay
Goto Main
End If

Msg_5
Reset Led5 : Reset Trig5
Incr Temp
If Temp = 15 Then Goto Alarmmode
Bitwait Reset_sw , Reset
Set P1 : Set P2 : Reset Bz : Reset Relay
Goto Main
End If

Msg_6
Reset Led6 : Reset Trig6
Incr Temp
If Temp = 15 Then Goto Alarmmode
Bitwait Reset_sw , Reset
Set P1 : Set P2 : Reset Bz : Reset Relay
Goto Main
End If

Msg_7
Reset Led7 : Reset Trig7
Incr Temp
If Temp = 15 Then Goto Alarmmode
Bitwait Reset_sw , Reset
Set P1 : Set P2 : Reset Bz : Reset Relay
Goto Main
End If

Msg_8
Reset Led8 : Reset Trig8
Incr Temp
If Temp = 15 Then Goto Alarmmode
Bitwait Reset_sw , Reset
Set P1 : Set P2 : Reset Bz : Reset Relay
Goto Main
End If

Alarmmode
Set Relay
Set Bz
Bitwait Reset_sw , Reset
Set P1 : Set P2 : Reset Bz : Reset Relay
Goto Main
 
Top