Aplikasi Facebook Mini [VB]

Aplikasi Facebook Mini [VB]

Sebenarnya aplikasi Facebook Mini hanyalah merupakan aplikasi sejenis web browser yang dikhususkan untuk mengakses halaman Facebook saja.
Tapi bagi para Facebooker, pasti akan tertarik dengan aplikasi ini. Karena aplikasi ini menggunakan halaman Facebook versi ponsel, maka waktu loadingnya lebih cepat daripada versi normalnya. Selain itu juga dilengkapi beragam shortcut menu untuk memudahkan navigasi antar halaman.
Perlu diingat sebelum menggunakan aplikasi ini, pastikan di komputer sudah ter-install Internet Explorer 8.

Membulatkan Bilangan Desimal [VB]

• Pembulatan Otomatis
  Pembulatan ini dilakukan secara otomatis tergantung bilangannya.
  Jika angka utamanya adalah ganjil dan angka desimalnya >= 0,5 maka dilakukan pembulatan ke atas (angka utama ditambah 1) dan bila angka desimalnya < 0,5 maka dilakukan pembulatan ke bawah.
  Namun jika angka utamanya adalah 0 atau genap dan angka desimalnya > 0,5 maka dilakukan pembulatan ke atas dan bila angka desimalnya <= 0,5 maka dilakukan pembulatan ke bawah.
  i = CInt(0.4) , hasilnya 0
  i = CInt(0.5) , hasilnya 0
  i = CInt(0.6) , hasilnya 1
  

Awal Kapital Otomatis Ditextbox [VB]
 
Yang dimaksud disini adalah dimana ketika User mengetikkan suatu kalimat di TextBox, maka secara otomatis huruf pertama setiap kata dalam kalimat tersebut diubah menjadi huruf kapital / besar. Cara ini berguna untuk mempermudah pengisian dan mengurangi resiko kesalahan pengetikan pada TextBox tertentu, seperti TextBox untuk mengisi nama orang.
Caranya buat sebuah kontrol TextBox ke dalam Form. Lalu ketikkan kode berikut :

Membulatkan Bilangan Desimal [VB]

Membulatkan Bilangan Desimal [VB]

Banyak cara dalam VB untuk membulatkan suatu bilangan/ angka desimal menjadi bilangan bulat. Jika Anda belum paham, berikut penjelasan singkatnya :

• Pembulatan Otomatis
  Pembulatan ini dilakukan secara otomatis tergantung bilangannya.
  Jika angka utamanya adalah ganjil dan angka desimalnya >= 0,5 maka dilakukan pembulatan ke atas (angka utama ditambah 1) dan bila angka desimalnya < 0,5 maka dilakukan pembulatan ke bawah.
  Namun jika angka utamanya adalah 0 atau genap dan angka desimalnya > 0,5 maka dilakukan pembulatan ke atas dan bila angka desimalnya <= 0,5 maka dilakukan pembulatan ke bawah.
  

ListBox Yang Bisa Diedit [VB]

ListBox Yang Bisa Diedit [VB]

Agar item yang terdapat di ListBox bisa di edit, maka diperlukan cara khusus dengan mengkombinasikannya dengan TextBox. Berikut caranya :

1. Tambahkan 1 ListBox, kemudian 1 TextBox (properti Visible=False) ke dalam Form.

Aplikasi sederhana Mendeteksi Versi MS office menggunakan VB

Aplikasi sederhana Mendeteksi Versi MS office menggunakan VB

Cara termudah untuk mendeteksi versi MS Office yang ter-install di komputer, yaitu dengan cara membaca nilai registry. Berikut kodenya :

Tulis kode function ini di Module baru :

Function VersiOffice(ByVal Aplikasi As String) As String
    On Error GoTo Ero
    Dim Reg As Object
    Dim s As String
      
    Set Reg = CreateObject("Wscript.Shell")
    s = Reg.RegRead("HKCR\" & Aplikasi & ".Application\CurVer\")
    VersiOffice = Replace(s, Aplikasi & ".Application.", "", , , 1)
  
Ero:
End Function