Başlangıç > Kodlar > Visual Basic 6 ile Sohbet yapalım

Visual Basic 6 ile Sohbet yapalım


Karşılaştırma ve Compenentlere Kısa Örnektir. Umarım işinize Yarar

Private Sub Command1_Click()
MsgBox “Tanıştığımıza Memnun Oldum ” & Form1.Text1.Text, vbOKOnly, “Sohbet Edelim”
Unload Me
End
End Sub

Private Sub Form_Load()
Form1.Label2.Visible = False
End Sub

Private Sub Option1_Click()
If Form1.Option1.Value = True Then
Form1.Label4.Caption = Text1.Text & ” mı? Ben seni Tanıyamadım.”
Form1.Label4.Visible = True
Form1.Option2.Enabled = False
Form1.Label5.Visible = True
Form1.Label5.Caption = “Sen Kaç Yaşındaydın ” & Text1.Text
Form1.Text2.Visible = True
Form1.Text2.SetFocus
End If
End Sub

Private Sub Option10_Click()
Form1.Option9.Enabled = False
Form1.Option11.Enabled = False
Form1.Label12.Visible = True
Form1.Label12.Caption = “Beni Anlayacak Kadar Türkçe Bilmene Sevindim ” & Text1.Text
Form1.Command1.Visible = True
End Sub

Private Sub Option11_Click()
Form1.Option9.Enabled = False
Form1.Option10.Enabled = False
Form1.Label12.Visible = True
Form1.Label12.Caption = “Seni Hiç Sevmedim Zaten Babanıda Sevmezdim Senin ” & Text1.Text
Form1.Command1.Visible = True
End Sub

Private Sub Option2_Click()
If Form1.Option2.Value = True Then
Form1.Label4.Caption = Text1.Text & ” Ne Güzel İsim Tanışalım O zaman”
Form1.Label4.Visible = True
Form1.Option1.Enabled = False
Form1.Label5.Visible = True
Form1.Label5.Caption = “Kaç Yaşındasın ” & Text1.Text
Form1.Text2.Visible = True
Form1.Text2.SetFocus
End If
End Sub

Private Sub Option3_Click()
Form1.Option4.Enabled = False
Form1.Option5.Enabled = False
Form1.Label8.Visible = True
Form1.Label8.Caption = “Erkek Adam Buralarda Vaktini Boşa Harcar mı?”
Form1.Label9.Visible = True
Form1.Option6.Visible = True
Form1.Option7.Visible = True
Form1.Option8.Visible = True
End Sub

Private Sub Option4_Click()
Form1.Option3.Enabled = False
Form1.Option5.Enabled = False
Form1.Label8.Visible = True
Form1.Label8.Caption = “Emin misin? Kontrol Et”
Form1.Label9.Visible = True
Form1.Option6.Visible = True
Form1.Option7.Visible = True
Form1.Option8.Visible = True
End Sub

Private Sub Option5_Click()
Form1.Option3.Enabled = False
Form1.Option4.Enabled = False
Form1.Label8.Visible = True
Form1.Label8.Caption = “Bizim Cinsiyeti Belli Olmayanlarla İşimiz Olmaz”
Form1.Label9.Visible = True
Form1.Option6.Visible = True
Form1.Option7.Visible = True
Form1.Option8.Visible = True
End Sub

Private Sub Option6_Click()
Form1.Option7.Enabled = False
Form1.Option8.Enabled = False
Form1.Label10.Visible = True
Form1.Label10.Caption = “Evlisin ve Halan Sağa Sola Tıklıyorsun Ayıp Seni Kınıyorum.”
Form1.Label11.Visible = True
Form1.Option9.Visible = True
Form1.Option10.Visible = True
Form1.Option11.Visible = True
End Sub

Private Sub Option7_Click()
Form1.Option6.Enabled = False
Form1.Option8.Enabled = False
Form1.Label10.Visible = True
Form1.Label10.Caption = “Benimle Uğraşmak Hoşuna Gidiyor Deyil mi?”
Form1.Label11.Visible = True
Form1.Option9.Visible = True
Form1.Option10.Visible = True
Form1.Option11.Visible = True
End Sub

Private Sub Option8_Click()
Form1.Option6.Enabled = False
Form1.Option7.Enabled = False
Form1.Label10.Visible = True
Form1.Label10.Caption = “Birinciyi Eskittin, Sıra İkincide mi? Sana Koca Dayandıramıyoruz.”
Form1.Label11.Visible = True
Form1.Option9.Visible = True
Form1.Option10.Visible = True
Form1.Option11.Visible = True
End Sub

Private Sub Option9_Click()
Form1.Option10.Enabled = False
Form1.Option11.Enabled = False
Form1.Label12.Visible = True
Form1.Label12.Caption = “Güzel Sevdim Seni Kanım Kaynadı Sana ” & Text1.Text
Form1.Command1.Visible = True

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Form1.Label2.Visible = True
Form1.Label2.Caption = Text1.Text & ” Merhaba”
Form1.Label3.Visible = True
Form1.Label3.Caption = “Daha Önce Seninle Tanışmış mıydık? ” & Form1.Text1.Text
Form1.Option1.Visible = True
Form1.Option2.Visible = True

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text2.Text < 25 Then
Form1.Label6.Caption = “Daha Yaşın Küçük Böyle Zaralı Şeylerle Oynama”
Form1.Label6.Visible = True
Form1.Label7.Visible = True
Form1.Option3.Visible = True
Form1.Option4.Visible = True
Form1.Option5.Visible = True
ElseIf Text2.Text = 25 Then
Form1.Label6.Caption = “Tam Yaşındasın Bence Evlenmeli Kendine Bir Yaşam Belirlemelisin”
Form1.Label6.Visible = True
Form1.Label7.Visible = True
Form1.Option3.Visible = True
Form1.Option4.Visible = True
Form1.Option5.Visible = True
ElseIf Text2.Text > 25 Then
Form1.Label6.Caption = “Senin İçin Geçmiş Evde Kalmışsın (Evliysen Git Eşinle Uğraş Böyle Şeylerle Uğraşacağına”
Form1.Label6.Visible = True
Form1.Label7.Visible = True
Form1.Option3.Visible = True
Form1.Option4.Visible = True
Form1.Option5.Visible = True
End If
End If
End Sub


TD Software


Reklamlar
  1. sohbet
    31/12/2010, 15:19

    Paylaşım için teşekkurler, güzel bilgler

    Beğen

  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: