Tutorial membuat jam digital dengan VB 6

Setelah saya  posting tentang Tutorial cara membuat aplikasi jam analog VB6 sekarang saya akan posting lagi nih Cara membuat aplikasi jam digital VB6, mungkin anda bertanya2 kenapa sih saya selalu menulis posting tutorial2 sederhana menurut saya 'Kalau mau mahir dalam bidang apapun lakukanlah atau buatlah dari yang mudah' jangan langsung yang susah2 karena ' Kemudahan tersebut bisa membuat hasil yang lebih baik '. oke langsung saja tutorialnya ikuti dengan teliti CEKIDOT :

1. Buka VB6 dan pilih 'Standart Exe'
2. Masukan projek : Lebel1, Timer Atur seperti ini :

Timer1 : Interval = 1

3. Dan klik 2x pada form1 dan masukan kode ini :

Private Sub Form_load() Label1.caption=Now end sub

4. Selesai Mudah kan??? tekan F5 jika ingin mencoba program hasil buatan anda.

*Note : Saya sarankan anda memakai VB Full Version jika anda belum punya bisa di download ( disini )
Untuk anda yang ingin menyimpan  program yang anda sudah buat caranya  :
1. Klik File pada tab atas
2. Klik Make Project1.exe...

Cara Membuat Aplikasi Jam Analog VB6

Yapz ... udah lama ga update2 tutorial - tutorial buat kalian belajar VB6 dari blog ini. Oh iya sebelum saya membuat posting ini saya ingin memberitahukan kepada anda tentang EVENT yang akan saya ditahun ini hadiah untuk EVENT ini sebuah E-BOOK Cara cepat menguasai VB6 tunggu tanggal mainya ya cepat atau lambat saya akan buat EVENT itu. Oke berikut tentang tutorial ini tutorial sederhana Cara Membuat Aplikasi Jam Analog VB6, Sebenernya tutorial ini udah banyak di google tapi saya ingin menaruh semua TUTORIAL dari berbagai sumber buat kalian belajar soalnya saya lihat2 di google masih sedikit blog khusus TUTORIAL untuk VB6 hehehe ... baik langsung aja tutorialnya

1. Open VB6 dan pilih 'Standart Exe'
2. Masukan objek ini ke dalam form1 : 1 Label, 3 LineTools, 1 Timer Atur propertinya seperti ini :

Form1 : Name =  frmMain
LineTools : Name = ( Linehour,lineMinute,lineSecond) * Linetool ini untuk jarum jam dengan catatan ketiga line tersebut berada mempunyai titik pusat yang sama.
Label1 : Name = Lbltime , Caption = Kosongkan
Timer : Name = tmrclock Interval = 1

3. Klik View kode dan masukan kode dibawah ini kedalam form1
 
