Jadikanlah keluarga sebagai motivator dan supporter pada saat baru memulai menjalankan bisnis maupun ketika bisnis semakin meguras waktu dan tenaga
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
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
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
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
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
8 komentar :
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
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
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
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
Nama : SAFITRI
Nim : 20085004059
Alamat blog: http://pipit_ascendio.blogspot.com/
Posting Komentar