MODUL 2

Modul 2

1.       Operator  adalah  suatu  simbol  atau  tanda  untuk  menyatakan  suatu  operasi atau  proses

(121k3.files.wordpress.com/2008/08/vb2-operator-espresi.pdf)

2.    Operator aritmatika

Operator aritmatika digunakan untuk melakukan operasi matematika, seperti penambahan, pengurangan, pembagian, dan modulo (atau sisa pembagian).

Jenis-jenisnya yaitu :

+ Operator penjumlahan (juga sebagai penyambung string)

- Operator pengurangan

* Operator perkalian

/ Operator pembagian

% Operator sisa pembagian

                (http://nuranisah.wordpress.com/2009/10/11/tugas-algoritma/)

3.       Val  merupakan  suatu  fungsi  yang  digunakan  untuk  mengkonversi  tipe  data

string atau variant seperti pada textbox menjadi tipe data numerik sehingga  bisa

dihitung dengan operasi aritmatika. (http://121k3.files.wordpress.com/2008/08/vb2-operator-espresi.pdf)

Fungsi round umumnya dikhususkan untuk pepmbulatan angka dibelakang koma (http://wahanapress.net/2003/12/15/vb-round-integer-updated/)

Sqr(n), digunakan untuk mencari akar kuadrat dari n (http://putravb.blogspot.com/2011/05/fungsi-fungsi-angka.html)

4.       Operator Aritmatika  Operator Aritmatika ini digunakan untuk melakukan operasi perhitungan, seperti penjumlahan, perkalian, mencari sisa hasil bagi (modulus) dan lain sebagainya.

Operator perbandingan digunakan untuk mengetahui hasil perbandingan dua atau lebih bilangan, misalkan mencari bilangan terbesar dan lain sebagainya. untuk membandingkan bilangan, kedua bilangan harus memiliki tipe data yang sama

(http://world-of-programmer.blogspot.com/2010/04/jenis-operator-dalam-visual-basic.html)

5.       Interfacenya :

Private Sub command1_Click()
   If text1.Text Mod 2 = 0 Then
   label1.Caption = text1.Text + ” Bilangan Genap”
   Else
   label1.Caption = text1.Text + ” Bilangan Ganjil”
   End If 
   End Sub

(http://pemogramanvb.blogspot.com/2010/11/source-code-mencari-bilangan.html)

Flowchartnya :

(www. fainel.blogspot.com)

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)

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)

End sub

Listing rumus segitiga

a.     Luas

General Declaration
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)

b = val(txttinggi.Text)
txtluas.Text = Round(  a*b/2, 2)

(http://razbieblog.blogspot.com/2010/04/menghitung-volume-bola.html)

Listing rumus balok

Listing rumus kubus

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)

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)

End sub

8.     AddItem berfungsi untuk menambah item pilihan.
Kita menggunakan AddItem pada saat kita menggunakan perintah ListBox dan ComboBox. 

http://dieloupherha.blogspot.com/2010/10/tugas-visual-basic.html

Kita menggunakan Text pada saat kita menggunakan perintah ListBox dan ComboBox. 

http://dieloupherha.blogspot.com/2010/10/tugas-visual-basic.html

Ekspresi adalah suatu cara penulisan untuk memberikan atau memasukkan

nilai kedalam variabel. Ekspresi secara umum dalam computer statement dituliskan

sebagai:

Variabel Å Nilai

(http://unilanet.unila.ac.id/~gigih/belajar_komputer/VB/Bab%203.pdf)

Mod (http://unilanet.unila.ac.id/~gigih/belajar_komputer/VB/Bab%203.pdf)

9.     Double  : Menampung nilai pecahan dari 10^-108 sampai dengan 10^108 pada bagian positif,dan -10^-108 sampai dengan -10^108 pada bagian negatif.

String  : Menampung nilai non numerik atau string, misalkan untuk menyimpan alamat Variabel  ini tidak bisa dioperasikan secara aritmatika.

Single  : Menampung nilai pecahan dari 10^-38 sampai dengan 10^38 pada bagian positif, dan -10^-38 sampai dengan -10^38 pada bagian negatif.

Integer  : Menampung nilai bulat antara -32768 s/d 32768 (15 bit)

10.