Stok Takip Programı Vb.Net

Stok Ekleme,Silme ve güncelleme işlemleri yapılıyor.Stok Adı ve Stok modeline göre arama yapılabiliyor,.Kayıt esnasında resmin sadece veri yolu kaydedilerek veri tabanın hızlı olması sağlanıyor.

Datagiridview’de hangi kayıt üzerindeyseniz o kayda ait bilgiler ve resim gözüküyor.

Kayıt işleminde boş bırakılan alanlar icon ile uyarma gerçekleştiriliyor. Stok Adı ve Kayıt yapan alanında sayı , Stok Adedi alanında harf girişi yasaklanıyor.Kayıtlı Stok SeriNo uyarı mesajı ile bilgilendirilerek kaydedilmiyor.

Programın kodları için gorselprogram@gmail.com mail adresi ile iletişime geçiniz.

Aile Hekimliği Takip Sistemi Vb.Net

Şifreli Giriş Ekranı

Doktor İşlemleri –>Aşağıdaki ekran gelir.bu ekrandan arama ,ekleme ve silme  işlemi gerçekleştirilebilir.

Hasta İşlemleri –>Aşağıdaki ekran gelir.Bu ekrandan arama ,ekleme ve silme  işlemi gerçekleştirilebilir.

Muayene İşlemleri –>Aşağıdaki ekran gelir.Hasta Ekle butonu ile Hasta muayene ekranına geçilir.

Hasta Ekle –>Aşağıdaki ekran gelir.Burada arama işlemi ilgili hasta aranabilir.Muayane yapılacak hasta çift tıklanır.Bilgiler gerekli textlere otomatik doldurulur.

Hasta Kabul –>Aşağıdaki ekran gelir.İlgili hasta çift tıklanır.Hasta Kaydetme ekranı gelir.

İstenilen tarihe göre hasta raporlama işlemi gerçekleştirilebilir.

Programın kodları için gorselprogram@gmail.com mail adresi ile iletişime geçiniz.

Market Satış Takip Programı Vb.Net

Anaform–> Seçilen tarihe göre yapılan satışları görme imkanı

Müşteri İşlemleri –> Müşteri tüm kriterlere göre arama ve silme imkanı(Ad,soyad,Tc Kimlik gibi).

Müşteri Ekleme –> Yıldızlı alanlara giriş zorunlu

Ürün İşlemleri –>Ürünleri tüm kriterlere göre arama ve silme  imkanı(Ürün Adı,Ürün kodu,kategori gibi)

Ürün Ekleme Ekleme –> Yıldızlı alanlara giriş zorunlu. + butonu ile firma – kategori ekleme ve silme imkanı.

Kasiyer İşlemleri –>Kasiyerleri tüm kriterlere göre arama ve silme imkanı(Ad,Soyad,Tc Kimlik gibi)

Kasiyer Ekleme –> Yıldızlı alanlara giriş zorunlu

Stok İşlemleri –>Ürünleri tüm kriterlere göre arama ve silme imkanı(Ürün Adı,Ürün kodu,kategori gibi) Var olan ürüne stok ekleme veya yeni stok ekleme imkanı.

Stok Ekleme –> Yıldızlı alanlara giriş zorunlu

Satış İşlemleri –>Müşteri arama yapılabilir. Stok ta olan ürünler comboda gözükür.Stok kalmayan ürünler comboda gözükmez.

Listeden seçilen müşterinin bilgileri textlere otomatik olarak gelir.Ürün Fiyat ve adedine göre Toplam Tutar otomatik hesaplanır.

Programın kodları için gorselprogram@gmail.com mail adresi ile iletişime geçiniz.

Public Class Form1

Private Sub btnKapat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKapat.Click

timer1.Start()

End Sub

Private Sub timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timer1.Tick

If (Convert.ToString(DateTime.Now.Second) = Convert.ToString(numericUpDown1.Value)) Then

'http://www.gorselprogramlama.com/

If (Convert.ToString(DateTime.Now.Minute) = Convert.ToString(numericUpDown2.Value)) Then

If (Convert.ToString(DateTime.Now.Hour) = Convert.ToString(numericUpDown3.Value)) Then

'http://www.gorselprogramlama.com/

System.Diagnostics.Process.Start("shutdown", "-f -s")

End If

'http://www.gorselprogramlama.com/

End If

End If

End Sub

End Class

Dosyayı İNDİR

