Serial Communication - Visual Basic Discussion Boards

Multiple MonthCalendars in a form - does not keep all dates in each textbox

PrissySC10-Mar-13 0:54

10-Mar-13 0:54

I have four textboxes. Each one is filled by selecting a date from the monthcalendar (VS win form). While I handled most of the problems, such as a dbnull, I discovered this little "oops". I use the same type of handle for each daterangeevetargs:

Private Sub MonthCalendarPO_DateSelected(sender As Object, e As DateRangeEventArgs) Handles MonthCalendarPO.DateSelected
    JobPOdateTextBox.Text = e.Start.ToShortDateString

    MonthCalendarPO.Visible = False
End Sub

A click of a picture box to hide and show the calendar:

Private Sub PictureBoxPO_Click(sender As Object, e As EventArgs) Handles PictureBoxPO.Click
    If MonthCalendarPO.Visible = False Then
        MonthCalendarPO.Visible = True
    Else
        MonthCalendarPO.Visible = False
    End If
End Sub

I removed the custom validation too. So, I will not post. The problem exists even without checking the date format.

Each date is filled and visible in a textbox. Yet, when clicking the "save" button, only one date will remain in a textbox and save on submit changes (dates are bound to a bindingsource). As I have read and and read some more, I feel it must be the daterangeeventargs. Confused | :confused:

Worth noting, if you manually enter the date into the textboxes, all four dates will save on submit changes. For now, I have resolved to a submit changes to the database after each date selection. This is certainly not ideal or a good practice.

Bindingsource is filled as system.linq.iqueryable(of namespace.tablename). Data class is Linq2SQL.

Any ideas on why this type of behavior is experienced?

Re: Multiple MonthCalendars in a form - does not keep all dates in each textbox

Eddy Vluggen10-Mar-13 2:44

Eddy Vluggen

10-Mar-13 2:44

The handler is overwriting the data in the textbox when it is called. Change it to a concatenation;

Private Sub MonthCalendarPO_DateSelected(sender As Object, e As DateRangeEventArgs) Handles MonthCalendarPO.DateSelected
    JobPOdateTextBox.Text += e.Start.ToShortDateString
 
    MonthCalendarPO.Visible = False
End Sub

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

Re: Multiple MonthCalendars in a form - does not keep all dates in each textbox

PrissySC13-Mar-13 8:01

PrissySC

13-Mar-13 8:01

Thanks again. What would I do without your brain. Smile | :)

I was not even looking at the string development in any manner. I should have known that. My languages are a little mixed up some days. Dumb newbie thing ... LOL

Cell grid can change color and down the line in the title ?

Member 24584678-Mar-13 16:40

Member 2458467

8-Mar-13 16:40

In VB6.0 Do you know the name of the control cell grid in the image above there are two lines in the header and the grid can color, see attached image. we can see in the figure, in the title (framed blue rectangle) is the 3rd day 9 was split into two lines and grid can be colored as: red, blue, ... the name of a grid control on the name?

http://www.crocko.com/E4517D1F93C34B85AC5820941DAE1FFC/chamcong.jpg[^]

Re: Cell grid can change color and down the line in the title ?

Dave Kreskowiak9-Mar-13 3:20

Dave Kreskowiak

9-Mar-13 3:20

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.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Remote Desktop Accessing

PDBHONGAON7-Mar-13 1:04

PDBHONGAON

7-Mar-13 1:04

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.

Re: Remote Desktop Accessing

Richard MacCutchan7-Mar-13 1:38

Richard MacCutchan

7-Mar-13 1:38

https://www.google.co.uk/webhp?hl=en&tab=ww#hl=en&sclient=psy-ab&q=eamviewer+source&oq=eamviewer+source&gs_l=hp.3..0i13l4.107.4374.0.4530.16.16.0.0.0.0.177.1490.12j4.16.0.les%3B..0.0...1c.1.5.psy-ab.EOkF1Veu-2E&pbx=1&bav=on.2,or.r_gc.r_pw.r_qf.&bvm=bv.43287494,d.d2k&fp=3fe8463959a88f3d&biw=1032&bih=655[^].

Use the best guess

Serial Communication

sadeghjun6-Mar-13 5:32

sadeghjun

6-Mar-13 5:32

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 &amp;amp;= SerialPort1.ReadExisting &amp;amp; &amp;quot;    &amp;quot; &amp;amp; CStr(Now) &amp;amp; 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:

'******************************************'
'   UART TOOL V1.00                        '
'   author: Sdaegh Ghafoori                '
'   Email: sadeghghafoori@yahoo.com        '
'   Free to use and change for all!        '
'******************************************'
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 ' set serial port = selected value of ComPortNum list
        If ComPortNum.SelectedIndex >= 0 Then
            Message.Text = ""           'clear 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         'set message text color
            Message.Image = ok                      'set message image
            Message.Text = "     Device Is Connected !"
            RichTextBox1.Text &= DataTextBox.Text & "    " & CStr(Now) & vbCrLf      'set RichTextBox1 text = DataTextBox text
            RichTextBox1.SelectionStart = RichTextBox1.TextLength       ' this line and the next line are to scroll to new line
            RichTextBox1.ScrollToCaret()                                '
            SerialPort1.Write(DataTextBox.Text)                                    'send DataTextBox Text to device

        Else
            Message.ForeColor = Color.Red         'set message text color
            Message.Image = err                      'set message image
            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         'set message text color
            Message.Image = ok                      'set message image
            Message.Text = "     Device Is Connected !"
            PictureBox1.Image = connect
        Else
            Message.ForeColor = Color.Red               'set message text color
            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         'set message text color
        Message.Image = err                      'set message image
        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 ' set serial port BoudRate = selected value of BaudRateBox list
        If ComPortNum.SelectedIndex >= 0 Then
            Message.Text = ""            'clear message text
            DataTextBox.Enabled = False   '  -
            SendButton.Enabled = False    '   |
            RichTextBox1.Enabled = False  '    > disable or enable objects
            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  '    > disable or enable objects
        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

Re: Serial Communication

Simon_Whale6-Mar-13 5:45

Simon_Whale

6-Mar-13 5:45

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

Re: Serial Communication

sadeghjun6-Mar-13 7:20

sadeghjun

6-Mar-13 7:20

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.

MSCOMCT2.OCX Compatible problem in win 7(64 bit)

D.Manivelan6-Mar-13 0:46

D.Manivelan

6-Mar-13 0:46

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

Component 'MSCOMCT2.OCX or one of its dependcies not correctly registered; a file is missing or invalid.

after received this error i placed

system32 floder that OCX in win7(64bit)

again it threw error popup
VB

The module "mscomct2.ocx" may not compatible with the version of Windows that you're running. Check if the module is compatible with an .x86(32-bit) or x64(64-bit) version of regsvr32.exe

what i do. please help me.

Re: MSCOMCT2.OCX Compatible problem in win 7(64 bit)

Dave Kreskowiak6-Mar-13 2:06

Dave Kreskowiak

6-Mar-13 2:06

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[^]

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Re: MSCOMCT2.OCX Compatible problem in win 7(64 bit)

Just eg8-Mar-13 17:34

Just eg

8-Mar-13 17:34

install vb runtime on target machine

http://download.microsoft.com/download/vb60pro/install/6/Win98Me/EN-US/VBRun60.exe[^]

http://download.microsoft.com/download/vb50pro/utility/1/win98/EN-US/Msvbvm50.exe[^]

Create Chat integrated with facebook winforms .net

Member 97566055-Mar-13 19:52

Member 9756605

5-Mar-13 19:52

I want to create a chat pod that integrates with facebook.
The chat will be in my windows vb.net application.

Re: Create Chat integrated with facebook winforms .net

Dave Kreskowiak6-Mar-13 2:09

Dave Kreskowiak

6-Mar-13 2:09

Congratulations on picking a project. Please, proceed!

ooorrrrr did you have a question you meant to ask, but didn't?

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Re: Create Chat integrated with facebook winforms .net

Member 97566056-Mar-13 3:30

Member 9756605

6-Mar-13 3:30

Yes , it is a question ??

Re: Create Chat integrated with facebook winforms .net

Dave Kreskowiak6-Mar-13 6:44

Dave Kreskowiak

6-Mar-13 6:44

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.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

vb 6. compatibility with sql 2012

Stripelesstiger5-Mar-13 16:55

Stripelesstiger

5-Mar-13 16:55

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

Re: vb 6. compatibility with sql 2012

Dave Kreskowiak5-Mar-13 18:08

Dave Kreskowiak

5-Mar-13 18:08

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.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Re: vb 6. compatibility with sql 2012

Richard MacCutchan5-Mar-13 22:39

Richard MacCutchan

5-Mar-13 22:39

Dave Kreskowiak wrote:
SQL Server doesn't give a rats ass

Sad, but true. Roll eyes | :rolleyes:

Use the best guess

How to arrange old project files into new project directory architecutre [ solved]

econy5-Mar-13 10:08

econy

5-Mar-13 10:08

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.

Re: How to arrange old project files into new project directory architecutre

econy5-Mar-13 10:12

econy

5-Mar-13 10:12

Now I know I can rearrange the files into new created folders in old project.

How can I output the conditional compilation constants to screen [Solved]

econy5-Mar-13 6:56

econy

5-Mar-13 6:56

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.

Re: How can I output the conditional compilation constants to screen

Eddy Vluggen5-Mar-13 9:37

Eddy Vluggen

5-Mar-13 9:37

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 Suspicious | :suss:

If you can't read my code, try converting it here[^]

Re: How can I output the conditional compilation constants to screen

econy5-Mar-13 10:09

econy

5-Mar-13 10:09

Thanks, then it is not possible just output VBC_VER?
like: printf("%s\n", VBC_VER)?

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.