Membuat Link Dari Visual Basic 6.0 Ke Internet

Source code berikut untuk membuat Link pada Label Visual Basic 6.0.

Buat 1 Project dengan :
1 Label
Copy source code berikut pada Form :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Declare Function SetWindowPos Lib "user32" (ByVal h As Long, ByVal hb As Long, ByVal X As Long, _

    ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal F As Long) As Long

Const SWP_NOMOVE = 2

Const SWP_NOSIZE = 1

Const flags = SWP_NOMOVE Or SWP_NOSIZE

Const HWND_TOPMOST = -1

Const HWND_NOTOPMOST = -2

 
Private Sub Label1_Click()
ShellExecute Me.hWnd, "Open", "http://Blog17Lamers.Blogspot.com", vbNullString, vbNullString, 3
End Sub

Membuat Teks Kelap-Kelip Pada Visual Basic 6.0

Source code berikut untuk membuat tulisan pada label (teks) kelap-kelap berwarna-warni.

Buat 1 project dengan :
1 Form
1 Label
1 Timer
Copy source code berikut pada Form :

Dim i As Long

Dim merah, hijau, biru As Integer

Private Sub Form_Load()

  i = 0     'Inisialisasi detik

  Timer1.Interval = 100   'Kalau 1000 biasanya lompat 1 detik

  Label1.Caption = "Ini contoh tulisan kelap-kelip"

End Sub

Private Sub Timer1_Timer()

  i = i + 1

  If i = 1000000 Then i = 0 'Supaya tdk overflow, dsb...

  merah = Int(255 * Rnd)    'Bangkitkan angka random untuk merah

  hijau = Int(255 * Rnd)    'Bangkitkan angka random untuk hijau

  biru = Int(255 * Rnd)     'Bangkitkan angka random untuk biru

  Label1.ForeColor = RGB(merah, hijau, biru)   'Campur tiga warna

  If i Mod 2 = 0 Then       'Jika counter habis dibagi 2

     Label1.Visible = True  'Tampilkan label

  Else                      'Jika counter tidak habis dibagi 2

     Label1.Visible = False 'Sembunyikan label

  End If                    'Akhir pemeriksaan

End Sub

Kalimat Berjalan Pada Label di Form Visual Basic 6.0

Contoh source code berikut untuk membuat kalimat berjalan pada label di form.

Buat 1 project dengan :
1 Form
1 Timer (set interval = 100)
1 Label

Copy source code berikut pada Form :

Dim counter As Integer

Private Sub Timer1_Timer()

    Dim Kalimat As String

    Kalimat = "Ini adalah contoh kalimat berjalan"

    counter = counter + 1

    DoEvents

    Label1.Caption = TulisJalan(counter, Kalimat, 30)

End Sub

Public Function TulisJalan(hitung As Integer, strKalimat As String, _

                           Panjang As Integer)

  If hitung = Len(strKalimat) + Panjang Then

     hitung = 0

  ElseIf hitung > Len(strKalimat) Then

     TulisJalan = strKalimat & Space(hitung - Len(strKalimat))

  Else

     TulisJalan = Mid(strKalimat, 1, hitung)

  End If

End Function

Membuat Judul Form Berjalan Visual Basic 6.0

Source code berikut untuk membuat teks berjalan pada caption form.

Buat 1 project dengan :
1 Form
1 Timer (set interval = 200)
Copy source code berikut pada Form :

Dim teksJalan As String

Private Sub Form_Load()
teksJalan = "Teks ini berjalan pada caption Form. "
End Sub

Private Sub Timer1_Timer()
a = Left(teksJalan, 1)
c = Len(teksJalan)
b = Right(teksJalan, c - 1)
teksJalan = b + a
Form1.Caption = teksJalan
End Sub

Membuat Judul Form Menjadi Rata Tengah Pada Visual Basic 6.0

Untuk membuat judul form di tengah tidak lah sulit, anda cukup meletakkan code tersebut di Form Loadnya saja .

Private Sub Form_Load()
Move (Screen.Width - Width) / 2, (Screen.Height - Height) * 0.5
End Sub

Konversi Detik Ke Jam Menit Detik Pada Visual Basic 6.0

Source code berikut untuk mengonversi detik ke jam menit detik. Misalkan jika input 3660 detik, maka output yang dihasilkan adalah 1 Jam 1 Menit 0 Detik.

Buat 1 project dengan :

1 Form.

1 TextBox.

1 CommandButton.

Copy source code berikut pada Form :

Private Sub Command1_Click()

    Dim hour, minute, second As Long

    Dim a, b, c, d As Long

    a = Text1.Text

    hour = Int(a / 3600)

    b = hour * 3600

    minute = Int((a - b) / 60)

    second = a - b - (minute * 60)

    MsgBox "Hasil konversi = " & hour & " jam " & minute & " menit " & second & " detik ", vbOKOnly

End Sub

Membuat From Agar Tidak Bisa Di Close Pada Visual Basic 6.0

Source code untuk membuat Form agar tidak bisa di Close.
Tombol Close pada Form di Disable sehingga Form tersebut tidak bisa di Close.

