WwW.FoRumSTylE.TuRKpr0foRuM.NET
Would you like to react to this message? Create an account in a few clicks or log in to continue.
WwW.FoRumSTylE.TuRKpr0foRuM.NET


 
AnasayfaPorTaLGaleriAramaLatest imagesKayıt OlGiriş yap
Arama
 
 

Sonuç :
 
Rechercher çıkıntı araştırma
En son konular
» kurtlar Vadisi Pusu Bölüm 13
Hesap Makinesi Icon_minitimeSalı Haz. 30 2009, 12:06 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 12
Hesap Makinesi Icon_minitimeSalı Haz. 30 2009, 12:03 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 11
Hesap Makinesi Icon_minitimeSalı Haz. 30 2009, 11:49 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 10
Hesap Makinesi Icon_minitimeSalı Haz. 30 2009, 11:47 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 09
Hesap Makinesi Icon_minitimeSalı Haz. 30 2009, 11:36 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 08
Hesap Makinesi Icon_minitimeSalı Haz. 30 2009, 11:29 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 07
Hesap Makinesi Icon_minitimeSalı Haz. 30 2009, 11:28 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 06
Hesap Makinesi Icon_minitimeSalı Haz. 30 2009, 11:27 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 05
Hesap Makinesi Icon_minitimeC.tesi Haz. 27 2009, 20:18 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 04
Hesap Makinesi Icon_minitimeC.tesi Haz. 27 2009, 20:15 tarafından yasakmc

Dost siteler
Kral Forumtr

WwW.FoRumSTylE.TuRKpr0foRuM.NET :: Teknoloji üzerine herşey :: PROGRAMLAMA DİLLERİ :: VİSUAL BASİC
 

 Hesap Makinesi

Aşağa gitmek 
YazarMesaj
GÖZDE
Admin
Admin
GÖZDE


Kadın
Mesaj Sayısı : 1274
Yaş : 31
Nerden : sakarya
Kayıt tarihi : 05/05/08

Hesap Makinesi Empty
MesajKonu: Hesap Makinesi   Hesap Makinesi Icon_minitimeCuma Haz. 06 2008, 13:19
dim a,b,t as integer

a=val(text1.text)
b=val(text2.text)

private sub formload()
msgbox("Hesap Makinesi Programına Hoş Geldiniz","Doğukan Güney")
end sub

private sub command1.click()

if option1.value=true then
t=a+b
label1.caption=t
end if

if option2.value=true then
t=a-b
label1.caption=t
end if

if option3.value=true then
t=a*b
label1.caption=t
end if

if option4.value=true then
t=a/b
label1.caption=t
end if

end sub
Sayfa başına dön Aşağa gitmek
 
Hesap Makinesi
Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
WwW.FoRumSTylE.TuRKpr0foRuM.NET :: Teknoloji üzerine herşey :: PROGRAMLAMA DİLLERİ :: VİSUAL BASİC-
Buraya geçin: