Otel Müşteri Kayıt Programı VB.Net
[code lang=”vbnet”]
//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 " & 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" & musteri(sayi) & " dir kendisini tebrik ediyoruz ve başlarılarının devamını diliyoruz")
End If
End Sub
End Class
[/code]
Hocam Allah Razı olsun.. Site Çok güzel olmuş eline sağlık sitenden çıkmıyorum bütün programları incelemeden çıkmamda . Sizden ricam şu DATA olaylarını açılamanız ;
Visual Basic.Net’te veri tabanını nasıl kullanırız ve hangi veritabanını kullanmak daha basit onu anlatırsanız çok güzel olacak…
Ve yapılan programlarda veri kayıtları nereye yapılıyor Access veya SQL mi?? ………..
biz projelerde access kullanıyoruz.Kullanım kolaylığı açısından fazla fark yok.
Süpersin bizde okulda access görüyoruz çok iyi oldu ….
BU SİTE GÖRDÜĞÜM EN İYİ KOD SİTESİ ….
Ama yeni kodlar eklenirse daha da güzel olur inş.
Bir takip programım var ve bu takip programına kullanıcı adı ve parola ile girilmesini istiyorum yani
private void kullaniciGiris_Click(object sender, EventArgs e)
{
string Kullanici;
string sifre;
Kullanici = textBox1.Text;
sifre = textBox2.Text;
if (Kullanici == “Prof” && sifre == “123”)
{
MessageBox.Show(“Giriş Başarılı”);
}
else
MessageBox.Show(“Hatalı Giriş”);
}
}
}
doğru girilmiş ise form1 i açmasını istiyorum nasıl yapabilirim programlama bilgim çok az bu kadarını yapabiliyorum şimdiden teşekkürler.
Form2 frm2 = new Form2();
private void kullaniciGiris_Click(object sender, EventArgs e)
{
string Kullanici;
string sifre;
Kullanici = textBox1.Text;
sifre = textBox2.Text;
if (Kullanici == “Prof” && sifre == “123”)
{
frm2.Show();
this.Hide();
}
else
MessageBox.Show(“Hatalı Giriş”);
}
}
}
mrb ben kütüphane takip programı yazıyorum ve sadece 2 günlük bi vaktim kaldı kitap alıp verme işlemlerini yapamıyorum. Örneğin kütüphaneden alınan bir kitabın çıkışını yapıcaz burda çıkış tarihini giriyoruz kitabın tarihi geçtiği zaman sistem beni nasıl uyaracak yardımcı olursanız çok sevinirim lütfen yarım edin
veri tabanı hangisini kullanıyorsun eğer sql kullanıyorsan
Dim b As New Sqlclient.sqlconnection(DataSource=bilgisayar Adı ,İnitial Catalog=Veritabanı Adı;Integrated Security=True)
daha sonra command ve adapter nesneleri tanımla daha sonra
İf Textbox1.text=”” and Textbox2.text Then
k.connectıon =b
k.commandtext=sorgu cümlesi ni yaz daha sonra
formadı.show ()
yazınca her şekilde giriş yapar ve tek bir kullanıcı ismi tanımlamaya gerek kalmaz
ben bölgelere ve illere göre tarihi kültürel ve turistlik yerleri gösteren bi program yapıcam yardımcı olurmusunuz nasıl yapabilirim
mrb hangi dilden başlamalıyım ? C# öneriyor herkes ama Java dilinin kolay ve acemiler için iyi olan bir dil oldugunu soyleyende var. Bir ipucu verirseniz ..
mrb:
CSharp.