Private Sub cmdbersih_Click()
txtbil1.Text = “”
txtbil2.Text = “”
txthasil.Text = “”
End Sub
Private Sub cmdhitung_Click()
txthasil.Text = Val(txtbil1.Text) * Val(txtbil2.Text)
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Perhitungan harga setelah diskon
Private Sub cmdbersih_Click()
txtbil1.Text = “”
txtbil2.Text = “”
txthasil.Text = “”
End Sub
Private Sub cmdhitung_Click()
txthasil.Text = Val(txtbil1.Text) * Val(txtbil2.Text)
End Sub
Private Sub cmdkeluar_Click()
end
End Sub
tugas vibi
1. NPM :
Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub
2. Nama Mahasiswa:
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtps.SetFocus
End If
End Sub
3. Program Studi :
Private Sub txtps_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjurusan.SetFocus
End If
End Sub
4. Jurusan :
Private Sub txtjurusan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtsemester.SetFocus
End If
End Sub
5. Semester :
Private Sub txtsemester_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
End If
End Sub
6. Lagi :
Private Sub cmdlagi_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtps = “”
txtjurusan = “”
txtsemester = “”
End Sub
7. Batal :
Private Sub cmdbatal_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtps = “”
txtjurusan = “”
txtsemester = “”
End Sub
8. Keluar :
Private Sub cmdkeluar_Click()
end
End Sub
1. Kode Buah :
Private Sub txtkb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnb.SetFocus
End If
End Sub
2. Nama Buah :
Private Sub txtnb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txthb.SetFocus
End If
End Sub
3. Harga Buah :
Private Sub txthb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjb.SetFocus
End If
End Sub
4. Jumlah Beli :
Private Sub txtjb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttb.Text = Val(txthb.Text) * (txtjb.Text)
End If
End Sub
5. Total Bayar :
Private Sub txttb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
End If
End Sub
6. Lagi :
Private Sub cmdlagi_Click()
txtkb.SetFocus
txtkb = “”
txtnb = “”
txthb = “”
txtjb = “”
txttb = “”
End Sub
7. Batal :
Private Sub cmdbatal_Click()
txtkb.SetFocus
txtkb = “”
txtnb = “”
txthb = “”
txtjb = “”
txttb = “”
End Sub
8. Keluar :
Private Sub cmdkeluar_Click()
End
End Sub
yang
sesuatu yang ada di hatiku
sesuatu yang ada di hatimu
sayaa
di hatimu
sesuatu yang ada di benakku
sesuatu juga ada dalam benakmu
sesuatu
sesuatu yang ada di hatiku
rasa
dirimu
sesuatu yang ada di benakku
saya
sesuatu yang ada di hatiku
ada
tubuh
dari rambut sampai di ujung kaki
diriku
n sesuatupeluklah aku di pelukanmu agar aku rindu
sentuhan itu membuat diriku membayangka
destiamufkholifah 