projemizin bin-debug klasöründe data isminde bir access(2007) dosyası oluşturuyoruz.yukarıdaki tabloyu oluşturup ogrbil isminde kaydediyoruz.  

Alan türleri

id–>otomatik sayı

ad-soyad-sınıf–>metin

Yukarıdaki sorguyu oluşturup sorgu isminde kaydediyoruz.Aşağıdaki formu oluşturuyoruz.

Not :  Eğer access dosyasını 2003′te oluşturuyorsanız Microsoft.Ace.Oledb.12.0 yerine Microsoft.Jet.Oledb.4.0 yazıyoruz.

Imports System.Data.OleDb  'www.gorselprogramlama.com

Public Class Form1

Dim bag As New OleDbConnection("Provider=Microsoft.Ace.Oledb.12.0;Data Source=data.accdb")

Dim kmt As New OleDbCommand()  'www.gorselprogramlama.com

Dim dt As New DataTable()

Dim adtr As New OleDbDataAdapter()

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

kmt.Connection = bag  'www.gorselprogramlama.com

kmt.CommandType = CommandType.StoredProcedure

kmt.CommandText = "sorgu"

Dim adtr As New OleDbDataAdapter(kmt)

bag.Open()

adtr.Fill(dt) 'www.gorselprogramlama.com

dataGridView1.DataSource = dt

bag.Close()

End Sub

End Class'www.gorselprogramlama.com

Dosyayı İNDİR

Public Class Form1 'www.gorselprogramlama.com

Private Sub btnSifrele_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSifrele.Click

Dim metin As String = textBox1.Text

Dim anahtar As String = textBox3.Text 'www.gorselprogramlama.com

Dim sifreli_metin As String = ""

Dim j As Byte = 0

For k = 0 To Strings.Len(metin) - 1 'Metni karakter karakter sonuna kadar tara.

sifreli_metin = sifreli_metin + Strings.Chr((Strings.Asc(metin(k)) + Strings.Asc(anahtar(j))) Mod 255)

'Şifreli metni, her bir karakterinin koduna anahtar kelimenin sıradaki karakterinin kodunu ekleyerek bul.

'Neden Mod 255? Çünkü toplam 255 değerini aşabilir.

j = j + 1 'www.gorselprogramlama.com

If j = Strings.Len(anahtar) Then j = 0 'Anahtar kelimenin indisi ayrı tutulmalı. Yoksa indisde değer aşımı olur.

Next

textBox2.Text = sifreli_metin

End Sub 'www.gorselprogramlama.com

Private Sub btnSifreCoz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSifreCoz.Click

Dim sifreli_metin As String = textBox1.Text

Dim anahtar As String = textBox3.Text

Dim metin As String = ""

Dim kod As Integer 'www.gorselprogramlama.com

Dim j As Byte = 0

For k = 0 To Strings.Len(sifreli_metin) - 1

kod = Strings.Asc(sifreli_metin(k)) - Strings.Asc(anahtar(j))

If kod <= 0 Then kod = kod + 255 Else kod = kod Mod 255

metin = metin + Strings.Chr(kod) 'www.gorselprogramlama.com

j = j + 1

If j = Strings.Len(anahtar) Then j = 0

Next

textBox2.Text = metin 'www.gorselprogramlama.com

End Sub

End Class

Dosyayı İNDİR

 

Public Class Form1 

Public Shared Function cevir(ByVal m As String, ByVal uz As Integer) As String 

Dim al As String, al2 As String, s As String = "" 

al = m.ToLower() 

al2 = m.ToUpper() 

For i As Integer = 0 To uz - 1 

If m(i) = al(i) Then 

s = s & al2(i) 

ElseIf m(i) = al2(i) Then 

s = s & al(i) 

End If 

Next 

Return s 

End Function 

Private Sub btnCevir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCevir.Click 

Dim ad As String 

Dim uz As Integer 

ad = textBox1.Text 

uz = ad.Length 

label3.Text = (cevir(ad, uz)) 

End Sub 

End Class 

Dosyayı İNDİR

Soru : 

1.Kullanıcının TextBox’ a girdiği herhangi bir sayının yarı mükemmel sayı olup olmadığı kontrol edilerek sonuç kullanıcıya geri bildirilecek.
2. Kullanıcı istediği basamak değerini ComboBox’ tan seçerek ilgili basamak değerindeki yarı mükemmel sayıların listesini sıralı bir şekilde ekranda görebilecek. (Basamak sayısı en fazla 4 olacak.) 

