1.
Procedure adalah kumpulan pernyataan
yang terpisah dari program utama yang bertujuan apabila program utama
membutuhkan pernyataan secara berulang, maka program otomatis menmanggil nama
prosedur dan menjalankan seluruh pernyataan yg ada. Dalam Visual Basic terdapat 2 macam prosedur yaitu :
a. Prosedur umum (general purpose procedure) merupakan prosedur
yang ditemukan di dalam daftar Drop Down pada jendela kode.
b. Prosedur Kejadian (Event procedure), prosedur yang berisi
kode yang dijalankan ketika suatu kejadian dari kontrol di bangkitkan.
(Modul Praktikum
Teknologi Informatika 2012 dan http://vbdesktop.blogspot.com/2007/12/procedure-function.html)
2.
Function adalah suatu program kecil yang
memberikan kontribusi bagi program utama, fungsinya nyaris sama dengan
procedure, hanya function mengembalikan nilai.
Function nama_Fungsi [(argumen)] as
[ReturnValType]
.
.
End Function
Function Pangkat()
‘ Inisialisasi varibel
Dim Bilangan as Integer
‘mendefinisikan nilai variabel
Bilangan = txtBilangan.Text
Pangkat = Bilangan * Bilangan
End Function
.
.
End Function
Function Pangkat()
‘ Inisialisasi varibel
Dim Bilangan as Integer
‘mendefinisikan nilai variabel
Bilangan = txtBilangan.Text
Pangkat = Bilangan * Bilangan
End Function
3.
Perbedaan
function dan procedure terletak pada proses pengerjaannya, kalau procedure dia
tidak akan mengembalikan suatu nilai pada pemanggilnya sedangkan function akan
mengembalikan suatu nilai pada pemanggilnya.
4.
secara
definisi ByVal adalah melewatkan argument secara
value, jika dalam prosedur disertakan kata ByVal argumen yang dilewatkan dengan
"ByVal" menggunakan mulai dari 2 sampai dengan 16 bytes dalam
prosedur, tergantung pada tipe data argumen tersebut. Tipe data yang lebih
besar memerlukan sedikit lebih lama untuk melewatkan "ByVal" daripada
yang lebih kecil.
Sedangkan ByRef adalah melewatkan argument secara reference,
semua argumen yang dilewatkan secara "ByRef" memerlukan sejumlah
waktu yang sama dari waktu untuk melewatkan dan sejumlah ruang yang sama (4
bytes) dalam sebuah prosedur tanpa memperhatikan tipe data dari argumen-argumen
tersebut.
5.
operator perbandingan adalah operator
yang menandakan suatu operator itu salah atau benar berdasarkan pernyataan,
variable, dan angka. Dengan penggunaan symbol seperti (= sama dengan, <>
tidak sama dengan, < lebih kecil, > lebih besar, <= lebih kecil sama
dengan, dann >= lebih besar sama dengan)
6.
operator percabangan adalah operator
yang dapat diaktifkan apabila suatu kondisi tertentu sudah dipenuhi, sebagai
contoh apabila suatu pernyataan dinilai ‘iya’ maka akan memberikan hasil yang
berbeda dengan pilihan ‘tidak’ atau dilanjutkan sesuai dengan kondisi yang
sudah terpenuhi. Contoh yang bisa kita dapat di visual basic yaitu (If…Then…,
If…Then…Else…, dan If nested)
7.
operator pengulangan adalah operator
yang mengizinkan programmer untuk melakukan pengulangan perintah lebih dari
satu kali. Contoh yang bisa di dapat pada visual basic adalah (For…Next…,
Do…Loop, Do While…Loop, Do Until…Loop)
8.
Initial Value : k = jumlah pengulangan
For
k (0)
Do
write “I Love U”
Until
k(100)
End
for
9.
Interface program gaji karyawan
Flowchart
Gaji Karyawan
Listing Program Gaji Karyawan
Private Sub Combo1_Click()
If Combo1.Text = "NIKAH" Then
Text5.Text = 0.1 * Val(Text4.Text)
Else
Text5.Text = o
End If
End Sub
Private Sub Command1_Click() //tombol hitung
Text6.Text = Val(Text3.Text) + Val(Text5.Text) + Val(Text4.Text)
End Sub
Private Sub Command2_Click()// tombol ulangi
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub
Private Sub Command3_Click()// tombol keluar
End
End Sub
Private Sub Form_Load()
Combo1.AddItem "NIKAH"
Combo1.AddItem "Belum NIKAH"
Combo1.ListIndex = 0
End Sub
Private Sub Text2_Change()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
If Combo1.Text = "NIKAH" Then
Text5.Text = 0.1 * Val(Text4.Text)
Else
Text5.Text = o
End If
End Sub
Private Sub Command1_Click() //tombol hitung
Text6.Text = Val(Text3.Text) + Val(Text5.Text) + Val(Text4.Text)
End Sub
Private Sub Command2_Click()// tombol ulangi
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub
Private Sub Command3_Click()// tombol keluar
End
End Sub
Private Sub Form_Load()
Combo1.AddItem "NIKAH"
Combo1.AddItem "Belum NIKAH"
Combo1.ListIndex = 0
End Sub
Private Sub Text2_Change()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
10. Jika
titik X lebih dari 0 dan titik Y juga lebih dari 0, maka kedua titik berada di
kuadran satu.
Jika
titik X kurang dari 0 dan titik Y lebih dari 0, maka kedua titik berada di
kuadran dua.
Jika
titik X kurang dari 0 dan titik Y kurang dari 0, maka kedua titik berada di
kuadran tiga.
Jika
titik X lebih dari 0 dan titk Y kurang dari 0, maka kedua titik berada di
kuadran empat.
Selain
itu kedua titik tidak berada di kuadran manapun.
0 Response to "modul 3"
Posting Komentar