Option Explicit Private Const pi As Double = 3.14159265358979 Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long Private Declare Function ReleaseCapture Lib "user32" () As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Private Sub MakeRoundObject(objObject As Object, Value As Long) Static lngHeight, lngLong, lngReturn, lngWidth As Long lngWidth = objObject.Width / Screen.TwipsPerPixelX lngHeight = objObject.Height / Screen.TwipsPerPixelY SetWindowRgn objObject.hWnd, CreateRoundRectRgn(0, 0, lngWidth, lngHeight, Value, Value), True End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyEscape Then App.TaskVisible = False Unload Me End End If End Sub Private Sub Form_Load() Dim intX As Integer Call MakeRoundObject(frmMain, 20) Call tmrClock_Timer For intX = 0 To 360 Step 6 If intX Mod 30 = 0 Then Me.DrawWidth = 6 Me.PSet (1100 * Cos(intX * pi / 180) + lineSecond.X1, 1100 * Sin(intX * pi / 180) + lineSecond.Y1) Else Me.DrawWidth = 3 Me.PSet (1100 * Cos(intX * pi / 180) + lineSecond.X1, 1100 * Sin(intX * pi / 180) + lineSecond.Y1) End If Next intX End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ReleaseCapture SendMessage Me.hWnd, &HA1, 2, 0& End Sub Private Sub lblTime_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Call Form_MouseDown(Button, Shift, X, Y) End Sub Private Sub tmrClock_Timer() Dim dblSecond As Double, dblMinute As Double, dblHour As Double dblSecond = Second(Now) * 6 - 90 dblMinute = (Minute(Now) + Second(Now) / 60) * 6 - 90 dblHour = (Hour(Now) + Minute(Now) / 60) * 30 - 90 lineSecond.X2 = 1000 * Cos(dblSecond * pi / 180) + lineSecond.X1 lineSecond.Y2 = 1000 * Sin(dblSecond * pi / 180) + lineSecond.Y1 lineMinute.X2 = 900 * Cos(dblMinute * pi / 180) + lineMinute.X1 lineMinute.Y2 = 900 * Sin(dblMinute * pi / 180) + lineMinute.Y1 lineHour.X2 = 700 * Cos(dblHour * pi / 180) + lineHour.X1 lineHour.Y2 = 700 * Sin(dblHour * pi / 180) + lineHour.Y1 'kode dibawah ini untuk label lihat lbltime kalau anda tidak mengganti nama lebel1 dengan lbltime tidak akan terbaca dalam kode bisa juga lbltime dibawah ini dirubah menjadi "lebel1" kalau anda tidak tau cara mengganti name pada lebel. lblTime.Caption = Format(Now, "hh:mm:ss") End Sub

4. Selesai coba di test dengan menekan tombol F5 Pada keyboard.

Contoh : ( Dari google )

*Note : Saya sarankan anda memakai VB Full Version jika anda belum punya bisa di download ( disini )
Untuk anda yang ingin menyimpan  program yang anda sudah buat caranya  :
1. Klik File pada tab atas
2. Klik Make Project1.exe...

Tutorial Membuat Task Manager dengan VB.6

 
Hallo Posting kali ini tentang Tutorial Membuat Task Manager VB.6 bagi kalian yang ingin mempunyai task manager buatan anda sendiri ada tutorialnya nih :

• Buka Visual Basic 6.0 dan pilih standart exe
• Kemudian tambahkan 2 label, 1 listbox, 3 command Button, 2 Checklist, 1 module dengan nama MODApi

Atur Propertinya seperti ini : 

[*] Form1 :  
-BorderStyle : None

Label 1 : Terserah kalau saya buat judul aplikasi contoh " Task Manager V.1"

[*] Label 2 : 
- Caption : X    
           
[*] Command1 :
- Name : cmdendtask
- Caption : End Task

[*] Command2 :
- Name : cmdrefresh
- Caption Refresh

[*] Command3 :
 -Name : CmdToggle
- Caption : Toggle

[*] Checklist1 :
- Name : chk1

- Caption : Window terlihat

[*] Checklist2 :

- Name : chk2

- Caption : Windows Tersembunyi 

• Tambahkan 1 moudle dan masukan kode berikut ke moudle  : 

'Task Manager By : http://vbactions.blogspot.com Option Explicit Public Const SW_HIDE = 0 Public Const SW_SHOW = 5 Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _ ( _ ByVal hWnd1 As Long, _ ByVal hWnd2 As Long, _ ByVal lpsz1 As String, _ ByVal lpsz2 As String _ ) As Long Public Declare Function GetWindowText Lib "user32" _ Alias "GetWindowTextA" _ ( _ ByVal hwnd As Long, _ ByVal lpString As String, _ ByVal cch As Long _ ) As Long Public Declare Function lstrlen Lib "kernel32" _ Alias "lstrlenA" _ ( _ ByVal lpString As String _ ) As Long Public Declare Function GetClassName Lib "user32" _ Alias "GetClassNameA" _ ( _ ByVal hwnd As Long, _ ByVal lpClassName As String, _ ByVal nMaxCount As Long) As Long Public Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" _ ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any _ ) As Long Public Declare Function IsWindowVisible Lib "user32" _ ( _ ByVal hwnd As Long _ ) As Long Public Declare Function ShowWindow Lib "user32" _ ( _ ByVal hwnd As Long, _ ByVal nCmdShow As Long _ ) As Long

