Hi, I'm having a problem with Convert string to integer
where is my mistake? I get error message: Type incompatibility expected integer, instead get string Public Sub MySock_Read() '************************************************************************************************ ''************************************************************************************************ '''************************************************************************************************ ' When some data arrives from the remote ' part of the socket, "DataAvailable" event ' is raised '**************************************** Dim rx, rx2, rxtmp As String Dim pattern, result, s, element As String Dim i, ii, iii, frequenz, istZeile As Integer ' DIM reg AS Regexp Dim el, text, dxde, txcall, dxcall, dxtxt, utc, loca, tmpstr, NewDXZ, DXCall_anfang, toall As String Dim band As String ' Dim qrg_i As Integer Dim qrg_i As Variant Dim qrg As String Dim dxprafix As String Dim dxcall_tmp As String Dim trenner As String Dim mh As String Dim dxland As String Dim flagge As String Dim sa, zeile, z As String[] Dim wp As Integer Dim wpa As String[] Dim wpi As Integer Dim dxcall_lng As Integer stunde = 0 minu = 0 sekunde = 0 If MySock.Status = Net.Connected Then Read #MySock, rx, Lof(MySock) rx2 = rx If Mid$(rx, 1, 6) = "To ALL" Then Textedit1.richText = Textedit1.richText & "<font color=red>" toall = "ok" End If If Mid$(rx, 1, 3) = "WWV" Then TextEdit1.richText = TextEdit1.richText & "<font color=blue>" toall = "ok" End If If Mid$(rx, 1, 3) = "WCY" Then TextEdit1.richText = TextEdit1.richText & "<font color=blue>" toall = "ok" End If If Mid$(rx, 1, 5) = "DX de" Then '_____________________________________________ '_ DX Meldung läuft ein _ '_____________________________________________ dxde = Mid$(rx, 1, 5) rx = Trim(Replace$(rx, "DX de ", "")) i = InStr(rx, " ") txcall = Mid$(rx, 1, i) rx = Trim(Replace$(rx, txcall & " ", "")) qrg = Mid$(rx, 1, InStr(rx, " ")) rx = Trim(Replace$(rx, qrg & " ", "")) dxcall = Mid$(rx, 1, InStr(rx, " ")) rx = Trim(Replace$(rx, dxcall & " ", "")) ' . . . . . . . . . . qrg = Trim(qrg) qrg_i = CInteger(qrg) ' <<<== Here is Error If qrg_i < 440000 And qrg_i > 430000 Then mh430 = machmaupdatestr(mh430, dxcall, qrg) wpa = Split(mh430, " ") nr430 = wpa.length - 1 ' wp = machma_buttonw(mh430) machma_balken() End If If qrg_i < 146000 A... -- Dirk ------------------------------------------------------------------------------ CenturyLink Cloud: The Leader in Enterprise Cloud Services. Learn Why More Businesses Are Choosing CenturyLink Cloud For Critical Workloads, Development Environments & Everything In Between. Get a Quote or Start a Free Trial Today. http://pubads.g.doubleclick.net/gampad/clk?id=119420431&iu=/4140/ostg.clktrk _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user