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

Thu, 01 Jun 2006 01:09:09 -0700


Mas Pur, saya sudah tambahkan DoEvents. Tetap saja tersendat-sendat Durasinya. Ngga ada Perubahan.
Coba Mas Pur lihat File Attach saya.
----- Original Message -----
Sent: Thursday, June 01, 2006 9:27 AM
Subject: Re: [Programmer-VB] Bagaimana Auto Detect Koneksi Internet?

coba seperti ini:
 
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
 
    DoEvents
End Sub
 
Private Sub Timer2_Timer()
    Text1 = Time$
    DoEvents
End Sub

sincera
[wwn]

 
On 6/1/06, Frangky <[EMAIL PROTECTED]> wrote:

Mas Pur, maaf saya tidak mengerti dengan pernyataan Mas untuk menambahkan doevent sebelum internetcheckconnection.
Apakah seperti ini?
If doevent InternetCheckConnection("http://www.microsoft.com ", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
 
Mohon penjelasan dari Mas Pur.
 
Terima kasih.
----- Original Message -----
Sent: Wednesday, May 31, 2006 5:10 PM
Subject: Re: [Programmer-VB] Bagaimana Auto Detect Koneksi Internet?

 
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



Attachment: koneksi internet.rar
Description: Binary data

Kirim email ke