GRBL Line skipping GCode

Hello Guys!

I programmed my own GUI for using my homemade CNC Maschine. And I got a very nasty problem with that. First of all, this is how I stream GCode

1. I load the GCode into a Listbox and use this Code for streaming

Code:

        For Me.i = 0 To CodeBox.Items.Count - 1
            SerialPort1.WriteLine(CodeBox.Items.Item(i))
            SerialPort1.ReadLine()
            Me.Invoke(Sub() CurrentCode.Text = CodeBox.Items.Item(i))
            Me.Invoke(Sub() CalculatePercent())
            Me.Invoke(Sub() ProgramTimer.Start())
            Me.Invoke(Sub() InterpretCode())
            Me.Invoke(Sub() OpticalSelection())
        Next i
        Me.Invoke(Sub() ProgramEnd())

The problem itself is, that it SOMETIMES skips lines of my GCode. I tried so many things since weeks to eliminate this problem, set down the writebuffer of my SerialPort to 128. But the problem is the issue is not everytime. For me it seems to be a Buffer overflow.

Is skipping lines a known problem? Is there a solution for this?

Hope someone can help

thanks a lot

 

Ok I wrote the code to control if I get an ok from the machine like that:

Code:

    Private Sub BWAuto_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BWAuto.DoWork
        For Me.i = 0 To CodeBox.Items.Count - 1
            If answer.Contains("ok") Then
                SerialPort1.WriteLine(CodeBox.Items.Item(i))
                answer = SerialPort1.ReadLine()
            End If

            Me.Invoke(Sub() CurrentCode.Text = CodeBox.Items.Item(i))
            Me.Invoke(Sub() CalculatePercent())
            Me.Invoke(Sub() InterpretCode())
            Me.Invoke(Sub() OpticalSelection())
            Me.Invoke(Sub() ProgramTimer.Start())
            Me.Invoke(Sub() WriteLog())
        Next i
        Me.Invoke(Sub() ProgramEnd())
    End Sub

And wrote the "answers" in a log file and tadaaa what I got was this:

Code:

1 - G54   [ [MSG:Pgm End]

The first thing I write in each code is "G54, G55, ... or whatever" and at this point it respond "MSGgm End" and not "ok". Can anybody tell me please why do I get a Programm End for sending a simple G54 Command instead of an "ok"??


King regards

 

I have a SingleBlock function in my GUI so I sent the same code with confirming each line and it works like a charm no error or wrong error Message is produced. But its the same code except the confirmation

Automatic Code

Code:

    Private Sub BWAuto_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BWAuto.DoWork
        For Me.i = 0 To CodeBox.Items.Count - 1
            If answer.Contains("ok") Or answer.Contains("[MSG:Pgm End]") Then
                SerialPort1.WriteLine(CodeBox.Items.Item(i))
                answer = SerialPort1.ReadLine()
            End If

            Me.Invoke(Sub() CurrentCode.Text = CodeBox.Items.Item(i))
            Me.Invoke(Sub() CalculatePercent())
            Me.Invoke(Sub() InterpretCode())
            Me.Invoke(Sub() OpticalSelection())
            Me.Invoke(Sub() ProgramTimer.Start())
            Me.Invoke(Sub() WriteLog())
        Next i
        Me.Invoke(Sub() ProgramEnd())
    End Sub

SingleBlock Code

Code:

    Private Sub BWSingle_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BWSingle.DoWork
        For Me.i = 0 To CodeBox.Items.Count - 1
            
 If answer.Contains("ok") Then
                SerialPort1.WriteLine(CodeBox.Items.Item(i))
                answer = SerialPort1.ReadLine()
            End If
            Me.Invoke(Sub() CurrentCode.Text = CodeBox.Items.Item(i))
            Me.Invoke(Sub() CalculatePercent())
            Me.Invoke(Sub() InterpretCode())
            Me.Invoke(Sub() OpticalSelection())
            Me.Invoke(Sub() WriteLog())
            MessageBox.Show(CodeBox.Items.Item(i).ToString)
        Next i
        Me.Invoke(Sub() ProgramEnd())
    End Sub

 

Can you give me a Code example written in vb or C# for Char Counting?