04-10-2017, 04:31 AM
Selamın Aleyküm TurkFrm Üyeleri Bu Dersimizde Chat Programı Yapımını Anlatacağım
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
Ve Bu Kadar Bir Dahaki Dersimizde Görüşmek Üzere İyi Forumlar...
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
Ve Bu Kadar Bir Dahaki Dersimizde Görüşmek Üzere İyi Forumlar...
