VISUAL BASIC 6.0
Bilgi Giriş Kutuları (InputBox) Bu Yazıda bilgi girişlerinde kullanacağımız "InputBox" fonksiyonunu inceleyeceğiz. "InputBox" fonksiyonunda onemli bir nokta girilen bilgi VB tarafından "String" yani karakter olarak kabul edilir eğer girilen bilgi string bir değer ise bunu "Val(string değer)" komutu ile sayısal değere donuşturmeliyiz.

Kullanım Şekli; InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])

prompt:Zorunlu. İletişim kutusunda gosterilecek 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 cubuğ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 goruntulenir eğer kullanılmazsa Text Box boş olarak goruntulenir

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ı gosterir



Ornek:

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 Arkadaşlar sizin de farkettiğiniz gibi "InputBox" fonksiyonu ile "MsgBox" fonksiyonun kullanımları birbirine oldukca yakındır.

Huseyin Biteker
Duzenleyen yapılandırma Baksana59



__________________