Pemrograman Visual:Latihan Ujian: Difference between revisions
No edit summary |
No edit summary |
||
| (One intermediate revision by the same user not shown) | |||
| Line 1: | Line 1: | ||
[[File:Pemrograman visula latihan ujian 1029384.PNG|thumb]] | |||
Kode ini memerlukan sebuah objek <code>ComboBox</code> yang disebut <code>cboJenis</code> yang digunakan untuk memilih jenis mobil, sebuah objek TextBox yang disebut <code>txtJumlahHari</code> yang digunakan untuk memasukkan jumlah hari sewa, sebuah objek <code>TextBox</code> yang disebut <code>txtSewaPerHari</code> yang digunakan untuk menampilkan harga sewa per hari, dan sebuah objek <code>TextBox</code> yang disebut <code>txtJumlahBayar</code> yang digunakan untuk menampilkan jumlah bayar. | Kode ini memerlukan sebuah objek <code>ComboBox</code> yang disebut <code>cboJenis</code> yang digunakan untuk memilih jenis mobil, sebuah objek TextBox yang disebut <code>txtJumlahHari</code> yang digunakan untuk memasukkan jumlah hari sewa, sebuah objek <code>TextBox</code> yang disebut <code>txtSewaPerHari</code> yang digunakan untuk menampilkan harga sewa per hari, dan sebuah objek <code>TextBox</code> yang disebut <code>txtJumlahBayar</code> yang digunakan untuk menampilkan jumlah bayar. | ||
| Line 112: | Line 113: | ||
End Sub | End Sub | ||
End Class | End Class | ||
</syntaxhighlight>Kode dibawah ini di event <code>btnBersihkan_Click</code> digunakan untuk mengosongkan semua input pada form, sedangkan pada event <code>btnKeluar_Click</code> digunakan untuk menutup form.<syntaxhighlight lang="vbscript" line="1"> | </syntaxhighlight>Kode dibawah ini di event <code>btnBersihkan_Click</code> digunakan untuk mengosongkan semua input pada form, sedangkan pada event <code>btnKeluar_Click</code> digunakan untuk menutup form. | ||
<syntaxhighlight lang="vbscript" line="1"> | |||
Public Class Form1 | Public Class Form1 | ||
| Line 150: | Line 153: | ||
End Sub | End Sub | ||
Private Sub txtJumlahHari_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtJumlahHari.TextChanged | Private Sub txtJumlahHari_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtJumlahHari.TextChanged | ||
Dim harga As Integer | Dim harga As Integer | ||
harga = Val(txtSewaPerHari.Text) | harga = Val(txtSewaPerHari.Text) | ||
txtJumlahBayar.Text = harga * Val(txtJumlahHari.Text) | txtJumlahBayar.Text = harga * Val(txtJumlahHari.Text) | ||
End Sub | End Sub | ||
Private Sub btnBersihkan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersihkan.Click | Private Sub btnBersihkan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersihkan.Click | ||
cboJenis.Text = "" | cboJenis.Text = "" | ||
| Line 161: | Line 164: | ||
txtSewaPerHari.Text = "" | txtSewaPerHari.Text = "" | ||
txtJumlahBayar.Text = "" | txtJumlahBayar.Text = "" | ||
txtNamaPenyewa.Text = "" | |||
txtNomorSewa.Text = "" | |||
End Sub | End Sub | ||