İf Deyimi İle İlgili Bir Soru

Tahribat.com Forumları
line

Visual Basic - Basic - PicBasic ve Türevleri
line

İf Deyimi İle İlgili Bir Soru

18/Tem/10 16:48 Kısayol Şikayet Özel Mesaj

wasd

Kayıt Tarihi: 14/Haziran/2006

http://www.tahribat.com/Dokuman-Visual-Basicde-Winsock-Kontrolu-Ve-Kullanimi-195/1/

şu dökümandaki örnek chat programını yaptım,ancak tek taraflı olduğu için ve ilk winsock denemem olduğu için geliştirmek istedim...serverla clienti tek formda birleştirdim,eğerki bağlantı beklenecek olursa sadece server kısmı aktif olsun,bağlanılacak olursada client kısmı aktif olsun diye düşündüm...yaptımda,ancak bağlantı kurulamazsa butonların tekrar aktif hale geçmelerini sağlayamadım..

If ... Then
bekle.Enabled = True
gonder2.Enabled = True
End If

dedim ama iften sonra bağlantının sağlanmamış olduğunu nası yazacağımı bilemedim :/

:)

Alıntı yap
18/Tem/10 16:52 Kısayol Şikayet Özel Mesaj

Cosmic

Kayıt Tarihi: 14/Haziran/2006

delphide falan şöyle ama vb de nasıldır bilemicem

if koşulun then

kodların

end

else

then

kodların // koşul geçerli değilse çalışçak kodlar

end

elseyle yapılcak yani

Bittik biz bittik

Alıntı yap
18/Tem/10 16:58 Kısayol Şikayet Özel Mesaj

wasd

Kayıt Tarihi: 14/Haziran/2006

cosmic bunu yazdı:
-----------------------------

delphide falan şöyle ama vb de nasıldır bilemicem

if koşulun then

kodların

end

else

then

kodların // koşul geçerli değilse çalışçak kodlar

end

elseyle yapılcak yani

-----------------------------

yok la onu bende biliyom :D

Private Sub baglan_Click()
bekle.Enabled = False
gonder2.Enabled = False
sck.Close
sck.RemoteHost = ip
sck.RemotePort = port
sck.Connect
If ............. Then
bekle.Enabled = True
gonder2.Enabled = True
End If
End Sub

kodlar bu şekilde ama noktaların yerine ne yazcağımı bilemedim.butona tıklayınca 2 butonu iptal edip belirtilen ipye belirtilen porttan bağlanıyo,ama eğer bağlantı kurulamazsa butonları tekrar aktif hale getirmesini istiyorum,"bağlantı yoksa" yı nası yazıcam,dert orda :/

:)

Alıntı yap
18/Tem/10 17:09 Kısayol Şikayet Özel Mesaj

Cosmic

Kayıt Tarihi: 14/Haziran/2006

bak delphide if sck.Connectted=true then şeklindeydi vbdede öyledir

Bittik biz bittik

Alıntı yap
18/Tem/10 17:14 Kısayol Şikayet Özel Mesaj

DE5TROY3R

Kayıt Tarihi: 04/Nisan/2007

Private Sub baglan_Click()
bekle.Enabled = False
gonder2.Enabled = False
sck.Close
sck.RemoteHost = ip
sck.RemotePort = port
sck.Connect
If bekle.enabled = false Then
bekle.Enabled = True
gonder2.Enabled = True
End If
End Sub

veya

Private Sub baglan_Click()
bekle.Enabled = False
gonder2.Enabled = False
sck.Close
sck.RemoteHost = ip
sck.RemotePort = port
sck.Connect
If sck.State = 7 Then ' baglanti sağlandı ise
bekle.Enabled = True
gonder2.Enabled = True
End If
End Sub

Alıntı yap
18/Tem/10 17:25 Kısayol Şikayet Özel Mesaj

wasd

Kayıt Tarihi: 14/Haziran/2006

DE5TROY3R bunu yazdı:
-----------------------------

Private Sub baglan_Click()
bekle.Enabled = False
gonder2.Enabled = False
sck.Close
sck.RemoteHost = ip
sck.RemotePort = port
sck.Connect
If bekle.enabled = false Then
bekle.Enabled = True
gonder2.Enabled = True
End If
End Sub

veya

Private Sub baglan_Click()
bekle.Enabled = False
gonder2.Enabled = False
sck.Close
sck.RemoteHost = ip
sck.RemotePort = port
sck.Connect
If sck.State = 7 Then ' baglanti sağlandı ise
bekle.Enabled = True
gonder2.Enabled = True
End If
End Sub

-----------------------------

üstteki çok saçma olmuş.tıklayınca bi an pasif oluyo sonra tekrar aktif oluyo fln :D alttaki mantıklı. şu enabled false değerlerini sildim,if deyimindeki değerleri false yaptım..tıkladığımda pasif olmuyo aynen kalıyo butonlar,ama bağlantı sağlanırsa pasif duruma geçiyolar :)

:)

Alıntı yap
26/Tem/10 14:28 Kısayol Şikayet Özel Mesaj

dejnclea

Kayıt Tarihi: 28/Haziran/2010

Winsock'un state değerini kontrol etmen gerek sanırım.

Alıntı yap

Toplam Hit: 2232 Toplam Mesaj: 7

Cevapla