Tugas Kelompok/ QUIZ

Private Sub cmdcetak_Click()

X = MsgBox("Print The Struck???", vbQuestion + vbOKCancel, "Attention!!")

If X = vbOK Then

End

End If

End Sub

Private Sub cmdlagi_Click()

Option1 = False

Option2 = False

Option3 = False

Me.txtnmpembeli = ""

Me.txthrgkue = ""

Me.txthrgservice = ""

Me.txtjumbel = ""

Me.txttotbay = ""

Me.txtubay = ""

Me.txtukem = ""

End Sub

Private Sub combo2_Click()

If Combo1.Text = "Pancake" Then

Select Case (Combo2.Text)

Case "Chocolate"

List1.Clear

List1.AddItem ("Chocolate Pancake")

txthrgkue = 10000

Case "Strawberry"

List1.Clear

List1.AddItem ("Strawberry Pancake")

txthrgkue = 12000

Case Else

List1.Clear

List1.AddItem ("BlueBerry Pancake")

txthrgkue = 13000

End Select

ElseIf Combo1.Text = "Softcake" Then

Select Case (Combo2.Text)

Case "Chocolate"

List1.Clear

List1.AddItem ("Chocolate Softcake")

txthrgkue = 15000

Case "Strawberry"

List1.Clear

List1.AddItem ("Strawberry Softcake")

txthrgkue = 16000

Case Else

List1.Clear

List1.AddItem ("Blueberry Softcake")

txthrgkue = 17000

End Select

Else

Select Case (Combo2.Text)

Case "Chocolate"

List1.Clear

List1.AddItem ("Chocolate Icecake ")

txthrgkue = 20000

Case "Strawberry"

List1.Clear

List1.AddItem ("Strawberry Icecake")

txthrgkue = 21000

Case Else

List1.Clear

List1.AddItem ("Blueberry Icecake")

txthrgkue = 22000

End Select

End If

End Sub

Private Sub Form_Load()

Combo2.AddItem ("Chocolate")

Combo2.AddItem ("Strawberry")

Combo2.AddItem ("Blueberry")

Combo1.AddItem ("Pancake")

Combo1.AddItem ("Softcake")

Combo1.AddItem ("Icecake")

End Sub

Private Sub Option1_Click()

txthrgservice = 5000

End Sub

Private Sub Option2_Click()

txthrgservice = 2000

End Sub

Private Sub Option3_Click()

txthrgservice = 0

End Sub

Private Sub txtjumbel_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttotbay = Val(txtjumbel) * (Val(txthrgkue) + Val(txthrgservice))

txtubay.SetFocus

End If

End Sub

Private Sub cmdkeluar_Click()

X = MsgBox("Exit??", vbQuestion + vbOKCancel, "Attention!")

If X = vbOK Then

End

End If

End Sub

Private Sub cmdbatal_Click()

Option1 = False

Option2 = False

Option3 = False

List1.Clear

Me.txtnmpembeli = ""

Me.txthrgkue = ""

Me.txthrgservice = ""

Me.txtjumbel = ""

Me.txttotbay = ""

Me.txtubay = ""

Me.txtukem = ""

End Sub

Private Sub txtubay_Change()

txtukem = Val(txtubay.Text) - Val(txttotbay.Text)

End Sub

Tugas Looping (Perulangan)

script:


Dim i, jumlah As Variant
Private Sub Form_Load()
For i = 1 To 31
Me.cmbtgl.AddItem (Str(i))
Next i
For i = 1 To 12
Me.cmbbln.AddItem (MonthName(i))
Next i
For i = 1990 To Year(Now)
Me.cmbthn.AddItem (Str(i))
Next i
End Sub
Private Sub cmddountil_Click()
List1.Clear
i = 1
Do Until i > 5
List1.AddItem (i)
i = i + 1
Loop
End Sub
Private Sub cmddowhile_Click()
List1.Clear
i = 10
Do While i > 6
List1.AddItem (i)
i = i - 1
Loop
End Sub
Private Sub cmdfornext_Click()
List1.Clear
Dim a As Integer
a = 1
jumlah = 0
For i = 1 To 10
List1.AddItem (i)
jumlah = jumlah + a
a = a + 2
Next
End Sub
Private Sub cmdwhilewent_Click()
List1.Clear
i = 20
While i <= 60
List1.AddItem (i)
i = i + 10
Wend
End Sub