Buat 1 Project dengan :
1 Form
Copy source code berikut pada Form :

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Sub DisableCloseBtn(ByVal Frm As Form)
Dim h As Long
h = GetSystemMenu(Frm.hwnd, 0)
RemoveMenu h, 6, &H400
RemoveMenu h, 5, &H400
End Sub

Private Sub Form_Load()DisableCloseBtn MeEnd Sub

Membuat Form Agar Tidak Bisa Di Resize Pada Visual Basic 6.0

Source code untuk membuat Form agar tidak bisa di Resize.
Tombol Resize pada Form di Disable sehingga Form tersebut tidak bisa di Resize.

Buat 1 Project dengan :
1 Form
Copy source code berikut pada Form :

Private Const GWL_STYLE = (-16)

Private Const WS_THICKFRAME = &H40000

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _

        (ByVal hwnd As Long, ByVal nIndex As Long, _

        ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _

        (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Sub Form_Load()

Dim lStyle As Long

    lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)

    lStyle = lStyle And Not WS_THICKFRAME

    Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)

End Sub

Membuat Form Agar Tidak Bisa Di Maximize Pada Visual Basic 6.0

Source code untuk membuat Form agar tidak bisa di Maximize.
Tombol Maximize pada Form di Disable sehingga Form tersebut tidak bisa di Maximize.

Buat 1 Project dengan :
1 Form
Copy source code berikut pada Form :

Private Const GWL_STYLE = (-16)
Private Const WS_MAXIMIZEBOX = &H10000

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
        (ByVal hwnd As Long, ByVal nIndex As Long, _
        ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
        (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Sub Form_Load()
Dim lStyle As Long

    'disable MAXIMIZE button
    lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
    lStyle = lStyle And Not WS_MAXIMIZEBOX
    Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)
End Sub

Angka Romawi Dari 1 Sampai 1000

I = 1
II = 2
III = 3
IV = 4
V = 5
VI = 6
VII = 7
VIII = 8
IX = 9
X = 10
XI = 11
XII = 12
XIII = 13
XIV = 14
XV = 15
XVI = 16
XVII = 17
XVIII = 18
XIX = 19
XX = 20
XXI = 21
XXII = 22
XXIII = 23
XXIV = 24
XXV = 25
XXVI = 26
XXVII = 27
XXVIII = 28
XXIX = 29
XXX = 30
XXXI = 31
XXXII = 32
XXXIII = 33
XXXIV = 34
XXXV = 35
XXXVI = 36
XXXVII = 37
XXXVIII = 38
XXXIX = 39
XL = 40
XLI =41
XLII = 42
XLIII = 43
XLIV = 44
XLV = 45
XLVI = 46
XLVII = 47
XLVIII = 48
XLIX = 49
L = 50
LI = 51
LII = 52
LIII = 53
LIV = 54
LV = 55
LVI = 56
LVII = 57
LVIII = 58
LVIX = 59
LX = 60
LXI = 61
LXII = 62
LXIII = 63
LXIV = 64
LXV = 65
LXVI = 66
LXVII = 67
LXVIII = 68
LXVIX = 69
LXX = 70
LXXI = 71
LXXII = 72
LXXIII = 73
LXXIV = 74
LXXV = 75
LXXVI = 76
LXXVII = 77
LXXVIII = 78
LXXVIX = 79
LXXX = 80
LXXXI = 81
LXXXII = 82
LXXXIII = 83
LXXXIV = 84
LXXXV = 85
LXXXVI = 86
LXXXVII = 87
LXXXVIII = 88
LXXXVIX = 89
XC = 90
XCI = 91
XCII = 92
XCIII = 93
XCIV = 94
XCV = 95
XCVI = 96
XCVII = 97
XCVIII = 98
XCVIX = 99
C = 100
CV = 105
CX = 110
CXL = 140
CL = 150
CLX = 160
CXC = 190
CC = 200
CCV = 205
CCX = 210
CCXL = 240
CCL = 250
CCLX = 260
CCXC = 290
CCC = 300
CD = 400
D = 500
DC = 600
DCC = 700
DCCC = 800
CM = 900
M = 1000

Kelebihan Dan Kekurangan E-mail

Kelebihan E-mail :

• Pengoperasian mudah dengan bentuk dan ukuran yang bervariasi.
• Pengiriman sangat cepat.
• Biaya murah.
• Dapat mengirim ke beberapa alamat lain sekaligus.\
• Surat yang masuk mudah dibaca, disimpan , dan dicetak.
• Privasi terjamin yang dilindungi oleh password

Kekurangan E-mail :

• Kesalahan penulisan alamat tujuan, maka email tidak sampai tujuan.
• Email di kirim sering gagal apabila :  
  1. Lalulintas internet padat. 
  2. Koneksi lambat. 
  3. Kotak surat tujuan penuh, maka email yang datang akan terhapus.
• Adanya kemungkinan pemalsuan identitas.• Rawan Penyadapan, jika password yg diketahui oleh orang lain.