Pernyataan Aritmatika

Diketahui 3 (tiga) buah bilangan A,B dan C. Buatlah program visual basic untuk menyelesaikan persamaan aritmatika dibawah ini:
P=A+B
Q=B-A
X=A+BC
R=(A+B)*C
S=(A+B)*(A-C)
M=A Mod 2
N=B-A+C^2

– Antar muka program
antar muka

– Implementasi

Dim A, B, C As Single  ‘Deklarasi Global

Private Sub cmdHitungM_Click()
Dim B As Single
A = Val(txtA.Text)
B = Val(txtB.Text)
M = A Mod 2
txtM.Text = Str(M)
End Sub

Private Sub cmdHitungN_Click()
Dim N As Single
A = Val(txtA.Text)
B = Val(txtB.Text)
C = Val(txtC.Text)
N = B – A + C ^ 2
txtN.Text = Str(N)
End Sub

Private Sub cmdHitungP_Click()
Dim P As Single
A = Val(txtA.Text)
B = Val(txtB.Text)
P = A + B
txtP.Text = Str(P)

End Sub

Private Sub cmdHitungQ_Click()
Dim Q As Single
A = Val(txtA.Text)
B = Val(txtB.Text)
Q = B – A
txtQ.Text = Str(Q)
End Sub

Private Sub cmdHitungR_Click()
Dim R As Single
A = Val(txtA.Text)
B = Val(txtB.Text)
C = Val(txtC.Text)
R = (A + B) * C
txtR.Text = Str(R)
End Sub

Private Sub cmdHitungS_Click()
Dim S As Single
A = Val(txtA.Text)
B = Val(txtB.Text)
C = Val(txtC.Text)
S = (A + B) * (A – C)
txtS.Text = Str(S)
End Sub

Private Sub cmdHitungX_Click()
Dim X As Single
A = Val(txtA.Text)
B = Val(txtB.Text)
X = A + B * C
txtX.Text = Str(X)
End Sub

Private Sub cmdTutup_Click()
End
End Sub

– running
running

Analisis
Pernyataan P = A + B, dapat dipahami oleh Visual Basic karena tata cara penulisannya (sintaks) sudah benar. Pernyataan diatas dapat diuraikan juga sebagai berikut:
P adalah operand
= adalah operator
A adalah operand
+ adalah operator
B adalah operand
Jadi dari pernyataan di atas terdapat 3 buah operand.

Operand dalam Visual Basic dapat berupa pengenal, fungsi ataupun konstanta. Pernyataan Z = 5 + 5 juga dapat dikenali oleh visual basic. Angka 5 dalam pernyataan tersebut adalah operand yang nilainya 5. Pernyataan
Z = Pangkat(5)+A juga dapat dipahami oleh Visual Basic bila defenisi fungsi Pangkat dengan satu parameter sudah didefenisikan.

Setiap pernyataan Visual Basic dapat dibagi dalam 2 (dua) kelompok yaitu:
-kelompok kiri (left operand) dan
-kelompok kanan (right) operand)
antara kelompok dipisahkan oleh tanda sama dengan ( = )

Pada kelompok kiri harus berupa pengenal, apakah pengenal variabel atau konstanta dan bukan nilai dari variabel, konstanta. Visual Basic tidak mengenal penulisan pernyataan berikut ini:
5 = A + B ‘pernyataan salah
5 + 5 = A ‘pernyataan salah
“santi” = A ‘pernyataan salah
Pangkat(5)=10 ‘pernyataan salah

Pernyataan tersebut akan menjadi benar bila ditulis seperti dibawah ini:
Z = A + B
A = 5 + 5
A = “santi” ‘himpunan karakter (string) diberi ke pengenal A
Z=Pangkat(5) ‘pernyataan memanggil fungsi Pangkat dengan parameter 5

Urutan pengerjaan di kedua kelompok akan dimulai dari kelompok kedua. Selanjutnya pengerjaan di kelompok kedua akan disesuaikan dengan derajat operator (lihat catatan dibawah untuk lebih jelasnya). Misalkan terdapat pernyataan:
Z = A + C – B
maka proses pengerjaannya akan dimulai dari :
1. A + B, mis X
2. X – B, mis R
3. R diberi ke Z

Catatan
-Yang perlu diperhatikan dalam pembentukan ekspresi aritmatika adalah urutan pengerjaan dari tiap-tiap operator.
-Urutan pengerjaan operator akan dimulai dari sebelah kiri.
-Bila ditemukan tanda kurung maka ekspresi dalam tanda kurung akan dikerjakan pertama kali
-Operator pangkat (^) adalah operator yang memiliki derajat pengerjaan paling tinggi. Pengerjaan operator ^ lebih didahulukan dari operator /,*,Mod,+ atau -.
-Operator bagi (/), kali (*) dan Mod (sisa bagi) memiliki derajat pengerjaan yang sama dan prioritas pengerjaannya lebih tinggi dari operator tambah (+) dan kurang (-).
-Operator tambah(+) dan kurang (-) memiliki derajat pengerjaan yang sama.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: