Moving Form dengan VB.NET

Pada kesempatan ini, saya akan mencoba membuat sebuah form yang dapat bergerak pada area monitor komputer kita. Program ini dibuat dengan Microsoft Visual Basic 2008. Cara kerja program ini sangat mudah yakni tinggal meng-klik tombol – tombol yang terdapat pada form tersebut dan form ini akan bergerak berdasarkan tombol yang kita klik. Artinya form akan bergerak keatas jika kita klik tombol atas, bergerak kebawah jika kita klik tombol bawah, bergerak ke kiri jika kita klik tombol kiri dan bergerak ke kanan jika kita klik tombol kanan. Jika form telah berada pada sisi tepi monitor, maka form tidak bisa bergerak lagi. Berikut ini gambar desain dari program yang akan kita buat.

 

Adapun properti dari komponen- komponen yang diperlukan adalah sebagai berikut.

Komponen	Property	Value
Form1	Name	Form1
	Text	Moving Form
	Start Position	CenterScreen
	Minimize Box	False
	Maximize Box	False
Button1	Name	BtnAtas
	Text	&Atas
Button2	Name	BtnKiri
	Text	Ki&ri
Button3	Name	BtnBawah
	Text	&Bawah
Button4	Name	BtnKanan
	Text	Ka&nan

 Nah, setelah selesai mendesain program tersebut, sekarang kita masuk kedalam source codenya

Public Class Form1
 
Private Sub BtnAtas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAtas.Click
If Me.Top <= 0 Then
BtnAtas.Enabled = False 
Else
Me.Top -= 10
BtnBawah.Enabled = True
End If
End Sub

Private Sub BtnKiri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKiri.Click If Me.Left <= 0 Then
BtnKiri.Enabled = False
Else
Me.Left -= 10
BtnKanan.Enabled = True
End If
End Sub

Private Sub BtnBawah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBawah.Click
If (Me.Top + Me.Size.Height) > My.Computer.Screen.WorkingArea.Height Then
BtnBawah.Enabled = False
Else
Me.Top += 10
BtnAtas.Enabled = True
End If
End Sub

Private Sub BtnKanan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKanan.Click
If (Me.Left + Me.Size.Width) > My.Computer.Screen.WorkingArea.Width Then
BtnKanan.Enabled = False
Else
Me.Left += 10
BtnKiri.Enabled = True
End If
End Sub
 
End Class


Setelah selesai menulis source code diatas, maka sekarang saatnya kita menjalankan program tersebut. Tekan F5 pada keyboard dan tekan tombol-tombol yang ada pada form tersebut. Form tersebut akan bergerak sesuai arah tombol yang kita tekan. Selamat Mencoba dan Semoga berhasil.

Semoga Bermamfaat dan Terima Kasih.

Running Text Dengan VB.NET

Pada Artikel ini, Saya akan mencoba membuat sebuah program aplikasi sederhana dengan menggunakan bahasa VB.NET. Aplikasi yang Saya gunakan adalah Visual Basic 2008. Program ini hanya memerlukan 1 buah kontrol Timer, 1 buah kontrol Label, dan 2 buah kontrol Button pada 1 buah windows form. Berikut property dari kontrol- kontrol tersebut :

1. Form1 (Name : Form1 ; Text : Program Running Text ; StartPosition : CenterScreen)
2. Timer1 (Name : Timer1 ; Interval : 100 ; Enable : False)
3. Button1 (Name : Button1 ; Text : Run)
4. Button2 (Name : Button2 ; Text : Stop)
5. Label1 (Name : Label1 ; Text : Membuat Running Text Dengan Menggunakan Visual Basic 2008)

Berikut ini gambar dari desain program running text :

Setelah mendesain program tersebut dengan kontrol-kontrol diatas, maka sekarang saatnya kita masuk ke dalam Source Codenya. Berikut ini Source Code dari program tersebut :

Public Class Form1 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim abc As String = Microsoft.VisualBasic.Left(Label1.Text, 1)
Dim def As String = Microsoft.VisualBasic.Right(Label1.Text, Len(Label1.Text) - 1)
Label1.Text = def + abc
End Sub

End Class
 
Setelah selesai medesain dan menulis source codenya, sekarang saatnya kita menjalankan program tersebut. Pastikan terlebih dahulu bahwa dalam Error List-nya sudah kosong (Source Codenya sudah Tidak ada yang Error). Untuk menjalankan programnya, tekan tombol F5 pada keyboard. Kemudian tekan Tombol Run agar text 'Membuat Running Text Dengan Menggunakan Visual Basic 2008 ' pada label1 berjalan dan tekan tombol Stop agar text tersebut berhenti kembali.

Demikian penjelasan mengenai program ini. Program ini masih sangat simple dan memiliki banyak kekurangan. Semoga para pembaca dapat memberikan saran dan kritik agar program ini bisa menjadi lebih sempurna serta semoga artikel ini bermamfaat bagi para pembaca. Terima Kasih…