Membuat jam pada VB.Net

Bagaimana sich mebuat jam pada VB.Net seperti di bawah ini???

 

Mau tahu…

Anda hanya membutuhkan toolbox Button dan Timer.

Pada button namenya anda ganti menjadi waktu dan untuk Timer, pada propertisnya pilih Enabled menjadi true. Kemudian tulis listing program berikut ini :

Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim x As DateTime = Now()
Button1.Text = x.ToString(“F”)
End Sub
End Class

Membuat angka aksara menjadi angka Romawi

Pada kesempatan kali ini saya akan berbagi tips bagaimana cara Membuat angka aksara menjadi angka Romawi.

Berikut ini Listing programnya..

Public Class Form1
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

Dim Arabics() As Integer = {1, 4, 5, 9, 10, 40, 50, 90, 100, _
400, 500, 900, 1000}
Dim Romans() As String = {“I”, “IV”, “V”, “IX”, “X”, “XL”, _
“L”, “XC”, “C”, “CD”, “D”, “CM”, “M”}
Dim sInput As String = angka().Text
Dim iInput, iCounter As Integer
Dim sOutPut As String = “”
Dim ArabicLower As Integer = Arabics.GetLowerBound(0)
Dim ArabicUpper As Integer = Arabics.GetUpperBound(0)

roman().Text = “”

iInput = Int32.Parse(angka.Text)

For iCounter = Arabics.GetUpperBound(0) To _
Arabics.GetLowerBound(0) Step -1

While iInput >= Arabics(iCounter)
iInput -= Arabics(iCounter)
sOutPut += Romans(iCounter)
End While
Next

roman().Text = sInput & ” = ” & sOutPut
End Sub
End Class

Selanjutnya jalankan program-nya dan liat hasilnya seperti di bawah ini…

Jika pada postingan ini ada kesalahan mohon masukkan-nya yaa….

 

Sampai jumpa lagi
MyNiceProfile.com

Membuat Text Berjalan pada VB.Net

Pada postingan kali ini saya akan berbagi tips bagaimana cara membuat text berjalan pada VB.Net. Disini kita hanya memerlukan Label dan Timer.
Langkah 1 : Klik toolbox Label. Untuk Label biarkan aja name-nya seperti itu atau bisa juga anda ubah sesuai dengan yang anda inginkan.
Langkah 2 : Pada properties Label, anda ubah pada auto size-nya menjadi false.
Langkah 3 : Klik toolbox Timer, kemudian ubah intervalnya menjadi 200
Langkah 4 : Tulis listing program di bawah ini :

Public Class Form1

Dim tulisan(2) As String
Dim i, j As Integer

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If j.Equals(tulisan(i).Length) Then
Me.Label1.Text = “”
If i < tulisan.Length – 1 Then
i = i + 1
Me.Label1.Text = tulisan(i)
Else
i = 0
End If
j = 0
End If
Label1.Text = tulisan(i).Substring(0, j)
j = j + 1
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
tulisan(0) = “sutiono19.wordpress.com”
tulisan(1) = “sutiono19.wordpress.com”
tulisan(2) = “sutiono19.wordpress.com”
Label1.Text = tulisan(j)
Timer1.Start()
End Sub
End Class

Selanjutnya anda jalankan dech programnya dan lihat hasilnya..

Semoga bermanfaat….
MyNiceProfile.com