Cara Mudah Mengubah Regional Komputer (Windows) Ke Indonesia Di Vb.Net

Cara Mudah Mengubah Regional Komputer (Windows) Ke Indonesia Di Vb.Net

Regional komputer merupakan salah satu pengaturan penting yang harus disesuaikan dengan kebutuhan penggunanya, karena pengaturan regional sangat berpengaruh atas tampilan Tanggal, Jam, Bilangan pada komputer.

 

Kesalahan yang sering terjadi pada Tanggal dan bilangan pada sebuah aplikasi yang telah diberi ke Client biasanya disebabkan Regional Setting komputer si Client tersebut yang tidak menggunakan pengaturan Regional standar Indonesia, Hal ini mungkin bisa saja disadari oleh Client jika Client tersebut mengerti titik permasalahannya sehingga client bisa merubah pengaturan regional komputernya secara manual, yang jadi permasalahan ketika client tidak mengerti sumber masalahnya maka client akan beranggapan bahwa aplikasinya masih bermasalah.

 

Jadi untuk menghindari hal-hal sepele seperti ini terjadi sebaiknya Regional komputer sebaiknya diubah secara otomatis oleh aplikasi yang telah dibuat, selama aplikasi tersebut hanya diperuntukkan untuk pengguna lokal saja.

 

Caranya Bagaimana?

 

Sangat muda sekali, Anda hanya perlu menggunakan contoh modul yang saya bagikan dibawah !

 

Buat modul baru, Project => Add Module.. dan beri nama regional.vb 

 

Kopi paste kode berikut ! :

 

Imports Microsoft.Win32

Module regional

    Public Sub set_regional()
        On Error GoTo Err
        Dim regKey As RegistryKey
        Dim regional As String
        regKey = Registry.CurrentUser.OpenSubKey("Control Panel\International", True)
        regional = regKey.GetValue("LocaleName", True)
        If Not regional = "id-ID" Then
            regKey.SetValue("iCalendarType", "1")
            regKey.SetValue("iCountry", "62")
            regKey.SetValue("iCurrDigits", "0")
            regKey.SetValue("iCurrency", "0")
            regKey.SetValue("iDate", "1")
            regKey.SetValue("iDigits", "2")
            regKey.SetValue("iFirstDayOfWeek", "0")
            regKey.SetValue("iFirstWeekOfYear", "0")
            regKey.SetValue("iLZero", "1")
            regKey.SetValue("iMeasure", "0")
            regKey.SetValue("iNegCurr", "0")
            regKey.SetValue("iNegNumber", "1")
            regKey.SetValue("iTime", "1")
            regKey.SetValue("iTimePrefix", "0")
            regKey.SetValue("iTLZero", "0")
            regKey.SetValue("Locale", "00000421")
            regKey.SetValue("LocaleName", "id-ID")
            regKey.SetValue("NumShape", "1")
            regKey.SetValue("s1159", "")
            regKey.SetValue("s2359", "")
            regKey.SetValue("sCountry", "Indonesia")
            regKey.SetValue("sCurrency", "Rp")
            regKey.SetValue("sDate", "/")
            regKey.SetValue("sDecimal", ",")
            regKey.SetValue("sGrouping", "3;0")
            regKey.SetValue("sLanguage", "IND")
            regKey.SetValue("sList", ";")
            regKey.SetValue("sLongDate", "dd MMMM yyyy")
            regKey.SetValue("sMonDecimalSep", ",")
            regKey.SetValue("sMonGrouping", "3;0")
            regKey.SetValue("sMonThousandSep", ".")
            regKey.SetValue("sNativeDigits", "0123456789")
            regKey.SetValue("sNegativeSign", "-")
            regKey.SetValue("sPositiveSign", "")
            regKey.SetValue("sShortDate", "dd/MM/yyyy")
            regKey.SetValue("sShortTime", "HH:mm")
            regKey.SetValue("sThousand", ".")
            regKey.SetValue("sTime", ":")
            regKey.SetValue("sTimeFormat", "HH:mm:ss")
            regKey.SetValue("sYearMonth", "MMMM yyyy")
            Registry.CurrentUser.OpenSubKey("Control Panel\International\Geo", True).SetValue("Nation", "111")
        End If
        regKey.Close()
        Exit Sub
Err:
        MsgBox("Terjadi Kesalahan Regional: " & Err.Description)
    End Sub
End Module

 

Panggil fungsi tersebut di Startup Form anda. Contoh jika Startup Form open.vb maka kodenya serperti berikut :

 

Public Class open
    Private Sub open_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Call set_regional()
    End Sub
End Class

 

Semoga bermanfaat. wink

 

Share


Article Posted By Hariadi

Seorang freelancer website and software developer, gemar dengan ilmu seputar IT serta penuh semangat untuk belajar.


0 Comment

No Comment


Leave a Comment ...