[Gambas-user] Convert string to integer

Caveat Gambas at ...1950...
Sun Jan 26 08:56:39 CET 2014


What is in qrg at the time you try to do the CInteger call?

Kind regards,
Caveat

On 26/01/14 08:35, Dirk wrote:
> 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 at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>





More information about the User mailing list