Cek IP Adress Orang Lain Aktif Atau Tidak

Cek IP Adress Orang Lain

Untuk tulisan kali ini disajikan bagaimana cara pembuatan aplikasi yang berfungsi untuk mengetahui status aktif atau tidak akltif dari Komputer tetangga dengan melakukan pencarian IP Adress.Siapa tahu dengan kita mengetahui IP Adress komputer tetangga, kita dapat mencari file, melakukan Shutdown ataupun tujuan positif lainnya he..he..'Yang dibutuhkan dalam pembuatan aplikasi kali ini adalah :'- 1 listbox dengan properties name List1'- 2 textbox dengan propertie name Text1 dan Text2'- 2 commandbutton dengan properties name Command1 dan Command2'- 2 label dengan properties name label1, properties Caption="Cek IP Aktif dari" dan label2 dengan properties caption="Sampai''
Masukkan code di bawah ini pada form
=========================================
Option ExplicitConst
SOCKET_ERROR = 0Private Declare Function GetHostByName Lib "wsock32.dll" Alias "gethostbyname" (ByVal HostName As String) As Long
Private Declare Function WSAStartup Lib "wsock32.dll" (ByVal wVersionRequired&, lpWSAdata As WSAdata) As Long
Private Declare Function WSACleanup Lib "wsock32.dll" () As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvdest As Any, hpvSource As Any, ByVal cbCopy As Long)
Private Declare Function IcmpCreateFile Lib "icmp.dll" () As Long
Private Declare Function IcmpCloseHandle Lib "icmp.dll" (ByVal HANDLE As Long) As Boolean
Private Declare Function IcmpSendEcho Lib "ICMP" (ByVal IcmpHandle As Long, ByVal DestAddress As Long, ByVal RequestData As String, ByVal RequestSize As Integer, RequestOptns As IP_OPTION_INFORMATION, ReplyBuffer As IP_ECHO_REPLY, ByVal ReplySize As Long, ByVal TimeOut As Long) As Boolean
'''type data tambahan
Private Type WSAdata wVersion As Integer wHighVersion As Integer szDescription(0 To 255) As Byte szSystemStatus(0 To 128) As Byte iMaxSockets As Integer iMaxUdpDg As Integer ipVendorInfo As Long
End Type
Private Type Hostent h_name As Long h_aliases As Long h_addrtype As Integer h_length As Integer h_addr_list As Long
End Type
Private Type IP_OPTION_INFORMATION TTL As Byte Tos As Byte Flage As Byte OptionsSize As Long OptionsData As String * 128
End Type
Private Type IP_ECHO_REPLY Address(0 To 3) As Byte Status As Long RoundTripTime As Long DataSize As Integer Reserved As Integer data As Long Options As IP_OPTION_INFORMATION
End Type
Public dir As String
'''berikut source kode fungsi yang diperlukan
Public Function doPing(ByVal HostName As String) As Boolean
Dim hFile As Long, lpWSAdata As WSAdata
Dim hHostent As Hostent, AddrList As Long
Dim Address As Long, rIP As String
Dim OptInfo As IP_OPTION_INFORMATION
Dim EchoReply As IP_ECHO_REPLY
Call WSAStartup(&H101, lpWSAdata)
If GetHostByName(HostName + String(64 - Len(HostName), 0)) <> SOCKET_ERROR Then CopyMemory hHostent.h_name, ByVal GetHostByName(HostName + String(64 - Len(HostName), 0)), Len(hHostent) CopyMemory AddrList, ByVal hHostent.h_addr_list, 4 CopyMemory Address, ByVal AddrList, 4
End If
hFile = IcmpCreateFile() If hFile = 0 Then MsgBox " Unable to create file handle", vbCritical + vbOKOnly doPing = False
Exit Function
End If
OptInfo.TTL = 255
If IcmpSendEcho(hFile, Address, String(32, "A"), 32, OptInfo, EchoReply, Len(EchoReply) + 8, 2000) Then rIP = CStr(EchoReply.Address(0)) + "." + CStr(EchoReply.Address(1)) + "." + CStr(EchoReply.Address(2)) + "." + CStr(EchoReply.Address(3)) Else doPing = False
End If
If EchoReply.Status = 0 Then doPing = True Else doPing = False
End If
Call IcmpCloseHandle(hFile)
Call WSACleanup
End Function
Private Sub Command1_Click()
Dim i As Integer
Dim x, yDim result As Boolean
Dim resultString As String
If Trim(Text1) = "" ThenMsgBox "Isikan Alamat IP", vbCritical + vbOKOnlyText1.SetFocusExit Sub
End If
If Trim(Text2) = "" Then
MsgBox "Isikan Batasan/Range Alamat IP", vbCritical + vbOKOnlyText2.SetFocus
Exit Sub
End If
List1.Clear
x = Split(Text1.Text, ".")
y = Split(Text2.Text, ".")
For i = CInt(x(3)) To CInt(y(3))dir = x(0) & "." & x(1) & "." & x(2) & "." & iresult = doPing(dir)
If result = True Then
resultString = "Aktif"ElseresultString = "NonAktif"End IfList1.AddItem "Pinging " & dir & "..." & resultStringList1.RefreshNextEnd Sub
Private Sub Command2_Click()
List1.Clear
Text1.Text = ""
Text2.Text = ""
List1.Refresh
End Sub
================
Terimakasih, semoga dapat bermanfaat untuk kebaikan.
Silahkan Download Project Di Situs Download/Upload Gratis Join 4Shared Now!
Tetapi sebelumnya jika anda berkenan berikan rating pada artikel ini dengan mengklik tanda bintang di bawah ini, agar saya mengetahui artikel yang paling menarik untuk penulisan selanjutnya. Terimakasih.

