--
salam,
Mohammad Yusuf Syafroni Karim
LinkApisindoMedia
Coklat Barat 22 Malang 65141
Frangky wrote:
> Mas Pur, saya sudah tambahkan DoEvents. Tetap saja tersendat-sendat
> Durasinya. Ngga ada Perubahan.
> Coba Mas Pur lihat File Attach saya.
>
> ----- Original Message -----
> *From:* Purwedi Kurniawan <mailto:[EMAIL PROTECTED]>
> *To:* [email protected]
> <mailto:[email protected]>
> *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
> <http://www.microsoft.com%20>", 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]
> <mailto:[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
> <http://www.microsoft.com/>", FLAG_ICC_FORCE_CONNECTION, 0&) =
> 0 Then
>
> Mohon penjelasan dari Mas Pur.
>
> Terima kasih.
> ----- Original Message -----
> *From:* Purwedi Kurniawan <mailto:[EMAIL PROTECTED]>
> *To:* [email protected]
> <mailto:[email protected]>
> *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]
> <mailto:[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
> <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
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
