Sohbet Programı VB.Net
FORM1 İçerisine Yazılacak Kodlar…
[code lang=”vbnet”]
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Dim Form2 As New Form2()
If Integer.Parse(textBox1.Text) = 1907 Then
Form2.Show()
Me.Hide()
Else
MessageBox.Show("Yanlış Şifre ")
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
button1.Enabled = False
End Sub
Private Sub textBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textBox1.TextChanged
button1.Enabled = True
End Sub
[/code]
FORM2 İçerisine Yazılacak Kodlar…
[code lang=”vbnet”]
Imports System.Data.OleDb
Public Class Form2
Dim bag As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=yesim.mdb")
Dim kmt As New OleDbCommand
Dim adtr As OleDbDataAdapter
Dim dtst As New DataSet
Sub listele()
bag.Open()
adtr = New OleDbDataAdapter("select * From tablo1", bag)
adtr.Fill(dtst, "tablo1")
dataGridView1.DataSource = dtst
dataGridView1.DataMember = "tablo1"
bag.Close()
adtr.Dispose()
End Sub
Private Sub dosyaToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dosyaToolStripMenuItem1.Click
saveFileDialog1.ShowDialog()
End Sub
Private Sub nickDeğiştirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nickDeğiştirToolStripMenuItem.Click
Dim frm3 = New Form3()
frm3.Show()
Me.Hide()
End Sub
Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
groupBox1.Visible = True
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
listele()
groupBox1.Visible = False
groupBox2.Visible = False
End Sub
Private Sub görüntüResmiDeğiştirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles görüntüResmiDeğiştirToolStripMenuItem.Click
saveFileDialog1.ShowDialog()
Dim ara As String
ara = saveFileDialog1.FileName
pictureBox1.Load(ara)
End Sub
Private Sub oturumKapatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles oturumKapatToolStripMenuItem.Click
Dim frm1 = New Form1()
frm1.Show()
Me.Hide()
End Sub
Private Sub oturumKilitleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles oturumKilitleToolStripMenuItem.Click
Dim frm4 = New Form4()
frm4.Show()
Me.Hide()
End Sub
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
bag.Open()
kmt.Connection = bag
kmt.CommandText = "INSERT INTO Tablo1( Kişiler,Msn ) VALUES (‘" + textBox1.Text + "’,’" + textBox2.Text + "’)"
kmt.ExecuteNonQuery()
bag.Close()
kmt.Dispose()
dtst.Clear()
listele()
groupBox1.Visible = False
End Sub
Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click
groupBox2.Visible = True
End Sub
Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click
bag.Open()
kmt.Connection = bag
kmt.CommandText = "DELETE FROM Tablo1 WHERE Msn=’" + textBox3.Text + "’"
kmt.ExecuteNonQuery()
bag.Close()
kmt.Dispose()
dtst.Clear()
listele()
groupBox2.Visible = False
End Sub
Private Sub kişiEkleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kişiEkleToolStripMenuItem.Click
groupBox1.Visible = True
End Sub
Private Sub kişiSilToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kişiSilToolStripMenuItem.Click
groupBox2.Visible = True
End Sub
End Class
[/code]
FORM3 İçerisine Yazılacak Kodlar…
[code lang=”vbnet”]
Public Class Form3
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Dim frm2 = New Form2()
frm2.Show()
Me.Hide()
frm2.label1.Text = textBox1.Text
End Sub
End Class
[/code]
FORM4 İçerisine Yazılacak Kodlar…
[code lang=”vbnet”]
Public Class Form4
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Dim frm2 = New Form2()
frm2.Show()
Me.Hide()
End Sub
End Class
[/code]
Eline Sağlık
Merhaba. Paylaşımlarınız için çok teşekkürler. Şunu belirteyim yorum yazılmıyor diye formdan düşmeyin bir çok kişi geliyor fakat zaten kodlarla basları döndüğü için birde yorumla uğraşmak istemiyorlardır . Emeğe saygı teşekkürler.
Ayrıca sormak istediğim bir şey var bunu yaptık tamamda bir hosta bağlamayacakmıyız? Yani internet üzerinden kendi hostumuzdan arkadaşlarımızla sohbet ortamı yapıyoruz. Bu nasıl işliyor ? Burdaki örneğinizde kimlerle sohbet edilebilir , internet üzerinden değil mi? Kullanıcı adı parola nerden alınacak vs.
Kardeşim Anlamadığım Kayıt Ne Tarafta Nereden Kayıt Alınıyor Bu Programa ?
Ya Çok Tşkler. Bu Progrma Lzım’dır Ama Demek İstediğim Kayıtı Nereye Bağlıyoruz ?
Anlatım Yapabilecek Warsa Sevinirim.
Kayıtları veri tabanına kaydediyor.
ne yaparsam yapım veri tabında ekledim sürekli yanlış şifre diyor yardım ederseniz sevinirim
🙂 teşekkür ederim admin
Ya atkadaslar su oledb olayini nerden ogrenebilirim birisi aciklayabilir mi onun ne ise yaradigini? Veri tabaninda da goruyorum?
Deniz :
Aşağıdaki linki incele.
http://www.gorselprogramlama.com/veri-tabanina-baglanma-c-net-ders-69/
Merhaba admin bu projeyi indirdim ama acamadım diye formları tek tek kendim oluşturdum ama sql tablolarını oluşturmakta sorun yaşıyorum tabloları ve baglamtılarını da paylaşır mısın acaba?
hocambaşka yolu yok mu mesela visual basic?