Pemrograman Visual:Form dan Objek Kontrol 2 - Revision history

Kangtain: /* MenuStrip, ContextMenuStrip dan RichTextBox */

2025-11-01T14:09:19Z

MenuStrip, ContextMenuStrip dan RichTextBox

← Older revision		Revision as of 21:09, 1 November 2025
Line 258:		Line 258:
	* Klik ganda pada '''menu buka''', ketikkan kode program berikut ini:		* Klik ganda pada '''menu buka''', ketikkan kode program berikut ini:

	~~<syntaxhighlight lang="vb.net" line="1">~~		Private Sub BukaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BukaToolStripMenuItem.Click
	Private Sub BukaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BukaToolStripMenuItem.Click		Dim kotak_dialog As OpenFileDialog = New OpenFileDialog
	Dim kotak_dialog As OpenFileDialog = New OpenFileDialog		kotak_dialog.Filter = "File Text (.txt) \| .txt"
	kotak_dialog.Filter = "File Text (.txt) \| .txt"		kotak_dialog.ShowDialog()
	kotak_dialog.ShowDialog()		Dim fileText As String = My.Computer.FileSystem.ReadAllText(kotak_dialog.FileName)
	Dim fileText As String = My.Computer.FileSystem.ReadAllText(kotak_dialog.FileName)		RchTeks.Text = fileText
	RchTeks.Text = fileText		End Sub
	End Sub
	~~</syntaxhighlight>~~

	* Klik ganda pada '''menu simpan''', ketikkan kode program berikut ini:		* Klik ganda pada '''menu simpan''', ketikkan kode program berikut ini:

	~~<syntaxhighlight lang="vb.net" line="1">~~		Private Sub SimpanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpanToolStripMenuItem.Click
	Private Sub SimpanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpanToolStripMenuItem.Click		Dim kotak_dialog As SaveFileDialog = New SaveFileDialog
	Dim kotak_dialog As SaveFileDialog = New SaveFileDialog		kotak_dialog.Filter = "File Text (.txt) \| .txt"
	kotak_dialog.Filter = "File Text (.txt) \| .txt"		kotak_dialog.ShowDialog()
	kotak_dialog.ShowDialog()		My.Computer.FileSystem.WriteAllText("" & kotak_dialog.FileName & "",RchTeks.Text, False)
	My.Computer.FileSystem.WriteAllText("" & kotak_dialog.FileName & "",RchTeks.Text, False)		End Sub
	End Sub
	~~</syntaxhighlight>~~

	* Klik ganda pada '''menu Baru''', ketikkan kode program berikut ini:		* Klik ganda pada '''menu Baru''', ketikkan kode program berikut ini:

	~~<syntaxhighlight lang="vb.net" line="1">~~		Private Sub BaruToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BaruToolStripMenuItem.Click
	Private Sub BaruToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BaruToolStripMenuItem.Click		RchTeks.Text = ""
	RchTeks.Text = ""		End Sub
	End Sub
	~~</syntaxhighlight>~~

	* Klik ganda pada '''menu ContextMenuStrip''' dengan menu regular, kemudian ketik kode program berikut ini :		* Klik ganda pada '''menu ContextMenuStrip''' dengan menu regular, kemudian ketik kode program berikut ini :

Kangtain: /* ComboBox dan ListBox */

2025-11-01T14:07:43Z

ComboBox dan ListBox

← Older revision		Revision as of 21:07, 1 November 2025
Line 82:		Line 82:
	* Klik ganda pada '''ComboBox''', Kemudian ketik kode program berikut ini :		* Klik ganda pada '''ComboBox''', Kemudian ketik kode program berikut ini :

	~~<syntaxhighlight lang="vb.net" line="1">~~
	Private Sub Cmb_Drive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Drive.SelectedIndexChanged		Private Sub Cmb_Drive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Drive.SelectedIndexChanged
	LstInfo.Items.Clear()		LstInfo.Items.Clear()
Line 100:		Line 99:
	* Jika kode program digabungkan		* Jika kode program digabungkan

	~~<syntaxhighlight lang="vb.net" line="1">~~
	Imports System.IO		Imports System.IO
	Public Class Form2		Public Class Form2

Kangtain at 14:06, 1 November 2025

2025-11-01T14:06:59Z

