MODUL 2

Modul 2

1.      Operator adalah simbol yang biasanya dilibatkan dalam suatu program untuk melakukan operasi dalam pemecahan suatu masalah.

http://kuncinemu.blogspot.com

2.      Operator aritmatika adalah tool yang digunakan dalam pengoperasian perhitungan aritmatika.

^ : untuk perpangkatan

*: untuk perkalian

/  : untuk pembagian

+ : untuk penjumlahan

-: untuk pengurangan

Mod(modulus) : untuk  mencari sisa hasil bagi

Operator aritmatika hanya bisa digunakan pada operand bilangan, baik bilangan bulat maupun  pecahan.

http://silvestersumilat1111.blogspot.com

3.      Fungsi dari operator val : untuk mengubah nilai STRING pada sebuah properti Text di Textbox menjadi nilai Numerik.

http://id.shvoong.com

Fungsi dari operator round :  untuk pembulatan angka di belakang koma.
http://g-nato.blogspot.com

Fungsi dari operator sqr: untuk mengakar suatu bilangan.

http://wahanapress.net

4.      Perbedaan antara operator aritmatika dengan operator perbandingan:

·  Operator aritmatika digunakan untuk operasi perhitungan, seperti penjumlahan, pengurangan, perkalian, pembagian, mencari sisa hasil bagi, d.l.l.

·  Operator perbandingan digunakan untuk mengetahui hasil perbandingan antara dua atau lebih bilangan, misalnya mencari nilai terendah, d.l.l.

http://gelapnyaa.blogspot.com

5.      Interface:

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)

Flowchart:

 (www. fainel.blogspot.com)

6.      Interface:

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)

Algoritma:

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.      Pengertian :

a.      Additem   :  tool yang digunakan untuk menambah item yang dipilih dan digunakan saat menggunakan toolbox ListBox dan ComboBox.

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

b.      Text           : tool yang digunakan saat menggunakan toolbox ListBox dan ComboBox.

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

c.       Ekspresi     : cara penulisan untuk memberikan nilai ke dalam variabel.

Ekspresi secara umum dalam computer dituliskan :

Variabel Å Nilai.

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

d.      Mod          :  tools untuk mencari sisa hasil pagi.

9.      Perbedaan :

a.      Double  : Memuat nilai pecahan dari 10^-108 sampai 10^108 pada bagian positif,dan -10^-108 sampai -10^108 pada bagian negatif.

b.      String  : Memuat nilai non numerik atau string, contoh untuk menyimpan alamat Variabel   tidak bisa dioperasikan secara aritmatika.

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

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