Membuat Converter Masehi Ke Hijriah Dan Jam Keberadaan di VB.NET 2010

Dalam dunia pemograman membuat converter masehi ke hijriah dan jam keberadaan kita harus mengenal dengan histilah suhu kelvin, celcius, reamus dan juga fahrenheit. Lanjut saja untuk memulai programnya :

1.Buka Microsoft Visual Studio 2010.
2. Pilih Windows Form Application.
3. Label sebanyak 5.
    Membuat button sebanyak 1 buah yaitu BtnUbahMH.
    TextBox sebanyak 3 yaitu : TxtTanggalM, TxtBM, TxtTM.
    Timer yaitu TmrJam
    Warna berada di properties > BackColor.

Baca Juga : Membuat Perhitungan Nilai Mahasiswa di VB.NET 2010

Setelah selesai maka tampilannya sebagai berikut :

 Isi codingnya tepatnya diatas public class form1 :

Imports System.Globalization.HijriCalendar
Imports System.Globalization.GregorianCalendar

Jika sudah lalu isi codingnya di dalam public class form1 :

    Dim hij As New Globalization.HijriCalendar
    Dim mas As New Globalization.GregorianCalendar

Selanjutnya klik BtnUbahMH sebanyak 2x lalu isikan codingnya sebagai berikut :

        LblTH.Text = hij.GetDayOfMonth(TxtTM.Text & "/" & TxtBM.Text & "/" & TxtTanggalM.Text)
        LblBH.Text = hij.GetMonth(TxtTM.Text & "/" & TxtBM.Text & "/" & TxtTanggalM.Text)
        LblTanggalH.Text = hij.GetYear(TxtTM.Text & "/" & TxtBM.Text & "/" & TxtTanggalM.Text)
        LblHH.Text = hij.GetDayOfWeek(TxtTM.Text & "/" & TxtBM.Text & "/" & TxtTanggalM.Text).ToString
        If LblBH.Text = 1 Then
            LblBH.Text = "Muharam"
        ElseIf LblBH.Text = 2 Then
            LblBH.Text = "Shofar"
        ElseIf LblBH.Text = 3 Then
            LblBH.Text = "Robi'ul Awwal"
        ElseIf LblBH.Text = 4 Then
            LblBH.Text = "Robi'ul Akhir"
        ElseIf LblBH.Text = 5 Then
            LblBH.Text = "Jumadil Awwal"
        ElseIf LblBH.Text = 6 Then
            LblBH.Text = "Jumdil Akhir"
        ElseIf LblBH.Text = 7 Then
            LblBH.Text = "Rojab"
        ElseIf LblBH.Text = 8 Then
            LblBH.Text = "Sya'ban"
        ElseIf LblBH.Text = 9 Then
            LblBH.Text = "Romadlon"
        ElseIf LblBH.Text = 10 Then
            LblBH.Text = "Syawwal"
        ElseIf LblBH.Text = 11 Then
            LblBH.Text = "Dzul Qo'idah"
        ElseIf LblBH.Text = 12 Then
            LblBH.Text = "Dzul Hijjah"
        End If
        If LblHH.Text = "Sunday" Then
            LblHH.Text = "Ahad"
        ElseIf LblHH.Text = "Monday" Then
            LblHH.Text = "Senin"
        ElseIf LblHH.Text = "Monday" Then
            LblHH.Text = "Senin"
        ElseIf LblHH.Text = "Tuesday" Then
            LblHH.Text = "Selasa"
        ElseIf LblHH.Text = "Wednesday" Then
            LblHH.Text = "Rabu"
        ElseIf LblHH.Text = "Thursday" Then
            LblHH.Text = "Kamis"
        ElseIf LblHH.Text = "Friday" Then
            LblHH.Text = "Jum'at"
        ElseIf LblHH.Text = "Saturday" Then
            LblHH.Text = "Sabtu"
        End If
    End Sub

Selanjutnya isi coding didalam from load, caranya klik 2x difromnya :

        TmrJam.Start()
    End Sub

NOTE : Kalian harus terlebih dahulu mencari Timer yang diTolbox agar dapat yang kita biat yaitu label untuk jam menjadi angka waktu keberadaan sekarang yang ada di pc kalian



Selanjutnya klik 2x Timer :

        LblJam.Text = TimeOfDay
    End Sub

Baca Juga : Membuat Browser Sederhana di VB.NET 2010

Jika sudah dicoding maka tampilan jelasnya seperti ini :

Dan ini hasil buatan yang kita buat :

Sekian dulu Membuat Converter Masehi Ke Hijriah Dan Jam Keberadaan di VB.NET 2010 semoga bermanfaat. Sekian terimakasih.