VisualBasic_teMatematiksel.htm
 
Konu : visual basic ders anlatımı 1

bir hesap makinesinin toplama işlemini yaptıralım.bunlar için ne gereklidir tabii ki elimizde iki tane sayı olmalıdır ki toplama yapalım.ama bunu programa tanıtmamız lazım...yazan ontedi    

   bu işaret ile başlayan yerler açıklamalardır



dim sayı1 as integer    sayı 1 i tamsayı olarak tanımladık ki program bunu tanıyabilsin
dim sayı2 as integer    sayı 2 i tamsayı olarak tanımladık ki program bunu tanıyabilsin
dim sonuc as integer       sonuc ta tam sayı olacak ya
daha sonra form tasarım bölümünden bir tane commandbutton katalım

bunu kattığına göre bunun adı command1 buton dur

başlıyoruz.


diyelimki biz bu command buton a (komut düğmesine ) bastığımızda bize inputbox (bilgi giriş kutusu çıksın diyoruz.işte onun kodunu şöyle yazarız

burası kodun açıklaması...commandbuton1 e tıklayalım

private sub command1_click( )   biraz ingilizceniz olursa hemen anlarsınız.butona tıkladık

daha sonra inputbox çıkaralım.peki inputbox a biz sayı gireceğimize göre oraya girilen her değişkeni sayı1 e aktarmış oluruz

sayı1=inputbox("Birinci Sayıyı Giriniz","Bilgi Girişi" )
sayı1 değişkeni bellekte duruyor.şimdi ise sayı2 değişkenini 2. inputbox(bilgi kutusundan alalım

sayı2=inputbox("İkinci Sayıyı Giriniz","Bilgi Girişi" )

size ben desemki. 8 ile 25 i toplayın desem aynen şöyle yazarsınız
8+25=33   yani   sayı1+sayı2=sonuc dersiniz.
bellekte duran sayıları toplamamız gerekir

sonuc=sayı1+sayı2

sonucu belleğe almış olduk.şimdi ise yazdıralım.bunu mesaj kutusunda yazdıralım

msgbox "sonuc=&sonuc&"

end sub
şimdi ise sub komutunu bitirelim.
bir tane de commanbuton2 katalımki insanlar çıkış yapabilsin


private sub command2_click( ) command2 ye tıklama algılandı
end             bitirildi
end sub       bütün sub lar bitirilip programdan çıkıldı.

kodları şöyle derli toplu bir yazarsak


dim sayı1 as integer    
dim sayı2 as integer     
dim sonuc as integer

private sub command1_click( )

sayı1=inputbox("Birinci sayıyı giriniz","Bilgi Girişi" )
sayı2=inputbox("ikinci sayıyı giriniz","Bilgi Girişi" )
sonuc=sayı1+sayı2

msgbox="sonuc=&sonuc&"

end sub

private sub command2_click( )
end
end sub
 
Yardım İçin Sadece Bir Tık Yeter
 
Sponsor
 
.tk
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol