Komputer dapat melakukan perhitungan matematis jauh lebih cepat daripada manusia. Namun, komputer itu sendiri tidak akan mampu melakukan perhitungan matematis apapun tanpa menerima instruksi dari pengguna. Di VB2008, kita dapat menulis kode untuk menginstruksikan komputer untuk melakukan perhitungan matematis seperti penambahan, pengurangan, perkalian, pembagian dan jenis lain dari operasi aritmatika. Dalam rangka untuk VB2008 untuk melakukan perhitungan aritmatika, kita perlu menulis kode yang melibatkan penggunaan berbagai operator aritmatika. VB2008 operator aritmatika ini adalah sangat mirip dengan operator aritmatika biasa, hanya dengan sedikit variasi. Operator plus dan minus adalah sama sedangkan operator perkalian menggunakan simbol * dan operator pembagian menggunakan simbol /
Arithmetic Operators
Operator | Mathematical function | Example |
+ | Addition | 1+2=3 |
-- | Subtraction | 4-1=3 |
^ | Exponential | 2^4=16 |
* | Multiplication | 4*3=12, (5*6))2=60 |
/ | Division | 12/4=3 |
Mod | Modulus (return the remainder from an integer division) | 15 Mod 4=3 255 mod 10=5 |
\ | Integer Division (discards the decimal places) | 19\4=4 |
Contoh
Dalam program ini, Anda harus memasukkan dua kotak teks, empat label dan satu tombol. Klik tombol dan kunci dalam kode seperti yang ditunjukkan di bawah ini. Perhatikan bagaimana berbagai operator aritmatika yang digunakan. Ketika Anda menjalankan program ini, ia akan melakukan empat operasi aritmatika dasar dan menampilkan hasil pada empat label.
Dalam program ini, Anda harus memasukkan dua kotak teks, empat label dan satu tombol. Klik tombol dan kunci dalam kode seperti yang ditunjukkan di bawah ini. Perhatikan bagaimana berbagai operator aritmatika yang digunakan. Ketika Anda menjalankan program ini, ia akan melakukan empat operasi aritmatika dasar dan menampilkan hasil pada empat label.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sum, num1, num2, difference, product, quotient As Single
num1 = TextBox1.Text
num2 = TextBox2.Text
sum=num1+num2
difference=num1-num2
product = num1 * num2
quotient=num1/num2
Label1.Text=sum
Label2.Text=difference
Label3.Text = product
Label4.Text = quotient
End Sub
Contoh:
Program ini dapat menggunakan Teorema Pythagoras untuk menghitung panjang sisi miring c diberikan panjang sisi yang berdekatan dan sisi berlawanan b. Dalam kasus Anda lupa rumus untuk Teorema Pythagoras, maka ditulis sebagai
c ^ 2 = a ^ 2 + b ^ 2
c ^ 2 = a ^ 2 + b ^ 2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c As Single
a = TextBox1.Text
b = TextBox2.Text
c=(a^2+b^2)^(1/2)
Label3.Text=c
End Sub
Contoh :BMI Calculator
Banyak orang obesitas sekarang dan itu bisa mempengaruhi kesehatan mereka secara serius. Obesitas telah dibuktikan oleh para ahli medis untuk menjadi salah satu faktor utama yang membawa banyak masalah medis yang merugikan, termasuk penyakit jantung. Jika BMI anda lebih dari 30, anda dianggap obesitas. Anda dapat mengacu pada rentang berikut nilai BMI status berat badan Anda.
- Underweight = <18.5
- Normal weight = 18.5-24.9
- Overweight = 25-29.9
- Obesity = BMI of 30 or greater
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim height, weight, bmi As Single
height = TextBox1.Text
weight = TextBox2.Text
bmi = (weight) / (height ^ 2)
Label4.Text = bmi
End Sub
Output ditampilkan dalam diagram di bawah ini. Dalam contoh ini, tinggi badan Anda adalah 1.80m (sekitar 5 kaki 11), berat badan Anda 78 kg (sekitar 170 Ib), dan anda BMI adalah tentang 23,5. membaca menunjukkan bahwa Anda sehat. (Catatan, 1 kaki = 0,3048, 1 £ =. 45359237 kilogram) 0
* Luas segitiga
* Luas persegi panjang
* Luas lingkaran
* Volume silinder
* Volume kerucut
* Volume bola
* Senyawa bunga
* Nilai Masa Depan
* Mean
* Varians
* Jumlah sudut dalam poligon
* Konversi lb ke kg
* Konversi Fahrenheit ke Celcius
Tidak ada komentar:
Posting Komentar