Modul
2 kel 24
MODUL
2
1.Operator adalah suatu symbol untuk
menggambar sebuah opersi yang digunakan untuk mengolah data
2.Operator aritmatika adalah
operator yang digunakan dalam operasi perhitungan matematika seperti
penambhan,pengurangan,pembagian, sisa pembagian,perkalian.
3.Fungsi dari operator val adalah
untuk mengkonversikan jnis data string atau variant dengan mengubah formatnya
dari data karakter menjadi numeric.Sementara fungsi dari round adalah untuk
pembulatan angka dibelakang koma, sementara sqr(n) digunakan untk mencari
kuadrat dari n.(www.wahanapress.net)
4.Operator aritmatikadigunakan untuk
melakukan perhitungan yang matematis
sementara operator perbandingan digunakan untuk melakukan perbandingan antara nilai yang satu dengan nilai yang lain
sehingga dapat ditentukan nilai True atau Falsenya. (www.scibd.com)
5.Flowchart program bilangan ganjil
dan genap
6. Interfacenya :
Objek
|
Propertis
|
Value
|
Form1
|
Caption
|
Nilai akhir
Mahasiswa
|
Label1
|
Name
|
Nama mahasiswa
|
Label2
|
Name
|
Nim
|
Label3
|
Name
|
Nilai absensi
|
Label4
|
Name
|
Nilai tugas
|
Label5
|
Name
|
Nilai UTS
|
Label6
|
Name
|
Nilai UAS
|
Textbox1
|
Text
nama
|
<kosong>
Txtnilaimahasiswa
|
Textbox2
|
Text
Nama
|
<kosong>
Txtnim
|
Textbox3
|
Text
Nama
|
<kosong>
Txtnilaitugas
|
Textbox4
|
Text
Nama
|
<kosong>
Txtnilaiquiz
|
Textbox5
|
Text
Name
|
<kosong>
Txtnilaiuas
|
Textbox6
|
Text
Name
|
<kosong>
Txtnilai
|
Textbox7
|
Text
Name
|
<kosong>
Txtnilaihuruf
|
Command1
|
Caption
|
Proses
|
Command2
|
Caption
|
Tampilan
|
Command3
|
Caption
|
Get out
|
command1
TXTNILAIAKHIR.Text =
Val(txtnilaitugas.Text) * 0.1 + Val(txtnilaiquiz.Text) * 0.2 +
Val(txtnilaiuts.Text) * 0.3 + Val(txtnilaiuas.Text) * 0.4 +
Val(TXTNILAIAKHIR.Text)
txtnilai.Text = TXTNILAIAKHIR.Text
End Sub
command2
MsgBox " Nama Anda
" & txtnamamahasiswa.Text & " Nim " &
txtnim.Text & " Dengan Nilai " &
TXTNILAIAKHIR.Text & " Nilai " & txtnilai.Text &
""
End Sub
command3
End
End Sub
txtnilaiakhir
NilaiAkhir = (10 * absensi) + (20 *
Tugas) + (30 * UTS) + (40 * UAS)
End Sub
(http://fahmisary.blogspot.com/2011/06/v-behaviorurldefaultvmlo_13.html)
Algoritmanya
VarNIM, Nama, :
String; N_Uas, N_Uts, N_abs, NT Byte/ Integer;Na: Real
Read [Input]
Nama
N_abs
N_Uts
N_Uas
Read [Input]
Na =
(0,4*N_UAS)+(0,3*N_UTS)+(0,2*N_abs)+(0,1*NT);
Write “nilai akhir
dari “,nama “adalah = “,Na
7.Listing rumus lingkaran
a.
Luas
lingkaran
General 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)
b.
Keliling lingkaran
General Declaration
Public a As Integer
Const pi = 3.14
Private Sub cmdbersih_Click()
optjari.Value = 0
End Sub
Private Sub cmdhitung_Click()
a = Val(txtjari.Text)
txtkeliling.Text = Round( 2*pi * a, 2)
Public a As Integer
Const pi = 3.14
Private Sub cmdbersih_Click()
optjari.Value = 0
End Sub
Private Sub cmdhitung_Click()
a = Val(txtjari.Text)
txtkeliling.Text = Round( 2*pi * a, 2)
End sub
Listing rumus segitiga
a.
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)
Listing rumus balok
a.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
b.
Luas permukaan
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( 6*s^2, 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( 6*s^2, 2)
End sub
8.Add item berfungsi untuk
menambahkan jumlah item pilihan.
Ekspresi adalah proses penulisan
untuk menginput nilai ke dalam sebuah variable.
Text digunakan untuk menghasilkan
output pada sebuah objek
Mod menghasilkan nilai sisa
pembagian.
9.Double itu memuat nilai pecahan
dari 10-108 sampai dengan 10108 pada bagian positif dan -10-108 sampai -10108
di bagian negative
String itu memuat nilai yang bukan
numeric namun tipe datanya berupa text misalnya untuk menyimpan alamat,
Integer itu memuat bilangan bulat
antara 32768 sampai 32768.
Tidak ada komentar:
Posting Komentar