Serial VB 2005 pic 16f877a problems

[mister_e]

I see what's happening here... as the pic is waiting for DECIMAL number, it will stuck untill there's a none-numeric ASCII value... damn... so just send something else after you send your data and you should be in business.

try this...
vb code

    Public Sub updatetextbox()
        TextBox1.Text = serialport.ReadLine
        serialport.Write("aaaaOK" & TextBox1.Text & "z")
    End Sub

The PIC side..

@       __CONFIG _XT_OSC & _LVP_OFF
        DEFINE LCD_DREG  PORTB
        DEFINE LCD_DBIT   0
        DEFINE LCD_RSREG  PORTB
        DEFINE LCD_RSBIT 5
        DEFINE LCD_EREG  PORTD
        DEFINE LCD_EBIT 7
        DEFINE LCD_BITS 4
        DEFINE LCD_LINES 2
        DEFINE LCD_COMMANDUS 2000
        DEFINE LCD_DATAUS 50
        ADCON1=%00000111
        
        
        DEFINE DEBUG_REG PORTD      ' Set Debug pin port
        DEFINE DEBUG_BIT 3          ' Set Debug pin bit
        DEFINE DEBUG_BAUD 2400      ' Set Debug baud rate
        DEFINE DEBUG_MODE 0         ' Set Debug mode: 0 = true, 1 = inverted

        DEFINE DEBUGIN_REG PORTA    ' Set Debugin pin port
        DEFINE DEBUGIN_BIT 1        ' Set Debugin pin bit
        DEFINE DEBUGIN_MODE 0       ' Set Debugin mode: 0 = true, 1 = inverted
            

        temp var word 'storage for temperature
        pcsig var word
        
        ' Main loop
        portc=0
        trisc=0
        HIGH PORTD.3    ' Serial OUT idle state
        pause 500

mainloop:
        for temp = 0 to 1000 step 100
            lcdout $fe,1,"Temp=", dec temp
            debug DEC temp,10
            DEBUGIN [WAIT ("OK"), DEC pcsig]
            lcdout $fe,$c0,"pcsig=", dec pcsig
            PAUSE 1000
            next  
                  
        goto mainloop
        
        END

This echo back the data, not much.

[Snap]

first I tried substatuting some of yor lines of code into my program for mine like...
serIN [WAIT ("OK"), DEC pcsig] insted of
DEBUGIN [WAIT ("OK"), DEC pcsig]
and i added the
portc=0
trisc=0
HIGH PORTD.3 ' Serial OUT idle state
pause 500
at the beginning
but it stilll locked up at the exact same spot.
So I started a new project and used your code exactly
I recieved the
Error[118] C:\PBP\SAMPLES\BLINK.ASM 122 : Overwriting previous address contents (2007)
Error[118] C:\PBP\SAMPLES\BLINK.ASM 122 : Overwriting previous address contents (2007)
when i compiled but programmed it anyway
it now locks up at
Temp=0
and will not move at all
and the vb still cant open the port because it is locked (just like always)
Sorry i can't get it to work, i am at a total brick wall on this one.

[mister_e]

use it as is, paste my own first.. even better, try at 9600 bauds.. that's what i've used yesterday.

For the error message refer to post #5 at the following...

http://www.picbasic.co.uk/forum/showthread.php?t=543

[Snap]

fixed the error messages but it still locks up after the temp= 0 lcdout
and the vb program still can't open the port because of it
sorry again i think it's time to give up for a while, i don't want to take up any more of your time. I will add to the post if I get it going.
Thanks again to everybody.
I can't believe such a simple thing as a serinn(now a debug) is causing such a problem.
Snap