|
Your question doesn't make any sense and I'm not installing a downloader from that site to see your image.
Post your image on a site like Flickr and rewrite your post so it makes sense and you might get somewhere.
Oh, and you might want to drop all VB6 development and move up to something that hasn't been dead for over 7 years now, like .NET.
|
|
|
|
|
I am trying to develop an application like TeamViewer but I don't how it would be. If anyone knows about this Please tell me.
|
|
|
|
|
|
Hi Friends
I'm working on a project that Read & Write from COM ports.
http://s2.picofile.com/file/7680529565/03_05_2013_11_44_28_%D8%A8_%D8%B8.jpg
But i have some problems!
I define a thread in a Buttom to read from Port in Background because when i send a text to port and other device did'nt send any thing the program become hang!!
therefore :
Dim t As New Threading.Thread(AddressOf Recieve_Data)
t.IsBackground = True
t.Start()
and Recieve_Data():
Sub Recieve_Data()
While True
associatedChar = ChrW(SerialPort1.ReadByte)
RichTextBox2.Text &= SerialPort1.ReadExisting & " " & CStr(Now) & vbCrLf
RichTextBox2.SelectionStart = RichTextBox2.TextLength
RichTextBox2.ScrollToCaret()
End While
End Sub
but when i run project i receive this error:
http://s3.picofile.com/file/7680529137/03_05_2013_11_43_48_%D8%A8_%D8%B8.jpg
Complete Code is:
Public Class Form1
Dim associatedChar As Char
Dim ok As Image = Global.SadeghAPP.My.Resources.OK
Dim err As Image = Global.SadeghAPP.My.Resources.Err
Dim disconnect As Image = Global.SadeghAPP.My.Resources.Disconnect
Dim connect As Image = Global.SadeghAPP.My.Resources.Connect
Dim aboutStr As String = "Author: Sadegh Ghafoori" & vbCrLf & "Version: 1.0.0" & vbCrLf & "March 2013"
Private Sub ComboComPort_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComPortNum.SelectedIndexChanged
SerialPort1.PortName = ComPortNum.Text
If ComPortNum.SelectedIndex >= 0 Then
Message.Text = ""
BaudRateBox.Enabled = True
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendButton.Click
Try
SerialPort1.Open()
Catch
End Try
If SerialPort1.IsOpen = True Then
Message.ForeColor = Color.Green
Message.Image = ok
Message.Text = " Device Is Connected !"
RichTextBox1.Text &= DataTextBox.Text & " " & CStr(Now) & vbCrLf
RichTextBox1.SelectionStart = RichTextBox1.TextLength
RichTextBox1.ScrollToCaret()
SerialPort1.Write(DataTextBox.Text)
Else
Message.ForeColor = Color.Red
Message.Image = err
Message.Text = " Device Not Connected !"
End If
End Sub
Private Sub ConnectButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnectButton.Click
Try
SerialPort1.Open()
Catch
End Try
If SerialPort1.IsOpen = True Then
SendButton.Enabled = True
ConnectButton.Enabled = False
DisConnectButton.Enabled = True
ComPortNum.Enabled = False
BaudRateBox.Enabled = False
ParityCombo.Enabled = False
StopBitCombo.Enabled = False
RichTextBox2.Enabled = True
RichTextBox1.Enabled = True
DataTextBox.Enabled = True
Dim t As New Threading.Thread(AddressOf Recieve_Data)
t.IsBackground = True
t.Start()
Message.ForeColor = Color.Green
Message.Image = ok
Message.Text = " Device Is Connected !"
PictureBox1.Image = connect
Else
Message.ForeColor = Color.Red
Message.Image = err
Message.Text = " Device Not Connected !"
PictureBox1.Image = disconnect
End If
DataTextBox.Select()
End Sub
Private Sub DisConnectButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DisConnectButton.Click
PictureBox1.Image = disconnect
DisConnectButton.Enabled = False
RichTextBox2.Enabled = False
RichTextBox1.Enabled = False
DataTextBox.Enabled = False
SendButton.Enabled = False
BaudRateBox.Enabled = False
ConnectButton.Enabled = False
ComPortNum.Enabled = True
SerialPort1.Close()
Message.ForeColor = Color.Red
Message.Image = err
Message.Text = " Device Disonnected !"
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BaudRateBox.SelectedIndexChanged
SerialPort1.BaudRate = BaudRateBox.Text
If ComPortNum.SelectedIndex >= 0 Then
Message.Text = ""
DataTextBox.Enabled = False
SendButton.Enabled = False
RichTextBox1.Enabled = False
RichTextBox2.Enabled = False
ConnectButton.Enabled = False
StopBitCombo.Enabled = True
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
RichTextBox2.Text = ""
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RichTextBox1.Text = ""
End Sub
Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
MsgBox(aboutStr)
End Sub
Private Sub ComboBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopBitCombo.SelectedIndexChanged
If StopBitCombo.Text = "One" Then
SerialPort1.StopBits = IO.Ports.StopBits.One
ElseIf StopBitCombo.Text = "OnePointFive" Then
SerialPort1.StopBits = IO.Ports.StopBits.OnePointFive
ElseIf StopBitCombo.Text = "Two" Then
SerialPort1.StopBits = IO.Ports.StopBits.Two
End If
DataTextBox.Enabled = False
SendButton.Enabled = False
RichTextBox1.Enabled = False
RichTextBox2.Enabled = False
ParityCombo.Enabled = True
End Sub
Private Sub ParityCombo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ParityCombo.SelectedIndexChanged
If ParityCombo.Text = "None" Then
SerialPort1.Parity = IO.Ports.Parity.None
ElseIf ParityCombo.Text = "Even" Then
SerialPort1.Parity = IO.Ports.Parity.Even
ElseIf ParityCombo.Text = "Odd" Then
SerialPort1.Parity = IO.Ports.Parity.Odd
ElseIf ParityCombo.Text = "Mark" Then
SerialPort1.Parity = IO.Ports.Parity.Mark
ElseIf ParityCombo.Text = "Space" Then
SerialPort1.Parity = IO.Ports.Parity.Space
End If
ConnectButton.Enabled = True
End Sub
Private Sub Recieve_Data()
While True
associatedChar = ChrW(SerialPort1.ReadByte)
RichTextBox2.Text &= SerialPort1.ReadExisting & " " & CStr(Now) & vbCrLf
RichTextBox2.SelectionStart = RichTextBox2.TextLength
RichTextBox2.ScrollToCaret()
End While
End Sub
End Class
|
|
|
|
|
You are trying to access your Richtextbox from within a thread which isn't allowed, you need to create a delegate to make it happen
have a read of this
http://stackoverflow.com/questions/1331009/cross-thread-operation-not-valid-vb-net[^]
Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch
|
|
|
|
|
thank
but i can't change because i'm beginner!!
plz help me to change the code
I want to show the string or text that receive from COM port
in RichTextBox2 without stop working app from other work.
|
|
|
|
|
Hi,
I developed vb6 application it is working fine in win xp,win 2003 but not running win 7(64-bit). It threw following error popup.
Component
after received this error i placed
system32 floder that OCX in win7(64bit) again it threw error popup
The module "mscomct2.ocx" may not compatible with the version of Windows that you
what i do. please help me.
|
|
|
|
|
You don't put it in System32 on a 64-bit system.
It goes in the C:\Windows\SysWow64 folder and has to be registered using REGSVR.
As for that compatibility warning message, if you continue to use VB6, you will see more and more of it as VB6 has been dead for ... lets see now ... 7 years. I HIGHLY suggest you abandon all VB6 developement and move to VB.NET. You can get a free version here[^]
|
|
|
|
|
|
I want to create a chat pod that integrates with facebook.
The chat will be in my windows vb.net application.
|
|
|
|
|
Congratulations on picking a project. Please, proceed!
ooorrrrr did you have a question you meant to ask, but didn't?
|
|
|
|
|
Yes , it is a question ??
|
|
|
|
|
No, it isn't. It's a statement of what you want to do.
The question would be a description of the problem you're having, which you haven't provided.
|
|
|
|
|
Hi ppl,
I have a vb6.0 application working with sql 2005 service. we have planned to refresh the sql service to sql 2012.I am not sure of how far vb6 is compatible with sql2012. It would be great if someone could let me know whether vb6 compatible with sql2012 server.
Can anybody here share the problem they faced after the such migration.
Stripelesstiger
|
|
|
|
|
The question is pointless. Neither has any direct impact on the other as VB6 doesn't know what an SQL Server is and SQL Server doesn't give a rats ass what programming language was used to generate the query that it's executing.
So, yes, it'll work.
|
|
|
|
|
Dave Kreskowiak wrote: SQL Server doesn't give a rats ass
Sad, but true. 
Use the best guess
|
|
|
|
|
I need to update an old project, which has all the files, .vb, .resx, .designer.vb, .dll, .vshost,.exe ... in one folder.
So I wonder if I can create a new project, and create new directory architecture, like: src/UI; src/DAL, src/BLL, Res/icon,
Then copy the files from old project folder to the new folder.
for now, I find I can't use "add existing item" to add .resx to the new project.
Then I try to just create new folders in the old project and move the files to new folder,don't know if this way works or not.
Could anybody give me some advices?
Thanks
modified 26-Mar-13 10:27am.
|
|
|
|
|
Now I know I can rearrange the files into new created folders in old project.
|
|
|
|
|
I tried to use a string var, like aStr & VBC_VER,but the IDE show
error mark on VBC_VER.
I know VBC_VER is a conditional compilation constant, so can I print the constant on console or msgbox()?
modified 26-Mar-13 10:27am.
|
|
|
|
|
econy wrote: error mark on VBC_VER.
It can't be printed like a string, since it's not a variable. Try something like below;
Dim bla As String
#If VBC_VER >= 9.0 Then
bla = "9+"
#Else
bla = "8 or lower"
#End If
Console.WriteLine(bla)
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
|
|
|
|
|
Thanks, then it is not possible just output VBC_VER?
like: printf("%s\n", VBC_VER)?
|
|
|
|
|
No.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
No, because the compile-time constants won't exist at run-time. They are not variable, nor are they replacement strings that will show up in your code.
|
|
|
|
|
Good Morning,
I am new to this forum, so hello, world!
I am attempting to read the following from a text file and turn each line into a separate array...
MIA JFK HNL LAX DFW
-5 -5 -10 -8 -6
0 3 12 8 2.5
3 0 14 8.5 3.5
12 12 0 4.5 8.5
8 8.5 4.5 0 3.5
2.5 3.5 8.5 3.5 0
Ideally the first line would be inserted into an array like {MIA,JFK,HNL,LAX,DFW}
Second line a new array with {-4, -4, -10, -7, -5}
And the last lines would be inserted into a two dimensional array:
{{0, 3, 12, 8, 2.5}, _
{3, 0, 14, 8.5, 3.5}, _
{12, 14, 0, 4.5, 8.5}, _
{8, 8.5, 4.5, 0, 3.5}, _
{2.5, 3.5, 8.5, 3.5, 0}}
I have been struggling for over two days with this. This solution is probably easy... but it is evading me. I have tried using the streamreader to no avail.
Here is something I tried...
Public Class Form1
Dim tmpArray() As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim sr As New StreamReader("..\..\info1.txt")
Dim count As Integer = 0
While Not sr.EndOfStream
Dim line As String = Nothing
line = sr.ReadToEnd()
tmpArray() = line.Split(" ")
End While
Catch ex As Exception
End Try
End Sub
End Class
Any help would be greatly appreciated.
|
|
|
|
|
Here you go;
Sub Main()
Dim arrayLines As List(Of String()) = New List(Of String())
For Each line As String In IO.File.ReadAllLines("TextFile1.txt")
arrayLines.Add(line.Split(" "))
Next
Dim theArray As String()() = arrayLines.ToArray()
Console.ReadLine()
End Sub
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