• Dan untuk form 1 masukan code ini :

'Task Manager By : http://vbactions.blogspot.com Option Explicit Dim hWndTGT As Long Private Sub cmdEndTsk_Click() If hWndTGT = 0 Then Exit Sub SendMessage hWndTGT, &H112, &HF060, 0 End Sub Private Sub cmdRefresh_Click() Dim hWndx As Long Dim lpStr As String * 255 Dim cnt As Integer Dim lpClassName As String * 255 List1.Clear hWndx = FindWindowEx(0, 0, vbNullString, vbNullString) Do GetWindowText hWndx&, lpStr, 255 GetClassName hWndx&, lpClassName$, 255 If chk1.Value And chk2.Value Then GoTo IsiData ElseIf chk1.Value Then If IsWindowVisible(hWndx) Then GoTo IsiData End If ElseIf chk2.Value Then If Not IsWindowVisible(hWndx) Then GoTo IsiData End If End If Ulangi: hWndx = FindWindowEx(0, hWndx, vbNullString, vbNullString) DoEvents Loop While hWndx > 0 Exit Sub IsiData: cnt = List1.ListCount List1.AddItem Left$(lpStr, lstrlen(lpStr)) + " (" + _ Left$(lpClassName, lstrlen(lpClassName)) + ")" List1.ItemData(cnt) = hWndx GoTo Ulangi End Sub Private Sub cmdToggle_Click() If IsWindowVisible(hWndTGT) Then ShowWindow hWndTGT, SW_HIDE Else 'bila tersembunyi maka ShowWindow hWndTGT, SW_SHOW End If End Sub Private Sub Label2_Click() End End Sub Private Sub List1_Click() hWndTGT = List1.ItemData(List1.ListIndex) End Sub

• 
  
• Selesai coba test dengan menekan tombol F5 pada keyboard

*Note : Saya sarankan anda memakai VB Full Version jika anda belum punya bisa di download ( disini )
Untuk anda yang ingin menyimpan  program yang anda sudah buat caranya  :
1. Klik File pada tab atas
2. Klik Make Project1.exe...

Music Player V.1 | VBACTIONS PRESENT

• Name File         : Music Player V.1
• Download  I      : Download Via Mediafire
• Download II     : Download Via Ziddu
• File Size            : 255 KB
• Web Publishser  : VBACTIONS
• Tanggal Publish  : 24/02/2013
• Tutorial              :
• Hak Cipta         : 100% Hak Cipta @VBACTIONS.inc
• Virus Total        : Click Here 

*Note : Saya sarankan anda memakai VB Full Version jika anda belum punya bisa di download ( disini )
Untuk anda yang ingin menyimpan  program yang anda sudah buat caranya  :
1. Klik File pada tab atas
2. Klik Make Project1.exe...

Download Software AAA Logo 2010 Full + Serials

AAA LOGO merupakan software yang di rancang untuk membuat desain Logo , ini bisa di pakai untuk keperluan Desain logo Prusahan , Website diatas adalah salah satu contoh hasil dari AAA LOGO ,
silahkan download software berikut :

Info File : 7.7 MB
Type File : Rar 
File Upload : 16/12/2012
Time Upload :10.59 AM
Website Upload : Mediafire


Password  :http://vbactions.blogspot.com/

Web Browser V.2 | VBactions Present

• Name File         : Web Browser V.2
• Download  I      : Download Via Mediafire
• Download II     : Download Via Ziddu
• File Size            : 108.95 KB
• Web Publishser  : VBACTIONS
• Tanggal Publish  : 16/12/2012
• Tutorial              :
• Hak Cipta         : 100% Hak Cipta @VBACTIONS.inc
• Virus Total        : Click Here 