Tugas Cafe Of Yunfa

script:

Private Sub Form_Load()

cmbmenu.AddItem ("Sarapan Pagi")

cmbmenu.AddItem ("Makan Siang")

cmbpaket.AddItem ("Paket 1")

cmbpaket.AddItem ("Paket 2")

End Sub

Private Sub txtjumbel_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttotbay = Val(txtjumbel) * (Val(txthrgmenu) + Val(txthrgfasilitas) + Val(txthrgminum))

txtubay.SetFocus

End If

End Sub

Private Sub Option1_Click()

txthrgfasilitas = 5000

End Sub

Private Sub Option2_Click()

txthrgfasilitas = 0

End Sub

Private Sub cmbpaket_Click()

If cmbmenu.Text = "Sarapan Pagi" Then

Select Case (cmbpaket.Text)

Case "Paket 1"

List1.Clear

List1.AddItem ("Nasi Uduk")

List1.AddItem ("Telur")

List1.AddItem ("Tempe Orek")

txthrgmenu = 5000

Case Else

List1.Clear

List1.AddItem ("Nasi Goreng")

List1.AddItem ("Telur Mata Sapi")

List1.AddItem ("Tempe goreng")

txthrgmenu = 7000

End Select

Else

Select Case (cmbpaket.Text)

Case "Paket 1"

List1.Clear

List1.AddItem ("Nasi Putih")

List1.AddItem ("Ayam Bakar")

List1.AddItem ("Lalapan")

txthrgmenu = 8000

Case Else

List1.Clear

List1.AddItem ("Nasi Putih")

List1.AddItem ("Rendang")

List1.AddItem ("Sayur")

List1.AddItem ("Sambal Ijo")

txthrgmenu = 10000

End Select

End If

End Sub

Private Sub Check1_Click()

If Check1 = 1 And Check2 = 1 Then

txthrgminum = 3000

ElseIf Check1 = 1 And Check2 = 0 Then

txthrgminum = 2500

ElseIf Check1 = 0 And Check2 = 1 Then

txthrgminum = 500

Else

txthrgminum = 0

End If

End Sub

Private Sub Check2_Click()

If Check1 = 1 And Check2 = 1 Then

txthrgminum = 3000

ElseIf Check1 = 1 And Check2 = 0 Then

txthrgminum = 2500

ElseIf Check1 = 0 And Check2 = 1 Then

txthrgminum = 500

Else

txthrgminum = 0

End If

End Sub

Private Sub txtubay_Change()

txtukem = Val(txtubay.Text) - Val(txttotbay.Text)

End Sub

Private Sub cmdbersih_Click()

Option1 = False

Option2 = False

Check1 = False

Check2 = False

Me.txthrgmenu = ""

Me.txthrgfasilitas = ""

Me.txthrgminum = ""

Me.txtjumbel = ""

Me.txttotbay = ""

Me.txtubay = ""

Me.txtukem = ""

End Sub

Private Sub cmdkeluar_Click()

X = MsgBox("Apakah Anda ingin keluar dari Form ini?", vbQuestion + vbOKCancel, "informasi")

If X = vbOK Then

End

End If

End Sub

Latihan 1

script:

Private Sub cmdkeluar_Click()
p = MsgBox("Anda yakin akan keluar", vbQuestion + vbOKCancel, "Informasi")
If p = vbOK Then
End
End If
End Sub


Private Sub cmdlihat_Click()
MsgBox "Nim anda adalah " + txtnim.Text
MsgBox "Nama anda adalah " + txtnama.Text
End Sub

Tugas Menghitung Nilai

Private Sub Cmdbersih_Click()

Me.txtabsen = ""

Me.txttgs = ""

Me.txtuts = ""

Me.txtuas = ""

Me.habsen = ""

Me.htgs = ""

Me.huts = ""

Me.huas = ""

Me.txttotnil = ""

Me.txtgrade = ""

Me.textket = ""

End Sub

Private Sub cmdkeluar_Click()

x = MsgBox("Apakah Anda ingin keluar dari Form ini?", vbQuestion + vbOKCancel, "informasi")

