UserForm oluşturun
Ad, Soyad ve TC kimlik numarası için TextBox kutuları ekleyebilirsiniz.
TxtBox kutularının isimlerini değiştirin, isimler "txtAd, txtSoyad, txtTC" olsun
Farklı olarak kullanıcıdan alınan Ad, Soyad ve TC kimlik numarası bilgileri MsgBox fonksiyonu ile bir ileti kutusunda görüntülenecek
"Kaydet" butonuna tıklandığında yapılacak işlemler"
Option Explicit ' Değişkenlerin daha önce tanımlanmamışsa hata vermesini sağlar. Yani, değişken kullanılmadan önce tanımlanmış olmalıdır. Bu programın daha sağlam ve hataya dayanıklı olmasını sağlar.
Private Sub DenemeKaydet_Click() 'Bu SATIR, DenemeKaydet_Click adında bir "( Sub)" prosedürü başlatır. Bu prosedür, "Kaydet" ' düğmesine tıklandığında çalıştırılır.
Dim ad As String
Dim soyad As String
Dim tc As String 'Bu satırlar, DenemeKaydet_Click prosedürü içinde kullanılacak değişkenleri tanımlar. ad, soyad, ve tc adında . 'üç tane metin değişkeni oluşturulmuştur.
' Metin kutularından değerleri al
ad = txtAd.Value
soyad = txtSoyad.Value
tc = txtTC.Value 'Bu satırlar, kullanıcı formundaki metin kutularından (txtAd, txtSoyad, txtTC) değerleri alır ve bu 'değerleri sırasıyla ad, soyad, ve tc değişkenlerine atar.
' Öğrenci bilgilerini ekrana yazdır
MsgBox "Adı: " & ad & vbCrLf & "Soyadı: " & soyad & vbCrLf & "TC Kimlik Numarası: " & tc, vbInformation, "Öğrenci Bilgileri"
End Sub
'Bu SATIR, MsgBox fonksiyonunu kullanarak bir ileti kutusu görüntüler. İleti kutusu içinde, kullanıcının girdiği öğrenci bilgilerini gösterir. '"vbInformation" sabiti, ileti kutusunun bilgi tipinde olduğunu belirtir.
'"Öğrenci Bilgileri" ise ileti kutusunun başlığını belirtir.
'"&" operatörü, metinleri birleştirmek için kullanılır.
'"vbCrLf", yeni bir satıra geçmek için kullanılan özel karakterdir.
End Sub '"Sub prosedürü bitir
"Sub prosedür'ü , genellikle bir alt programın başlatılması için kullanıcı etkileşimi veya belirli bir olaya yanıt olarak çalıştırılır. Örneğin, bir kullanıcı formunda bulunan bir düğmeye tıklandığında ya da belirli bir hücrede bir değer değiştiğinde çalışacak kodları içerebilir.
Private Sub DenemeKaydet_Click()
Option Explicit
' "Kaydet" butonuna tıklandığında yapılacak işlemler
Dim ad As String
Dim soyad As String
Dim tc As String
' Metin kutularından değerleri al
ad = txtAd.Value
soyad = txtSoyad.Value
tc = txtTC.Value
' Öğrenci bilgilerini ekrana yazdır
MsgBox "Adı: " & ad & vbCrLf & "Soyadı: " & soyad & vbCrLf & "TC Kimlik Numarası: " & tc, vbInformation, "Öğrenci Bilgileri"
End Sub