Tugas Pendahuluan-Modul 3

Tugas Pendahuluan – Modul 3 (Tugas Individu)

1.      Procedure adalah kumpulan pernyataan yang terpisah dari program utama yang bertujuan apabila program utama membutuhkan pernyataan secara berulang, maka program otomatis memanggil 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

(http://vbdesktop.blogspot.com/2007/12/procedure-function.html)

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.

(http://www.indrabt.com/perbedaan-antara-function-dan-procedure.html)

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. 

(http://visual-basic-60.blogspot.com/2010/05/vb-perbedaan-byval-dan-byref.html)

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)

(http://www.it-diary.info/2012/01/operator-perbandingan-vb-2010.html)

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)

(http://kevinkarundeng.wordpress.com/2011/03/30/perulangan-dan-percabangan-dalam-visual-basic/)

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)

(http://kevinkarundeng.wordpress.com/2011/03/30/perulangan-dan-percabangan-dalam-visual-basic/)

8.      Listing pengulangan kata “I Love U” pada visual basic 2010

Do until 100

Write “I Love U”

Loop

9.      Interface program gaji karyawan

Flowchart Program 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

(http://avrilblue.blogspot.com/2011/12/program-sederhana-menghitung-gaji.html)

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.