*Note : Saya sarankan anda memakai VB Full Version jika anda belum punya bisa di download ( disini )
Untuk anda yang ingin menyimpan  program yang anda sudah buat caranya  :
1. Klik File pada tab atas
2. Klik Make Project1.exe...

Tutorial Membuat Simple Downloader

 Tutorial Membuat Simple Downloader :

1. Open VB6
2. Masukan Button 1 Command Button, 1 Label, 1 TextBox

Atur Propertinya Seperti Ini :

- TextBox : Text = Kosongkan aja
- CommandButton : Caption = Download
- Label : Caption =  Seterah ente

 3. Lalu View Code Dan Masukan Code Ini :

Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Private Declare Function IsValidURL Lib "URLMON.DLL" (ByVal pbc As Long, ByVal szURL As _
String, ByVal dwReserved As Long) As Long

Private Const S_FALSE = &H1
Private Const S_OK = &H0

Public Function IsGoodURL(ByVal sURL As String) As Boolean
sURL = StrConv(sURL, vbUnicode)
IsGoodURL = (IsValidURL(ByVal 0&, sURL, 0) = S_OK)
End Function


Private Sub Command1_Click()
If IsGoodURL(Text1.Text) Then
DoFileDownload StrConv(Text1.Text, vbUnicode)
Else
MsgBox "Url Tidak Terbaca"
End If
End Sub

Private Sub Form_Load()
MsgBox "Simple Downloader By : VBACTIONS " ' Ganti kata Simple Downloader By : VBACTIONS dengan sesuka anda
End Sub

4. Selesai ,,, Mudah Sekali Bukan :) Tekan F5 Untuk Menjalankan Program


*Note : Saya sarankan anda memakai VB Full Version jika anda belum punya bisa di download ( disini )
Untuk anda yang ingin menyimpan  program yang anda sudah buat caranya  :
1. Klik File pada tab atas
2. Klik Make Project1.exe...

Membuat Simple Splash Screen With VB6

 Tutorial Membuat Splash Screen :

1. Buka VB6 And Pilih Standart EXE ( Pastinya :hihi: )
2. Tambahkan 1 Buah Splash Screen Caranya Click Project -> Click Add Form Dan pilih Splash Screen dan click OK Coba Lihat Gambar Dibawah Ini :

Click Project And Sellect Add Form

Pilih Splash Screen And Click Open

 3. Hapus semua button dan code yang sudah ada dari sananya :hehe: lihat gambar deh :

4. Masukan Components Microsoft Winsock Control 6.0 & Microsoft Windows Common Controls 6 (SP6)  Caranya tekan CTRL + T Pada keyboard  :

5. Setelah di masukan sekarang masukan :

- 1 ProgressBar
- 1 Timmer
- 1 Label

Atur Propertinya Seperti Ini :

- Progressbar : Appearance = 0 - ccflat, Scroling = 1
- Timer : Interval = 50
- Label : Caption = seterah sih sesuai kebutuhan

Kira - Kira Menjadi Seperti Ini ( sesudah ane design ) :

 

6. Sudah selesai ? belum selanjutnya Klik Project -> Click Project1 Properties :



7. Pada Startup Objects ganti frmsplash :


8. Masukan Code Ini :

Option Explicit
Dim efek As Integer

Private Sub Timer1_Timer()
On Error Resume Next
efek = efek + 5
ProgressBar1.Value = ProgressBar1.Value + 400 / 400
If efek > 500 Then
    Timer1.Enabled = False
    Screen.MousePointer = vbNormal
    Me.WindowState = 0
    Do
    Me.Left = Me.Left + 20
    Me.Move Me.Left, Me.Top
    DoEvents
    Loop Until Me.Left > Screen.Width
    Load Form1
    Form1.Show
    Unload Me
End If
End Sub

9.Selesai hehe saya memakai splash screen juga pada web browser v.1.0 Tekan F5 untuk menjalankan project

