Berita Terkini

Loading...

Sabtu, 04 April 2009

Quis Lab Programming1

Bagi mahasiswa STMIK Buddhi yang mengambil mata kuliah Lab Programming1, silahkan submit jawaban anda ke dalam komentar pada artikel ini.
Batas pengumpulan jawaban tgl 4 april 2009 jam 24.00
Diposkan oleh di 4/04/2009 10:53:00 AM

8 komentar:

WiWiN KuRniA mengatakan...

Nama = WIWIN KURNIA
Nim = 0102080042

Coding na :

Private Sub Combo1_Change()
File1.Pattern = Combo1.Text
End Sub

Private Sub Command1_Click()
Dim x, y As String

For i = 0 To 2
If List1.Selected(i) = True Then
y = " Olah raga favorit : " + _
List1.List(i) + Chr(13)
End If
Next
x = "Jenis kelamin :" + Chr(13)
For i = 0 To 1
If op(i).Value = True Then
x = x + " -" + op(i).Caption + Chr(13)
End If
Next
x = x + "dan hobi anda :" + Chr(13)
For i = 0 To 3
If c1(i).Value = 1 Then
x = x + " - " + c1(i).Caption + Chr(13)
End If
Next

MsgBox lbl1.Caption + Text1.Text + vbCrLf + lbl2.Caption + Combo1.Text + vbCrLf + y + (x)
End Sub

Sabtu, April 04, 2009 11:11:00 AM
WiWiN KuRniA mengatakan...
Komentar ini telah dihapus oleh penulis.
Sabtu, April 04, 2009 11:55:00 AM
nico mengatakan...

nama: nico ardy
nim: 0102080036
kode program:


Private Sub Combo1_Change()
File1.Pattern = Combo1.Text
End Sub

Private Sub Command1_Click()
Dim x, y As String

For i = 0 To 2
If List1.Selected(i) = True Then
y = " Olah raga favorit : " + _
List1.List(i) + Chr(13)
End If
Next
x = "Jenis kelamin :" + Chr(13)
For i = 0 To 1
If op(i).Value = True Then
x = x + " -" + op(i).Caption + Chr(13)
End If
Next
x = x + "dan hobi anda :" + Chr(13)
For i = 0 To 3
If c1(i).Value = 1 Then
x = x + " - " + c1(i).Caption + Chr(13)
End If
Next

MsgBox lbl1.Caption + Text1.Text + vbCrLf + lbl2.Caption + Combo1.Text + vbCrLf + y + (x)
End Sub

Sabtu, April 04, 2009 5:15:00 PM
bas mengatakan...

nama saya viriya budi triyady
no nim saya=010208010
Coding na :

Private Sub Combo1_Change()
File1.Pattern = Combo1.Text
End Sub

Private Sub Command1_Click()
Dim x, y As String

For i = 0 To 2
If List1.Selected(i) = True Then
y = " Olah raga favorit : " + _
List1.List(i) + Chr(13)
End If
Next
x = "Jenis kelamin :" + Chr(13)
For i = 0 To 1
If op(i).Value = True Then
x = x + " -" + op(i).Caption + Chr(13)
End If
Next
x = x + "dan hobi anda :" + Chr(13)
For i = 0 To 3
If c1(i).Value = 1 Then
x = x + " - " + c1(i).Caption + Chr(13)
End If
Next

MsgBox lbl1.Caption + Text1.Text + vbCrLf + lbl2.Caption + Combo1.Text + vbCrLf + y + (x)
End Sub

Sabtu, April 04, 2009 6:56:00 PM
tini mengatakan...
Komentar ini telah dihapus oleh penulis.
Sabtu, April 04, 2009 8:09:00 PM
tini mengatakan...
Komentar ini telah dihapus oleh penulis.
Sabtu, April 04, 2009 8:10:00 PM
tini mengatakan...

hartini tansil
sip siang


Private Sub Combo1_Change()
File1.Pattern = Combo1.Text
End Sub

Private Sub Command1_Click()
Dim x, y As String

For i = 0 To 2
If List1.Selected(i) = True Then
y = " Olah raga favorit : " + _
List1.List(i) + Chr(13)
End If
Next
x = "Jenis kelamin :" + Chr(13)
For i = 0 To 1
If op(i).Value = True Then
x = x + " -" + op(i).Caption + Chr(13)
End If
Next
x = x + "dan hobi anda :" + Chr(13)
For i = 0 To 3
If c1(i).Value = 1 Then
x = x + " - " + c1(i).Caption + Chr(13)
End If
Next

MsgBox lbl1.Caption + Text1.Text + vbCrLf + lbl2.Caption + Combo1.Text + vbCrLf + y + (x)
End Sub

Sabtu, April 04, 2009 8:12:00 PM
pipit mengatakan...

Nama : SAFITRI
Nim : 20085004059
Alamat blog: http://pipit_ascendio.blogspot.com/

Minggu, April 05, 2009 6:59:00 PM

Poskan Komentar

Langgan: Poskan Komentar (Atom)