vb help help help

[Love kolla]

Mchan meke awla mokakda ban??
mehemai.. meka internet connection ek thyenawada balannane oona.. connection ek thyn welawt, connected wenaw.. nathi welawt not connected wenn epay.. ee unata run karam enawa bn.. unhandled exception kyl, kahapata wnw me My.Computer... kyn peliy.. mokada awl.. mt net na kyl lable ekene pennagnn oona.

 If My.Computer.Network.Ping("google.com").ToString = True Then
Lbl.Text= ("conected")
Else
Lbl.Text =( "not connected")

 

[mAjIc hAt]

බම්ප් ​

 

[sachith19920726]

Try

If My.Computer.Network.Ping("google.com").ToString = True Then

Lbl.Text = ("conected")

End If

Catch ex As Exception

Lbl.Text = ("not connected")

End Try

 

[Love kolla]

Try

If My.Computer.Network.Ping("google.com").ToString = True Then

Lbl.Text = ("conected")

End If

Catch ex As Exception

Lbl.Text = ("not connected")

End Try

mchan meeka.. catch ex as Excetion ekeedi goto kyla line ekak denn puluwanda apahu try ekata?? ppdda eekt code ekak dipankoo.. mn try kra hri giye naa..

mata oona... connection ek nathinam.. conection ek enakn connection ek thyed blanwa... connection ek apu gmn ita pxe code ek run wenn..

 

[sachith19920726]

mchan meeka.. catch ex as Excetion ekeedi goto kyla line ekak denn puluwanda apahu try ekata?? ppdda eekt code ekak dipankoo.. mn try kra hri giye naa..

mata oona... connection ek nathinam.. conection ek enakn connection ek thyed blanwa... connection ek apu gmn ita pxe code ek run wenn..

ඉතිං බං

if Lb.text = "connected" then

end if

දාල ලියපං

 

[Love kolla]

ඉතිං බං

if Lb.text = "connected" then

end if

දාල ලියපං

hari. ethana hari.. connection nattan apahu try kiyn thanata goto ek enne catch eka yatathane. ethanin ne apahu chek kr.. ek krata enne na bn.. erroors mahaa godak enawa..

 

[sachith19920726]

hari. ethana hari.. connection nattan apahu try kiyn thanata goto ek enne catch eka yatathane. ethanin ne apahu chek kr.. ek krata enne na bn.. erroors mahaa godak enawa..

උබ මේ ලියල තියන එකත් සිංහලද බං අප්‍රබ්‍රංශ වගේ..
ඔහොම ඉතිං ලයින් එකෙන් ලයින් එකට කියන්න බැහැ බං..
පොඩ්ඩක් අත ගාල බලපන්..

දිගටම try කරල connection එක available නම් code එක run වෙන්න නේද ඕන ?
timer එකක් අරගෙන ඔය code එක දාල.. ට්ව if එකක් දාල code එක run වෙන්න දාන්න ඕන timer එකේ intervel එක 5000 විතර දාල..

timer එකට ඕක දැම්මාම connection එක check කරද්දි program එක stuck වෙනව චෙක් කරද්දි.. එකට ඉතිං background thread එකක් දාල හදාගන්න ඕන.. ඔහොම බැහැ..

 

[Love kolla]

ඉතිං බං

if Lb.text = "connected" then

end if

දාල ලියපං

hari. ethana hari.. connection nattan apahu try kiyn thanata goto ek enne catch eka yatathane. ethanin ne apahu chek kr.. ek krata enne na bn.. erroors mahaa godak enawa..

 

[DjSpK]

    Public Function ConnectionStatus(Optional Retry As Boolean = False) As Boolean
        Dim RetryLevel As Boolean = True
        While RetryLevel
            RetryLevel = Retry
            Try
                If My.Computer.Network.Ping("google.com") Then Return True
            Catch ex As Exception
                System.Threading.Thread.Sleep(1000) ' 1 second delay for next try
            End Try
        End While
        Return False
    End Function

Usage: Single Try

 If ConnectionStatus() Then
            Lbl.text = "Connected"
        Else
            Lbl.text = "Disconnected"
        End If

Usage: Infinite Try

 If ConnectionStatus(true) Then
            Lbl.text = "Connected"
        Else
            Lbl.text = "Disconnected"
        End If

 

[markhaloce]

If My.Computer.Network.Ping("google.com").ToString = True Then
Lbl.Text= ("conected")
Else
Lbl.Text =( "not connected")

string ekak bool value ekak wenna puluwanda ?
vb nam danne naha..
Eth kisima lang ekaka ehema wenna bane ban

 

[DjSpK]

If My.Computer.Network.Ping("google.com").ToString = True Then
Lbl.Text= ("conected")
Else
Lbl.Text =( "not connected")

string ekak bool value ekak wenna puluwanda ?
vb nam danne naha..
Eth kisima lang ekaka ehema wenna bane ban

othanadi venne string eka null da nadda kiyana eka check karana eka ... connect unoth string eka null venne na.