Jadwal Kuliah Semester II STIKOM

Ini adalah jadwal sementara mata kuliah anak STIKOM semester II

Senin
20.00 - 21.30 WIB : Merakit Komputer

Selasa
17.30 - 19.30 WIB : Sistem Basis Data

Rabu
17.30 - 19.30 WIB : Design Grafis I (Adobe Potoshop)
19.30 - 21.30 WIB : Sistem Operasi I

Kamis
17.30 - 19.30 WIB : Interaksi Manusia & Komputer

Jum'at
17.30 - 19.30 WIB : Pemrograman Visual Basic II
19.30 - 21.30 WIB : Keamanan & Jaringan Komputer

Jakarta, 23 Februari 2009
STIKOM CKI Kampus C

Selengkapnya...

Jadwal UAS Semester 1 STIKOM

Senin, 09 Februari 2009
18.00 - 20.00 WIB : Akuntansi Dasar

Rabu, 11 Februari 2009
18.30 - 20.30 WIB : Pengenalan TI

Kamis, 12 Februari 2009
17.30 - 19.30 WIB : Algoritma Pemrograman
19.30 - 21.30 WIB : Visual Basic

Jum'at, 13 Februari 2009
17.30 - 19.30 WIB : Microsoft Access

Selengkapnya...

Fungsi Perulangan

adalah sebuah kondisi dimana satu atau beberapa kode program dieksekusi secara berulang-ulang.
Macam-macam struktur perulangan:

1. FOR ... NEXT : banyaknya perulangan ditentukan sejak awal

1. For [var] = N awal To N akhir [step(stp)]
   [statement1]
   [statement2]
   Next

2. Keterangan: var = variabel yang berubah dari N awal s/d N akhir
   N awal = nilai awal
   N akhir = nilai akhir
   Stp = besar perubahan nilai

2. WHILE ... WEND : menguji perulangan terlebih dahulu jika kondisi terpenuhi, maka kode program akan diulang terus-menerus.
   

   While [uji kondisi]
   [statement1]
   [statement2]
   Wend

3. DO ... LOOP : jika kondisi belum terpenuhi, maka program akan diulang terus-menerus.

Do Until [uji kondisi]
[statement1]
[statement2]
Loop

Contoh program
>> Form

>> Code

Private Sub Command1_Click()
Dim v3 As Integer
v3 = Text1.Text
For i = 1 To v3
MsgBox i
Next
End Sub

Private Sub Command2_Click()
Dim v3 As Integer
Dim i As Integer
v3 = Text1.Text
i = 1
While i <= v3
MsgBox i i = i + 1
Wend
End Sub

Private Sub Command3_Click()
Dim v3 As Integer
Dim i As Integer
v3 = Text1.Text i = 1
Do Until i > v3
MsgBox i
i = i + 1
Loop
End Sub

Selengkapnya...

Fungsi Pemilihan

Pemilihan adalah sebuah kondisi dimana satu atau lebih baris program akan dieksekusi jika memenuhi kondisi tertentu. Jika kondisi tidak terpenuhi, maka program akan mengeksekusi baris program berikutnya.

Macam-macam struktur pemilihan:

1. IF ... THEN
• If (kondisi) Then (statemen1)
• If (kondisi) Then
  (statemen1)
  (statemen2)
  End If
• If (kondisi) Then
  (statemen1)
  Else
  (statemen2)
  End If
• If (kondisi1) Then
  (statemen1)
  Else If (kondisi2) Then
  (statemen2)
  Else
  (statemen3)
  End If
2. SELECT ... CASE : digunakan bila terjadi banyak kondisi. Merupakan penyederhanaan dari If Then Else.
   

Select Case (kondisi yang dites)
Case (memenuhi kondisi1)
(statemen1)
Case (memenuhi kondisi2)
(statemen2)
Case Else
(statemen3)
End Select

Contoh Program
>> Form

>> Code

Private Sub Command1_Click()
Dim Nilai As Single
Dim NilaiHuruf As String
Nilai = Text1.Text
If Nilai < 6 Then
NilaiHuruf = "D"
ElseIf Nilai >= 6 And Nilai < 7 Then
NilaiHuruf = "C"
ElseIf Nilai >= 7 And Nilai < 8 Then
NilaiHuruf = "B"
Else
NilaiHuruf = "A"
End If
Text2.Text = NilaiHuruf
End Sub