*Note : Saya sarankan anda memakai VB Full Version jika anda belum punya bisa di download ( disini )
Untuk anda yang ingin menyimpan  program yang anda sudah buat caranya  :
1. Klik File pada tab atas
2. Klik Make Project1.exe...

Web Browser V.1.0

• Name File         : Web Browser  V.1.0 
• Download         : Download Now
• File Size            : 108.95 KB
• Web Publishser  : VBACTIONS
• Tanggal Publish  : 13/12/2012
• Tutorial              :
• Hak Cipta         : 100% Hak Cipta @VBACTIONS.inc

*Note : Saya sarankan anda memakai VB Full Version jika anda belum punya bisa di download ( disini )
Untuk anda yang ingin menyimpan  program yang anda sudah buat caranya  :
1. Klik File pada tab atas
2. Klik Make Project1.exe...

Buat Form Password menggunakan Visual Basic 6.0 ( Simple )

1.    Buka program VB 6, pilih standart EXE
2.    Masukkan 2 buah form dimana Form1 untuk form password dan Form2 sebagai form programnya sehingga program kita di Form2 tidak dapat dibuka kalau tidak mengetahui Password yang ada di Form1.

Atur Seperti Ini :

- Name Form1 = frmlogin
- Name Form2 =  frmProgram

*Cara menambahkan Form lagi silahkan lihat gambar dibawah ini :



3.    Masukan Button ke Form1 :

- 1 buah TextBox
- 2 buah CommandButton

*Properties :
a.    TextBox  (PasswordChar = * dan Text = “kosongkan”)
b.   CommandButton1 (Caption = OK)
c.   Commandbutton2 ( Caption = Cancel )
 
4. Click 2x di frmlogin dan masukan code ini :

 'Codding from : vbactions.blogspot.com
Private Sub Command1_Click()
If Text1.Text = "vbactions" Then 'vbactions adalah passwordnya silahkan diganti
Frmprogram.Show 'Kalo sudah login form ini yang akan muncul
Text1.Enabled = False
Command1.Enabled = False
Else
MsgBox "Password Salah!! Tolong Diulangi" 'ini juga bisa diganti
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click()
Unload Me
End

 5. Selesai Mudah Bukan :) Tekan F5 untuk menjalankan Program kira2 jadinya seperti ini hehe :

*Note : Saya sarankan anda memakai VB Full Version jika anda belum punya bisa di download ( disini )
Untuk anda yang ingin menyimpan  program yang anda sudah buat caranya  :
1. Klik File pada tab atas
2. Klik Make Project1.exe...

Simple Windows Media Player V.1.0

Name File         : Simple Windows Media Player V.1.0 

Download         : Download Now

File Size            : 5.88 KB

Web Publishser  : VBACTIONS

Tanggal Publish  : 13/12/2012

Tutorial Create  : -

Hak Cipta         : 100% Hak Cipta @VBACTIONS.inc

Tutorial Membuat Web Browser Menggunakan VB6

Posting Kali Ini Tentang Tutorial  Membuat Web Browser Menggunakan VB6  Jika kalian berminat langsung saja kita lakukan tutorial ini. ikuti langkah demi langkah dengan teliti :

1. Open Visual Basic 6.0 dan pilih " Standart EXE "

2. Masukan Components Microsoft Internet Contorls & Microsoft Windows Common Controls 6 (SP6)  dengan cara tekan CTRL + T pada keyboard atau  klik Project dan pilih Components

 
 *Setelah itu beri tanda centang pada Microsoft Internet Contorls Lihat screenshot :




*Jika sudah di centang klik Apply dan Tekan 0K  

3. Lalu Masukan buton2 berikut kedalam form :

• 5 Command Button
• 1 TextBox ( ini akan menjadi URL bar kalian ) 
• 1 Progressbar
• 1 Buah Label

4. Atur Propertinya Menjadi :

