Re: [Programmer-VB] Bagaimana Auto Detect Koneksi Internet?

Wed, 31 May 2006 02:11:18 -0700

kalau ditambahkan doevents sebelum internetcheckconnection gimana?
 
best regards
[wwn]
 
On 5/31/06, Frangky <[EMAIL PROTECTED]> wrote:
Mas Ronald, sebelumnya saya sudah coba masukkan di Timer.
Tapi menyebabkan Durasi Detik pada text1, tersendat-sendat. Coba lihat kode dibawah ini.
 
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
 
Private Sub cmdKoneksi_Click()
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
    If InternetCheckConnection("http://www.microsoft.com ", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then

        MsgBox "No internet connection detected...", vbInformation
        Timer2.Enabled = False
    Else
        Timer2.Enabled = True
    End If
End Sub
 
Private Sub Timer2_Timer()
    Text1 = Time$
End Sub
 
Kode diatas saya buat pada program billing pemakaian Internet dengan menggunakan Telkomnet Instan. Jadi, jika ada koneksi Internet, baru perhitungan Durasi Pemakaian dan Harga dimulai. Jika koneksi Internet Disconnect, maka Perhitungan Durasi dan Harga, Berhenti.
 
Masalahnya, jika saya menggunakan Timer untuk mendeteksi ada atau tidaknya koneksi, Durasi Waktu yang ada pada text1, tersendat-sendat.


Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke