TUGAS PENDAHULUAN TEKNOLOGI INFORMATIKA
1. Procedure adalah
sekelompok data/statement yang berbeda lokasinya dari program utamanya, yang
ditujukan guna apabila program utama membutuhkan kelompok data tersebut, maka
program cukup melakukan pemanggilan kepada nama prosedurnya untuk mengeksekusi
kelompok yang dipisah tersebut. Procedure digunakan untuk memadatkan tugas
berulang ataupun proses yang digunakan bersama, seperti perhitungan yang sering
dilakukan, text dan manipulasi control, serta operasi database.
Jenis procedure dalam Visual Basic :
Sub Procedure yang tidak mengembalikan nilai, Function Procedure yang
mengembalikan nilai, Property Procedure yang dapat mengembalikan nilai dan diisi
nilai yang mengacu pada suatu objek
Contoh : 1. Sub tengah (x)
2.
x.Top = (Screen.Height – x.Height) / 2
3.
x.Left = (Screen.Widht – x.Widht) / 2
4.
End Sub
Untuk menggunakan procedure diatas,
panggil sub Tengah di event Form Load.
1. Private Sub Form_Load ()
2. Call Tengah (Me)
3. End Sub
Sumber : http://chandra.utama.us/procedure-dan-function-di-visual-basic-6-1255
dan modul praktikum TI 2012
2. Function secara umum
hampir sama dengan procedure namun function biasanya dapat mengembalikan nilai
tertentu, lain halnya dengan prosedur yang tidak mengembalikan nilai tertentu.
Contoh : Fungsi mengembalikan nama
bulan dari suatu tanggal dalam bahasa Indonesia
1) Function Bulan (x as Date)
as string
2) Dimbln as string
3) Select Case Month (x)
4) Case 1: bln = “Januari”
5) Case 2: bln = “Februari”
6) Case 3: bln = “Maret”
7) Case 4: bln = “April”
8) Case 5: bln = “Mei”
9) Case 6: bln = “Juni”
10) Case 7: bln = “Juli”
11) Case 8: bln = “Agustus”
12) Case 9: bln = “September”
13) Case 10: bln = “Oktober”
14) Case 11: bln = “November”
15) Case 12:bln = “Desember”
16) End Select
17) Bulan = bln
18) End Function
Sumber : http://chandra.utama.us/procedure-dan-function-di-visual-basic-6-1255
dan modul praktikum TI 2012
3. Function :
- Dapat mengembalikan suatu nilai namun
harus diletakkan dalam sebuah variable tertentu
- Untuk mengembalikan nilai hasil
dapat digunakan keyword “function” dan dapat menggunakan keyword “return” atau
menggunakan nama dari function tersebut.
Procedure:
-
Procedure tidak dapat mengembalikan suatu nilai
-
Dan procedure menggunakan keyword “sub”
4. Byval : adalah melewatkan
sebuah argument secara value ke sebuah prosedur dengan melewatkan alamatnya
Byref : adalah melewatkan sebuah
argument secara reference ke sebuah prosedur dengan melewatkan nilainya.
Perbedaan :
-
ByVal : bersifat satu arah, tidak akan mempengaruhi program
utama jika terjadi perubahan pada sub program
-
ByRef : bersifat dua arah, program utama akan terpengaruh
jika terjadi perubahan pada sub program
5. Operator perbandingan adalah operator yang
digunakan untuk mengetahui hasil perbandingan dua atau lebih bilangan dalam
suatu proses perbandingan. Operator ini ditujukan untuk menentukan suatu
kondisi apakah saling bersesuaian atau tidak dengan yang lain. Dan hasil dari perbandingan
ini adalah True atau False.
(Operator aritmatika → = (sama dengan), <, <=, >, >=, <>
(tidak sama dengan)
6.
-
If…….Then → yang mengisyaratkan suatu
kondisi agar bisa masuk ke suatu kondisi setelahnya
-
If……Then…..Else → beberapa blok pernyataan
yang dijalankan sehingga visual basic akan
terus mencari pernyataan hingga dapat menemukan dimana kondisi true
-
If bercabang → If yang terletak di dalam
if
7. Operator Perulangan
-
For…..next….. → bentuk perulangan yang
akan melakukan pengulangan pada kumpulan statement (nilai) yang telah
ditentukan sebelumnya, dan mengabaikan kondisi dari perulangan tersebut.
-
Do…..Loop…… → digunakan untuk
mengeksekusi suatu blok statement dengan jumlah perulangan yang tak hingga,
namun masih dilakukan evaluasi untuk melanjutkan eksekusi.
-
While……Wend →
digunakan
untuk mengeksekusi blok statement, dan jumlah perulangannya tak hingga.
8. Do while <kondisi>
I Love U
Loop
9. –LISTING PROGRAM GAJI
KARYAWAN-
Procedure TForm3cJabatanClick (Sender
: TObject);
Begin
If cjabatan Text = ‘Direktur’ then
Epokok.Text : = ‘5000000’
Else
If cjabatan.Text = ‘Manager’ then
Epokok.Text : = ‘2000000’
Else
If cjabatan.Text = ‘Karyawan’ then
Epokok.Text : = ‘0’
End
-FLOWCHART PROGRAM GAJI KARYAWAN-
110. Jika suatu angka diinput/dimasukkan pada sumbu x
nilainya positif, sumbu y nilainya positif maka angka tersebut tergolong ke
dalam kuadran 1.
Jika suatu angka diinput dan pada sumbu x nilainya
negatif, sumbu y nilainya positif maka angka tersebut masuk ke dalam kuadran 2.
Jika suatu angka diinput dan sumbu x bernilai
negatif, sumbu y juga bernilai negatif maka angka tersebut masuk ke kuadran 3.
Jika suatu angka diinput dan sumbu x bernilai
positif, dan sumbu y nilainya negatif maka angka tersebut masuk ke dalam
kuadran 4.
Jika terdapat tidak ada yang memenuhi syarat semua
maka angka tersebut tidak terletak di kuadran manapun.
Tinker - Titanium Arts
Tinker is a titanium drill bits unique titanium ring for men artisan ford ecosport titanium beer based on titanium rods Tinker. A premium ale with citizen super titanium armor a high quality premium aged IPA, aged at 4.9 million scoville units, this