bence gelmiş geçmiş en basit yazılım dilidir.nerdeyse kod yazmaya gerek duymayacağınız,herşeyi düğmelerle ve seçenekler ile belirlediğiniz süper bir dildir.
harika ve adından belli basit bir programlama dili. system admin iseniz herhangi bir yerde, günübirlik yaptığınız işler için kendi küçük programlarınızı yapmanızda üzerine yoktur. ama yok proje adamıyım kasıcam amına koyucam diyorsanız başka dillere geçmekte fayda vardır.
visual basic microsoft tarafından oluşturulmuş bir yazılım geliştirme ortamıdır visual basic 5.0 ve uzeri surumlerinden bu yana microsoft visual studio elemanıdır hazırladığınız programların kullanımları kolay olduğu kadar programların sunulan nesnelerle kafanızdaki pencereleri oluşturabilir istediginiz işlemleri çok kolay yerine getirebilirsiniz visual basic bir noktada daha kendini hissettirmektedir ki o da program kodu yazarkan kullanılan anahtar kelimelerdir bu anahtar kelimeleri de ayrıca ezberlemenize gerek kalmayacak ilk goruşte beyninize kazınacaktır eger az çok ingilizce biliyorsanız goreceksiniz ki visual basic programlama dilinin içerdiği anahtar kelimeler ya ingilizce' de kullanıldığı gibidir ya da sozkonusu kelimelerin kısaltılmış halidir ornek vereyim(if x=0 then) if ingilizcede eger anlamına gelmektedir eger x 0 ise şunu şunu yap gibi kod yazılabilir bu ozellikleri sayesinde visual basic ust seviye programlama dilleri arasında yer almaktadır ayrıca bilgisayar yazılımı uzerine liseye giden oğrencilerin ilk olarak ogrenecekleri dildir
öğrenilmediği sürece insanı canından bezdiren, fakat bir şeyler anladığınızı keşfettiğiniz an tadından yenmeyecek, öyle nokta, virgül, parantez gibi değil de gayet mantıklı kodlara sahip olan, oldukça zevkli bir programlama dili.
Diğer programla dillerine göre gayet basittir. form ekranı vardır. butonları kullanabilirsiniz. bazı fabrikalarda ve hastanelerde kullanılmaktadır.
ödev almış olanlar var ise buyrun; mod-medyan bulan program. ygs mevzusu çıkınca el atayım demiştim. istediğiniz yerde yardımcı olabilirim. tabi unutmamışsam. fakat form ekranı yoktur.
---------------------------------------------------------------------------
imports system.math
public class form1
private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load
dim sayac1, kacsayi, sayac2, gecici, degisken as double
kacsayi = inputbox("kaç tane sayı girilecek ?")
dim sayi(kacsayi) as double
for sayac1 = 1 to kacsayi
sayi(sayac1) = inputbox(sayac1 & ". sayıyı giriniz.")
next
for sayac1 = 1 to kacsayi
for sayac2 = sayac1 + 1 to kacsayi
if sayi(sayac2) < sayi(sayac1) then
gecici = sayi(sayac1)
sayi(sayac1) = sayi(sayac2)
sayi(sayac2) = gecici
end if
next
next
if kacsayi mod 2 = 1 then
degisken = sayi((kacsayi + 1) / 2)
msgbox(degisken & " dizinin medyanıdır.")
elseif kacsayi mod 2 = 0 then
degisken = ((sayi(kacsayi / 2) + sayi((kacsayi / 2) + 1)) / 2)
msgbox(degisken & " dizinin medyanıdır.")
end if
dim tutucu(sayi(kacsayi)) as double
for sayac1 = 1 to kacsayi
tutucu(sayi(sayac1)) = tutucu(sayi(sayac1)) + 1
next
if tutucu.max = 1 then
msgbox("basit seridir. basit serilerde mod yoktur.")
else
dim tut_buyuk, mod1 as integer
for sayac1 = 1 to sayi(kacsayi)
if tutucu(sayac1) > tut_buyuk then
tut_buyuk = tutucu(sayac1)
mod1 = sayac1
end if
next
