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.
 
 
Copyright © 2013. BLOGGER Mr.17 - All Rights Reserved