Otopark Takip Programı 1.0 VB.Net
Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atabilirsiniz.
Debug klasörüne Data isimli Access dosyasını oluşturuyoruz . Alan isimleri aşağıda belirtilen musbil , dolu, bos tablolarını oluşturuyoruz.
Bir araç eklemiştim. İki araçda resimlerde gösterilen şekillerde ekliyorum.Programda Otoparktan dolan yer(konum)1. formaki (araç giriş) combodan silinip 3 formdaki (araç çıkış) comboya ekleniyor.
Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atabilirsiniz.
Araçlar aynı zamanda 3. forma (araç yerleri) ekleniyor.
3. form araç çıkış için.Gezinti düğmeleri ile çıkış yapılan araç seçildikten sonra Araç çıkış yapıldığı zaman konum 3. formdaki combodan silinerek 1 formdaki comboya tekrar ekleniyor.
Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atabilirsiniz.
2. kayıttaki aracın çıkışını yapıyorum.
Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atabilirsiniz.
Çıkış yapılan araç aynı zamanda araç yerlerinde (form3) siliniyor.
Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atabilirsiniz.
Form1’e yazılacak kodlar
[code lang=”vbnet”]Imports System.Data.OleDb
Public Class Form1
Public bag As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=data.mdb")
Public kmt As New OleDbCommand
Public adtr As OleDbDataAdapter
Public dtst As New DataSet
Sub combo()
bag.Open()
kmt.Connection = bag
kmt.CommandText = "Select * from bos"
Dim oku As OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()
comboBox1.Items.Add(oku(0).ToString())
End While
bag.Close()
oku.Dispose()
comboBox1.Sorted = True
End Sub
Sub combo2()
bag.Open()
kmt.Connection = bag
kmt.CommandText = "Select * from dolu"
Dim oku As OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()
Form3.comboBox1.Items.Add(oku(0).ToString())
End While
bag.Close()
oku.Dispose()
comboBox1.Sorted = True
End Sub
Sub listelesene()
dtst.Clear()
bag.Open()
adtr = New OleDbDataAdapter("select * From musbil", bag)
adtr.Fill(dtst, "musbil")
Form3.dataView1.Table = dtst.Tables(0)
Form3.dataGrid1.DataSource = Form3.dataView1
bag.Close()
adtr.Dispose()
End Sub
Sub plakayaz()
bag.Open()
kmt.Connection = bag
kmt.CommandText = "Select * from musbil"
Dim oku As OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()
Select Case oku(8).ToString()
Case "A1"
Form2.button1.Text = oku(4).ToString()
Form2.button1.BackColor = System.Drawing.Color.Red
Case "A2"
Form2.button2.Text = oku(4).ToString()
Form2.button2.BackColor = System.Drawing.Color.Red
Case "A3"
Form2.button3.Text = oku(4).ToString()
Form2.button3.BackColor = System.Drawing.Color.Red
Case "A4"
Form2.button4.Text = oku(4).ToString()
Form2.button4.BackColor = System.Drawing.Color.Red
Case "A5"
Form2.button5.Text = oku(4).ToString()
Form2.button5.BackColor = System.Drawing.Color.Red
Case "B1"
Form2.button6.Text = oku(4).ToString()
Form2.button6.BackColor = System.Drawing.Color.Red
Case "B2"
Form2.button7.Text = oku(4).ToString()
Form2.button7.BackColor = System.Drawing.Color.Red
Case "B3"
Form2.button8.Text = oku(4).ToString()
Form2.button8.BackColor = System.Drawing.Color.Red
Case "B4"
Form2.button9.Text = oku(4).ToString()
Form2.button9.BackColor = System.Drawing.Color.Red
Case "B5"
Form2.button10.Text = oku(4).ToString()
Form2.button10.BackColor = System.Drawing.Color.Red
Case "C1"
Form2.button11.Text = oku(4).ToString()
Form2.button11.BackColor = System.Drawing.Color.Red
Case "C2"
Form2.button12.Text = oku(4).ToString()
Form2.button12.BackColor = System.Drawing.Color.Red
Case "C3"
Form2.button13.Text = oku(4).ToString()
Form2.button13.BackColor = System.Drawing.Color.Red
Case "C4"
Form2.button14.Text = oku(4).ToString()
Form2.button14.BackColor = System.Drawing.Color.Red
Case "C5"
Form2.button15.Text = oku(4).ToString()
Form2.button15.BackColor = System.Drawing.Color.Red
Case "D1"
Form2.button16.Text = oku(4).ToString()
Form2.button16.BackColor = System.Drawing.Color.Red
Case "D2"
Form2.button17.Text = oku(4).ToString()
Form2.button17.BackColor = System.Drawing.Color.Red
Case "D3"
Form2.button18.Text = oku(4).ToString()
Form2.button18.BackColor = System.Drawing.Color.Red
Case "D4"
Form2.button19.Text = oku(4).ToString()
Form2.button19.BackColor = System.Drawing.Color.Red
Case "D5"
Form2.button20.Text = oku(4).ToString()
Form2.button20.BackColor = System.Drawing.Color.Red
End Select
End While
bag.Close()
oku.Close()
End Sub
Sub plakasil()
Select Case Form3.comboBox1.Text
Case "A1"
Form2.button1.Text = "A1"
Form2.button1.BackColor = System.Drawing.Color.Green
Case "A2"
Form2.button2.Text = "A2"
Form2.button2.BackColor = System.Drawing.Color.Green
Case "A3"
Form2.button3.Text = "A3"
Form2.button3.BackColor = System.Drawing.Color.Green
Case "A4"
Form2.button4.Text = "A4"
Form2.button4.BackColor = System.Drawing.Color.Green
Case "A5"
Form2.button5.Text = "A5"
Form2.button5.BackColor = System.Drawing.Color.Green
Case "B1"
Form2.button6.Text = "B1"
Form2.button6.BackColor = System.Drawing.Color.Green
Case "B2"
Form2.button7.Text = "B2"
Form2.button7.BackColor = System.Drawing.Color.Green
Case "B3"
Form2.button8.Text = "B3"
Form2.button8.BackColor = System.Drawing.Color.Green
Case "B4"
Form2.button9.Text = "B4"
Form2.button9.BackColor = System.Drawing.Color.Green
Case "B5"
Form2.button10.Text = "B5"
Form2.button10.BackColor = System.Drawing.Color.Green
Case "C1"
Form2.button11.Text = "C1"
Form2.button11.BackColor = System.Drawing.Color.Green
Case "C2"
Form2.button12.Text = "C2"
Form2.button12.BackColor = System.Drawing.Color.Green
Case "C3"
Form2.button13.Text = "C3"
Form2.button13.BackColor = System.Drawing.Color.Green
Case "C4"
Form2.button14.Text = "C4"
Form2.button14.BackColor = System.Drawing.Color.Green
Case "C5"
Form2.button15.Text = "C5"
Form2.button15.BackColor = System.Drawing.Color.Green
Case "D1"
Form2.button16.Text = "D1"
Form2.button16.BackColor = System.Drawing.Color.Green
Case "D2"
Form2.button17.Text = "D2"
Form2.button17.BackColor = System.Drawing.Color.Green
Case "D3"
Form2.button18.Text = "D3"
Form2.button18.BackColor = System.Drawing.Color.Green
Case "D4"
Form2.button19.Text = "D4"
Form2.button19.BackColor = System.Drawing.Color.Green
Case "D5"
Form2.button20.Text = "D5"
Form2.button20.BackColor = System.Drawing.Color.Green
End Select
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
combo()
listelesene()
End Sub
Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
Form2.Show()
Me.Hide()
End Sub
Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click
Form3.Show()
Me.Hide()
End Sub
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
If (textBox1.Text <> "" And textBox5.Text <> "" And comboBox1.Text <> "") Then
bag.Open()
kmt.Connection = bag
kmt.CommandText = "INSERT INTO musbil(TcKimlik,Ad,Soyad,CepTel,PlakaNo,Marka,Model,Renk,Konumu) VALUES (‘" + textBox1.Text + "’,’" + textBox2.Text + "’,’" + textBox3.Text + "’,’" + textBox4.Text + "’,’" + textBox5.Text + "’,’" + textBox6.Text + "’,’" + textBox7.Text + "’,’" + textBox8.Text + "’,’" + comboBox1.Text + "’) "
kmt.ExecuteNonQuery()
kmt.CommandText = "INSERT INTO dolu(doluyerler) VALUES (‘" + comboBox1.Text + "’) "
kmt.ExecuteNonQuery()
kmt.CommandText = "DELETE from bos WHERE bosyerler=’" + comboBox1.Text + "’"
kmt.ExecuteNonQuery()
kmt.Dispose()
bag.Close()
comboBox1.Items.Clear()
comboBox1.Text = ""
combo()
plakayaz()
listelesene()
textBox1.Clear()
textBox2.Clear()
textBox3.Clear()
textBox4.Clear()
textBox5.Clear()
textBox6.Clear()
textBox7.Clear()
textBox8.Clear()
comboBox1.Items.Clear()
MessageBox.Show("Kayıt işlemi tamamlandı ! ")
Else
MessageBox.Show("Boş alanları doldurunuz !!!")
End If
End Sub
Private Sub button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button7.Click
Application.Exit()
End Sub
End Class[/code]
Form2’ye yazılacak kodlar
[code lang=”vbnet”]Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form1.plakayaz()
End Sub
Private Sub button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button21.Click
Form1.Show()
Me.Hide()
End Sub
Private Sub button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button22.Click
Application.Exit()
End Sub
End Class[/code]
Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atabilirsiniz.
Form3’ye yazılacak kodlar
[code lang=”vbnet”]Public Class Form3
Sub texteyaz()
textBox9.Text = (Me.BindingContext(Form1.dtst, "musbil").Position + 1) & " / " & Me.BindingContext(Form1.dtst, "musbil").Count
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form1.listelesene()
Form1.combo2()
textBox1.DataBindings.Add("Text", Form1.dtst, "musbil.TcKimlik")
textBox2.DataBindings.Add("Text", Form1.dtst, "musbil.Ad")
textBox3.DataBindings.Add("Text", Form1.dtst, "musbil.Soyad")
textBox4.DataBindings.Add("Text", Form1.dtst, "musbil.CepTel")
textBox5.DataBindings.Add("Text", Form1.dtst, "musbil.PlakaNo")
textBox6.DataBindings.Add("Text", Form1.dtst, "musbil.Marka")
textBox7.DataBindings.Add("Text", Form1.dtst, "musbil.Model")
textBox8.DataBindings.Add("Text", Form1.dtst, "musbil.Renk")
comboBox1.DataBindings.Add("Text", Form1.dtst, "musbil.Konumu")
texteyaz()
End Sub
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
If (textBox1.Text <> "" And textBox5.Text <> "" And comboBox1.Text <> "") Then
Dim cevap
cevap = MsgBox("Kaydı silmek istediğinizden eminmisiniz ", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "uyarı")
If cevap = MsgBoxResult.Yes Then
Form1.plakasil()
Form1.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "DELETE from musbil WHERE TcKimlik=’" + textBox1.Text + "’"
Form1.kmt.ExecuteNonQuery()
Form1.kmt.CommandText = "INSERT INTO bos(bosyerler) VALUES (‘" + comboBox1.Text + "’) "
Form1.kmt.ExecuteNonQuery()
Form1.kmt.CommandText = "DELETE from dolu WHERE doluyerler=’" + comboBox1.Text + "’"
Form1.kmt.ExecuteNonQuery()
Form1.kmt.Dispose()
Form1.bag.Close()
comboBox1.Items.Clear()
Form1.comboBox1.Items.Clear()
comboBox1.Text = ""
Form1.combo()
Form1.combo2()
Form1.dtst.Clear()
Form1.listelesene()
End If
Else
MessageBox.Show("Boş alanları doldurunuz !!!")
End If
End Sub
Private Sub button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button6.Click
Form1.Show()
Me.Hide()
End Sub
Private Sub button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button7.Click
Application.Exit()
End Sub
Private Sub button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button5.Click
Me.BindingContext(Form1.dtst, "musbil").Position = Me.BindingContext(Form1.dtst, "musbil").Count
texteyaz()
End Sub
Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click
Me.BindingContext(Form1.dtst, "musbil").Position += 1
texteyaz()
End Sub
Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click
Me.BindingContext(Form1.dtst, "musbil").Position -= 1
texteyaz()
End Sub
Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
Me.BindingContext(Form1.dtst, "musbil").Position = 0
texteyaz()
End Sub
End Class
[/code]
Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atabilirsiniz.
Öncelikle böylesine güzel bir örneği benim gibi yeni başlayanlara öğrenmesi maksadı ile zaman ayırarak hazırladığınız için şükranlarımı sunarım. Çok Teşekkürler. Diğer arkadaşlara yardımı olması açısından araç girişi yapıldıktan sonra combobox tekrar dolmuyor sanırım gözden kaçtı.
MessageBox.Show(“Kayıt işlemi tamamlandı ! “) komutunun hemen altına combo() yazılırsa buradaki basit işlemde tamamlanacaktır. Tekrar teşekkürler başarılarınızın ve paylaşımlarınızın devamını dilerim
Programlar çok güzel bir çok site gezdim ama nerdeyse en güzel kod sitesi bu site
ama anlatım yönünden biraz eksik temel konuları biliyoruz ama veri tabanına bağlan ve veri alma işlemlerini öğremek istiyorum ödev için lazım ….
Programı hazırlıyacam ama veri bağlantı işlemlerini yapamadım yardımcı olursanız sevinirim ..
Mesela Access ten nasıl veri alabilriz yada veri değişikliği yaparız…
Access teki verileri comboboxta nasıl gösteririz…… vs.
SİTE SÜPER OLMUŞ.
c#.net ders 69,70,71,72,73,74,75 incele.Vb.net ile arasında fazla fark yok.Çeviricileri kullanarak c#.net kodlarını vb.nete çevirebilirsin.Çevirici siteleri için http://www.gorselprogramlama.com/c-net-kodlarini-vb-net-e-cevirme linkine bak.
bana acilen tur programı lazım admin yardımcı olursan sevinirim acilllll
ne istediğini ayrıntılarıyla gorselprogram@gmail.com adresine mail at.
bu programın amacı hakkında biraz bilgi verebilirmisiniz çok önemli ltfnnn şimdiden teşekkür ederm
Otoparktaki araçların konumlarının tespiti ve yerleşimi.
çok teşekkür ederim bu da yeterli bnm için ama bı rapor hazırlıyorum onun ıcın bıraz kısa 🙁 daha ne yazabılırım bıraz daha yardımcı olabılırmısınız şimdiden çok teşekkür ederim….
programa saate dayalı ücretlemede eklermisiniz?
Dr mert:
Eklentiler için gorselprogram@gmail.com‘a mail atınız.
bana şu lazım misafir otoparka aracı bırakıyor otopark aracın sahibine kartı veriyor misafir çıkınca başka bi ekrandan o şifreyi giriyor şifre otoparka gidiyor ve vale aracı teslim ediyor.