Visual Basic ile 4 Örnek Program Yapımı ve Kodları - Kitle.NET

Visual Basic ile 4 Örnek Program Yapımı ve Kodları

Visual Basic ile 4 Örnek Program Yapımı ve Kodları

Yıllar önce kodladığım ve kapattığım eski blogumda paylaştığım bu programları sizler için buraya da ekliyorum. 🙂

Sizler için Visual Basic üzerinden yapabileceğiniz 4 adet hazır programı detaylıca hazırladık. Proje ödevleri veya başlangıç olarak öğrenebilmeniz için muhteşem 4 başlangıç programını sizlerle birlikte öğreneceğiz. Her biri oldukça işinize yarayacak olan bu 4 hazır VB.Net projesi baştan sona kodları ile sizlere sunuyoruz.

Yukarıda, resimde de gördüğünüz gibi bu yazımızda 4 adet Visual Basic programının nasıl yapıldığını, tüm kodlarını detaylıca paylaşacağız.

Visual Basic Hesap Makinesi Yapımı

Visual Basic Hesap Makinesi Yapımı
Visual Basic Hesap Makinesi Yapımı

Visual Basic ile 2 Sayıyı Toplamamızı, Bölmemizi, Çarpmamızı ve Çıkarmamızı Sağlayan Bir Hesap Makinesi Yapacağız. Detaylıca Anlatım Aşağıdadır. Dikkatli Okuyarak Projeyi Kolayca Bitirebilirsiniz.

Program Görüntüsü Üsttedir (Görüntüdeki Programa Class Dosyası ile Tema Eklenmiştir..)

Öncelikle Projemizi Açıyoruz ve 2 Adet Textbox Ekliyoruz. İşlem Yapılırken Sayılar Bu Bölüme Yazılacak.

Daha Sonra 4 Adet Buton Ekliyoruz. Toplama,Çıkarma,Bölme,Çarpma İşlem Butonları.

Daha Sonra Toplama Butonuna Çift Tıklıyoruz ve Aşağıdaki Kodları Yazıyoruz.

Dim s1, s2, s3 As Single
s1 = Val(TextBox1.Text)
s2 = Val(TextBox2.Text)
s3 = s1 + s2
Label1.Text = s3

s1 Textbox1 İçin, s2 de Textbox2 İçin Belirtilen İsimdir. Sayi1 vb. gibi değiştirebilirsiniz orası sizde.

Daha Sonra Bölme Çarpma vb. Butonları İçin Aşağıda ki Kodları Doğru Şekilde Yazın

ÇIKARMA BUTONU;

Dim s1, s2, s3 As Single
s1 = Val(TextBox1.Text)
s2 = Val(TextBox2.Text)
s3 = s1 - s2
Label1.Text = s3

BÖLME BUTONU;

Dim s1, s2, s3 As Single
s1 = Val(TextBox1.Text)
s2 = Val(TextBox2.Text)
s3 = s1 / s2
Label1.Text = s3

ÇARPMA BUTONU;

Dim s1, s2, s3 As Single
s1 = Val(TextBox1.Text)
s2 = Val(TextBox2.Text)
s3 = s1 * s2
Label1.Text = s3

Kodlarda da Gördüğünüz Gibi “s3 = s1 + s2” Bölümünde Oynama Yapmak Yeterli Oluyor. Kodları Kopyala Yapıştır Yaparak Sadece S3= Bölümünü Düzenleyebilirsiniz. Arada ki + İşaretini  Yaparsanız Çıkarma İşlemi, / Yaparsanız Bölme İşlemi, * Yaparsanız da Çarpma İşlemi Yapacaktır. Fakat Çarpma işlemi “X” ile Değil * İşareti İle Yapılmalıdır.

Son Olarak Projemize Bir de Label Ekliyoruz. Label de, Yapılan İşlemin Sonucu Görünecek. İsterseniz Label “Text”‘ini Silebilirsiniz Sorun Yaratmaz.


Visual Basic Ekran Görüntüsü Alma Programı Yapımı

Visual Basic Ekran Görüntüsü Alma Programı Yapımı
Visual Basic Ekran Görüntüsü Alma Programı Yapımı

Visual Basic İle Ekran Görüntüsü Almamızı ve Kaydetmemizi Sağlayan “Screenshot Programı” Yapacağız. Detaylıca Anlatım Aşağıdadır. Dikkatli Okuyarak Projeyi Kolayca Bitirebilirsiniz.

Program Görüntüsü Üsttedir (Class Dosyası ile Tema Eklenmiştir..)

Projemizi Açtıktan Sonra Projemize PictureBox Ekliyoruz ve Form’un Boyutuna Göre Full Ekran Ayarlıyoruz. Ama İsterseniz Üst Bölümde Butonlar İçin Boşluk Bırakabilirsiniz. Tasarımı Size Kalmış.. Form Boyutunun Oldukça Küçük Olması Tasarım Açısından Daha İyi Olacaktır.

