Gorsel Programlama

Otel Müşteri Kayıt Programı VB.Net

//FORM1 İçerisine Yazılacak Kod Satırı

Public Class Form1

Private Sub comboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboBox1.SelectedIndexChanged
Dim frm2 As New Form2()
Select Case comboBox1.Text
Case "TÜRK"
frm2.Show()
Me.Hide()
Exit Select
End Select
Select Case comboBox1.Text
Case "Yabancı"
label1.Visible = True
label2.Visible = True
label3.Visible = True
textBox1.Visible = True

Exit Select
End Select

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
label1.Visible = False
label2.Visible = False
label3.Visible = False
textBox1.Visible = False

End Sub

Private Sub label1_DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles label1.DragOver
label1.Text = ("Açıklaması:HOW MANY DAY WILL YOU STAY ")
'niye açıklamadı anlamadım
End Sub

Private Sub textBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textBox1.TextChanged
Dim gun As Integer, tutar As Integer, para As Integer

Try
gun = Integer.Parse(textBox1.Text)
para = 100
tutar = para * gun
label2.Text = "Toplam Ödeyeceğiniz tutar " & tutar.ToString()
Catch
MessageBox.Show("lütfen rakam giriniz")
End Try

End Sub
End Class

//FORM2 İçerisine Yazılacak Kod Satırı

Public Class Form2
Private musteri As String() = New String(49) {}
Private para As Integer
Private i As Integer = 0
'dizi ye eklemek için
Private rastgele As New Random()
Private sn As Integer

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
timer1.Interval = 1000
sn = 10

End Sub

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Dim frm1 As New Form1()
frm1.Show()
Me.Hide()

End Sub

Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
'string adsoyad;
'adsoyad=textBox2.Text;

musteri(i) = textBox2.Text
i += 1

End Sub

Private Sub textBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textBox3.TextChanged
Dim gun As Integer, tutar As Integer
Try

gun = Integer.Parse(textBox3.Text)

If textBox1.Text = "" Then
'eğer memleketi boş geçmişse
para = 50
tutar = para * gun

label6.Text = "Toplam Ödeyeceğiniz tutar " & tutar.ToString()
End If
If textBox1.Text <> "" Then
'eğer memlekete girmişse yani boşlukdan farklı bişey girilmişse

tutar = para * gun
label6.Text = "Toplam Ödeyeceğiniz tutar " &amp;amp; tutar.ToString()
End If
Catch

MessageBox.Show("lüften rakam giriniz")
End Try

End Sub

Private Sub textBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textBox1.TextChanged
Try

If String.Compare(textBox1.Text, "malatya", True) = 0 Then
'text1 ile malatyayı karşılaştırıyor aynıysa alttaki işlemi yapsın
'yukarda büyük küçük harfe dikkat etmiyor
label5.Text = "Günlük Ücret 25 TL"

para = 25
Else
'eğer text1 ile malatya aynı değilse alttaki işlemi yapsın
label5.Text = "Günlük Ücret 50 TL"
para = 50
End If
Catch
MessageBox.Show("lütfen memleketinizi giriniz.")
End Try

End Sub

Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click
Dim a As Integer
For a = 0 To i - 1
'for döngüsü kullanılıyor a diye değişken var a ilk başda sıfır noktalı virgül a<i a i den küçük olcak demiş ve a yı birer arttırıyor
listBox1.Items.Add(musteri(a))
Next
'burdada liste yazdırıyor

End Sub

Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click
MessageBox.Show(" Sabredin Sadece 10 saniye kaldı.")
timer1.Enabled = True

End Sub

Private Sub button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button5.Click
Close()

End Sub

Private Sub timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timer1.Tick
sn -= 1
label8.Text = sn.ToString()

If sn = 0 Then

Dim sayi As Integer
sayi = rastgele.[Next](i)
'i kadar giriş yaptığı için
listBox1.Items.Clear()
listBox1.Items.Add(musteri(sayi))
timer1.Enabled = False
MessageBox.Show("1 haftalık tatil kazanan müşterimiz" &amp;amp; musteri(sayi) &amp;amp; " dir kendisini tebrik ediyoruz ve başlarılarının devamını diliyoruz")
End If

End Sub
End Class

Projeyi İNDİR