← Older revision		Revision as of 21:06, 1 November 2025
Line 71:		Line 71:
	* Klik icon view code pada solution Explorer, di atas Public Class '''Form2''', ketikkan kode program berikut ini :		* Klik icon view code pada solution Explorer, di atas Public Class '''Form2''', ketikkan kode program berikut ini :

	~~<syntaxhighlight lang="vb.net" line="1">~~		Imports System.IO
	Imports System.IO		Public Class Form2
	Public Class Form2
	~~</syntaxhighlight>~~

	* Klik ganda pada '''form''', kemudian ketikkan kode program berikut ini :		* Klik ganda pada '''form''', kemudian ketikkan kode program berikut ini :

	~~<syntaxhighlight lang="vb.net" line="1">~~		Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load		Cmb_Drive.Items.AddRange(IO.DriveInfo.GetDrives)
	Cmb_Drive.Items.AddRange(IO.DriveInfo.GetDrives)		End Sub
	End Sub
	~~</syntaxhighlight>~~

	* Klik ganda pada '''ComboBox''', Kemudian ketik kode program berikut ini :		* Klik ganda pada '''ComboBox''', Kemudian ketik kode program berikut ini :

	<syntaxhighlight lang="vb.net" line="1">		<syntaxhighlight lang="vb.net" line="1">
	Private Sub Cmb_Drive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Drive.SelectedIndexChanged		Private Sub Cmb_Drive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Drive.SelectedIndexChanged
	LstInfo.Items.Clear()		LstInfo.Items.Clear()
	LstInfo.Items.Add("Nama Drive :" & Dir("" & _		LstInfo.Items.Add("Nama Drive :" & Dir("" & _
	Cmb_Drive.Text & "", FileAttribute.Volume) & "")		Cmb_Drive.Text & "", FileAttribute.Volume) & "")
	LstInfo.Items.Add("System :" & Dir("" & _		LstInfo.Items.Add("System :" & Dir("" & _
	Cmb_Drive.Text & "", FileAttribute.System) & "")		Cmb_Drive.Text & "", FileAttribute.System) & "")
	Dim dvr As New DriveInfo(Cmb_Drive.Text)		Dim dvr As New DriveInfo(Cmb_Drive.Text)
	Dim kapasitas = CStr(dvr.TotalSize / 1000000) & " MB"		Dim kapasitas = CStr(dvr.TotalSize / 1000000) & " MB"
	Dim sisa = CStr(dvr.TotalFreeSpace / 1000000) & " MB"		Dim sisa = CStr(dvr.TotalFreeSpace / 1000000) & " MB"
	Dim Terpakai = CStr(Val(kapasitas) - Val(sisa)) & " MB"		Dim Terpakai = CStr(Val(kapasitas) - Val(sisa)) & " MB"
	LstInfo.Items.Add("Kapasitas : " & kapasitas)		LstInfo.Items.Add("Kapasitas : " & kapasitas)
	LstInfo.Items.Add("Terpakai : " & Terpakai)		LstInfo.Items.Add("Terpakai : " & Terpakai)
	LstInfo.Items.Add("Sisa : " & sisa)		LstInfo.Items.Add("Sisa : " & sisa)
	End Sub		End Sub
	~~</syntaxhighlight>~~

	* Jika kode program digabungkan		* Jika kode program digabungkan

	<syntaxhighlight lang="vb.net" line="1">		<syntaxhighlight lang="vb.net" line="1">
	Imports System.IO		Imports System.IO
	Public Class Form2		Public Class Form2

	Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load		Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	Cmb_Drive.Items.AddRange(IO.DriveInfo.GetDrives)		Cmb_Drive.Items.AddRange(IO.DriveInfo.GetDrives)
	End Sub		End Sub

	Private Sub Cmb_Drive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Drive.SelectedIndexChanged		Private Sub Cmb_Drive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Drive.SelectedIndexChanged
	LstInfo.Items.Clear()		LstInfo.Items.Clear()
	LstInfo.Items.Add("Nama Drive :" & Dir("" & _		LstInfo.Items.Add("Nama Drive :" & Dir("" & _
	Cmb_Drive.Text & "", FileAttribute.Volume) & "")		Cmb_Drive.Text & "", FileAttribute.Volume) & "")
	LstInfo.Items.Add("System :" & Dir("" & _		LstInfo.Items.Add("System :" & Dir("" & _
	Cmb_Drive.Text & "", FileAttribute.System) & "")		Cmb_Drive.Text & "", FileAttribute.System) & "")
	Dim dvr As New DriveInfo(Cmb_Drive.Text)		Dim dvr As New DriveInfo(Cmb_Drive.Text)
	Dim kapasitas = CStr(dvr.TotalSize / 1000000) & " MB"		Dim kapasitas = CStr(dvr.TotalSize / 1000000) & " MB"
	Dim sisa = CStr(dvr.TotalFreeSpace / 1000000) & " MB"		Dim sisa = CStr(dvr.TotalFreeSpace / 1000000) & " MB"
	Dim Terpakai = CStr(Val(kapasitas) - Val(sisa)) & " MB"		Dim Terpakai = CStr(Val(kapasitas) - Val(sisa)) & " MB"
	LstInfo.Items.Add("Kapasitas : " & kapasitas)		LstInfo.Items.Add("Kapasitas : " & kapasitas)
	LstInfo.Items.Add("Terpakai : " & Terpakai)		LstInfo.Items.Add("Terpakai : " & Terpakai)
	LstInfo.Items.Add("Sisa : " & sisa)		LstInfo.Items.Add("Sisa : " & sisa)
	End Sub		End Sub
	End Class		End Class
	~~</syntaxhighlight>~~

	[[File:Form dan Objek Kontrol 2-4.png\|center\|thumb]]		[[File:Form dan Objek Kontrol 2-4.png\|center\|thumb]]