Command 1 : ( Caption : Go , Name : Cmdgo )
Command 2 : ( Caption : Back , Name : CmdBack )
Command 3 : ( Caption : Refresh , Name : CmdRefresh )
Command 4 : ( Caption : Forward , Name : CmdForward )
Command 5 : ( Caption : Stop , Name : Cmdstop )
TextBox       : ( Text : Kosongkan )
Progressbar :
Label1        : ( Caption : Done )

5. Codding untuk form1 ( Click 2x pada form1 )  : 

Private Sub Cmdgo_Click()
On Error Resume Next
WebBrowser1.Navigate Text1.Text
End Sub

Private Sub Cmdstop_Click()
On Error Resume Next
WebBrowser1.Stop
End Sub

Private Sub Cmdrefresh_Click()
On Error Resume Next
WebBrowser1.Refresh
End Sub

Private Sub cmdforward_Click()
On Error Resume Next
WebBrowser1.GoForward
End Sub
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
If Progress = -1 Then ProgressBar1.Value = 100
Label1.Caption = "Done"
ProgressBar1.Visible = False
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Visible = True
Image1.Visible = False
ProgressBar1.Value = Progress * 100 / ProgressMax
Label1.Caption = "Loading " & Int(Progress * 100 / ProgressMax) & "%"
End If
Exit Sub
End Sub

 5. Selesai untuk menjalankan Program tersebut Tekan F5 Pada Keyboard

*Note : Saya sarankan anda memakai VB Full Version jika anda belum punya bisa di download ( disini )
Untuk anda yang ingin menyimpan  program yang anda sudah buat caranya  :
1. Klik File pada tab atas
2. Klik Make Project1.exe...

[Tutorial] Membuat Deteksi IP Komputer

1. Open Visual Basic 6.0 dan Pilih " Standart EXE "

2. Masukan Komponen Microsoft Winsock Controls 6  & Microsoft Windows Common Controls 6 (SP6) Untuk memasukan komponenya pertama klik Project dan pilih Components atau bisa juga dengan tekan  ( CTRL + T )

 

* Beri tanda centang pada  

* Microsoft Winsock Control 6.0 & Microsoft Windows Common Controls 6 (SP6).

 

3. Lalu buat 1 buah Progressbar, 1 buah Timer, 4 buah Lebel.dan 2 Command Button

* Atur Propertinya seperti ini : 

• Progressbar  ( Max = 30000)
• Timer1 (Enabled = False dan Interval = 1000)
• Label1 (Caption = Waktu)
• Label2 (Caption = Nama Komputer)
•  Label3 (Caption = IP Komputer)
• Label4 (Caption = Port)
• Command1 (Caption = Deteksi)
• Command2 (Caption = Keluar)

* Kira-Kira seperti ini kalau sudah propertinya diganti ( saya design sendiri ) :

4. Kalau sudah di design silahkan klik kanan pada form dan pilih view code masukan code ini :

Dim a As Integer

Private Sub Command1_Click()
For a = 1 To 30000
ProgressBar1.Value = a
Next a
Timer1.Enabled = True
End SubPrivate Sub Command2_Click()End
End SubPrivate Sub Timer1_Timer()Label1.Caption = Format _
(Now, "HH:MM:SS - dd mmmm yyyy")Label2.Caption = "Nama Komputer : " _
& Winsock1.LocalHostName
Label3.Caption = "IP Komputer : " & _
Winsock1.LocalIP
Label4.Caption = "Port : " _
& Winsock1.LocalPort
End Sub

5. Selesai ... Untuk mencoba program tersebut silahkan tekan F5 Pada keyboard Jika anda masih belum paham bisa lihat videonya disini

*Note : Saya sarankan anda memakai VB Full Version jika anda belum punya bisa di download ( disini )
Untuk anda yang ingin menyimpan  program yang anda sudah buat caranya  :
1. Klik File pada tab atas
2. Klik Make Project1.exe...

Free Download Visual Basic 6.0 + CD Key

Hello World ... ! Frist Posting Download Visual Basic Full + CD Key Screen Shot : 

Download File : Click here