Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Unsolved
Views: 4332

Oct 4th, 2007

How to automatically update temperature on the form load?

Expand Post »

Hai,
I'm read temperature data using MSComm..
The temperature was successfully display on vb6..but how can I update/automatically refresh the temperature on web according to current temperature?
could you kindly please help me over here? thks!
Below is my coding:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub Form_Load()
MSComm1.PortOpen = True
 
MSComm1.Output = "temp" + Chr$(13)
'waits for 5 char to be recieved
 
Do
dummy = DoEvents()
Loop Until MSComm1.InBufferCount >= 20
'print value in text box
Text1.Text = MSComm1.Input
 
End Sub
Private Sub Form_Load()
MSComm1.PortOpen = True

MSComm1.Output = "temp" + Chr$(13)
'waits for 5 char to be recieved

Do
dummy = DoEvents()
Loop Until MSComm1.InBufferCount >= 20
'print value in text box
Text1.Text = MSComm1.Input

End Sub

Similar Threads

html/php form for .htaccess validation in PHP
vb to vb.net in VB.NET
How to load multiple images on the form? in C#
form load in Visual Basic 4 / 5 / 6
How to pre-select checkboxes in form? in PHP

newb_smarthome

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

5 posts
since Oct 2007

Permalink

Oct 4th, 2007

Re: How to automatically update temperature on the form load?

Where are you reading the temperature from?

binoj_daniel

Reputation Points: 25

Solved Threads: 18

Practically a Master Poster

Offline

645 posts
since Dec 2006

Permalink

Oct 5th, 2007

Re: How to automatically update temperature on the form load?

i'm using microcontroller pic16f877a to read the temperature...

newb_smarthome

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

5 posts
since Oct 2007

Permalink

Oct 5th, 2007

Re: How to automatically update temperature on the form load?

What happens when you use the same code in VB.NET?

binoj_daniel

Reputation Points: 25

Solved Threads: 18

Practically a Master Poster

Offline

645 posts
since Dec 2006

Permalink

Oct 5th, 2007

Re: How to automatically update temperature on the form load?

when i convert the code into vb.net2003, there was an error on do event() function..how to convert do event function in vb.net2003?
Do
dummy = DoEvents()----this line was error
Loop Until MSComm1.InBufferCount >= 20
'print value in text box
Text1.Text = MSComm1.Input

newb_smarthome

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

5 posts
since Oct 2007

Permalink

Oct 5th, 2007

Re: How to automatically update temperature on the form load?

try this instead:

System.Windows.Forms.Application.DoEvents()

binoj_daniel

Reputation Points: 25

Solved Threads: 18

Practically a Master Poster

Offline

645 posts
since Dec 2006

Permalink

Oct 6th, 2007

Re: How to automatically update temperature on the form load?

hi,
thanks..it's working! I can display the temperature on my web application...but, how to automatically update temperature on the form load rather than manually clicking the refresh button?

newb_smarthome

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

5 posts
since Oct 2007

Permalink

Oct 8th, 2007

Re: How to automatically update temperature on the form load?

What's the code on the refresh button? Currenlty i think you were getting the temp. on the form load also.
You can do this by using a timer control on the form and make the interval "1000" which will be equal to 1 sec. Make the Timer Control Enabled by default, and write the code to refresh temp. in the timer control.

binoj_daniel

Reputation Points: 25

Solved Threads: 18

Practically a Master Poster

Offline

645 posts
since Dec 2006

Permalink

Oct 10th, 2007

Re: How to automatically update temperature on the form load?

could you give an examples by using a timer control on the form? i hope i just can refresh the temperature only and not the whole page...

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Public Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim MSComm1 As MSComm
        MSComm1 = New MSComm
        MSComm1.CommPort = 5 ' select Com1
        MSComm1.DTREnable = True
        MSComm1.EOFEnable = False
        MSComm1.InBufferSize = 1024
        MSComm1.InputMode = InputModeConstants.comInputModeText
        MSComm1.NullDiscard = False
        MSComm1.OutBufferSize = 512
        MSComm1.Settings = "38400,n,8,1" ' setting parameter in communicate with com port
        MSComm1.InputLen = 6 'define size of Input buffer (comming with Modem)
        If MSComm1.PortOpen = False Then
            MSComm1.PortOpen = True
        Else
            MSComm1.PortOpen = False
        End If
 
        'MSComm1.PortOpen = False
        'send RD0 command + CR
        MSComm1.Output = "temp" + Chr(13)
        'waits for 5 char to be recieved
        'into serial buffer (data + CR)
 
        Do
            DoEvents()
        Loop Until MSComm1.InBufferCount >= 20
        'print value in text box
        Label2.Text = MSComm1.Input
Public Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim MSComm1 As MSComm
        MSComm1 = New MSComm
        MSComm1.CommPort = 5 ' select Com1
        MSComm1.DTREnable = True
        MSComm1.EOFEnable = False
        MSComm1.InBufferSize = 1024
        MSComm1.InputMode = InputModeConstants.comInputModeText
        MSComm1.NullDiscard = False
        MSComm1.OutBufferSize = 512
        MSComm1.Settings = "38400,n,8,1" ' setting parameter in communicate with com port
        MSComm1.InputLen = 6 'define size of Input buffer (comming with Modem)
        If MSComm1.PortOpen = False Then
            MSComm1.PortOpen = True
        Else
            MSComm1.PortOpen = False
        End If

        'MSComm1.PortOpen = False
        'send RD0 command + CR
        MSComm1.Output = "temp" + Chr(13)
        'waits for 5 char to be recieved
        'into serial buffer (data + CR)

        Do
            DoEvents()
        Loop Until MSComm1.InBufferCount >= 20
        'print value in text box
        Label2.Text = MSComm1.Input

newb_smarthome

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

5 posts
since Oct 2007

Permalink

Oct 11th, 2007

Re: How to automatically update temperature on the form load?

You can put the same code in the form load on the timer control and it will only refresh the textbox control with the new values. It will not load the form again but yes it redraws the form window. If its a web application you can update a particular without loading the whole page using AJAX.

binoj_daniel

Reputation Points: 25

Solved Threads: 18

Practically a Master Poster

Offline

645 posts
since Dec 2006

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: move frame

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: open existing excel file in vba

DaniWeb Message

Cancel Changes

User Name
Password