Sinema Programı VB.NET

Sinema Programı VB.NET

[code lang=”vbnet”]Public Class Form1
Dim i, x As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.button1.BackColor = System.Drawing.Color.Green
Me.button2.BackColor = System.Drawing.Color.Green
Me.button3.BackColor = System.Drawing.Color.Green
Me.button4.BackColor = System.Drawing.Color.Green
Me.button5.BackColor = System.Drawing.Color.Green
Me.button6.BackColor = System.Drawing.Color.Green
Me.button7.BackColor = System.Drawing.Color.Green
Me.button8.BackColor = System.Drawing.Color.Green
Me.button9.BackColor = System.Drawing.Color.Green
Me.button10.BackColor = System.Drawing.Color.Green
Me.button11.BackColor = System.Drawing.Color.Green
Me.button12.BackColor = System.Drawing.Color.Green
Me.button13.BackColor = System.Drawing.Color.Green
Me.button14.BackColor = System.Drawing.Color.Green
Me.button15.BackColor = System.Drawing.Color.Green
Me.button16.BackColor = System.Drawing.Color.Green
Me.button17.BackColor = System.Drawing.Color.Green
Me.button18.BackColor = System.Drawing.Color.Green
x = 18
End Sub

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
If (textBox1.Text <> "" And textBox2.Text <> "") Then
button1.Text = textBox1.Text + " " + textBox2.Text
Me.button1.BackColor = System.Drawing.Color.Red
button1.Enabled = False
textBox1.Text = ""
textBox2.Text = ""
i = i + 1
x = x – 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
Else
MessageBox.Show("isim yada soyadınız tam değil")
End If
End Sub

Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
If (textBox1.Text <> "" And textBox2.Text <> "") Then
button2.Text = textBox1.Text + " " + textBox2.Text
Me.button2.BackColor = System.Drawing.Color.Red
button2.Enabled = False
textBox1.Text = ""
textBox2.Text = ""
i = i + 1
x = x – 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
Else
MessageBox.Show("isim yada soyadınız tam değil")
End If
End Sub

Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click
If (textBox1.Text <> "" And textBox2.Text <> "") Then
button3.Text = textBox1.Text + " " + textBox2.Text
Me.button3.BackColor = System.Drawing.Color.Red
button3.Enabled = False
textBox1.Text = ""
textBox2.Text = ""
i = i + 1
x = x – 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
Else
MessageBox.Show("isim yada soyadınız tam değil")
End If
End Sub

Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click
If (textBox1.Text <> "" And textBox2.Text <> "") Then
button4.Text = textBox1.Text + " " + textBox2.Text
Me.button4.BackColor = System.Drawing.Color.Red
button4.Enabled = False
textBox1.Text = ""
textBox2.Text = ""
i = i + 1
x = x – 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
Else
MessageBox.Show("isim yada soyadınız tam değil")
End If
End Sub

Private Sub button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button5.Click
If (textBox1.Text <> "" And textBox2.Text <> "") Then
button5.Text = textBox1.Text + " " + textBox2.Text
Me.button5.BackColor = System.Drawing.Color.Red
button5.Enabled = False
textBox1.Text = ""
textBox2.Text = ""
i = i + 1
x = x – 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
Else
MessageBox.Show("isim yada soyadınız tam değil")
End If
End Sub

Private Sub button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button7.Click
If (textBox1.Text <> "" And textBox2.Text <> "") Then
button7.Text = textBox1.Text + " " + textBox2.Text
Me.button7.BackColor = System.Drawing.Color.Red
button7.Enabled = False
textBox1.Text = ""
textBox2.Text = ""
i = i + 1
x = x – 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
Else
MessageBox.Show("isim yada soyadınız tam değil")
End If
End Sub

Private Sub button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button8.Click
If (textBox1.Text <> "" And textBox2.Text <> "") Then
button8.Text = textBox1.Text + " " + textBox2.Text
Me.button8.BackColor = System.Drawing.Color.Red
button8.Enabled = False
textBox1.Text = ""
textBox2.Text = ""
i = i + 1
x = x – 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
Else
MessageBox.Show("isim yada soyadınız tam değil")
End If
End Sub

Private Sub button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button9.Click
If (textBox1.Text <> "" And textBox2.Text <> "") Then
button9.Text = textBox1.Text + " " + textBox2.Text
Me.button9.BackColor = System.Drawing.Color.Red
button9.Enabled = False
textBox1.Text = ""
textBox2.Text = ""
i = i + 1
x = x – 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
Else
MessageBox.Show("isim yada soyadınız tam değil")
End If
End Sub