Membuat Text Berjalan

Private Sub Timer1_Timer()
If (Label1.Left < Me.Width) Then
Label1.Left = Label1.Left + 100
Else
Label1.Left = -(Label1.Width)
End If
End Sub

Menampilkan dan menyembunyikan Access main window

maksudnya adalah bagaimana kita menyembunyikan atau menampilkan windows utama, jadi nanti setelah keluar form, maka window yang ada toolbar dan menubarnya hilang, jadi tampilannya persis kaya form buatan Visual Basic. emang bisa ?

coba aja code berikut pada form, namun pastikan properti form Untuk
popup=true
modal=true
atau akan terjadi sesuatu diluar kehendak Yang maha kuasa………

Private Declare Function ShowWindow Lib “user32″ _
(ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Public Sub window_main_show()
Call ShowWindow(Application.hWndAccessApp, 3)
CommandBars.ActiveMenuBar.Enabled = True
End Sub
Public Sub window_main_hide()
Call ShowWindow(Application.hWndAccessApp, 0) ‘ untuk amannya coba angka o di ganti 2
End Sub

contoh pemakaian pada form :

‘menyembunyikan/menutup window utama pada waktu form dibuka
Private Sub Form_Open(Cancel As Integer)
window_main_hide
End Sub

‘menampilkan window utama pada waktu form dibuka
Private Sub Form_Open(Cancel As Integer)
window_main_show
End Sub

Microsoft Acces untuk Client/Server

Microsoft Acces untuk Client/Server

access memang tidak didesain untuk client-server secara canggih (baca:teknologi OLE) jad, untuk membuatnya menjadi client-server atau memiripkannya,
ada cara untuk mengakalinya
saya pernah menggunakan hal ini, hanya saja saya akali file tersebut disimpan dalam suatu folder ter-share secara mode write-read (full access)
dan alamat ip dan nama folder tersebut saya simpan dalam sebuah string di registry,
nah, aplikasi tinggal membaca registry tersebut untuk mendapatkan sebuah alamat path database access yg sebetulnya tersimpan dalam sebuah komputer yg ter-share pada folder di komputer tersebut.

contoh

komputer A dengan ip 192.168.1.2 yg saya jadikan server saya buat folder "kontrol" dimana didalamnya tersimpan nama database "sekolah.mdb"
KOmputer B-E dengan ip 192.168.1.3-6 yg merupakan client yg diinstall aplikasi menembak alamat path databasenya \\192.168.1.2\kontrol\sekolah.mdb pada string untuk aplikasi tersebut
coba saja...
ps: jangan bilang sapa2 kalo databasenya disitu dan diusahakan dibackup selalu, juga dipassword
semoga membantu.

kalo mbuat registry itu kan buat se-level billy, dkk yg ilmunya dah pada mumpuni.
nah, kalo buat kita2 yg masih belajar sebaiknya membuat suatu string yg disimpan pada file di dekat aplikasikita,
tentunya bisa dengan menggunakan filesystemobjects bawaan vb6
contoh nih, saya mau buat crack suatu aplikasi

Private Sub Form_Load()
Set fso = New FileSystemObject
On Error GoTo pesan
buatLic app.path & "\lisensi.lic"
pesan:
msgbox "test"
End Sub

Private Sub buatLic(ByVal lokasi As String)
Open lokasi For Output As #1
Print #1, "\\192.168.1.1\kontrol\database.mdb"
Close #1
SetFileAttributes lokasi, FILE_ATTRIBUTE_NORMAL
End Sub

alo Koneksina pakai ODBC saja, untuk membuat share database bisa di hidden contohnya : "\\192.168.0.1\database$\databasefile.mdb"

jadi waktu share folder "database" terakhir dikasih tanda "$" fungsinya untuk hidden file share

Form Login yang koneksi MS Access

Buka Microsoft Office - Microsoft Access 2000
Rancanglah sebuah tabel dengan attribute "Username" dan "Password" dengan format Text.
Simpanlah tabel tersebut dengan nama apa saja, contoh "Tabel_User", kemudian simpan File MS Access dengan nama apa saja, contoh: "Login.mdb"

Bukalah Microsoft Visual Basil 6.0
Pilih Standard.exe, kemudian pilih Form.
Masukkan :
- 2 buah Label, yaitu Label1 dan Label2
- 2 buah Text Box, yaitu Text1 dan Text2
- 2 buah Command Button, yaitu Command1 dan Command2

Kemudian ganti nilai property yang diperlukan, seperti:
Form1:
Name = FrmLogin
Caption = Login
BorderStyle = 1-FixedSingle

Label1:
Name = LblUsername
Caption = Username

Label2:
Name = LblPassword
Caption = Password

Text1:
Name = TxtUsername
Text = "" (Kosongkan)

Text2:
Name = TxtPassword
PasswordChar = *
Text = "" (Kosongkan)

Command1:
Name = CmdLogin
Caption = Login
Default = True

Command2:
Name = CmdExit
Caption = Exit

Kemudian rancanglah form sesuai yang diinginkan.

Langkah selanjutnya adalah, tambahkan sebuah Class Module dengan cara,
Klik kanan pada Project Explorer di sebelah kanan atas, kemudian pilih Add Class Module. Muncul sebuah form dengan 4 pilihan, pilih saja Class Module, maka munculah sebuah jedela coding.
Tujuan dari Class Module ini adalah kita membentuk sebuah class untuk membangun koneksi dengan MS Access.
Sebelum memulai coding, tambahkan dulu referensi ADODB dengan cara,
Klik Menu Project - Refference, mucul sebuah form dengan sederetan list, pilih saja
"Microsoft ActiveX Data Object 2.8", kemudian klik Apply atau OK.

Coding pada Class Module:
''Global Variabel'''
Dim Koneksi As New ADODB.Connection
Public RsUser As New ADODB.Recordset

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub BukaKoneksi(File As String)
Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0.Data Source = " & App.Path & " \" & File & "; Persist Security Info=False"
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Pulblic Sub TutupKoneksi()
If Koneksi.State Then Koneksi.Close
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub BukaRsUser()
RsUser.Open "Select * from Tabel_User", koneksi, AdOpenKeyset, AdLockOptimistic
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub TutupRsUser()
If RsUser.State Then RsUser.Close
End Sub

Tutup jendela coding, kemudia buka FrmLogin. Klik sebarang tempat pada FmrLogin, jangan mengenai kontrol (label, text dan command).

Dim Obj As New Class1 'Global Variabel

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Form_Load()
Obj.BukaKoneksi "Login.mdb"
Obj.BukaRsUser
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub CmdLogin_Click()
Dim Flag As Boolean

Dim i As Integer

Flag = False

Obj.RsUsername.MoveFirst
For i = 0 to Obj.RsUsername.RecordCount - 1
If Obj.RsUsername = TxtUsername And Obj.RsPassword = TxtPassword Then
Flag = True
End if
Next i

If TxtUsername = "" then
MsgBox "Isilah username", vbCritical, "Konfirmasi"
TxtUsername.Setfocus
Elseif TxtPassword = "" then
MsgBox "Isilah Password", vbCritical, "Konfirmasi"
TxtPassword.Setfocus
Elseif Flag = False Then
MsgBox "Terdapat kesalahan dalam mengisi username atau password", vbCritical, "Konfirmasi"
SendKeys "{home}+{end}"
TxtUsername.Setfocus
Else
Msgbox "Login berhasil", vbInformation, "Konfirmasi"
End If
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub CmdExit_Click()
Obj.TutupRsUser
Obj.TutupKoneksi
End
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Penjelasan
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Koneksi As New ADODB.Connection
Public RsUser As New ADODB.Recordset

Membuat dua buah variabel masing-masing bertipe private dan public. Varibel koneksi sebagai variabel untuk menampung koneksi dan RsUser untuk menampung data yang diambil dari Tabel_User.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Sub BukaKoneksi(File As String)
Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0.Data Source = " & App.Path & " \" & File & "; Persist Security Info=False"
End Sub

Sebuah fungsi untuk membuka koneksi ke Ms Access dengan provider Microsoft Jet 4.0, dengan nama file disimpan dalam variabel File yang bertipe data String

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Pulblic Sub TutupKoneksi()
If Koneksi.State Then Koneksi.Close
End Sub

Sebuah fungsi untuk menutup koneksi terhadap database (Ms Access)

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub BukaRsUser()
RsUser.Open "Select * from Tabel_User", koneksi, AdOpenKeyset, AdLockOptimistic
End Sub

Fungsi untuk membuka Tabel_User. "Select * from Tabel_User maksudnya adalah mengambil semua kolom pada Tabel_User (Username, Password).
AdOpenKeySet memungkinkan data berpindah dari data yang satu ke data yang lain,
AdLockOptimistic artinya memungkin mengubah data pada saat database sedang dibuka.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub TutupRsUser()
If RsUser.State Then RsUser.Close
End Sub

Fungsi untuk menutup Tabel_User

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dim Obj As New Class1

Obj adalah sebuah variabel global dari FrmLogin, merupakan Object dari Class1 yang digunakan untuk memanggil Public Property serta Method dari Class1 (Konsep OOP).
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub Form_Load()
Obj.BukaKoneksi "Login.mdb"
Obj.BukaRsUser
End Sub

Membuka koneksi terhadap Ms Access (Login.mdb) serta membuka Tabel_User.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub CmdLogin_Click()
Dim Flag As Boolean 'variabel bertipe boolean, True atau False

Dim i As Integer

Flag = False 'set Flag menjadi False (nilai default).

'''' Method untuk mencari tiap data pada Tabel_User ''''
Obj.RsUsername.MoveFirst 'Melakukan pencarian dari data pertama
For i = 0 to Obj.RsUsername.RecordCount - 1
If Obj.RsUsername = TxtUsername And Obj.RsPassword = TxtPassword Then
Flag = True 'Jika data sesuai kriteria maka Flag akan di set menjadi True
End if
Obj.RsUsername.MoveNext 'Jika tidak memenuhi kriteria maka pindah ke data berikutnya.
Next i

'''Validasi Login'''
If TxtUsername = "" then
MsgBox "Isilah username", vbCritical, "Konfirmasi"
TxtUsername.Setfocus
Elseif TxtPassword = "" then
MsgBox "Isilah Password", vbCritical, "Konfirmasi"
TxtPassword.Setfocus
Elseif Flag = False Then
MsgBox "Terdapat kesalahan dalam mengisi username atau password", vbCritical, "Konfirmasi"
SendKeys "{home}+{end}"
TxtUsername.Setfocus
Else
Msgbox "Login berhasil", vbInformation, "Konfirmasi"
End If
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub CmdExit_Click()
Obj.TutupRsUser
Obj.TutupKoneksi
End
End Sub

Menutup Tabel_User serta Koneksi, dan mengtikan program.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Jalankan program (tekan F5) makan Form Login sudah dapat dijalankan. Bisa pula tambahkan satu buah form lagi agar setelah berhasil login, maka program akan otomatis membuka form selanjutnya setelah form login.
(Caranya, Form2.Show setelah MsgBox Login berhasil)

Animasi Form VB

Animasi Visual Basic

Sub AnimateForm(frm As Form)
GotoVal = frm.Height / 2
For Gointo = 1 To GotoVal
DoEvents
frm.Height = frm.Height - 100
frm.Top = (Screen.Height - frm.Height) \ 2
If frm.Height <= 500 Then Exit For Next Gointo horiz: frm.Height = 30 GotoVal = frm.Width / 2 For Gointo = 1 To GotoVal DoEvents frm.Width = frm.Width - 100 frm.Left = (Screen.Width - frm.Width) \ 2 If frm.Width <= 2000 Then Exit For Next Gointo Unload Me End Sub Copyright by x-vb@jhie
'http://www.vbbego.cjb.net
'Penulis: x-vb@jhie - 7/19/2004

Tulisan Blink2


Code:

Private Sub Timer1_Timer()
Dim Tm As Double
Dim strText As String
Dim Ctr As Integer

With Form1
.BackColor = RGB(0, 255, 0)
.FontName = "Arial Black"
.FontSize = 24
.FontBold = True
'.FontItalic = True
.FontUnderline = True
End With

strText = "YaDoY666 WuZ HeRe...!!!"
x = CurrentX
y = CurrentY
x = 100 'Set the position of the_
y = 100 'text here x = ? ,y = ?
For Ctr = 0 To 255
ForeColor = RGB(0, 0, Ctr)
x = x + 1
y = y + 1
CurrentX = x
CurrentY = y
Print strText
Next Ctr
ForeColor = RGB(0, 0, 0)
CurrentX = x: CurrentY = y
Print strText
For Tm = 1 To 300000

DoEvents
Next Tm

Form1.Cls
End Sub

'Animasi Close Form
'Cuma Butuh 1 Form,1Command Button n 3 Timer


Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
Form1.Height = 0
Form1.Caption = "APLIKASI AKAN DITUTUP );"
End Sub

Private Sub Form_Load()
Timer1.Interval = 1
Timer2.Interval = 1
Timer3.Interval = 2000
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Form1.Left = 6000
Form1.Top = 5000
Form1.Width = 4000
Form1.Height = 2000
Command1.Left = 1000
Command1.Top = 700
Command1.Width = 2000
Command1.Height = 700
Command1.Caption = "KLIK OK );"
End Sub

Private Sub Timer1_Timer()
If Form1.Left <> Not 0 Then
Form1.Left = Form1.Left - 1
If Form1.Left = 5900 Then
Form1.Left = 6000
Else
End If
End If
End Sub

Private Sub Timer2_Timer()
If Form1.Left <> Not 0 Then
Form1.Left = Form1.Left + 1
If Form1.Left = 6000 Then
Form1.Left = 5900
End If
End If
End Sub

Private Sub Timer3_Timer()
Unload Me
End Sub

Memperepat Pencarian File

Private Declare Function SearchTreeForFile Lib "imagehlp" _
(ByVal RootPath As String, ByVal InputPathName As String, _
ByVal OutputPathBuffer As String) As Long
Private Const MAX_PATH = 260
Private Sub Form_Load()

Dim tempStr As String, Ret As Long
tempStr = String(MAX_PATH, 0)
Ret = SearchTreeForFile("c:", "calc.exe", tempStr)
If Ret <> 0 Then
MsgBox "Lokasi file di " + Left$(tempStr, _
InStr(1, tempStr, Chr$(0)) - 1)
Else
MsgBox "File tidak ditemukan!"
End If
End Sub

Download ActiveX

WordXChange.ocx

Toolbar2.ocx

cPopMenu.ocx

gdone10.ocx

gdoneo10.ocx

DXAnimatedGIF.ocx

axGrid.ocx

LDMinMax6.ocx

Line3D.ocx
ARFlatBttn.ocx
bls3DPanelX.ocx
ActiveGUI.ocx

DSAniSet.ocx

newex.ocx

FldrView.ocx

TriSpace.ocx

clrcombo.ocx

RButton.ocx

AMCLabel.ocx

XTools.ocx

ZTray.ocx

BS.OCX

CHKLIST.OCX

SWBGradient.ocx

SWBTopForm.ocx

HotKeyControl.ocx

xfxFormShaper.ocx

PROGBAR.ocx

cHotKey.ocx

TDBGS32.OCX

VFmp3player.ocx

CdBase.ocx

Kupex-WinPower.ocx

XRTGraph.ocx

UserInfo32.ocx

as97Popup.ocx

SCGrid.ocx

AutoResizeControl.ocx

Subclass.ocx

VertMenu.ocx

sstabs2.ocx

sstbars2.ocx

Adtextbox.ocx

Jam Digital dan Analog Dengan Visual Basic

1). Membuat Jam Digital Dengan Visual Basic

Buat 1 buah label dan timer
dan ketik source code dibawah ini

Private sub form_load()
me.label1.fontbold=true
me.label1.fontsize=24

me.timer1.interval=1000
end sub

private sub timer_timer()
me.label1.caption=format(now,"hh:mm:ss")
end sub

2). Membuat Jam Analog Dengan Visual Basic

Option Explicit
Dim xgen, ygen, xmin, ymin, xsec, ysec, xhor, yhor As Double
Dim h, m, s As Date
'control the minute '
Function mint()

If s >= 0 And s < 12 Then
Call findminangle(CDbl(m))
ElseIf s >= 12 And s < 24 Then
Call findminangle(CDbl(m) + 0.2)
ElseIf s >= 24 And s < 36 Then
Call findminangle(CDbl(m) + 0.4)
ElseIf s >= 36 And s <= 48 Then
Call findminangle(CDbl(m) + 0.6)
ElseIf s >= 48 And s <= 59 Then
Call findminangle(CDbl(m) + 0.8)
End If
xmin = xgen
ymin = ygen

Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xmin, ymin), RGB(255, 24, 32)
End Function
'control the second
Function secnd()
Call findminangle(CDbl(s))
xsec = xgen
ysec = ygen
Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xsec, ysec), RGB(100, 100, 100)

End Function
'control the hour
Function hr()

If m >= 0 And m < 12 Then
Call findminangle(CDbl(h) * 5)
ElseIf m >= 12 And m < 24 Then
Call findminangle(5 * (CDbl(h) + 0.2))
ElseIf m >= 24 And m < 36 Then
Call findminangle(5 * (CDbl(h) + 0.4))
ElseIf m >= 36 And m < 48 Then
Call findminangle(5 * (CDbl(h) + 0.6))
ElseIf m >= 48 And m <= 59 Then
Call findminangle(5 * (CDbl(h) + 0.8))
End If
xhor = xgen
yhor = ygen
If xhor >= Form1.ScaleWidth / 2 And yhor >= Form1.ScaleHeight / 2 Then

Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xhor - 200, yhor - 200), RGB(0, 0, 255)
ElseIf xhor <= Form1.ScaleWidth / 2 And yhor >= Form1.ScaleHeight / 2 Then
Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xhor + 200, yhor - 200), RGB(0, 0, 255)
ElseIf xhor <= Form1.ScaleWidth / 2 And yhor <= Form1.ScaleHeight / 2 Then
Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xhor + 200, yhor + 200), RGB(0, 0, 255)
ElseIf xhor >= Form1.ScaleWidth / 2 And yhor <= Form1.ScaleHeight / 2 Then
Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xhor - 200, yhor + 200), RGB(0, 0, 255)
End If

End Function
'draw the clock
Function drawdig()
Dim i As Integer
Circle (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2), 1411, RGB(255, 34, 34)
For i = 5 To 60
Call findminangle(CDbl(i))
Form1.CurrentX = xgen - TextWidth(i / 5) / 2
Form1.CurrentY = ygen - TextWidth(i / 5) / 2
Form1.Print i / 5
i = i + 4
Next
End Function
'find the co-ordinate
Function findminangle(p As Double)
Dim temp As Double

temp = 60 - (p - 15)
temp = temp * 60 * 0.1
temp = (22 * temp) / (7 * 180)

xgen = (Form1.ScaleWidth / 2) + (1000 * Cos(temp))
ygen = (Form1.ScaleHeight / 2) - (1000 * Sin(temp))

End Function

Private Sub Timer1_Timer()

Form1.Cls

Call drawdig
Form1.Caption = Time()
h = Hour(Time())
m = Minute(Time())
s = Second(Time())

Call mint
Call secnd
Call hr
End Sub

Tutorial Adobe Photoshop CS

Berikut ini terdapat beberapa file yang dapat didownload:

1. Pengantar (pengantar.pdf 47 KB)
2. What is Photoshop? (what is photoshop.pdf 33 KB)
3. Menggunakan Tool (menggunakan tool 1.500 KB)
4. Bekerja dengan Warna (bekerja dengan warna 99 KB)
5. Mengatur Warna dan Tonal (mengatur warna dan tonal 1.104 KB)
6. Teknik Seleksi (teknik seleksi 351 KB)
7. Transforming and Retouching (transforming and retouching 1.666 KB)
8. Layers (layers 316 KB)
9. Filter (filter 2.000 KB)
10. Format File (format file 50 KB)

Buku tersebut telah diterbitkan oleh Penerbit Datakom Lintas Buana.

Sumber dari : http://slametriyanto.net/

Membuat Aplikasi Sederhana

Membuat Aplikasi Sederhana dengan Microsoft Access

Microsoft Access adalah suatu aplikasi yang dapat membantu kita membuat sebuah aplikasi database dalam waktu yang relatif singkat. Biasanya digunakan untuk pembuatan aplikasi-aplikasi yang kecil. Misalnya Program untuk Kasir di koperasi, penjualan untuk toko.

- Penulis : Agus Haryanto
- Bahasa: Indonesia
- Jumlah Halaman: 26
- Format file: PDF
- Publisher: IlmuKomputer.Com
- Tahun terbit: Desember 2003
- Download makalah lengkap: agus-access.zip

Proteksi CD

Memproteksi CD Agar Tidak Bisa Dicopy
Ni tutorial untuk melindungi CD biar ga bisa dicopy. sehingga apabila kit amempunyai cd yang bagus n ada temen yang mau minjem ga bsa dicopy... he he pelit juga ya.....
baiklah ikuti tutoral berikut:
Donlot tool yang dibutuhkan.
1. WTM CD Protect klik disini
2. Goldenhawk CDRWIN klik disini
3. Ultra ISO klik disini

Setelah donlot semua tool silahkan anda lanjutkan bacanya

Langkah2 nya :
1. Buka WTM CD Protect -> add error
2. Pilih file image error nya
3. Image error akan bereksistensi *.cry
4. Set Option, pilih error setup sesuai keinginan, semakin besar semakin bagus tapi membutuhkan proses yang cukup lama!
5. Rename image error menjadi file yang "terlihat biasa" dimata telanjang, contoh :
6. Buka UltraISO dan bikin kompilasi programnya, sebar file error nya ke dalam directory kompilasi, semakin banyak semakin baik, use your imagination!
7. Save image menjadi BIN/CUE
8. Kalo udah jadi, buka kembali WTM CD Protectnya dan buka images file yang baru dibuat tadi
9. Klik protect, biarkan proses proteksi bekerja
10. Burn images yang udah di protect dengan CDRWIN RAW mode
11. Hasilnya. jika di copy pake NERO sungguh sangat mengecewakan
12. Termasuk juga jika dicopy pake cloneCD/winimages dll
13. Juga bila dicopy via explorer, biar ditungguin seharian ga akan tercopy files nya

Belajar Visual Basic

Belajar Visual Basic

Untuk anda yang mau belajar visual basic dan ingin mempelajari pembuatan virus dan anti virus dengan visual basic anda bisa mendownload source code pada klik di sini

Tapi jangan di salah gunakan karena ini adalah untuk sebuah pembelajaran saja. semoga aja pemrograman dapat berkembang di Indonesia.

Belajar Visual Basic dengan Listbox

Belajar Visual basic dengan Listbox

Ini merupakan Visual basic dasar yang aku buatkan untuk Reza Prof anak jakarta yang selalu chat dengan aku dengan id rezaprof26. sebenarnya mudah yaitu hanya membutuhkan 1 form, 1 listbox dan 3 command button. kemudian anda bisa ketikan kode di bawah ini:

Private Sub cmdKeluar_Click()
End
End Sub

Private Sub cmdTampil_Click()
Dim i As Integer
lstNama.Clear 'ini untuk membersihkan lstnama
For i = 1 To 3
lstNama.AddItem txtInputNama.Text
Next i
End Sub

Private Sub cmdWarna_Click()
lstNama.ForeColor = vbRed
End Sub

Jika ingin mendownload filenya ada dapat klik disini

Diposting oleh Belajar Visual Basic Cah Rembang di 05:18

Pengenalan ID VB

A. PENGENALAN IDE

IDE ( Intergrated Development Engine) adalah Ruang Lingkup kerja dari Visual Basic, yang termasuk dari IDE adalah Proses dibawah ini :

1. Klik Tombol start
2. Klik Program - Microsoft Visual Basic 6.0 - Visual Basic 6.0

Sample dari Visual Basic :

1. Ramalan -> Download (disini)