Visual Basic'te bir bilimsel hesap makinesi nasıl oluşturulur
Projeyi yapılandır
1. Adım
"Dosya" ve "Yeni proje" üzerine tıklayarak yeni bir proje oluşturun. Sorulduğunda, adı "Bilimsel hesap makinesi".
Hesap makineniz için boş bir kullanıcı arayüzü formu görünecektir. Grafik kullanıcı arabirimi (GUI) bileşenlerini soldaki araç kutusundan ekleyin. İki tür bileşeni kullanacaksınız: sonuçları görüntülemek için bir metin kutusu ve çok sayıda düğme.
2. Adım
Soldaki araç kutusundan bir metin kutusunu hesap makinesinin en üstüne sürükleyin. Sayıların görüneceği ve kullanıcının daha sonra hesaplamak için numaraları yazacağı yer burası olacaktır.
3. adım
Bir düğmeyi araç kutusundan forma sürükleyin. Özellik kutusunda "Metin" özelliğini bulun ve "olmadan" olarak değiştirin. Mülkün adını bulun ve "sinButton" olarak değiştirin. Klavyenizdeki tuşun bir kopyasını oluşturmak için "Ctrl-C" ye basın ve form üzerindeki "olmayan" düğmesine tıklayın. Formunuzda 11 yeni düğme oluşturmak için "Ctrl-V" tuşuna 11 kez basın. Her bir düğme için metni aşağıdaki şekilde değiştirin: cos, tan, pi, exp, sqrt, log, C, +, -, X, = y /, ve bunu açıklayan bir ad verin. Örneğin, "/" düğmesi için name özelliğini "divideButton" olarak değiştirin.
Programlama yapmak
1. Adım
"Yok" düğmesine çift tıklayın. Bu, kaynak kodunu alır ve "olmadan" olayları işlemek ve imleci içeriye yerleştirmek için bir olay yöntemi oluşturur. Aşağıdakileri yapıştırın:
Özel Alt Button19_Click (System.Object, ByVal ve As System.EventArgs Gibi ByVal göndericisi) Button19.Click TextBox1.Text = Math.Sin (TextBox1.Text) End Sub
2. Adım
"Cos" düğmesine çift tıklayın. Yine, bu sizi kaynak koduna götürecek ve bir olay yöntemi oluşturacaktır. Aşağıdakileri yapıştırın:
Özel Alt Button20_Click (System.Object, ByVal ve As System.EventArgs Gibi ByVal gönderici) Düğmeleri Düğme20.Click TextBox1.Text = Math.Cos (TextBox1.Text) End Sub
3. adım
"Tan" düğmesine çift tıklayın ve önceki adımları olduğu gibi aşağıdakileri yapıştırın:
Özel Alt Button21_Click (ByVal gönderen System.Object, ByVal ve As System.EventArgs olarak) Düğmeleri Button21.Click TextBox1.Text = Math.Tan (TextBox1.Text) End Sub
4. Adım
"Pi" düğmesine çift tıklayın ve aşağıdakileri yapıştırın:
Özel Alt Button22_Click (ByVal gönderen System.Object, ByVal ve As System.EventArgs olarak) Düğmeler22.Click TextBox1.Text = Math.PI End Sub
Adım 5
"C" düğmesine çift tıklayın ve yapıştırın:
Özel Alt Button23_Click (ByVal gönderen System.Object, ByVal ve As System.EventArgs olarak) Düğmeler23.Click TextBox1.Text = "" memory = 0 End Sub
Programlamanın devamı
1. Adım
Aşağıdakileri kaynak kod düzenleyicinizin başlangıcına yapıştırın:
Dim bellek As String olarak Çift Dim işlemi
Bu, ikili işlemler ve bölme veya çarpma gibi gerçekleştirilecek işlemler için gerekli sayıları barındırır.
2. Adım
Sırayla her ikili işlem düğmesine (+, -, X, / ve exp) çift tıklayın ve aşağıdaki kodu yapıştırın:
bellek = TextBox1.Text işlemi = "+"
İşlemin metnini işlemle değiştirin. Örneğin, "X" düğmesi için "+" ifadesini "X" olarak değiştirin.
3. adım
"=" Düğmesine çift tıklayın ve aşağıdakileri yapıştırın:
Özel Alt Button1_Click_1 (ByVal gönderen System.Object, ByVal ve As System.EventArgs olarak) Düğmeler Düğmesi1.Tıklama işlemi.Equals ("+") Sonra TextBox1.Text = bellek + TextBox1.Text ElseIf operation.Equals ("-") Sonra TextBox1.Text = bellek - TextBox1.Text ElseIf operation.Equals ("X") Sonra TextBox1.Text = bellek * TextBox1.Text ElseIf operation.Equals ("/") Sonra TextBox1.Text = bellek / TextBox1.Text ElseEf işlemi .Equals ("exp") Ardından TextBox1.Text = Math.Pow (bellek, TextBox1.Text) End If
Son Sub
4. Adım
"Log" düğmesine çift tıklayın ve yapıştırın:
Özel Alt Button24_Click (System.Object, ByVal ve As System.EventArgs Gibi ByVal göndericisi) Button24.Click TextBox1.Text = Math.Log (TextBox1.Text) End Sub
Adım 5
"Sqrt" düğmesine çift tıklayın ve yapıştırın:
Özel Sub Button18_Click (System.Object, ByVal ve As System.EventArgs olarak ByVal gönderici) Düğmeler18.Tıkla TextBox1.Text = Math.Sqrt (TextBox1.Text) End Sub
