Programalama > VISUAL BASIC

Etiketler: hesap, makinesi

Ort. 0
Puan ver:
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


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2020 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.