Setting Region and language on VB.NET

Salah satu permasalahan yang sering kita temui sebagai programmer dalam merancang program yang berhubungan dengan nominal adalah masalah di settingan regional komputer kita, kenapa? jika settingan regional komputer kita adalah Indonesian maka yang menjadi pemisah ribuan (.) dan pemisah desimal (,) bertolak belakang dengan English yang menjadi pemisah ribuan (,) dan pemisah desimal (.)

Hal ini akan menjadi permasalahan saat menyimpan nilai nominal ke dalam database nilai yang seharusnya dalam settingan Indonesian bernilai 3.000  (tiga ribu rupiah) dalam settingan English akan disimpan menjadi 3 (3 rupiah) karena (.) dianggap sebagai pemisah desimal.

Solusinya sewaktu kita menjalankan program, Kita lakukan pengecekkan settingan regional komputer jika settingan regional tidak sesuai program tidak bisa dijalankan, Berikut code untuk melakukan pengecekkan:

 Dim sc As String  
 sc = (System.Threading.Thread.CurrentThread.CurrentCulture.ToString)  
 If sc <> "id-ID" Then  
      MessageBox.Show("Anda harus merubah settingan region dan language ke Indonesian", "Check Region And Language", MessageBoxButtons.OK, MessageBoxIcon.Information)  
      System.Diagnostics.Process.Start("intl.cpl")  
      End  
 End If  

Selamat mencoba.

Read More

Change Cell Color Based By Cell Value Using Devexpress Xtragrid on VB.NET

In some case when we load data from database to grid, we want to change backcolor/forecolor on some cell depends by its value. like this pic below:

Change cell backcolor/forecolor based by cell value

The point is to get the user attention in some value that needs to be look, in this case I use xtragrid from devexpress component, So here its code:

Imports DevExpress.XtraGrid.Views.Grid 
'-----
Dim View As GridView = sender  
     If e.Column.FieldName = "slsh_Keluar" Then  
       Dim _sklrVal As Integer = View.GetRowCellValue(e.RowHandle, View.Columns("slsh_Keluar"))  
       If _sklrVal <> 0 Then  
         e.Appearance.BackColor = Color.Red  
         e.Appearance.ForeColor = Color.Yellow  
         'e.Appearance.BackColor2 = Color.Yellow  
       End If  
     End If  
     If e.Column.FieldName = "slsh_masuk" Then  
       Dim _smskVal As Integer = View.GetRowCellValue(e.RowHandle, View.Columns("slsh_masuk"))  
       If _smskVal <> 0 Then  
         e.Appearance.BackColor = Color.Red  
         e.Appearance.ForeColor = Color.Yellow  
       End If  
     End If  

Good Luck..

Read More

Check Java Version

To check what is your java version that installed in your computer or check if java correctly install in your computer you can do this following step.

NB: Assume that your java is installed in (C:\Program Files\Java\jdk1.8.0_45)

Go to Control Panel > System > Advanced system settings > Environment Variables

In the System variables, search for variable name "JAVA_HOME" and make sure the value is your java installed location (C:\Program Files\Java\jdk1.8.0_45)

NB: If "JAVA_HOME" variable doesn't exist create it from New button

Still in system variables, search for variable name "Path" and make sure your java location (C:\Program Files\Java\jdk1.8.0_45\bin) is contain in the value.

NB: don't disturb other value just add it if your java location is not found!! or else your other program might fail to load.

Open command prompt and then type "java -version" (without quotation mark)

Now try it yourself, Good Luck!!

Read More

Obat Sakit Gigi dan Gusi Bengkak

Sakit Gigi mungkin bukan hal yang baru lagi untuk sebagian orang, Ketika sakit gigi melanda, kita mempunyai 2 pilihan yaitu mengkonsultasi dengan dokter & mencari obat untuk menghilangkan sakit gigi.

Memang lebih bagus mencari dokter akan tetapi kita juga perlu men-Stock obat anti sakit gigi untuk mengantisipasi apabila tengah malam sakit gigi menyerang dan tentunya di jam itu Dr Gigi pada tutup. Obat sakit gigi yang dicari bukan sembarang obat, tapi obat yang manjur. Tapi tenang saja. Banyak obat untuk mengobati sakit gigi dengan tepat.

Yang pertama adalah obat untuk mengatasi infeksi. Untuk itu digunakan obat antibiotik, seperti amoksisilin (Kalmoxillin, Amoxsan, Penmox) yang diminum 3 kali sehari. Obat ini merupakan antibiotik spkterum luas yang cocok untuk mengatasi infeksi oleh berbagai jenis bakteri. Pilihan berikutnya adalah Clindamycin (Clinmas, Clinjos, Climadan) yang diminum 2 kali sehari. Ini merupakan antibiotik yang mempunya kemampuan menembus jaringan lunak dan nanah, sehingga sangat cocok untuk mengatasi infeksi pada gusi. Kedua antibiotik tersebut selama ini terbukti masih efektif mengatasi infeksi gigi dan gusi.

Obat berikutnya adalah untuk mengurangi rasa sakit (nyeri). Obat AINS seperti asam mefenamat (Mefinal, Ponalar, Ponstan) merupakan obat yang populer untuk mengatasi rasa nyeri. Namun obat ini tidak boleh diminum selama 1 minggu berturut-turut, sebab ada efek samping berupa kerusakan sel darah merah. Selain asam mefenamat, diklofenak, baik natrium maupun kalium diklofenak (Voltadex, Cataflam) merupakan obat yang cukup efektif mengatasi rasa nyeri. Bahkan ada yang diformulasikan untuk reaksi yang cepat seperti Cataflam Fast.

