Monday, June 25, 2012

Aplikasi iImsyakiyah Dari http://www.diajar.com

Aplikasi iImsyakiyah ini dibuat oleh saudara Agung Novian pemiliki situs http://www.diajar.com. Aplikasi ini digunakan untuk memberitahukan jadwal sholat lima waktu.

Keterangan mengenai Aplikasi iImsyakiyah:
  • Dibuat menggunakan bahasa pemrograman Visual Basic 6.
  • Portable, artinya tidak memerlukan penginstallan.
  • GUI yang menarik dan serasi.
  • Dilengkapi dengan tray icon.
  • Alarm untuk memberitahukan waktu imsyak, dan adzan untuk memberitahukan waktu shalat (bisa dirubah settingannya).
  • Dilengkapi fasilitas shutdown dan hibernate
  • Walaupun aplikasi hanya mencantumkan tiga daerah (Jakarta, Bandung, dan Cirebon) tetapi Anda dapat dengan mudah menambahkan nama daerah, dengan terlebih dahulu menyesuaikan settingannya, seperti tampak pada gambar di bawah ini:
Bagi Anda yang berminat memiliki aplikasinya, Anda dapat mengunjungi tautan di samping http://www.diajar.com/#/aplikasi-iimsakiyahv1-1. Kritik dan saran mengenai aplikasi ini bisa Anda kirimkan ke alamat email disamping:
pujanggabageur[at]yahoo.com (ganti [at] dengan @)

Terima kasih semoga bermanfaat.
READ MORE - Aplikasi iImsyakiyah Dari http://www.diajar.com

Wednesday, June 20, 2012

Cara Yang Cerdik Untuk Mentrap On Error Resume Next - VB6

Mengenai cara men-trap (menjebak) objek error yang berada di bawah bari On Error Resume Next - Bagaimana kita dapat melakukan sebuah pengecualian dalam baris yang berada di bawah On Error Resume Next, di bawah adalah contoh kode VB6 beserta penjelasannya:
Option Explicit

Private Sub Command1_Click()
'Baris pertama kita memasang On Error Resume Next, maksudnya
'kita memberitahukan pada compiler VB6 untuk melangkahi baris error
'dan mengeksekusi baris berikutnya tanpa harus menampilkan pesan error
On Error Resume Next

'Selanjutnya kita mamasang satu variable i (catatan: variable satu huruf
'seperti i, b, j dan selanjutnya, hanya bisa digunakan pada sebuah jangkah (scope)
'yang sempit, dan jangan pernah menggunakannya pada scope yang luas seperti
'Public i as Integer dan variable i berada pada module, Global l as long, dst
Dim i As Integer

'Dengan adanya On Error Resume Next di atas, maka kode di bawah ini akan
'diabaikan/dilangkahi oleh compiler VB6. Selanjutnya pesan error tidak akan
'ditampilkan
i = "Hai, ini pasti error"

'Walaupun kita telah memasang baris On Error Resume Next, bukan berarti
'Bukan berarti Error Object tidak, Error Object tetap bekerja sebagaimana
'biasanya
If Err Then 'Apabila Error = True a.k.a Err.Number > 0 maka ...
'Kode trap ...
MsgBox Err.Description
'Kode trap ...
End If

'Baris di bawah akan meng-Clear error
On Error GoTo 0

'Sekarang lihat hasilnya
MsgBox Err.Description
End Sub
Kode utuh tanpa keterangan (comment) adalah sebagai berikut:
Option Explicit

Private Sub Command1_Click()
On Error Resume Next
Dim i As Integer
i = "Hai, ini pasti error"
If Err Then
MsgBox Err.Description
End If
On Error GoTo 0
MsgBox Err.Description
End Sub
READ MORE - Cara Yang Cerdik Untuk Mentrap On Error Resume Next - VB6

Sunday, June 17, 2012

Contoh Menambahkan Attribut Pada Tag HTML - VB Code

Private Function AddPreWithClassName()
Dim d As New MSHTML.HTMLDocument
Dim l As HTMLMetaElement
Dim x As HTMLHtmlElement

d.body.innerHTML = txtPost.Text

For Each l In d.All
If l.tagName = "PRE" Then
l.className = "code" '
End If
Next
txtPost.Text = d.body.innerHTML
End Function
READ MORE - Contoh Menambahkan Attribut Pada Tag HTML - VB Code

URL Encode - Decode UTF8 Menggunakan Script Control

Mungkin bisa disebut sebagai cara termudah untuk melakukan Encoding dan Decoding URL UTF8 dalam VB6, dengan memanfaatkan OCX Microsoft Script Control. Adapun kode untuk Encode dan Decode URL UTF8 menggunakan Visual Basic 6.0 adalah sebagai berikut:
'=================================================================
'UrlEncodeUtf8 menggunakan Script Control
'=================================================================
Public Function UrlEncodeUtf8(ByRef strSource As String) As String
Dim sc As Object
Set sc = CreateObject("ScriptControl")
sc.Language = "Jscript"
UrlEncodeUtf8 = sc.CodeObject.encodeURIComponent(strSource)
Set sc = Nothing
End Function

'=================================================================
'UrlDecodeUtf8 menggunakan Script Control
'=================================================================
Public Function URLDecodeUTF8(strSource As String) As String
Dim sc As Object
Set sc = CreateObject("ScriptControl")
sc.Language = "Jscript"
URLDecodeUTF8 = sc.CodeObject.decodeURIComponent(strSource)
Set sc = Nothing
End Function
READ MORE - URL Encode - Decode UTF8 Menggunakan Script Control