Private Sub button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button10.Click
If (textBox1.Text <> "" And textBox2.Text <> "") Then
button10.Text = textBox1.Text + " " + textBox2.Text
Me.button10.BackColor = System.Drawing.Color.Red
button10.Enabled = False
textBox1.Text = ""
textBox2.Text = ""
i = i + 1
x = x – 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
Else
MessageBox.Show("isim yada soyadınız tam değil")
End If
End Sub

Private Sub button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button12.Click
If (textBox1.Text <> "" And textBox2.Text <> "") Then
button12.Text = textBox1.Text + " " + textBox2.Text
Me.button12.BackColor = System.Drawing.Color.Red
button12.Enabled = False
textBox1.Text = ""
textBox2.Text = ""
i = i + 1
x = x – 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
Else
MessageBox.Show("isim yada soyadınız tam değil")
End If
End Sub

Private Sub button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button13.Click
If (textBox1.Text <> "" And textBox2.Text <> "") Then
button13.Text = textBox1.Text + " " + textBox2.Text
Me.button13.BackColor = System.Drawing.Color.Red
button13.Enabled = False
textBox1.Text = ""
textBox2.Text = ""
i = i + 1
x = x – 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
Else
MessageBox.Show("isim yada soyadınız tam değil")
End If
End Sub

Private Sub button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button14.Click
If (textBox1.Text <> "" And textBox2.Text <> "") Then
button14.Text = textBox1.Text + " " + textBox2.Text
Me.button14.BackColor = System.Drawing.Color.Red
button14.Enabled = False
textBox1.Text = ""
textBox2.Text = ""
i = i + 1
x = x – 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
Else
MessageBox.Show("isim yada soyadınız tam değil")
End If
End Sub

Private Sub button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button15.Click
If (textBox1.Text <> "" And textBox2.Text <> "") Then
button15.Text = textBox1.Text + " " + textBox2.Text
Me.button15.BackColor = System.Drawing.Color.Red
button15.Enabled = False
textBox1.Text = ""
textBox2.Text = ""
i = i + 1
x = x – 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
Else
MessageBox.Show("isim yada soyadınız tam değil")
End If
End Sub

Private Sub button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button17.Click
If (textBox1.Text <> "" And textBox2.Text <> "") Then
button17.Text = textBox1.Text + " " + textBox2.Text
Me.button17.BackColor = System.Drawing.Color.Red
button17.Enabled = False
textBox1.Text = ""
textBox2.Text = ""
i = i + 1
x = x – 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
Else
MessageBox.Show("isim yada soyadınız tam değil")
End If
End Sub

Private Sub button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button6.Click
If (textBox1.Text <> "" And textBox2.Text <> "") Then
button6.Text = textBox1.Text + " " + textBox2.Text
Me.button6.BackColor = System.Drawing.Color.Red
button6.Enabled = False
textBox1.Text = ""
textBox2.Text = ""
i = i + 1
x = x – 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
Else
MessageBox.Show("isim yada soyadınız tam değil")
End If
End Sub

Private Sub button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button11.Click
If (textBox1.Text <> "" And textBox2.Text <> "") Then
button11.Text = textBox1.Text + " " + textBox2.Text
Me.button11.BackColor = System.Drawing.Color.Red
button11.Enabled = False
textBox1.Text = ""
textBox2.Text = ""
i = i + 1
x = x – 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
Else
MessageBox.Show("isim yada soyadınız tam değil")
End If
End Sub

Private Sub button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button16.Click
If (textBox1.Text <> "" And textBox2.Text <> "") Then
button16.Text = textBox1.Text + " " + textBox2.Text
Me.button16.BackColor = System.Drawing.Color.Red
button16.Enabled = False
textBox1.Text = ""
textBox2.Text = ""
i = i + 1
x = x – 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
Else
MessageBox.Show("isim yada soyadınız tam değil")
End If
End Sub

Private Sub button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button18.Click
If (textBox1.Text <> "" And textBox2.Text <> "") Then
button18.Text = textBox1.Text + " " + textBox2.Text
Me.button18.BackColor = System.Drawing.Color.Red
button18.Enabled = False
textBox1.Text = ""
textBox2.Text = ""
i = i + 1
x = x – 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
Else
MessageBox.Show("isim yada soyadınız tam değil")
End If
End Sub