Jadi untuk mengobati sakit gigi, setidaknya perlu 2 hal tersebut, yaitu obat antibiotik dan pengurang nyeri. Jika dengan meminum obat tersebut sembuh, namun masih sering kambuh kembali, ada alternatif lain, yaitu cabut gigi.

Untuk mencegah sakit gigi selalu ingat untuk rajin mensikat gigi di pagi dan malam hari dan kurangi memakan makanan yang manis, jagalah kesehatan gigi anda karena itu merupakan investasi anda sampai tua.

Semoga info ini bermanfaat untuk pembaca semua.

Read More

Perpanjang SIM

Selamat Pagi Semuanya Salam Super (kutip dari Bapak Mario Teguh)

Mungkin kita semua sudah tau bagaimana cara perpanjang sim, postingan saya kali ini bisa dimanfaatkan untuk merefresh/mengingat kembali atau bagi anda yang belum tau ini bisa menjadi info untuk anda.

Kebetulan hari ini saya pergi untuk memperpanjang SIM A di Jl tembakau deli ada SIM keliling menggunakan mobil, sesampainya disana kita diminta untuk menyerahkan fotokopi KTP dan SIM lama, kemudian kita disuruh untuk melakukan cek up kesehatan dengan membayar 25rb dan dipersilahkan untuk masuk kedalam mobil untuk melakukan pengisian data dan pengambilan foto oleh petugas dan begitu selesai tinggal di cetak dan SIM baru kita pun selesai waktu pengerjaan kira2 15 menit saja dan kita diminta untuk membayar 160rb untuk SIM baru kita.

Jadi untuk anda yang SIM ny sudah mendekati masa expired segera lakukan perpanjangan jangan tunggu sampai SIM anda mati karena akan lebih ribet dan menghabiskan waktu untuk pengurusannya.

Persyaratan Perpanjangan:

- SIM Lama

- Fotokopi KTP

Biaya yang dikeluarkan:

- Rp 25 ribu (Biaya Cek up)

- Rp 160 ribu (Biaya SIM A baru)

*) harga untuk SIM C mungkin bisa berbeda dengan SIM A

Terima Kasih,

Read More

Looping Each Item in RibbonControl Devexpress

Jika anda mendesain tampilan menu form menggunakan ribbonForm dari devexpress anda tentunya akan menghadapi situasi dimana anda tidak ingin semua menu bisa diakses oleh user tertentu, anda ingin membatasi hak menu per user.

Bagi anda yang terbiasa dengan menu standar bawaan VB.NET tentunya hal ini bukanlah hal yang sulit, akan tetapi bagaimana dengan anda yang masih baru dengan devexpress.

Berikut saya sertakan source code looping ribbon control dimulai dari ribbonPageCategory, ribbonGroup, ribbonItem, ribbonItem di dalam subitem.

Source Code dalam C#

 using DevExpress.XtraBars;  
 using DevExpress.XtraBars.Ribbon;  
 private void simpleButton1_Click(object sender, EventArgs e)  
 {  
    foreach (RibbonPage page in ribbonControl1.Pages) {  
      foreach (RibbonPageGroup group in page.Groups) {  
         foreach (var link in group.ItemLinks) {  
           BarItemLink barItemLink = link as BarItemLink;  
           foreach (BarItemLink baritemlink in group.ItemLinks) {  
              baritemlink.Visible = true;  
           }  
           BarSubItemLink barSubItemLink = link as BarSubItemLink;  
           if (barSubItemLink != null) {  
              foreach (BarItemLink itemLink in barSubItemLink.Item.ItemLinks) {  
                BarButtonItem barButtonItem = itemLink.Item as BarButtonItem;  
                if(barButtonItem != null)  
                   itemLink.Visible = false;  
              }  
           }  
         }  
      }  
    }  
 }  

Source Code dalam VB.NET

 Imports DevExpress.XtraBars  
 Private Sub simpleButton1_Click(sender As Object, e As EventArgs)  
    For Each page As RibbonPage In ribbonControl1.Pages  
      For Each group As RibbonPageGroup In page.Groups  
         For Each link As var In group.ItemLinks  
           Dim barItemLink__1 As BarItemLink = TryCast(link, BarItemLink)  
           For Each baritemlink__2 As BarItemLink In group.ItemLinks  
              baritemlink__2.Visible = True  
           Next  
           Dim barSubItemLink As BarSubItemLink = TryCast(link, BarSubItemLink)  
           If barSubItemLink IsNot Nothing Then  
              For Each itemLink As BarItemLink In barSubItemLink.Item.ItemLinks  
                Dim barButtonItem As BarButtonItem = TryCast(itemLink.Item, BarButtonItem)  
                If barButtonItem IsNot Nothing Then  
                   itemLink.Visible = False  
                End If  
              Next  
           End If  
         Next  
      Next  
    Next  
 End Sub  

Semoga Membantu.

Read More

Auto Arrange Dataset Designer

Delete the XSS file node under the DataSet in the Solution Explorer. You'll have to Show All Files first. That file contains the arrangement so deleting that will go back to the default.

Read More