Aradığınız içerik sitemizde mevcut durumdadır
buradan sitemize dönebilirsiniz !
Forum Başlıklarına gitmek için tıklayınız
visual basic ders anlatımı 1
arkadaşlar bu ders hiçbiryerden alıntı felan değildir.tamamen kendim yazdım.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ı.
bu programı e-bilisim.net üyelerine özel olarak ben yazdım.yakın bir zamanda görüntülü ders anlatımları yapacağım.hem dershane hem üniversite olduğundan vakit buldukça sizlere birşeyler sunmaya çalışıyorum
sayıgılar
Hosting Sponsorumuz - Noktahost internet hizmetleri