Hemen başlamak istiyorum
Temel matematik İşleçleri
Toplama çıkartma çarpma ve bölme için işleçler basittir ve sayıların ya da sayılsal değelerin kullanıldıgı herhangi bir formülde kolayca kullanılabilirler.
Aşasıgıdaki alıştırmada bu işleçleri bir programda nasıl kullanabilecegimizi göstercem
Temel İşleçlerle Çalışın
File menüsünden Open Project Tıklayın
Programın formu ekranda görünür.Teml İş programı toplama , Çıakrma,Çarpma ve bölme işleşçerin klavyeden girdiginiz sayılarla nasıl çalıstıgını gösterir.Metin kutusu, Seçenecek dugmesi ve komut dugmesi nesnelerini bir programdaki kullanıcı girdisini işlemek için kullanabileceginiz de gösterir..
Temek İş programı programlama ortamında çalışır.Program sayısal değerler gireceginiz iki metin kutusu bir grp işleç seçenek dugmesi sonuclarıı görüntüleyen bir kutu iki komut dugmesi içerir..
Değişken 1 Metin kutusuna 100 Yazın ve Tab tusuna basın.
Label komutunu tıklayarak ve programın sagdaki özelliklerden caption ismini degistirerek ve fontu veriyorsunuz diger dersde anlatmıstım nasıl yapıldıgını neyse devam ediyoruz.
AynısındaN Değişken 2 metin kutusuna 17 yazın
Şimdi metin kutularndaki değelere matematiksel işleçlerin herhanghi birini uygulayabilirsiniz..
Toplama Seçenek dugmesini ve hesapla komut dugmesini tıklayın
İki degeler işleç uygulanır ve 117 sayısı sonuc kutusunda karsı sayafadaki gibi görünür
Ve araç kutusundan Frame ekliyoruz
Frame özelliklerinden ismini degistiriyoruz İşlem yapıyoruz
Degisken kutularındaki iki sayıylar çıkarma çarpma ve bölme işleçlerini kullanarak alıştırmaral yapın Her formulu hesaplamak icin hesaplayı tıklayın
Sonuclar sonuc kutusunda görünür.Depişken metin kutularında değişik sayılarla alıstırmalar yapabilirsiniz.İsterseniz ondalık basamaklı bir kaç sayı deneyin
Hesaplamayı bitirdiginizde Çık dugmesine Tıklayın
Program durur ve programlama ortamına dönülür
Şimdi sonucların nasıl hesaplandıgını görmek için program kodunu bir bakalım.
Temel işleçler program kodunu inceleyin
anlatımda bittikten sonra formdaki hesap dugmesine çift tıklayın
Command1_Click olay yordamı kod penceresinde görünür.
Yordamdaki ilk bildiri veryant türünde iki genel amaclı degisken tanımlar varyantlar iki metin kutusunda yazılan degerleri saklarla ve kullanmak istediginiz herhangi bir sayıl degeri saklayacak kadar esnektirler.Sonraki iki bildiri veriyi metin kutularında degiskenlere yükle ve metin dizelerini val işlevlerini kullanarak sayılara donusturulur.
First = Val ( Text1.Text ) ‘ sayıları al ve dönüşür Second = Val ( Text2.Text )
Val işlevi bir metin bagımsız degiskeni sayıla bir deger dönüştüren özel bir yordamdır
Dönüşüm bu programda toplama işlemninin dogru olarak gerçekleşmesi için gereklidir.Bir metin kutusu nesnesinin döndurdugu varsayılan veri türü metindir.Bu üç işleç için bir sorun olsturmaz.-,* ve / işleçleri sadece sayılarla çalışırlar böylece kullanıcı programda by üç işlecten birini seçtiginde visual basic first ve second degiskenlerindeki degerleri otomatik olarak sayılar dönüştürür..
+ işleci hem metinlerle hem de sayılarla calısır.Metin kutus nesnesi tarafından döndürülen varsayılan veri türü metin oldugu icin.Visual basic + işleci kullanıldıgında firs ve secon’ın degerlerine metinlersim gibi davranır.
ÖNEMLİİ
Tüm programı dogru calıstını dogrulamak icin programdaki her hesaplamayı denemek gerekir.Programın bir kısmını denemek yeteli degildir.
İlk secenek dugmesinin Vlue ozelligi true ise ili degisken + işleçleriye toplanır ve sonuc etikete atanır.Kalan üç formulun de benzer bir mantıgı vardır, her biri If then kara yapsını ve label1 sçenekler oldugunda kullanıcının programda hangi seçenegi seçtigini belirlemek için yararlıdır…
Ve devam ediyoruz sonuc isminde bir label ekliyoruz
Ve daha sonra işlem kısmına geçiyoruz
araç cubugundan option ekliyoruz
Asagıdaki resimdeki isim veriyoruz ve ekliyorsunuz
devam ediyoruz sonuc kısmından ve altına label etiketi ekliyoruz
Ve Sevdigimiz Bir Kısım Kod ekliyoruz hemen
Text1 etiketine su kodları ekliyoruz
Private Sub Command1_Click()
Dim First, Second ‘Değişkenleri tanımla
First = Val(Text1.Text) ‘Sayıları al ve dönüştürDim First, Second ‘Değişkenleri tanımla
Second = Val(Text2.Text)
‘birinci düğme tıklanırsa sayıları topla
If Option1.Value = True Then
Label1.Caption = First + Second
End If
‘ikinci düğme tıklanırsa sayıları çıkar
If Option2.Value = True Then
Label1.Caption = First – Second
End If
‘üçüncü düğme tıklanırsa sayıları çarp
If Option3.Value = True Then
Label1.Caption = First * Second
End If
‘dördüncü düğme tıklanırsa sayıları böl
If Option4.Value = True Then
Label1.Caption = First / Second
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Text1_Change()
End Sub
Degisken2 yede aynı sekilde ekliyoruz su kodu
Private Sub Command1_Click()
Dim First, Second ‘Değişkenleri tanımla
First = Val(Text1.Text) ‘Sayıları al ve dönüştürDim First, Second ‘Değişkenleri tanımla
Second = Val(Text2.Text)
‘birinci düğme tıklanırsa sayıları topla
If Option1.Value = True Then
Label1.Caption = First + Second
End If
‘ikinci düğme tıklanırsa sayıları çıkar
If Option2.Value = True Then
Label1.Caption = First – Second
End If
‘üçüncü düğme tıklanırsa sayıları çarp
If Option3.Value = True Then
Label1.Caption = First * Second
End If
‘dördüncü düğme tıklanırsa sayıları böl
If Option4.Value = True Then
Label1.Caption = First / Second
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Text1_Change()
End Sub
Private Sub Text2_Change()
End Sub
Ve işlemlerdeyiz sıra option ekledik isimlerinide koyduk toplama cıkarma diye
hemen toplama isimli option butona çift tıklıyoruz su kodu ekliyoruz
Private Sub Command1_Click()
Dim First, Second ‘Değişkenleri tanımla
Second = Val(Text2.Text)
‘birinci düğme tıklanırsa sayıları topla
If Option1.Value = True Then
Label1.Caption = First + Second
End If
‘ikinci düğme tıklanırsa sayıları çıkar
If Option2.Value = True Then
Label1.Caption = First – Second
End If
‘üçüncü düğme tıklanırsa sayıları çarp
If Option3.Value = True Then
Label1.Caption = First * Second
End If
‘dördüncü düğme tıklanırsa sayıları böl
If Option4.Value = True Then
Label1.Caption = First / Second
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Option1_Click()
End Sub
Private Sub Text1_Change()
End Sub
Ve Cıkarma için eklenen kod
Private Sub Command1_Click()
Dim First, Second ‘Değişkenleri tanımla
First = Val(Text1.Text) ‘Sayıları al ve dönüştürDim First, Second ‘Değişkenleri tanımla
Second = Val(Text2.Text)
‘birinci düğme tıklanırsa sayıları topla
If Option1.Value = True Then
Label1.Caption = First + Second
End If
‘ikinci düğme tıklanırsa sayıları çıkar
If Option2.Value = True Then
Label1.Caption = First – Second
End If
‘üçüncü düğme tıklanırsa sayıları çarp
If Option3.Value = True Then
Label1.Caption = First * Second
End If
‘dördüncü düğme tıklanırsa sayıları böl
If Option4.Value = True Then
Label1.Caption = First / Second
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Option1_Click()
End Sub
Private Sub Option2_Click()
End Sub
Private Sub Text1_Change()
End Sub
artık siz nasıl yapılacagını biliyorsunuz
Çarpma için istenen kod
Private Sub Command1_Click()
Dim First, Second ‘Değişkenleri tanımla
Second = Val(Text2.Text)
‘birinci düğme tıklanırsa sayıları topla
If Option1.Value = True Then
Label1.Caption = First + Second
End If
‘ikinci düğme tıklanırsa sayıları çıkar
If Option2.Value = True Then
Label1.Caption = First – Second
End If
‘üçüncü düğme tıklanırsa sayıları çarp
If Option3.Value = True Then
Label1.Caption = First * Second
End If
‘dördüncü düğme tıklanırsa sayıları böl
If Option4.Value = True Then
Label1.Caption = First / Second
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Option1_Click()
End Sub
Private Sub Option2_Click()
End Sub
Private Sub Option3_Click()
End Sub
Private Sub Text1_Change()
End Sub
BÖLME İÇİN İSTENEN KOD
Private Sub Command1_Click()
Dim First, Second ‘Değişkenleri tanımla
Second = Val(Text2.Text)
‘birinci düğme tıklanırsa sayıları topla
If Option1.Value = True Then
Label1.Caption = First + Second
End If
‘ikinci düğme tıklanırsa sayıları çıkar
If Option2.Value = True Then
Label1.Caption = First – Second
End If
‘üçüncü düğme tıklanırsa sayıları çarp
If Option3.Value = True Then
Label1.Caption = First * Second
End If
‘dördüncü düğme tıklanırsa sayıları böl
If Option4.Value = True Then
Label1.Caption = First / Second
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Option1_Click()
End Sub
Private Sub Option2_Click()
End Sub
Private Sub Option3_Click()
End Sub
Private Sub Option4_Click(Index As Integer)
End Sub
Private Sub Text1_Change()
End Sub
BU KADAR VE SONUC KISMINA GECİYORUZ
SONUC İSİMLİ TEXT’e çift tıklıyoru ve kodumuz yerleiştiriyoruz
Ve altındaki label1 tıklıyoruz ve kodumuzu tekrar onada yerlesitiriyoruz
Private Sub Command1_Click()
Dim First, Second ‘Değişkenleri tanımla
First = Val(Text1.Text) ‘Sayıları al ve dönüştürDim First, Second ‘Değişkenleri tanımla
Second = Val(Text2.Text)
‘birinci düğme tıklanırsa sayıları topla
If Option1.Value = True Then
Label1.Caption = First + Second
End If
‘ikinci düğme tıklanırsa sayıları çıkar
If Option2.Value = True Then
Label1.Caption = First – Second
End If
‘üçüncü düğme tıklanırsa sayıları çarp
If Option3.Value = True Then
Label1.Caption = First * Second
End If
‘dördüncü düğme tıklanırsa sayıları böl
If Option4.Value = True Then
Label1.Caption = First / Second
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Label1_Click(Index As Integer)
End Sub
Private Sub Label4_Click()
End Sub
Private Sub Option1_Click()
End Sub
Private Sub Option2_Click()
End Sub
Private Sub Option3_Click()
End Sub
Private Sub Option4_Click(Index As Integer)
End Sub
Private Sub Text1_Change()
End Sub
Ve son olarak hesapla ve cık butonlarını ekliyoruz ve kodlarımızı yerlesiyoruz
Sonra cık butonuna su kodu ekliyoruz ve programımızı bitiriyoruz
Private Sub Command1_Click()
Dim First, Second ‘Değişkenleri tanımla
First = Val(Text1.Text) ‘Sayıları al ve dönüştürDim First, Second ‘Değişkenleri tanımla
Second = Val(Text2.Text)
‘birinci düğme tıklanırsa sayıları topla
If Option1.Value = True Then
Label1.Caption = First + Second
End If
‘ikinci düğme tıklanırsa sayıları çıkar
If Option2.Value = True Then
Label1.Caption = First – Second
End If
‘üçüncü düğme tıklanırsa sayıları çarp
If Option3.Value = True Then
Label1.Caption = First * Second
End If
‘dördüncü düğme tıklanırsa sayıları böl
If Option4.Value = True Then
Label1.Caption = First / Second
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label4_Click()
End Sub
Private Sub Option1_Click()
End Sub
Private Sub Option2_Click()
End Sub
Private Sub Option3_Click()
End Sub
Private Sub Option4_Click(Index As Integer)
End Sub
Private Sub Text1_Change()
End Sub
Bu kadar programımızın son haline bakalım
Bundan önceki iki alıstırmada yedi matematiksel ve bir dizilim işleci üzerinde calıstınız.Her sayısal degiskenn ve ifade birbirlerinden bir işleçle ayrıldıgı sürece visual basic bir formülde istediginiz kadar matematiksel bir işleci arada kullanmanıza olanak tanır.Örnegin asagında verilen geçerli bir visual basic formuludur
Toplam = 10+15+2/ 4 ^2
Formüllerde Parantez kullanmak
Öncelikle sırasını netleştirmek icin bir formülde bir ya da daha cok parantez çifti kullanabilirsiniz
Sayı = (8 – 5 * 3 ) ^ 2
Formulunu üs alma işleminden önce us almanın toplama ve cıkarmadan daha yüksek bir öncelikk sırası olmasına karsın parantezler arasındaki degeri (-7) berlirleyerek hesaplayacaktır.Formulde iç içe gecmis parantez çiftlerini kullanarak hesaplama sırasını daha da netleştirebilirsiniz..
ALINTIDIR
KAYNAK
ALINTIDIR
KAYNAK