Line 184:		Line 178:
	* Klik ganda pada '''form''', ketikkan kode program berikut ini:		* Klik ganda pada '''form''', ketikkan kode program berikut ini:

	~~<syntaxhighlight lang="vb.net" line="1">~~		Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load		Dtanggal.Format = DateTimePickerFormat.Custom
	Dtanggal.Format = DateTimePickerFormat.Custom		Dtanggal.CustomFormat = "dddd,dd/MM/yyyy"
	Dtanggal.CustomFormat = "dddd,dd/MM/yyyy"		Dtanggal.Value = Format(Now)
	Dtanggal.Value = Format(Now)		End Sub
	End Sub
	~~</syntaxhighlight>~~

	* Klik ganda pada '''Timer1''', ketikkan kode program berikut ini :		* Klik ganda pada '''Timer1''', ketikkan kode program berikut ini :

	~~<syntaxhighlight lang="vb.net" line="1">~~		Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick		Lbl12Jam.Text = Format(Now, "h:mm:ss tt")
	Lbl12Jam.Text = Format(Now, "h:mm:ss tt")		Lbl24Jam.Text = Format(Now, "hh:mm:ss")
	Lbl24Jam.Text = Format(Now, "hh:mm:ss")		End Sub
	End Sub
	~~</syntaxhighlight>~~

	* Jika kode program dijadikan satu:		* Jika kode program dijadikan satu:

Kangtain: Kangtain moved page Materi/Pemrograman Visual/Form dan Objek Kontrol 2 to Pemrograman Visual:Form dan Objek Kontrol 2

2022-11-19T03:21:14Z

Kangtain moved page Materi/Pemrograman Visual/Form dan Objek Kontrol 2 to Pemrograman Visual:Form dan Objek Kontrol 2

← Older revision	Revision as of 10:21, 19 November 2022
(No difference)

Kangtain: /* MenuStrip, ContextMenuStrip dan RichTextBox */

2022-11-19T03:20:48Z

MenuStrip, ContextMenuStrip dan RichTextBox

← Older revision		Revision as of 10:20, 19 November 2022
Line 358:		Line 358:
	{{Note\|Jika kamu menemukan kesalahan dalam penulisan kode program bisa hubungi saya melalui email yang ada di menu Contac Us}}		{{Note\|Jika kamu menemukan kesalahan dalam penulisan kode program bisa hubungi saya melalui email yang ada di menu Contac Us}}

	~~{{DISPLAYTITLE:Form dan Objek Kontrol 2}}~~
	[[Category:Materi]]		[[Category:Materi]]
	[[Category:Matkul]]		[[Category:Matkul]]
	[[Category:Pemrograman]]		[[Category:Pemrograman]]
	[[Category:Pemrograman Visual]]		[[Category:Pemrograman Visual]]

Kangtain at 13:45, 7 November 2022

2022-11-07T13:45:45Z

Show changes

Kangtain: /* MenuStrip, ContextMenuStrip dan RichTextBox */

2022-10-22T13:34:27Z

MenuStrip, ContextMenuStrip dan RichTextBox

← Older revision		Revision as of 20:34, 22 October 2022
Line 342:		Line 342:
	[[Category:Materi]]		[[Category:Materi]]
	[[Category:Matkul]]		[[Category:Matkul]]
			[[Category:Pemrograman]]
			[[Category:Pemrograman Visual]]

Kangtain: /* MenuStrip, ContextMenuStrip dan RichTextBox */

2022-10-14T13:53:20Z

MenuStrip, ContextMenuStrip dan RichTextBox

Can't load revision 6004

Kangtain: /* MenuStrip, ContextMenuStrip dan RichTextBox */

2022-10-14T13:50:12Z

MenuStrip, ContextMenuStrip dan RichTextBox

Can't load revision 6003

Kangtain: /* MenuStrip, ContextMenuStrip dan RichTextBox */

2022-10-14T13:48:53Z

MenuStrip, ContextMenuStrip dan RichTextBox

Can't load revision 6002