VB-Actions

Minggu, 03 Maret 2013

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 :

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...

Tutorial Visual Basic 6.0 0 komentar

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 )

Tutorial Visual Basic 6.0 0 komentar

Kamis, 28 Februari 2013

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

Tutorial Visual Basic 6.0 0 komentar

Translate

Minggu, 03 Maret 2013

Tutorial membuat jam digital dengan VB 6

Cara Membuat Aplikasi Jam Analog VB6

Kamis, 28 Februari 2013

Tutorial Membuat Task Manager dengan VB.6

Total Tayangan Halaman

Folowers