VB Help

[cncmachineguy]

I assume this is all of it. If not I don't know where to find it.

PublicClass Form1
Dim getdata AsByte
 
 
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim namearray() AsString
namearray = IO.Ports.SerialPort.GetPortNames
If namearray(0) = ""Then
TextBox1.Text = "none found!"
Else
'ComboBox1.Text = namearray(0)
SerialPort1.PortName = namearray(0)
TextBox1.Text = SerialPort1.PortName
EndIf
 
EndSub
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i AsInteger
Dim datain AsByte
Dim data(20) AsShort
If getdata = 0 Then
SerialPort1.Open()
getdata = 1
EndIf
'Do While getdata <> 0
SerialPort1.Write("k")
For i = 0 To 17
datain = SerialPort1.ReadByte()
data(i) = datain
Next
gxhb.Text = (data(0) * 256) + data(1)
'gxlb.Text = Hex(data(1))
gyhb.Text = (data(2) * 256) + data(3)
'gylb.Text = Hex(data(3))
gzhb.Text = (data(4) * 256) + data(5)
'gzlb.Text = Hex(data(5))
axhb.Text = (data(6) * 256) + data(7)
'axlb.Text = Hex(data(7))
ayhb.Text = (data(8) * 256) + data(9)
'aylb.Text = Hex(data(9))
azhb.Text = (data(10) * 256) + data(11)
'azlb.Text = Hex(data(11))
cxhb.Text = (data(12) * 256) + data(13)
'cxlb.Text = Hex(data(13))
cyhb.Text = (data(14) * 256) + data(15)
'cylb.Text = Hex(data(15))
czhb.Text = (data(16) * 256) + data(17)
'czlb.Text = (data(17))
'Loop
 
 
EndSub
PrivateSub Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs)
EndSub
PrivateSub czlb_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles czlb.TextChanged
EndSub
PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
getdata = 0
SerialPort1.Close()
EndSub
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
'Do While 0 < 1
If getdata = 1 Then
TextBox1.Text = "sub ran"
Else
TextBox1.Text = "sub else ran"
EndIf
'Loop
EndSub
EndClass

[cncmachineguy]

Having just read walters post, it seems to me I need a timer, that when it fires it runs the code now in the button_2 press. It would run the code everytime the timer condition is met? Then the button code needs a check for if getdata is 1 or 0. so really the code is inside an if_then.

Then the timer is my event.

BTW, if the code I posted makes no sense, my appalogies.

How to setup the timer for every 50 ms?

[Heckler]

Hey Bert (cncmachineguy),

How did you post code with the color formatting?
I would like to be able to do that... (I think everyone should) as it makes code much more readable.'
Is it the type of editor you copied the code from?? I notice that other posts in this thread do not have color formatting.

thanks

[cncmachineguy]

This code was copied from VB express IDE. The color came with it. Would have been nice if the spacing had also followed along.

I have NO idea why, normally I would have had to highlight and change color for all things not black.

I think the other posts were prolly just typed up on the spot