Arkadaşlar Sayenizde Projemin Sonuna Geldim Sayılır Yardım Eden Arkadaşlarımdan Allah Razı Olsun .
Son Olarak Projemde bana şu gerekiyor :
-Formum kullancının internet bağlantısı olmadan açılmasın yani internet bağlantısı olmayanlar form1.exe ye girmeye çalıştığında "İnternet bağlantınızı Kontrol Edip tekrar deneyin" diye bir uyarı almasını istiyorum .
-Ayrıca internet bağlantısı olupta forma girenlerinde internet bağlatısı kesildiği an hata alıp formu otomatik kapatacak bir koda ihtiyacım var .
Yardımlarını esirgemiyecek arkadaşlara şimdiden teşekkür ediyorum . İyi ki varsınız .
Form1'e İnternet Bağlantısı Kontrol Ettirme : |
11 Mesajlar | 1.924 Okunma | ||
- Üyelik 26.04.2016
- Yaş/Cinsiyet 32 / E
- Meslek Öğrenci
- Konum Adana
- Ad Soyad A** E**
- Mesajlar 141
- Beğeniler 13 / 22
- Ticaret 5, (%80)
- Üyelik 12.03.2015
- Yaş/Cinsiyet - /
- Meslek
- Konum
- Ad Soyad ** **
- Mesajlar 576
- Beğeniler 46 / 205
- Ticaret 16, (%100)
If My.Computer.Network.IsAvailable Then
MsgBox("Computer is connected.")
Else
MsgBox("Computer is not connected.")
End If
Dene bi istersen
- Üyelik 26.04.2016
- Yaş/Cinsiyet 32 / E
- Meslek Öğrenci
- Konum Adana
- Ad Soyad A** E**
- Mesajlar 141
- Beğeniler 13 / 22
- Ticaret 5, (%80)
@Winston kardeşim dediğini yaptım bağlantı olmayınca hata veriyor ama form yinede açılıyor ben bağlantı yokken açılmamasını istiyorum :)
Ek Olarak: Arkadaşlar aklıma bi fikir geldi ama nasıl uygulayacağımı bilmiyorum form 1 ile googleye sürekli ping attırabileceğim ping atılmadığı zamanlarda da try cath ile hata verdirip programı kapattıracağım bir kod lazım üretebilen olur mu .
Ek Olarak: Arkadaşlar aklıma bi fikir geldi ama nasıl uygulayacağımı bilmiyorum form 1 ile googleye sürekli ping attırabileceğim ping atılmadığı zamanlarda da try cath ile hata verdirip programı kapattıracağım bir kod lazım üretebilen olur mu .
- Üyelik 30.01.2013
- Yaş/Cinsiyet 27 / E
- Meslek Yazılımcı
- Konum Ankara
- Ad Soyad A** D**
- Mesajlar 1103
- Beğeniler 630 / 380
- Ticaret 14, (%100)
arkada interval ayarı 1000 ms'de çalışan bir timer çalışsın,
If My.Computer.Network.IsAvailable Then
//internet bağlantısı varken gerçekleşecek olaylar
Else
//internet bağlantısı yokken gerçekleşecek olaylar
End()
End If
If My.Computer.Network.Ping("8.8.8.8") Then
//google'a ping başarılı
Else
//google'a ping başarısız, yanıt gelmedi
End()
End If 
- Üyelik 26.04.2016
- Yaş/Cinsiyet 32 / E
- Meslek Öğrenci
- Konum Adana
- Ad Soyad A** E**
- Mesajlar 141
- Beğeniler 13 / 22
- Ticaret 5, (%80)
Hocam kodlar hatalı gözüküyor
http://s32.postimg.org/n40dbm7ol/timer.png
Ek Olarak:
http://s32.postimg.org/n40dbm7ol/timer.png
Ek Olarak:
arkada interval ayarı 1000 ms'de çalışan bir timer çalışsın,
If My.Computer.Network.IsAvailable Then
//internet bağlantısı varken gerçekleşecek olaylar
Else
//internet bağlantısı yokken gerçekleşecek olaylar
End()
End If
If My.Computer.Network.Ping("8.8.8.8") Then
//google'a ping başarılı
Else
//google'a ping başarısız, yanıt gelmedi
End()
End If- Üyelik 30.01.2013
- Yaş/Cinsiyet 27 / E
- Meslek Yazılımcı
- Konum Ankara
- Ad Soyad A** D**
- Mesajlar 1103
- Beğeniler 630 / 380
- Ticaret 14, (%100)
() kısımlarını silin, sadece End olsun.
en son 1,5 yıl önce vb.net kullandığımı ve bu kodları elle yazıp denemediğimi varsayarsak sıkıntı yok gibi. :D
en son 1,5 yıl önce vb.net kullandığımı ve bu kodları elle yazıp denemediğimi varsayarsak sıkıntı yok gibi. :D
- Üyelik 26.04.2016
- Yaş/Cinsiyet 32 / E
- Meslek Öğrenci
- Konum Adana
- Ad Soyad A** E**
- Mesajlar 141
- Beğeniler 13 / 22
- Ticaret 5, (%80)
Vallahi sağolun end ler düzeldi fakat yazıların yazdığı yerde ki slash lardan kaynaklı bir hata var zannediyorum olmuyor malesef :)
- Üyelik 30.01.2013
- Yaş/Cinsiyet 27 / E
- Meslek Yazılımcı
- Konum Ankara
- Ad Soyad A** D**
- Mesajlar 1103
- Beğeniler 630 / 380
- Ticaret 14, (%100)
php'den gelen alışkanlık :D yorumları silin hocam, şöyle olsun yorum ekliyosanızda;
' yorum... - Üyelik 26.04.2016
- Yaş/Cinsiyet 32 / E
- Meslek Öğrenci
- Konum Adana
- Ad Soyad A** E**
- Mesajlar 141
- Beğeniler 13 / 22
- Ticaret 5, (%80)
vallahi oldu Hocam çok teşekkür ederim Allah Sizden Razı Olsun bitirdim elinize sağlık :) :)
edit: İnternet bağlantısı yokken form hiç açılmıyor buda işime yarar ama bide bağlantınız yokken formu açamazsınız diye bi uyarı gönderebilseydik süper olacaktı :)
edit: İnternet bağlantısı yokken form hiç açılmıyor buda işime yarar ama bide bağlantınız yokken formu açamazsınız diye bi uyarı gönderebilseydik süper olacaktı :)
- Üyelik 01.10.2016
- Yaş/Cinsiyet 25 / E
- Meslek öğrenci
- Konum Hatay
- Ad Soyad S** K**
- Mesajlar 10
- Beğeniler 1 / 2
- Ticaret 0, (%0)
If My.Computer.Network.IsAvailable Then
MsgBox("Bağlantı başarılı.")
Else
MsgBox("İnternet bağlantınızı kontrol ediniz!")
Form1.Close
End IfBiraz geç oldu ama böyle olucak sanırım
Konuyu toplam 1 kişi okuyor. (0 kullanıcı ve 1 misafir)