Pemrograman Dasar

TUGAS PEMROGRAMAN DASAR

Latihan 1 " BIODATA"

Design

Listing Program

Private Sub Command1_Click()
Label6.Caption = Me.Text1.Text
Label7.Caption = Me.Text2.Text
Label8.Caption = Me.Text3.Text
Label9.Caption = Me.Text4.Text

End Sub

Private Sub Command2_Click()
Me.Text1 = ""
Me.Text2 = ""
Me.Text3 = ""
Me.Text4 = ""
Me.Label6 = ""
Me.Label7 = ""
Me.Label8 = ""
Me.Label9 = ""

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Text1_Change()
Label6.Caption = Text1.Text
End Sub

Private Sub Text2_Change()
Label7.Caption = Text2.Text
End Sub

Private Sub Text3_Change()
Label8.Caption = Text3.Text
End Sub

Private Sub Text4_Change()
Label9.Caption = Text4.Text
End Sub

Latihan tugas 4 " Cafe Yunfa"

CAFE YUNFA

Listing Program :

Private Sub Cmdclear_Click()
Me.cmbmenu = ""
Me.cmbpaket = ""
Me.List1 = ""
Me.txthrgmenu = ""
Me.txthrgfasilitas = ""
Me.txthrgminum = ""
Me.txtjumbel = ""
Me.txttotbay = ""
Me.txtubay = ""
Me.txtukem = ""
Me.Option1 = False
Me.Option2 = False
Me.Check1 = False
Me.Check2 = False
End Sub

Private Sub Form_Load()
cmbmenu.AddItem ("Sarapan Pagi")
cmbmenu.AddItem ("Makan Siang")
cmbpaket.AddItem ("Paket 1")
cmbpaket.AddItem ("Paket 2")
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) - (txttotbay)
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

Latihan Fungsi Operator

Fungsi Operator

Design

Listing Program

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

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

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

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

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

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

Private Sub cmdand_Click(Index As Integer)
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(Index As Integer)
txthasil = Val(txtnil1.Text) / (txtnil2.Text)
End Sub

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

Private Sub cmdkeluar_Click(Index As Integer)
End
End Sub

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

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

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

Private Sub cmdnot_Click(Index As Integer)
If cmbnot = True Then
txtnot = Not True
Else
txtnot = Not False
End If
End Sub

Private Sub cmdor_Click(Index As Integer)
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(Index As Integer)
txthasil = Val(txtnil1.Text) + (txtnil2.Text)
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub