LAPORAN
AKHIR
Mata Praktikum :
Algoritma Pemrograman 2A
Kelas :
1IA10
Praktikum ke :
1 (Pertama)
Tanggal :
4 April 2015
NPM :
5A414929
Nama :
Ulfah Pratiwi
Ketua Asisten :
Nama Asisten :
Dewi
Paraf Asisten :
Jumlah Lembar :
8 lembar
FAKULTAS TENLOGI INDUSTRI
JURUSAN TEKNIK INFORMATIKA
UNIVERSITAS GUNADARMA
2015
1.Listing Program
Ø LOGIN
Klik star , lalu klik All program lalu
klik Visual Basic 6
Kemudian akan tampil kotak dialog
seperti ini :
Kemudian klik label untuk menuliskan login , username dan
password dengan menggunakan label yang telah disediakan pada toolbox
Lalu klik CommandButton untuk menuliskan login dan reset
yang telah disediakan pada toolbox. Seperti pada gambar dibawah ini :
·
Pada tampilan properties caption “Label 1”
diganti dengan Silahkan Login
·
Caption “Label 2” diganti dengan username
·
Caption “Label 3” diganti dengan password
Seperti pada gambar dibawah ini :
Kemudian klik textbox untuk membuat
kotak disamping username dan password
·
Pada properties text “text1” dan “text 2”
dikosongkan
Dan untuk menjalankan perintah ketik
login dan reset pada CommandButton yang telah disediakan pada toolbox
·
Pada properties “Command1” diganti menjadi
login
·
Pada properties “Command2” diganti jadi reset
Sehingga tampilan pada kotak dialog
seperti ini :
Ø Perulangan
Klik label untuk menuliskan Perulangan ,
awal dan akhir dengan menggunakan label pada toolbox yang telah disediakan.
Seperti gambar dibawah ini :
·
Pada kotak properties caption “Label1”
diganti dengan Perulangan
·
Caption “label2” diganti dengan awal
·
Caption “Label3” diganti dengan akhir
Klik textbox untuk membuat kotak
disamping kotak awal dan akhir
·
Pada kotak textbox “text1” dan “text2”
dikosongkan
Dan untuk menjalankan perintah ketik
input dan reset pada CommandButton yang telah disediakan pada toolbox
·
Pada properties “Command1” diganti menjadi
input
·
Pada properties “Command2” diganti jadi reset
Sehingga tampilan pada kotak dialog
seperti ini :
untuk membuat kotak listbox :
·
Klik listbox pada toolbox yang telah
disediakan . sehinnga akan tampil kotak dialog seperti ini :
2.Logika Program
Ø Login
Private Sub Command1_Click()
If Text1.Text = "ulfah" And Text2.Text =
"12345" Then
MsgBox "Login Anda Berhaasil", 0,
"Succes"
Else
MsgBox "Username atau Password Anda Salah", 0,
"Error"
End If
End Sub
Ø Reset
Private Sub Command2_Click()
Text1.Text = Clear
Text2.Text = Clear
End Sub
Ø Perulangan
Private Sub Command1_Click()
List1.Clear
a = Val(Text1.Text)
b = Val(Text2.Text)
For i = a To b step 2
List1.AddItem i
Next
i
End
Ø Reset
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
3. Output Program
Ø Login
Jika program username kita masukkan
dengan benar sesuai dengan codingan .misalnya username = Ulfah dan password =
12345 maka outputnya akan menghasilkan “ Login anda berhasil” . seperti pada
tampilan kotak dialog dibawah ini :
Tetapi jika tidak sesuai maka akan
menghasilkan output seperti ini :
Dan untuk menghapus tulisan pada textbox
, klik reset .maka akan muncul tampilan kotak dialog seperti ini :
Ø Perulangan
Misalnya untuk menghasilkan output pada
angka ganjil dari angka 1 sampai dengan angka 25 . dengan menginput angka 1
pada awal dan angka 25 pada akhi akan muncul tampilan gambar seperti ini
Dan
Output programnya yaitu
0 komentar:
Posting Komentar