1. menjalankan
operan-operan (yang dioperatorkan) yang ada seperti variabel atau konstanta.
(modul praktikum TI 2012)
2. operator yang
bertugas untuk menyelasaikan proses perhitungan.
- = :
operator sama dengan
- <
: operator lebih kecil
- >
: operator lebih besar
- <>
: operator tidak sama dengan
3. m3engubah
nilai angka yang mempunyai nilai, string, ke tipe angka/double. Menggunakan
bahasa inggris.
4.
mengidentifikasi apakah beberapa elemen sama, identik , kurang dari atau lebih
besar dari yang lain. ( ==,===, !=, <>, dll). Sedangkan operator
aritmatika menentukan nilai secara matematis.
5. .
6.Perhitungan
Nilai
Algoritma
Deskripsi
Absensi,
UAS, UTS, Tugas: real
Deklarasi
Sum 0
Tugas 0
UTS 0
UAS 0
Read absensi
Absensi
= absensi*10%
Read tugas
Tugas
= tugas*20%
Read UTS
UTS = UTS *30%
Read UAS
UAS
= UAS*40%
Sum = absensi+tugas+UTS+UAS
Ave = Sum/4
write Ave
7. Algoritma lingkaran, segitiga dan balok
·
Listing rumus
lingkaran
Luas lingkaran
Declaration
Public a As Integer
Const pi = 3.14
Private Sub cmdbersih_Click()
optjari.Value = 0
End Sub
Private Sub cmdhitung_Click()
a = Val(txtukur.Text)
txtluas.Text = Round( pi * a ^ 2, 2)
Public a As Integer
Const pi = 3.14
Private Sub cmdbersih_Click()
optjari.Value = 0
End Sub
Private Sub cmdhitung_Click()
a = Val(txtukur.Text)
txtluas.Text = Round( pi * a ^ 2, 2)
End
Sub
·
Listing
rumus segitiga
Luas
General Declaration
Public a,b As Integer
Private Sub cmdbersih_Click()
optalas.Value = 0
Public a,b As Integer
Private Sub cmdbersih_Click()
optalas.Value = 0
Opttinggi.value = 0
End Sub
Private Sub cmdhitung_Click()
a = Val(txtalas.Text)
End Sub
Private Sub cmdhitung_Click()
a = Val(txtalas.Text)
b = val(txttinggi.Text)
txtluas.Text = Round( a*b/2, 2)
txtluas.Text = Round( a*b/2, 2)
End Sub
·
Listing
rumus balok
Volume
General Declaration
Public a, As Integer
Private Sub cmdbersih_Click()
optsisi.Value = 0
End Sub
Private Sub cmdhitung_Click()
a = Val(txtsisi.Text)
txtluas.Text = Round( s^3, 2)
Public a, As Integer
Private Sub cmdbersih_Click()
optsisi.Value = 0
End Sub
Private Sub cmdhitung_Click()
a = Val(txtsisi.Text)
txtluas.Text = Round( s^3, 2)
End sub
8.
·
.add item : perintah untuk menambahkan item tertenu
·
.text : menuliskan text
·
Ekspresi : gabungan dari kesatuan nilai eksplisit
konstanta
·
Mod : sisa
pembagian dua buah variabel atau lebih
9 .
·
Double :
variabel bialangan positif
·
Single : variabel data positif atau
negatif
·
String :
Objek yang diapit tanda petik atau tana petik tunggal
·
Integer :
data yang akan diproses secara numerik.
Tidak ada komentar:
Posting Komentar