Pemrograman Visual:Latihan Ujian - Revision history

Kangtain at 05:06, 12 January 2023

2023-01-12T05:06:47Z

← Older revision		Revision as of 12:06, 12 January 2023
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.

Kangtain at 05:03, 12 January 2023

2023-01-12T05:03:57Z

← Older revision		Revision as of 12:03, 12 January 2023
Line 112:		Line 112:
	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 152:
	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 163:
	txtSewaPerHari.Text = ""		txtSewaPerHari.Text = ""
	txtJumlahBayar.Text = ""		txtJumlahBayar.Text = ""
			txtNamaPenyewa.Text = ""
			txtNomorSewa.Text = ""
	End Sub		End Sub

Kangtain at 00:01, 12 January 2023

2023-01-12T00:01:05Z

← Older revision		Revision as of 07:01, 12 January 2023
Line 30:		Line 30:
	</syntaxhighlight>		</syntaxhighlight>

	Kode dibawah memiliki 2 event, pada saat index pada comboBox berubah, dan satu lagi pada saat text pada TextBox JumlahHari berubah, sehingga otomatis akan menghitung dengan sendirinya		Kode dibawah memiliki 2 event, pada saat index pada <code>comboBox</code> berubah, dan satu lagi pada saat text pada <code>TextBox JumlahHari</code> berubah, sehingga otomatis akan menghitung dengan sendirinya

	<syntaxhighlight lang="vbnet" line="1">		<syntaxhighlight lang="vbnet" line="1">
Line 68:		Line 68:
	End Sub		End Sub
	End Class		End Class
	</syntaxhighlight>Dibawah ini adalah kode untuk menambahkan pilihan pada comboBox<syntaxhighlight lang="vbnet" line="1">		</syntaxhighlight>Dibawah ini adalah kode untuk menambahkan pilihan pada <code>comboBox</code><syntaxhighlight lang="vbnet" line="1">
	Public Class Form1		Public Class Form1

Kangtain at 00:00, 12 January 2023

2023-01-12T00:00:17Z

← Older revision		Revision as of 07:00, 12 January 2023
Line 68:		Line 68:
	End Sub		End Sub
	End Class		End Class
	</syntaxhighlight>		</syntaxhighlight>Dibawah ini adalah kode untuk menambahkan pilihan pada comboBox<syntaxhighlight lang="vbnet" line="1">

	<syntaxhighlight lang="vbnet" line="1">
	Public Class Form1		Public Class Form1

Kangtain at 23:58, 11 January 2023

2023-01-11T23:58:50Z

← Older revision		Revision as of 06:58, 12 January 2023
Line 114:		Line 114:
	End Sub		End Sub
	End Class		End Class
	</syntaxhighlight>		</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 lang="~~bash~~">
	Public Class Form1		Public Class Form1

Kangtain at 23:56, 11 January 2023

2023-01-11T23:56:41Z

@@ Line 112: / Line 112: @@
          harga = Val(txtSewaPerHari.Text)
          txtJumlahBayar.Text = harga * Val(txtJumlahHari.Text)
      End Sub
 End Class

Kangtain at 09:52, 11 January 2023

2023-01-11T09:52:14Z

← Older revision		Revision as of 16:52, 11 January 2023
Line 70:		Line 70:
	</syntaxhighlight>		</syntaxhighlight>

	<syntaxhighlight lang="~~bash~~">		<syntaxhighlight lang="vbnet" line="1">
	Public Class Form1		Public Class Form1

Kangtain at 09:51, 11 January 2023

2023-01-11T09:51:19Z

@@ Line 69: / Line 69: @@
 End Class
 </syntaxhighlight>
 [[Category:Materi]]
 [[Category:Matkul]]
 [[Category:Pemrograman]]
 [[Category:Pemrograman Visual]]

Kangtain at 08:23, 11 January 2023

2023-01-11T08:23:40Z

← Older revision		Revision as of 15:23, 11 January 2023
Line 1:		Line 1:
	Kode ini memerlukan sebuah objek ComboBox yang disebut "cboJenis" yang digunakan untuk memilih jenis mobil, sebuah objek TextBox yang disebut "txtJumlahHari" yang digunakan untuk memasukkan jumlah hari sewa, sebuah objek TextBox yang disebut "txtSewaPerHari" yang digunakan untuk menampilkan harga sewa per hari, dan sebuah objek TextBox yang disebut "txtJumlahBayar" 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.

	Button Hitung, untuk menjalankan program		<code>Button Hitung</code>, untuk menjalankan program

	<syntaxhighlight lang="~~bash~~">		<syntaxhighlight lang="vbnet" line="1">
	Public Class Form1		Public Class Form1
	Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click		Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click
