Visual Basic'te Matematiksel Ä°ÅŸlemler

[celal_gozlek]

VISUAL BASIC’TE DÖRT ISLEM

Bu bölümde matematikte kullanilan dört islemin nasil yapildigini göreceksiniz.Bir programda iki yari yere yazilan iki sayinin toplandigini,bölündügünü,çikarildigini ve bölündügünü varsayalim.Bir bakima hesap makinesi diyelim.

Burada dikkat etmeniz gereken konu:Function’lardir.


1)Öncelikle Visual Basic programinizda standart bir form açalim.

2)Formumuza 8 tane Textbox,4 tane Label,4 tane de Button koyalim.

( Textbox’lara sayilari yazalim,Label’lara da da islem sonuçlari yazilsin.Butonlarin her biri bir islem yapsin.)

Programimizi çalistirdigimizda söyle çalisacak:

a)CommandButton1’e tikladigimizda Text1 ile Text2’ye yazdigimiz sayilari toplayip sonucunu Label1’e yazacak,

b) CommandButton2’ye tikladigimizda Text3’e yazdigimiz sayidan Text4’e yazdigimiz sayiyi çikarip sonucunu Label2’ye yazacak,

c) CommandButton3’e tikladigimizda Text5’e yazdigimiz sayi ile Text6’ya yadigimiz sayiyi çarpip sonucunu Label3’e yazacak,

d) CommandButton4’e tikladigimizda Text7’e yazdigimiz sayiyi Text8’e yazdigimiz sayiya bölüp sonucunu Label4’e yazacak.

Form üzerine gerekli elemanlari yerlestirdikten sonra kod alanimiza:

Function topla(a,b As Currency ) As Currency

deger=a+b

topla=deger

End Function


Yazdigimizda programimiza toplama isleminin tanitimini yapmis oluruz.Yine kod alanimiza yazmaya devam edelim.

Function çikar(a,b As Currency ) As Currency

eksi=a-b

çikar=eksi


End Function

Bu kodu da önceki kodun altina ekledigimizde çikarma islemini tanitmis oluruz.Zaten hemen aralarinda bir çizgi olusur.Ayni sekilde diger islemleri tanitalim.

Function çarp(a,b As Currency) As Currency

çarpim=a*b

çarp=çarpim

End Function

Function böl(a,b As Currency) As Currency

bölme=a/b

böl=bölme

End Function

Functionlarla islemlerimizi tanittiktan sonra elemanlarimizla ilgili kodlarimizi yazalim.

Private Sub Command1_Click()

Label1.Caption = topla(Text1, Text2)

End Sub

Private Sub Command2_Click()

Label2.Caption = çikar(Text3, Text4)

End Sub

Private Sub Command3_Click()

Label3.Caption = çarp(Text5, Text6)

End Sub

Private Sub Command4_Click()

Label4.Caption = böl(Text7, Text8)

End Sub

Hesap makineniz kullanima hazir. Buradaki kodlari aynen kopyalayip yapistirabilirsiniz.