Private Sub Command2_Click()
Dim Nilai As Single
Dim NilaiHuruf As String
Nilai = Text1.Text
Select Case Nilai
Case Is < 6
NilaiHuruf = "D"
Case Is < 7
NilaiHuruf = "C"
Case Is < 8
NilaiHuruf = "B"
Case Else
NilaiHuruf = "A"
End Select
Text2.Text = NilaiHuruf
End Sub

Selengkapnya...

Variabel, Konstanta Dan Operator

:: VARIABEL ::
Variabel yaitu lokasi di memori tempat menyimpan informasi sementara.
Cara penulisan : Dim [nama_variabel] As [type_data]
Aturan variabel :

1. Maksimal 40 karakter,
2. Tidak boleh menggunakan spasi,
3. Tidak boleh menggunakan karakter khusus (seperti : +, -, *, /, <, >),
4. Karakter pertama harus huruf,
5. Tidak boleh menggunakan kata kunci, obyek, properti dan metode VB 6.
   

Tipe data untuk variabel pada VB 6 :

• Boolean : true atau false
• Integer : angka bulat -32768 s/d 32767
• Long (Integer) : -2147483648 s/d 2147483648
• Single : angka pecahan
• Double : angka
• Currency : mata uang
• Date : tanggal dan jam
• Obyek : referensi obyek
• String : karakter
• Variant : semua jenis data
  

Contoh variabel :

Dim Nilai As Double
Dim Nama As String
Dim Tgl As Date

Lingkup/Prosedur Variabel :

1. Level prosedur : untuk lingkup hanya pada prosedur.
2. Level form/modul : bisa dipanggil pada semua prosedur dalam form/modul
3. Level global : bisa dipanggil pada semua prosedur, menggunakan kata kunci public atau global.
   

:: KOSNTANTA ::
adalah variable yang nilainya tidak berubah.
Cara penulisan : Const [nama_kontanta] As [type_data] = [nilai_data]
Contoh :

Const phi = 3.14
Const tgl_gajian As Date = #25/09/2003#

:: OPERATOR ::
adalah fungsi untuk melakukan operasi.
Macam-macam operator :