Line 30:		Line 30:
	</syntaxhighlight>		</syntaxhighlight>

	Kode ~~diatas~~ memiliki 2 event, 1 pada saat index pada comboBox berubah, dan satu lagi pada saat text pada TextBox JumlahHari berubah, sehingga otomatis akan menghitung dengan sendirinya		Kode dibawah memiliki 2 event, pada saat index pada comboBox berubah, dan satu lagi pada saat text pada TextBox JumlahHari berubah, sehingga otomatis akan menghitung dengan sendirinya

	<syntaxhighlight lang="~~bash~~">		<syntaxhighlight lang="vbnet" line="1">
	Public Class Form1		Public Class Form1
	Private Sub cboJenis_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboJenis.SelectedIndexChanged		Private Sub cboJenis_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboJenis.SelectedIndexChanged
Line 69:		Line 69:
	End Class		End Class
	</syntaxhighlight>		</syntaxhighlight>
			[[Category:Materi]]
			[[Category:Matkul]]
			[[Category:Pemrograman]]
			[[Category:Pemrograman Visual]]

Kangtain: Created page with "Kode ini memerlukan sebuah objek ComboBox yang disebut "cboJenis" yang digunakan untuk memilih jenis mobil, sebuah objek TextBox yang disebut "txtJumlahHari" yang digunakan untuk memasukkan jumlah hari sewa, sebuah objek TextBox yang disebut "txtSewaPerHari" yang digunakan untuk menampilkan harga sewa per hari, dan sebuah objek TextBox yang disebut "txtJumlahBayar" yang digunakan untuk menampilkan jumlah bayar. Button Hitung, untuk menjalankan program
2023-01-11T08:20:13Z

Created page with "Kode ini memerlukan sebuah objek ComboBox yang disebut "cboJenis" yang digunakan untuk memilih jenis mobil, sebuah objek TextBox yang disebut "txtJumlahHari" yang digunakan untuk memasukkan jumlah hari sewa, sebuah objek TextBox yang disebut "txtSewaPerHari" yang digunakan untuk menampilkan harga sewa per hari, dan sebuah objek TextBox yang disebut "txtJumlahBayar" yang digunakan untuk menampilkan jumlah bayar. Button Hitung, untuk menjalankan program <syntaxhighlight..."

New page
Kode ini memerlukan sebuah objek ComboBox yang disebut "cboJenis" yang digunakan untuk memilih jenis mobil, sebuah objek TextBox yang disebut "txtJumlahHari" yang digunakan untuk memasukkan jumlah hari sewa, sebuah objek TextBox yang disebut "txtSewaPerHari" yang digunakan untuk menampilkan harga sewa per hari, dan sebuah objek TextBox yang disebut "txtJumlahBayar" yang digunakan untuk menampilkan jumlah bayar.

Button Hitung, untuk menjalankan program

<syntaxhighlight lang="bash">
Public Class Form1
Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click
Dim jenis As String
jenis = cboJenis.Text
Select Case jenis
Case "Bus"
txtSewaPerHari.Text = "1000000"
txtJumlahBayar.Text = Val(txtSewaPerHari.Text) * Val(txtJumlahHari.Text)
Case "Sedan"
txtSewaPerHari.Text = "800000"
txtJumlahBayar.Text = Val(txtSewaPerHari.Text) * Val(txtJumlahHari.Text)
Case "Kijang"
txtSewaPerHari.Text = "400000"
txtJumlahBayar.Text = Val(txtSewaPerHari.Text) * Val(txtJumlahHari.Text)
Case "Carry"
txtSewaPerHari.Text = "200000"
txtJumlahBayar.Text = Val(txtSewaPerHari.Text) * Val(txtJumlahHari.Text)
Case Else
txtSewaPerHari.Text = ""
txtJumlahBayar.Text = ""
MsgBox("Jenis mobil tidak ditemukan!")
End Select
End Sub
End Class
</syntaxhighlight>

Kode diatas memiliki 2 event, 1 pada saat index pada comboBox berubah, dan satu lagi pada saat text pada TextBox JumlahHari berubah, sehingga otomatis akan menghitung dengan sendirinya

<syntaxhighlight lang="bash">
Public Class Form1
Private Sub cboJenis_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboJenis.SelectedIndexChanged
Dim jenis As String
Dim harga As Integer

jenis = cboJenis.Text
Select Case jenis
Case "Bus"
harga = 1000000
Case "Sedan"
harga = 800000
Case "Kijang"
harga = 400000
Case "Carry"
harga = 200000
Case Else
harga = 0
MsgBox("Jenis mobil tidak ditemukan!")
End Select

If harga <> 0 Then
txtSewaPerHari.Text = harga
txtJumlahBayar.Text = harga * Val(txtJumlahHari.Text)
Else
txtSewaPerHari.Text = ""
txtJumlahBayar.Text = ""
End If
End Sub

Private Sub txtJumlahHari_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtJumlahHari.TextChanged
Dim harga As Integer
harga = Val(txtSewaPerHari.Text)
txtJumlahBayar.Text = harga * Val(txtJumlahHari.Text)
End Sub
End Class
</syntaxhighlight>