RFID medicine teller!! problem with programming

[mackrackit]

freqout porta.5,1000*/$100,115*/$100

If I am doing my math correctly the above code is trying to produce a -256Hz tone for 1 second. I do not think this is possible

Try:

 FREQOUT PORTA.5,1000,440,350

and see what happens.

[sknee8787]

define LOADER_USED 1
define OSC 4
define LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 5
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 4
DEFINE LCD_BITS 4

adcon1 = 7
trisa = %11111111


hour    var     byte    ' Define hour variable
dhour   var     byte    ' Define display hour variable
minute  var     byte    ' Define minute variable
second  var     byte    ' Define second variable
ticks   var     byte    ' Define pieces of seconds variable
update  var     byte    ' Define variable to indicate update of LCD

i       var     byte    ' Debounce loop variable

cl var byte
buf var byte(10)
tagNum var byte
idx var byte
char var byte

tag1 data "0010828978"

@       device WDT_OFF

        CMCON = 7       ' PORTA digital

        Pause 100       ' Wait for LCD to startup

        hour = 00        ' Set initial time to 00:00:00
        minute = 00
        second = 00
        ticks = 00
        update = 1      ' Force first display

' Set TMR0 to interrupt every 16.384 milliseconds

        OPTION_REG = $55        ' Set TMR0 configuration and enable PORTB pullups
        INTCON = $a0            ' Enable TMR0 interrupts
        On Interrupt Goto tickint
        
        PORTB = 0       ' PORTB lines low to read buttons
        TRISB = %11001111       ' Enable buttons

' Main program loop - in this case, it only updates the LCD with the time
mainloop:
        ' Check any button pressed to set time
        If PORTa.0 = 1 Then decmin
        If PORTA.1 = 1 Then incmin
        
        bbb:
        if porta.2 = 1 then nice
        
        ' Check for time to update screen
chkup:  If update = 1 Then
                Lcdout $fe,1   ' Clear screen
                'lcdout $FE,$c0,"Next 12:10:00"

                ' Display time as hh:mm:ss
                dhour = hour    ' Change hour 0 to 12
                If (hour // 12) = 0 Then
                        dhour = dhour + 12
                Endif

                ' Check for AM or PM
                If hour < 12 Then
                        Lcdout dec2 dhour, ":", dec2 minute, ":", dec2 second, " AM"
                Else
                        Lcdout dec2 (dhour - 12), ":", dec2 minute, ":", dec2 second, " PM"
                Endif
                update = 0      ' Screen updated
        Endif
        
        lcdout $FE,$c0,"Next 12:10:10 AM"
        
        if (dhour = 12) and (minute = 10) and (second = 10) then  aaa
        
        goto mainloop

        
 aaa:
 'freqout porta.5,1000*/$100,115*/$100
 sound porta.5, [200,100]
 lcdout $FE,1,"please"
 lcdout $FE,$c0,"Medicine!!"
 high portc.0
 update = 1
 'pause 2000
     
goto mainloop
  




nice:
high porta.3
low portc.0
'freqout porta.5,1000*/$100,115*/$100
high porta.3
'pause 3000

serin2 portc.7,84,[str buf\10]
'nextline:
for tagnum = 1 to 2
for idx = 0 to 9
read(((tagnum-1)*10)+idx),char
if(char<>buf(idx)) then goto bad_char

next 
goto tag_correct
bad_char:
next
bad_tag:
low porta.3
'pause 500
high portc.0
tagnum = 0
lcdout $FE,1,"Sorry,Wrong"
lcdout $FE,$c0,"Medicine!!"
 sound porta.5, [200,100]
'freqout porta.5,1000*/$100,115*/$100
'pause 3000

lcdout $FE,1,"Please Take"
lcdout $FE,$c0,"Medicine A"

goto nice

tag_correct
low porta.4
high porta.5

freqout porta.5,2000*/$100,880*/$100
lcdout $FE,1,"Correct take"
lcdout $FE,$c0,"Medicine!!"
high portc.3
second = second + 1
pause 3000



goto mainloop


        'Goto mainloop   ' Do it all foreve
' Increment minutes
incmin: minute = minute + 1
        If minute >= 60 Then
               minute = 0
                hour = hour + 1
                If hour >= 24 Then
                        hour = 0
                Endif
        Endif
        Goto debounce

' Decrement minutes
decmin: minute = minute - 1
        If minute >= 60 Then
                minute = 59
                hour = hour - 1
                If hour >= 24 Then
                        hour = 23
                Endif
        Endif

' Debounce and delay for 250ms
debounce: For i = 1 to 25
        Pause 10        ' 10ms at a time so no interrupts are lost
        Next i
        update = 1      ' Set to update screen
        Goto chkup

' Interrupt routine to handle each timer tick
        disable         ' Disable interrupts during interrupt handler
tickint: ticks = ticks + 1      ' Count pieces of seconds
        If ticks < 61 Then tiexit       ' 61 ticks per second (16.384ms per tick)

' One second elasped - update time
        ticks = 0
        second = second + 1
        If second >= 60 Then
               second = 0
                minute = minute + 1
                If minute >= 60 Then
                        minute = 0
                        hour = hour + 1
                        If hour >= 24 Then
                                hour = 0
                        Endif
                Endif
        Endif
        update = 1      ' Set to update LCD
tiexit: INTCON.2 = 0    ' Reset timer interrupt flag
        Resume

        End

code shown on top is my program code. i want to know how to let real time work continuing when the time is match which what the time i was setted. because i has foind out the problem when time is matched. the real time will stopped it there.

[mackrackit]

Not sure...but I think the code might be hanging here
I do not see anything else at the moment.

goto nice

tag_correct
low porta.4
high porta.5

freqout porta.5,2000*/$100,880*/$100
lcdout $FE,1,"Correct take"
lcdout $FE,$c0,"Medicine!!"
high portc.3
second = second + 1
pause 3000

goto mainloop

[sknee8787]

erm.. i has following your instruction, but still remain same thing happening. athrough i ignore the frequency the time still might stopped when the time is matched with the time i setted.