Vb.net Chat Programi Yapma


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: By NaNo    8 Yorum    446 Görüntüleme
  • 1 Oy - 5 Yüzde

Paylaşım Tarihi: 15.04.2016, 02:03:53 #1
By NaNo By Nano Was Here...
Cezalı Üye
Status: Çevrimdışı Yorum Sayısı:409 Konu Sayısı:183 Üyelik Tarihi:21.01.2016

Selamın Aleyküm Arkadaşlar Bu Dersimizde Chat Programı Yapımını Anlatacağım 
[hide]
Gereken İtemler
-2 Adet Richtbox 
-2 Adet Button 
-1 textbox
Ve Bir Site

Program İnternet Üzerinden Çalışacağı İçin Bir Site Ye İhtiyacımız var [ücretsiz domain ve ücretsiz host yeterlidir]

Sitemizin Ftp Sine Bağlandıktan Sonra bir Metin Belgesi Oluşturalım ve adını Chat Yapalım ardından bu dosyayı ftp ye atalım ama ana dizine atmamız gerekiyor [public.html]

Bu İşlemleri Yaptıktan Sonra Artık Bir Form Oluşturabiliriz .
Forumumuzu Oluşturalım gerekli itemleri forma yerleştirelim 

Konumlar 
-Richtbox1 i en yukarı koyalım ve istediğiniz büyüklükte ayarlayın mesajları görmemize yarıyacak

-Richtbox2 yi Onun Biraz Altına Koyalım bu göndericeğimiz mesajı yazdığımız bölüm olucak

-Buttton1 i richtbox2 nin yanına koyalım veya altına mesajı gönderme buttonumuz olucak

-Textbox1 mesajı gönderen kişinin adının yazılacağı bölüm kendi istediğiniz yere koyun

-button 2 yi istediğiniz yere koyun yenileme buttonu olucak

Ardından Kodlarımıza Geçelim 
button 1 kodları



Dim name As String
        name 
TextBox1.Text
        
Try
            
Dim client As New Net.WebClient
            client
.Credentials = New Net.NetworkCredential("ftp kullanıcısı""ftp şifresi")
            
client.UploadString("ftp://siteniz/chat.txt"RichTextBox1.Text name " : " RichTextBox2.Text vbNewLine)
        Catch 
ex As Exception
            MsgBox
("Sunucu Hatası Lütfen Daha Sonra Tekrar Deneyiniz")

        
End Try 



Button 2 Kodları (isterseniz bir timere girin otomatik yenilensin)



Try
            
Dim client As New Net.WebClient
            client
.Credentials = New Net.NetworkCredential("ftp kullanıcısı""ftp şifresi")
            
RichTextBox1.Text client.DownloadString("ftp://siteniz.com/chat.txt")
        Catch 
ex As Exception
            MsgBox
("Sunucu Hatası Lütfen Daha Sonra Tekrar Deneyiniz")
        
End Try 



ve son olarak form1 load bölümüne girilecek kodlar



Try
            
Dim client As New Net.WebClient
            client
.Credentials = New Net.NetworkCredential("ftp kullanıcısı ""ftp şifresi")
            
RichTextBox1.Text client.DownloadString("ftp://siteniz/chat.txt")
        Catch 
ex As Exception
            MsgBox
("Sunucu Hatası Lütfen Daha Sonra Tekrar Deneyiniz")
        
End Try
    
End Sub 



[/hide]
Ve Bu Kadar Bir Dahaki Dersimizde Görüşmek Üzere
Son Düzenleme: 15.04.2016, 02:05:42, Düzenleyen: By NaNo.
Paylaşım Tarihi: 15.04.2016, 18:56:02 #2
03mehmet03 Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:49 Konu Sayısı:0 Üyelik Tarihi:20.01.2016 Rep Puanı: 0

ııııııııııııııııııııııııııııııııııııııııııııııııııııııı Smile Tongue
Paylaşım Tarihi: 15.04.2016, 21:26:29 #3
magicalcoder Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:33 Konu Sayısı:0 Üyelik Tarihi:26.12.2015 Rep Puanı: 0

bakalalım kardeş
Paylaşım Tarihi: 15.04.2016, 22:12:59 #4
FreshnessWT Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:10 Konu Sayısı:0 Üyelik Tarihi:10.12.2015 Rep Puanı: 0

bakalalım kardeş
Paylaşım Tarihi: 17.04.2016, 15:25:06 #5
emre1345 Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:24 Konu Sayısı:0 Üyelik Tarihi:07.04.2016 Rep Puanı: 0

Selamın Aleyküm Arkadaşlar Bu Dersimizde Chat Programı Yapımını Anlatacağım 

mza: İmzam bu mesajda gözüksün. (Gözükmemesi için kutucuktaki işareti kaldırın.) 
Son Düzenleme: 17.04.2016, 15:25:45, Düzenleyen: emre1345.
Paylaşım Tarihi: 18.04.2016, 02:22:45 #6
RiotKorayREiz Delikanlı
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:55 Konu Sayısı:0 Üyelik Tarihi:26.03.2016 Rep Puanı: 0

adamsin pnp adam adam Smile)
Paylaşım Tarihi: 18.04.2016, 11:16:54 #7
captaincold Cezalı Üye
Cezalı Üye
Status: Çevrimdışı Yorum Sayısı:60 Konu Sayısı:10 Üyelik Tarihi:18.04.2016

eyvallah denicem +rez
Paylaşım Tarihi: 19.04.2016, 18:45:11 #8
tr6152hacks Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:33 Konu Sayısı:1 Üyelik Tarihi:09.03.2016 Rep Puanı: 0

Bakalım Saol jeqwe









Aradığınızı Bulamadınız Mı ?

Konuyu görüntüleyenler:
1 Misafir