Daha Sonra PictureBox “Size Mod”unu StretchImage Olarak Ayarlıyoruz. Ekran Görüntüsü Alınınca, Fotoğrafın Tamamının Picturebox’ta Görünmesi İçin Bu Mod Gerekli.  Tabi Ekran Fotoğrafı Alınca Gözükmesini İstemiyorsanız Sadece Butonlarla İş Bitirilsin Diyorsanız Picturebox’u Gizleyebilirsiniz, Herhangi Bir Sorun Olmaz.

Formumuza Ekran Fotoğrafı Almak İçin 1 Adet Buton Ekliyoruz ve Butona Çift Tıklayıp Şu Kodları Yazıyoruz.

Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
PictureBox1.Image = screenshot

Ekran Fotoğrafımızı Aldık, Sıra, Bu Fotoğrafı Bilgisayara Kaydetmekte. Bir Adet Daha Buton Ekliyoruz ve Çift Tıklayıp Aşağıdaki Kodları Giriyoruz.

Dim savefiledialog1 As New SaveFileDialog
Try
savefiledialog1.Title = "NowShot - JPG Save Screen"
savefiledialog1.FileName = "ScreenShot.jpg"
savefiledialog1.Filter = "JPEG |*.jpg"
If savefiledialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
End If
Catch ex As Exception 'Do Nothing
End Try

Kodlardaki “JPEG |*.jpg” Bölümünü İsteğe Göre Düzenleyebilirsiniz. Örneğin “PNG|*.png” Şeklinde Değiştirebilirsiniz. JPEG Dosyaların Boyutu Yüksektir. PNG,BMP Gibi Formatları Kullanmak Daha İyi Olacaktır.

İsterseniz Formunuza Daha Fazla Buton Ekleyerek Aynı Kodlar İle PNG,BMP gibi Uzantılarla Kaydedilmesini Sağlayabilirsiniz.

Tek Butondan Tüm Uzantılarda Kaydedebilmeyi İsterseniz Aşağıdaki Kodları Kullanabilirsiniz

Dim savefiledialog1 As New SaveFileDialog
Try
savefiledialog1.Title = "AliCELEN - OTHER | Save Screen"
savefiledialog1.FileName = "ScreenShot"
savefiledialog1.Filter = "JPG File(*.jpg)|*.jpg|Bitmap File(*.bmp)|*.bmp|PNG File(*.png)|*.png|WEBP File(*.webp)|*.webp|EPS File(*.eps)|*.eps|PICT File(*.pict)|*.pict|Tiff File(*.tiff)|*.tiff"
If savefiledialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image.Save(savefiledialog1.FileName)
End If
Catch ex As Exception 'Do Nothing
End Try

Gördüğünüz Gibi Bu Kodlar 7 Farklı Uzantıda Kaydetmeye Yarar. Görüntüsü Aşağıda Göründüğü Şekildedir.

Kaydetme Butonu Kodlarını Detaylıca Aşağıya Yazıyorum.

savefiledialog1.Title = "Kaydetme Ekranının Başlığı - Yukarıdaki Görüntüde NowShot - Webp Save Screen Yazan Bölüm"
savefiledialog1.FileName = "Kaydedilecek Dosyanın Adı - Yukarıdaki Görüntüde ScreenShot.jpg Yazan Bölüm"
savefiledialog1.Filter = "Kaydetmek İçin İzin Verilen Dosya Uzantısı. jpg,png vb."

Visual Basic Burç Öğrenme Programı Yapımı

Visual Basic Burç Öğrenme Programı Yapımı
Visual Basic Burç Öğrenme Programı Yapımı

VB.NET (Visual Basic) ile Doğum Tarihimize Göre Burcumuzu Bulan Bir Program Yapacağız. Detaylıca Anlatım Aşağıdadır. Dikkatli Okuyarak Projeyi Kolayca Bitirebilirsiniz.

Program Görüntüsü Yukarıdadır. (Class Dosyası ile Temalandırılmış Görüntüdür.)

Projemizi Açıyoruz ve 1 Adet DataTimePicker Ekliyoruz. Bu Bölümde Gözükecek Olan Tarihi Properties Kısımında ki Value Bölümünden Değiştirebilirsiniz. Değiştirmezseniz Otomatik Olarak Eklediğiniz An ki Tarih Kalır.

Daha Sonra Bir Adet Buton Ekliyoruz. Bu Butona Basınca Burç Görünecek

Son Olarak 1 Adet de Label Ekliyoruz. Butona Tıklayınca Burç Bu Label Üzerinde Görünecek. Label’in Properties Bölümündeki Text’i Silebilirsiniz.

Şimdi Eklediğiniz Butona Çift Tıklayın ve Kod Bölümüne Aşağıdaki Kodları Eksiksiz Yazın.

