LAPORAN AKHIR PRATIKUM
(Perulangan)
NAMA : DIAH AYU SETIANI
NPM : 2D114282
KELAS : 1KB05
Materi Pratikum :
Perulangan
Tanggal Pratikum : 29
Oktober 2014
Asisten Baris :
Ketua Asisten : Valdi
|
UNIVERSITAS GUNADARMA
LABORATORIUM SISTEM INFORMASI
2014/2015
Tugas Akhir
Tutorial / Langkah
Kerja
1.
Klik Open
pada VB 6.0
2.
Terlihat
Form seperti dibawah Ini
3.
Buat Komponen-
Komponennya kemudian ganti masingmasing namanya,
-
Form1 = Perulangan
-
List1 = -
-
Text1 = -
-
Command1 = For - next
-
Command2 = Do While
-
Command3 = Do Until
-
Command4 = For Next Step2
-
Command5 = Clear
-
Command6 = Close
4.
Masukkan
Lah Coding pada Masing2 Komponennya
a.
Command 1
Private Sub Command1_Click()
N = Val(Text1)
For i = 1 To N
List1.AddItem ("angka" &
i)
Next i
End Sub
b.
Command 2
Private Sub Command2_Click()
a = Text1.Text
b = 1
Do While (b <= a)
List1.AddItem ("angka" &
b)
b = b + 1
Loop
End Sub
c.
Command 3
Private Sub Command3_Click()
a = 1
b = Val(Text1)
Do
List1.AddItem ("Angka" & a)
a = a + 1
Loop Until a > b
End Sub
d.
Command 4
Private Sub Command4_Click()
N = Val(Text1)
For i = 1 To N Step 2
List1.AddItem ("angka" &
i)
Next i
End Sub
e.
Command 5
Private Sub Command5_Click()
List1.Clear
Text1.Text = ""
Text1.SetFocus
End Sub
f.
Command 6
Private Sub Command6_Click()
End
End Sub
5.
Maka
Hasilnya adalah
a.
For – next
b.
Do – While
Do – While
c.
Do – Until
Do – Until
d.
For next Step 2
For next Step 2
e.
Clear
Selesai
0 komentar:
Posting Komentar