1. Operator Penugasan, contoh Nilai = 2000
2. Operator Aritmatika digunakan untuk operasi matematis terhadap nilai data. Simbol-simbol yang digunakan :
• ^ pemangkatan 5 ^ 2 hasilnya 25
• * perkalian 5 * 2 hasilnya 10
• / pembagian (hasil pecahan) 5 / 2 hasilnya 2,5
• \ Pembagian (hasil bulat) 5 \ 2 hasilnya 2
• Mod sisa pembagian 5 Mod 2 hasilnya 1
• + penjumlahan 5 + 2 hasilnya 7
• - pengurangan 5 - 2 hasilnya 3
• & penggabungan string 5 & 2 hasilnya 52
3. Operator Perbandingan digunakan untuk operasi yang membandingkan nilai data. Simbol-simbol yang digunakan :
• <>
• > lebih besar; 5 > 2 hasilnya TRUE
• <= lebih kecil atau sama dengan; 5 <= 2 hasilnya FALSE
• >= lebih besar atau sama dengan; 5 >= 2 hasilnya TRUE
• = sama dengan; 5 = 2 hasilnya FALSE
• <> tidak sama dengan; 5 <> 2 hasilnya TRUE
4. Operator Logika digunakan untuk operasi yang membandingkan suatu perbandingan. Simbol-simbol yang digunakan :
• Or; atau; Benar, jika salah satu ekspresi benar; (5 <> 2) hasilnya TRUE
• And; dan; Benar, jika kedua ekspresi benar; (5 <> 2) hasilnya FALSE
• Not; Tidak Not; Menghasilkan nilai kebalikan (5 <>

Contoh Program
>> Form
>> Code

Dim var1 As Single, var2 As Single
Dim hasil As Single

Private Sub Option1_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 + var2
Label3.Caption = hasil
End Sub

Private Sub Option10_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 >= var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option11_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 <= var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option12_Click()
var1 = IIf(Text1.Text = "True", -1, 0)
hasil = Not (var1)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option13_Click()
var1 = IIf(Text1.Text = "True", -1, 0)
var2 = IIf(Text2.Text = "True", -1, 0)
hasil = (var1 Or var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option14_Click()
var1 = IIf(Text1.Text = "True", -1, 0)
var2 = IIf(Text2.Text = "True", -1, 0)
hasil = (var1 And var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option2_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 - var2
Label3.Caption = hasil
End Sub

Private Sub Option3_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 * var2
Label3.Caption = hasil
End Sub

Private Sub Option4_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 / var2
Label3.Caption = hasil
End Sub

Private Sub Option5_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 & var2
Label3.Caption = hasil
End Sub

Private Sub Option6_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 > var2)
'Label3.Caption = hasil
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option7_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 < var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option8_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 = var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option9_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 <> var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Selengkapnya...

Fungsi Dir List Box & Common Dialog

Drive List Box : untuk menampilkan Drive
Directory List Box : untuk menampilkan Directory
File List Box : untuk menampilkan File Name

Lihat code dibawah:
Object Properties Nilai
FileListBox Pattern *.jpg;*.gif;*.bmp;*.ico
Image Strecth True
Form Caption Browser Gambar

Fungsi Common Dialog : untuk menampilkan penggunaan dialog open, save, font, print, color dan lain-lain.
Filter : “All files (*.*) | *.* | jpg files (*.jpg) | *.jpg | “ & gif files (*.gif) | *.gif”

Contoh Program
>> Form DirListBox
>> Code

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
filegambar = File1.Path + "/" + File1.FileName
Image1.Picture = LoadPicture(filegambar)
Form1.Caption = filegambar
End Sub

>> Form Common Dialog
>> Code

Private Sub Command1_Click()
CommonDialog1.Filter = "All files (*.*)|*.*|JPG Files(.*jpg)|*.jpg|& GIF Files(*.gif)|*.gif"
CommonDialog1.DialogTitle = "Buka File"
CommonDialog1.ShowOpen
filegambar = CommonDialog1.FileName
Image1.Picture = LoadPicture(filegambar)
Form1.Caption = filegambar
End Sub

Selengkapnya...

Fungsi MsgBox & InputBox

Kotak pesan (Message Box) : untuk menampilkan pesan yang dapat digunakan sebaai input/output aplikasi.

Sintax : msgbox(prompt,parameter,judul)
Contoh: msgbox(Hai,vbokOnly,test)


Fungsi MsgBox ini bisa dipakai menggunakan 2 parameter sekaligus.
Macam-macam parameter dalam vb:
1. vbokOnly (0)
2. vbokCancel (1)
3. vbYesNoCancel (3)
4. vbCritical (16)
5. vbExclamation (48)
6. vbInformation (64)
7. vbQuestion dan lain-lain

Kotak input (Input Box) : untuk menampilkan kotak masukan dan menyimpan text.
Sintax : inputbox (promt,judul,xpos,ypos)
Contoh : inputbox (“masukkan nama Anda:”,”input”,3000,2000)

Contoh Program
>> Form MsgBox
>> Code

Private Sub Command1_Click()
Pesan = MsgBox("Bukalah Pintu Hatimu Untukku??", vbYesNo, "Konfirmasi Cinta?")
If Pesan = vbYes Then
Label1.Caption = "Hidup ini memang indah"
Else
Label1.Caption = "Bunuh diri aja lhoooch"
End If
End Sub

>> Form InputBox

>> Code

Private Sub Command1_Click()
'buat input box dengan variabel coba
coba = InputBox("Masukkan Nama Anda:", "Masukkan Nama")
'maka text1 akan menampilkan pesan input box
Text1.Text = "Hallo " + coba
'buat message box
MsgBox "Hallo " + coba, vbOKOnly, "Pesan Terakhir:"
End Sub

Selengkapnya...

Tentang Visual Basic

Visual Basic (VB) merupakan bahasa pemrograman komputer dari Microsoft (1991) yang berbasis Object Oriented Programming (OOP) yakni bahasa pemrograman yang mendukung obyek. Tampilan kerja VB disebut IDE (Integrated Development Environtment). Dalam pemrograman OOP ada istilah:

1. Object : komponen di dalam sebuah program
2. Property : karakteristik yang dimiliki sebuah obyek
3. Method : aksi yang dapat dilakukan sebuah obyek
4. Event : kejadian yang dapat dialami sebuah obyek

VB bersifat event driven programming, artinya kita dapat menyisipkan kode program pada event yang dimiliki object.

VB dapat digunakan untuk:
- database
- aplikasi
- kalender
- game
- membuat virus




Contoh Program:
>> Form

>> Code

Private Sub Command1_Click()
Label2.Caption = Text1.Text
Form1.Caption = "Anda Berhasil"
End Sub

Private Sub Command2_Click()
End
End Sub

>> Form

>> Code

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

Selengkapnya...