Kullanıcıdan bilgi almak istediğimiz zaman bu fonksiyonu kullanabiliriz. Bilgi giriş penceresinden girilen bilgi String(karakter) türünde olacaktır.
Kullanımı: Değişken=Inputbox("Başlık") şeklindedir.
veri=InputBox("Adınızı girin")
Sayısal olarak kullanılacak bilgini VAL fonksiyonu yardımıyla sayısal değere dönüştürülmesi gereklidir.
Sıra No = Val(InputBox("Sıra No Giriniz"))
Kullanım Şekli;
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
Prompt: Zorunlu. İletişim kutusunda gösterilecek mesajı belirler ve en fazla 1024 karakter olabilir. Eğer birden fazla satır olacaksa aynı MsgBox fonksiyonunda olduğu gibi mesajımıza Chr(13) & Chr(10) kodunu ekleriz
Title: İsteğe Bağlı.Başlık çubuğunda kullanılan değerdir. Eğer kullanmazsanız varsayılan olarak projenizin ismi kullanılır
Default: İsteğe Bağlı. Text Box da varsayılan olarak bir cevap görüntülenir eğer kullanılmazsa Text Box boş olarak görüntülenir
Xpos: İsteğe Bağlı. Giriş kutusunun ekrandaki yatay pozisyonunu belirler ve sayısal bir değer olmak zorundadır
Ypos: İsteğe Bağlı. Giriş kutusunun ekrandaki dikey pozisyonunu belirler ve sayısal bir değer olmak zorundadır
Helpfile: İsteğe Bağlı. yardım dosyasının yerini belirler eğer bu değer tanımlanmışsa "Context" değeri mutlaka tanımlanmalıdır
Context: İsteğe Bağlı. Sayısal bir değer alır yardım konularının numaralarını gösterir
Example:
Private Sub Form_Load()
Dim Vize1, Vize2, Vize3 As Byte
Dim Final, Sonuc As Integer
Vize1 = Val(InputBox("1.Vize Sonucu", "Not Hesaplama"))
Vize2 = Val(InputBox("2.Vize Sonucu", "Not Hesaplama"))
Vize3 = Val(InputBox("3.Vize Sonucu", "Not Hesaplama"))
Final = Val(InputBox("Final Sonucu", "Not Hesaplama"))
Sonuc = Vize1 + Vize2 + Vize3 + 4 * Final
MsgBox Sonuc, vbInformation + vbOKOnly, "Sınav Sonucu"
End Sub
Kullanımı: Değişken=Inputbox("Başlık") şeklindedir.
veri=InputBox("Adınızı girin")
Sayısal olarak kullanılacak bilgini VAL fonksiyonu yardımıyla sayısal değere dönüştürülmesi gereklidir.
Sıra No = Val(InputBox("Sıra No Giriniz"))
Kullanım Şekli;
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
Prompt: Zorunlu. İletişim kutusunda gösterilecek mesajı belirler ve en fazla 1024 karakter olabilir. Eğer birden fazla satır olacaksa aynı MsgBox fonksiyonunda olduğu gibi mesajımıza Chr(13) & Chr(10) kodunu ekleriz
Title: İsteğe Bağlı.Başlık çubuğunda kullanılan değerdir. Eğer kullanmazsanız varsayılan olarak projenizin ismi kullanılır
Default: İsteğe Bağlı. Text Box da varsayılan olarak bir cevap görüntülenir eğer kullanılmazsa Text Box boş olarak görüntülenir
Xpos: İsteğe Bağlı. Giriş kutusunun ekrandaki yatay pozisyonunu belirler ve sayısal bir değer olmak zorundadır
Ypos: İsteğe Bağlı. Giriş kutusunun ekrandaki dikey pozisyonunu belirler ve sayısal bir değer olmak zorundadır
Helpfile: İsteğe Bağlı. yardım dosyasının yerini belirler eğer bu değer tanımlanmışsa "Context" değeri mutlaka tanımlanmalıdır
Context: İsteğe Bağlı. Sayısal bir değer alır yardım konularının numaralarını gösterir
Example:
Private Sub Form_Load()
Dim Vize1, Vize2, Vize3 As Byte
Dim Final, Sonuc As Integer
Vize1 = Val(InputBox("1.Vize Sonucu", "Not Hesaplama"))
Vize2 = Val(InputBox("2.Vize Sonucu", "Not Hesaplama"))
Vize3 = Val(InputBox("3.Vize Sonucu", "Not Hesaplama"))
Final = Val(InputBox("Final Sonucu", "Not Hesaplama"))
Sonuc = Vize1 + Vize2 + Vize3 + 4 * Final
MsgBox Sonuc, vbInformation + vbOKOnly, "Sınav Sonucu"
End Sub