If x = vbOK Then

End

End If

End Sub

Private Sub Form_Activate()

habsen.Enabled = False

htgs.Enabled = False

huts.Enabled = False

huas.Enabled = False

txtabsen.SetFocus

End Sub

Private Sub cmdhitung_Click()

'Menghitung Total Nilai

txttotnil = Val(habsen.Text) + Val(htgs.Text) + Val(huts.Text) + Val(huas.Text)

'menghitung grade

If txttotnil >= 80 And txttotnil <= 100 Then

txtgrade = "A"

Else

If txttotnil >= 69 And txttotnil <= 79 Then

txtgrade = "B"

Else

If txttotnil >= 56 And txttotnil <= 68 Then

txtgrade = "C"

Else

If txttotnil >= 40 And txttotnil <= 55 Then

txtgrade = "D"

Else

txtgrade = "E"

End If

End If

End If

End If

'Menghitung keterangan

If txtgrade = "A" Or txtgrade = "B" Or txtgrade = "C" Then

textket = "LULUS"

Else

textket = "GAGAL"

End If

End Sub

Private Sub txtabsen_Change()

Me.habsen = 0.1 * Val(txtabsen)

End Sub

Private Sub txttgs_Change()

Me.htgs = 0.2 * Val(txttgs)

End Sub

Private Sub txtuas_Change()

Me.huas = 0.4 * Val(txtuas)

End Sub

Private Sub txtuts_Change()

Me.huts = 0.3 * Val(txtuts)

End Sub

Tugas Pertama

 

Script:

Private Sub Command2_Click()
txthasil = Val(txtnil1.Text) < Val(txtnil2.Text)
End Sub

Private Sub Command3_Click()
txthasil = Val(txtnil1.Text) > Val(txtnil2.Text)
End Sub

Private Sub cmd1_Click()
txthasil = Val(txtnil1.Text) = Val(txtnil2.Text)
End Sub

Private Sub cmd2_Click()
txthasil = Val(txtnil1.Text) < Val(txtnil2.Text)
End Sub

Private Sub cmd3_Click()
txthasil = Val(txtnil1.Text) > Val(txtnil2.Text)
End Sub

Private Sub cmd4_Click()
txthasil = Val(txtnil1.Text) <= Val(txtnil2.Text)
End Sub

Private Sub cmd5_Click()
txthasil = Val(txtnil1.Text) >= Val(txtnil2.Text)
End Sub

Private Sub cmd6_Click()
txthasil = Val(txtnil1.Text) <> Val(txtnil2.Text)
End Sub

Private Sub cmdand_Click()
If txtnil1 = "true" And txtnil2 = "true" Then
txthasil = "true"
ElseIf txtnil1 = "true" And txtnil2 = "false" Then
txthasil = "false"
ElseIf txtnil1 = "true" And txtnil2 = "false" Then
txthasil = "false"
ElseIf txtnil1 = "false" And txtnil2 = "true" Then
txthasil = "false"
Else
txthasil = "false"
End If
End Sub

Private Sub cmdbagi_Click()
txthasil = Val(txtnil1.Text) / Val(txtnil2.Text)
End Sub

Private Sub cmdkali_Click()
txthasil = Val(txtnil1.Text) * Val(txtnil2.Text)
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdkurang_Click()
txthasil = Val(txtnil1.Text) - Val(txtnil2.Text)
End Sub

Private Sub cmdlagi_Click()
txtnil1.Text = ""
txtnil2.Text = ""
txthasil = ""
txtnot = ""
txtnil1.SetFocus
End Sub

Private Sub cmdmod_Click()
txthasil = Val(txtnil1.Text) Mod Val(txtnil2.Text)
End Sub

Private Sub cmdor_Click()
If txtnil1 = "true" Or txtnil2 = "true" Then
txthasil = "true"
ElseIf txtnil1 = "true" Or txtnil2 = "false" Then
txthasil = "true"
ElseIf txtnil1 = "false" Or txtnil2 = "true" Then
txthasil = "true"
Else
txthasil = "false"
End If
End Sub

Private Sub cmdtambah_Click()
txthasil = Val(txtnil1.Text) + Val(txtnil2.Text)
End Sub

Private Sub txthasil_Change()

End Sub