Private Sub button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button20.Click

If (textBox3.Text.ToLower() = button1.Text.ToLower()) Then
button1.Text = ""
Me.button1.BackColor = System.Drawing.Color.Green
button1.Enabled = True
i = i – 1
x = x + 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
End If
If (textBox3.Text.ToLower() = button2.Text.ToLower()) Then
button2.Text = ""
Me.button2.BackColor = System.Drawing.Color.Green
button2.Enabled = True
i = i – 1
x = x + 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
End If
If (textBox3.Text.ToLower() = button3.Text.ToLower()) Then
button3.Text = ""
Me.button3.BackColor = System.Drawing.Color.Green
button3.Enabled = True
i = i – 1
x = x + 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
End If
If (textBox3.Text.ToLower() = button4.Text.ToLower()) Then
button4.Text = ""
Me.button4.BackColor = System.Drawing.Color.Green
button4.Enabled = True
i = i – 1
x = x + 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
End If
If (textBox3.Text.ToLower() = button5.Text.ToLower()) Then
button5.Text = ""
Me.button5.BackColor = System.Drawing.Color.Green
button5.Enabled = True
i = i – 1
x = x + 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
End If
If (textBox3.Text.ToLower() = button6.Text.ToLower()) Then
button6.Text = ""
Me.button6.BackColor = System.Drawing.Color.Green
button6.Enabled = True
i = i – 1
x = x + 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
End If
If (textBox3.Text.ToLower() = button7.Text.ToLower()) Then
button7.Text = ""
Me.button7.BackColor = System.Drawing.Color.Green
button7.Enabled = True
i = i – 1
x = x + 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
End If
If (textBox3.Text.ToLower() = button8.Text.ToLower()) Then
button8.Text = ""
Me.button8.BackColor = System.Drawing.Color.Green
button8.Enabled = True
i = i – 1
x = x + 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
End If
If (textBox3.Text.ToLower() = button9.Text.ToLower()) Then
button9.Text = ""
Me.button9.BackColor = System.Drawing.Color.Green
button9.Enabled = True
i = i – 1
x = x + 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
End If
If (textBox3.Text.ToLower() = button10.Text.ToLower()) Then
button10.Text = ""
Me.button10.BackColor = System.Drawing.Color.Green
button10.Enabled = True
i = i – 1
x = x + 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
End If
If (textBox3.Text.ToLower() = button11.Text.ToLower()) Then
button11.Text = ""
Me.button11.BackColor = System.Drawing.Color.Green
button11.Enabled = True
i = i – 1
x = x + 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
End If
If (textBox3.Text.ToLower() = button12.Text.ToLower()) Then
button12.Text = ""
Me.button12.BackColor = System.Drawing.Color.Green
button12.Enabled = True
i = i – 1
x = x + 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
End If
If (textBox3.Text.ToLower() = button13.Text.ToLower()) Then
button13.Text = ""
Me.button13.BackColor = System.Drawing.Color.Green
button13.Enabled = True
i = i – 1
x = x + 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
End If
If (textBox3.Text.ToLower() = button14.Text.ToLower()) Then
button14.Text = ""
Me.button14.BackColor = System.Drawing.Color.Green
button14.Enabled = True
i = i – 1
x = x + 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
End If
If (textBox3.Text.ToLower() = button15.Text.ToLower()) Then
button15.Text = ""
Me.button15.BackColor = System.Drawing.Color.Green
button15.Enabled = True
i = i – 1
x = x + 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
End If
If (textBox3.Text.ToLower() = button16.Text.ToLower()) Then
button16.Text = ""
Me.button16.BackColor = System.Drawing.Color.Green
button16.Enabled = True
i = i – 1
x = x + 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
End If
If (textBox3.Text.ToLower() = button17.Text.ToLower()) Then
button17.Text = ""
Me.button17.BackColor = System.Drawing.Color.Green
button17.Enabled = True
i = i – 1
x = x + 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
End If
If (textBox3.Text.ToLower() = button18.Text.ToLower()) Then
button18.Text = ""
Me.button18.BackColor = System.Drawing.Color.Green
button18.Enabled = True
i = i – 1
x = x + 1
label3.Text = "Dolu: " & i
label4.Text = "Boş: " & x
End If
End Sub
End Class[/code]

Projeyi İNDİR