Yarı Mükemmel Sayı Tanımı:  Bir sayının kendisi hariç, son üç tamsayı bölenlerinin toplamı sayının kendisini veriyorsa bu sayıya yarı mükemmel sayı denir.
Örnek: 18 = 1, 2, 3, 6, 9, 18 (Son üç tamsayı bölenleri toplamı: 3+6+9 = 18)……………. 

Aşağıdaki form görüntüsünü oluşturuyoruz. 

Private Sub btnBul_Click(sender As Object, e As EventArgs)

listBox1.Items.Clear()

listBox2.Items.Clear()

Dim sayac As Integer = 0, sonUcToplam As Integer = 0, girilenSayi As Integer = Integer.Parse(textBox1.Text)

Dim sayilar As Integer() = New Integer(99) {}

'http://www.gorselprogramlama.com

For i As Integer = 1 To girilenSayi - 1

If girilenSayi Mod i = 0 Then

sayilar(sayac) = i

sayac += 1

End If

Next

For i As Integer = 0 To sayac - 1

'http://www.gorselprogramlama.com

listBox1.Items.Add(sayilar(i))

Next

If sayac >= 3 Then

For i As Integer = sayac - 1 To sayac - 3 Step -1

listBox2.Items.Add(sayilar(i))

sonUcToplam += sayilar(i)

Next

End If

'http://www.gorselprogramlama.com

If sayac >= 3 AndAlso girilenSayi = sonUcToplam Then

label2.Text = "Girilen sayı yarı mükemmel sayıdır"

Else

label2.Text = "Girilen sayı yarı mükemmel sayı değildir"

End If

End Sub

Private Sub btnBul2_Click(sender As Object, e As EventArgs)

listBox3.Items.Clear()

If comboBox1.Text = "1" Then

For k As Integer = 1 To 9

'http://www.gorselprogramlama.com

Dim sayac As Integer = 0, sonUcToplam As Integer = 0

Dim sayilar As Integer() = New Integer(99) {}

For i As Integer = 1 To k - 1

If k Mod i = 0 Then

sayilar(sayac) = i

sayac += 1

End If

Next

'http://www.gorselprogramlama.com

If sayac >= 3 Then

For i As Integer = sayac - 1 To sayac - 3 Step -1

sonUcToplam += sayilar(i)

Next

End If

If sayac >= 3 AndAlso k = sonUcToplam Then

listBox3.Items.Add(k)

End If

Next

End If

'http://www.gorselprogramlama.com

If comboBox1.Text = "2" Then

For k As Integer = 10 To 99

'http://www.gorselprogramlama.com

Dim sayac As Integer = 0, sonUcToplam As Integer = 0

Dim sayilar As Integer() = New Integer(99) {}

For i As Integer = 1 To k - 1

If k Mod i = 0 Then

sayilar(sayac) = i

sayac += 1

End If

Next

'http://www.gorselprogramlama.com

If sayac >= 3 Then

For i As Integer = sayac - 1 To sayac - 3 Step -1

sonUcToplam += sayilar(i)

Next

End If

If sayac >= 3 AndAlso k = sonUcToplam Then

listBox3.Items.Add(k)

End If

Next

End If

If comboBox1.Text = "3" Then

For k As Integer = 100 To 999

Dim sayac As Integer = 0, sonUcToplam As Integer = 0

'http://www.gorselprogramlama.com

Dim sayilar As Integer() = New Integer(999) {}

For i As Integer = 1 To k - 1

If k Mod i = 0 Then

sayilar(sayac) = i

sayac += 1

End If

Next

If sayac >= 3 Then

For i As Integer = sayac - 1 To sayac - 3 Step -1

'http://www.gorselprogramlama.com

sonUcToplam += sayilar(i)

Next

End If

If sayac >= 3 AndAlso k = sonUcToplam Then

listBox3.Items.Add(k)

End If

Next

End If

If comboBox1.Text = "4" Then

For k As Integer = 1000 To 9999

Dim sayac As Integer = 0, sonUcToplam As Integer = 0

'http://www.gorselprogramlama.com

Dim sayilar As Integer() = New Integer(999) {}

For i As Integer = 1 To k - 1

If k Mod i = 0 Then

sayilar(sayac) = i

sayac += 1

End If

Next

If sayac >= 3 Then

'http://www.gorselprogramlama.com

For i As Integer = sayac - 1 To sayac - 3 Step -1