Dim gun, ay As Integer
gun = DateTimePicker1.Value.Day
ay = DateTimePicker1.Value.Month
If (ay = 12 And gun >= 23) Or (ay = 1 And gun <= 20) Then
Label1.Text = "OĞLAK BURCUSUNUZ"
End If
If (ay = 9 And gun >= 22) Or (ay = 10 And gun <= 23) Then
Label1.Text = "TERAZİ BURCUSUNUZ"
End If
If (ay = 1 And gun >= 21) Or (ay = 2 And gun <= 19) Then
Label1.Text = "KOVA BURCUSUNUZ"
End If
If (ay = 2 And gun >= 20) Or (ay = 3 And gun <= 20) Then
Label1.Text = "BALIK BURCUSUNUZ"
End If
If (ay = 3 And gun >= 21) Or (ay = 4 And gun <= 20) Then
Label1.Text = "KOÇ BURCUSUNUZ"
End If
If (ay = 4 And gun >= 21) Or (ay = 5 And gun <= 21) Then
Label1.Text = "BOĞA BURCUSUNUZ"
End If
If (ay = 5 And gun >= 22) Or (ay = 6 And gun <= 21) Then
Label1.Text = "İKİZLER BURCUSUNUZ"
End If
If (ay = 6 And gun >= 22) Or (ay = 7 And gun <= 23) Then
Label1.Text = "YENGEÇ BURCUSUNUZ"
End If
If (ay = 7 And gun >= 24) Or (ay = 8 And gun <= 23) Then
Label1.Text = "ASLAN BURCUSUNUZ"
End If
If (ay = 8 And gun >= 24) Or (ay = 9 And gun <= 23) Then
Label1.Text = "BAŞAK BURCUSUNUZ"
End If
If (ay = 10 And gun >= 23) Or (ay = 11 And gun <= 22) Then
Label1.Text = "AKREP BURCUSUNUZ"
End If
If (ay = 11 And gun >= 23) Or (ay = 12 And gun <= 22) Then
Label1.Text = "YAY BURCUSUNUZ"
End If

Kodlarımız Bu Kadar. Projeyi Açtığımızda Sorunsuz Çalışır. Eğer Yukarıda ki Görüntüde Görünen Nasıl Kullanılır Butonundan Koymak İsterseniz Projeye 1 Adet Daha Buton Ekleyip Çift Tıklayarak Aşağıdaki Kodları Yazabilirsiniz.

MsgBox("Kullanım Bilgisi Buraya Yazılır")

(” “) Tırnak İşareti İçinde Bulunan Yazıları İsteğe Göre Düzenleyebilirsiniz.


Visual Basic Ortalama Hesaplama Programı Yapımı

Visual Basic Ortalama Hesaplama Programı Yapımı
Visual Basic Ortalama Hesaplama Programı Yapımı

Visual Basic ile 2 Sayının(Not’un) Ortalamasını Bulan Bir Program Yapacağız. Detaylıca Anlatım Aşağıdadır. Dikkatli Okuyarak Projeyi Kolayca Bitirebilirsiniz.

Program Görüntüsü Üsttedir.(Görüntüdeki Programlara Class Dosyası ile Tema Eklenmiştir.)

Projemizi Açalım ve 2 Adet Textbox Ekleyelim. Kullanım Sırasında 1. Sayı(Not) ve 2. Sayı Bu Alana Yazılacak.

2 Adet’de Label Ekleyip Label 1’in Text Bölümüne “1. Not’u Yazın” Şeklinde Bilgilendirme Yapın ve Textbox 1 İle Yan Yana veya Üst Üste Koyun. Tasarım Kısmı Sizde, Form Görünümünü İstediğiniz Gibi Ayarlayabilirsiniz. Label 2’yi de Aynı Şekilde Düzenleyin.

1 Adet Daha Label Ekleyin. Bu Label’de Sonucumuz Görünecek. Eklediğiniz Label’in “Text”ini Silin.

Son Olarak 1 Adet Buton Koyun. Hesaplama Butonumuz Bu Olacak. ve Bu Butona Çift Tıklayarak Aşağıdaki Kodları Yazın.

Dim not1 As Single = TextBox1.Text
Dim not2 As Single = TextBox2.Text
Dim sonuc As Single
sonuc = (not1 + not2) / 2
Label3.Text = sonuc

Eğer Hesaplama Butonuna Tıklayınca Sonucun Yanında Bir De “Sonuç:” Şeklinde Bilgilendirme Yazısı Çıksın İstiyorsanız Bir Adet Daha Label Ekleyin. İstediğiniz Yere Yerleştirin ve Label Text’ini Silin. Ardından Hesaplama Buton’u Kodlarının En Altına Aşağıdaki Kodu Yazın

Label4.Text = "Sonuç:"