Serial VB 2005 pic 16f877a problems

[Snap]

how is this.........still does not work.
serin portc.3,t2400, 10,mainloop,#pcsig

[mister_e]

seems i'll need to try it here

can you post your missing class or your whole VB code please?

[mister_e]

and woops i just saw that...

serin porta.1,t2400,pcsig
if pcsig > 1 then high porta.1

you should use another pin...

and then

lcdout $fe,1,pcsig,"pcsig"

Should have another #

lcdout $fe,1,#pcsig,"pcsig"

[Snap]

First of all I would like to thank you again for all of your wonderful help. It is nice to know there are people like yourself and the other members of this forum in this world who devote so much time and energy to helping newbee's like myself.

I don't wan't you to go through all the trouble of re-createing my project unless of course, you want the code (it is a pritty nifty way of showing the temp in windows).

Besides all that is it possible that it is the VB code that is locking up the pic when it isent even connected when the pic program hangs up?

my next thing will be testing out the vb program on a basic stamp I have, if that works at least I know the vb part works, the next will be trying it out on a 16f84 and then if that works I will buy another 16f877 and see if it's the ic.

If anyone has any other sugestions or you still want the code let me know
Thank You
Snap

[mister_e]

If POST #17 don't highlight anything... I still want it

Those three textbox and this single button are already on the form!

[Snap]

i changed the serin pin after i sent the program, it now is portc.3
sorry i forgot to mention it

[Snap]

i changed the serin pin after i sent the program, it now is portc.3
sorry i forgot to mention it

[Snap]

here is the missing class

Public Class temp

    Private m_binary As String
    Private m_celsius As String
    Private m_farenheight As String

    Public Property binary()
        Get
            Return m_binary
        End Get
        Set(ByVal value)
            m_binary = value
        End Set
    End Property

    Public Property celsius()
        Get
            Return m_celsius
        End Get
        Set(ByVal value)
            m_celsius = value
        End Set


    End Property
    Public Property farenheight()
        Get
            Return m_farenheight
        End Get
        Set(ByVal value)
            m_farenheight = value

        End Set
    End Property


End Class

I added the extra methods for future things
create a main form with a cercius and farenheit text box and a button to get it started
good luck

[Snap]

I tried to zip my vb project but it is not working, I will try again in the morning ,
sorry by the way it is 23.5 c in here

[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.