sonUcToplam += sayilar(i)

Next

End If

If sayac >= 3 AndAlso k = sonUcToplam Then

listBox3.Items.Add(k)

End If

'http://www.gorselprogramlama.com

Next

End If

End Sub

**  Form1 yüklendiğinde belirtilen boyutta , belirtilen koordinata label oluşturulur.

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim label As New Label()

label.Top = 50

label.Left = 70

label.Width = 100

label.Text = "label1"

Me.Controls.Add(label)

End Sub

End Class

 

private void button1_Click(object sender, EventArgs e) 

{ 

int toplam=0; 

for (int i = int.Parse(textBox1.Text); i <= int.Parse(textBox2.Text); i++) 

{ 

if (i%2==0) 

{ 

toplam += i; 

} 

} 

label2.Text = toplam.ToString(); 

} 

**  Form1 yüklendiğinde belirtilen boyutta , belirtilen koordinata textbox oluşturulur.

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim textbox As New TextBox()

textbox.Top = 50

textbox.Left = 70

textbox.Width = 100

textbox.Text = "textbox"

Me.Controls.Add(textbox)

End Sub

End Class

**  Form1 yüklendiğinde belirtilen boyutta , belirtilen koordinata buton oluşturulur.

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim dugme As New Button()

dugme.Top = 50

dugme.Left = 70

dugme.Width = 100

dugme.Text = "Buton1"

Me.Controls.Add(dugme)

End Sub

End Class

Kullanıcı giriş Ekranı

Ana Ekran

Ürün Ekleme Ekranı

Kategori alanın yanındaki +’ya tıklanınca gelen Kategori ekleme ekranı

Personel Ekleme ekranı

Demirbaş Ekleme Ekranı. Ürün combosunda eklenmiş ürünler gözükür.Alım Yapan ve yaptıran combosunda eklenmiş personeller gözükür.Depertmant combosunda eklenmiş depermantlar gözükür.

Yeni Zimmet Ekranı . Seçilen demirbaşa göre zimmette olmayanların seri noları Serin No combosunda gözükür.

Raporlar menüsünden Personel,Ürünler,Zimmet ve demirbaş listesinin çeşitli seçenekeleriyle çıktısı alınabilir.Aşağıdaki örnekte gözüktüğü gibi.

Kullanıcılar Ekranı.

Programın kodları için gorselprogram@gmail.com mail adresi ile iletişime geçiniz.

Ana formda eklenen son üç albüm ve şarkı lisetelenir

Albüm Ekle butonun tıklanınca form2 yani aşağıdaki form ekrana gelir.Yıldızlı alanlar zorunlu alanlardır.Boş bırakılmaz.

Albüm Düzenle butonu tıklandığında datagridview’de hangi ziyaretçi seçili ise o kişinin bilgilerinin düzenlenebileceği form3 ekrana gelir.

Arama işlemi aşağıdaki comboboxta görüldüğü gibi 6 kritere göre yapılabilir.

Mesela textboxa meyra  girildiğinde  Sanatçı adında meyra geçenleri listeler.

Şarkı ekle tıklayınca form4 ekrana gelir. 

Listeden sanatçı seçilip Şarkı ekle butonu tıklanınca form5 ekrana gelir.Aşağıda gözüktüğü gibi Kayıt No,Albüm No,Sanatçı adı , Albüm Adı textboxlara yazılı bir şekilde gelir.

Ana formdan Albümlere göre şarkılar tıklandığı zaman form7 ekrana gelir.Combolarda seçilen Samatçı adı ve Albüm adına göre listboxta şarkılar listelenir.

Programın kodları için gorselprogram@gmail.com mail adresi ile iletişime geçiniz.

Ziyaretçi Ekle butonun tıklanınca form2 yani aşağıdaki form ekrana gelir.Yılızlı alanlar zorunlu alanlardır.Boş bırakılmaz.

Ziyaretçi Düzenle butonu tıklandığında datagridview’de hangi ziyaretçi seçili ise o kişinin bilgilerinin düzenlenebileceği form3 ekrana gelir.

Kişinin Cep telini girererek dzüenleme yaptık.

Arama işlemi aşağıdaki comboboxta görüldüğü gibi 8 kritere göre yapılabilir.

Mesela textboxa b harfi girildiğinde  soyadında b geçenleri listeler.

Programın kodları için gorselprogram@gmail.com mail adresi ile iletişime geçiniz.

Dosyayı İNDİR