. . : : | TeRRen.Jr | : : . .

nE bUat yaNg masih biNgung DAri aRti2 "32+1","64" daN Lain Sebgainya...ada tAbeLnya..tinggaL kaLian pahaMIn ajah...

The Buttons displayed in a message here

Button Layout	Value	Short Description
vbOKonly	0	Displays the OK button.
vbOKCancel	1	Displays the ok and cancel button.
vbAbortRetryIgnore	2	Displays the Abort , Retry , Ignore
vbYesNoCancel	3	Displays Yes , No and Cancel button
vbYesNo	4	Displays the Yes / No button
vbRetryCancel	5	Displays the retry and Cancel buttons.

The Icons dispayed in the message box are here

Icon on message	Value	Short Description
vbCritical	16	Displays critical message icon
vbQuestion	32	Displays question icon
vbExclamation	48	Displays exclamation icon
vbInformation	64	Displays information icon

The Default button displayed in a message form

Default Button	Value	Short Description
vbDefaultButton1	0	Button 1 is default
vbDefaultButton2	256	Button 2 is default
vbDefaultButton3	512	Button 3 is default

Msgbox Return Value

Return Value	Value	Short Description
vbOk	1	The User Clicked OK
vbCancel	2	The User Clicked Cancel
vbAbort	3	The User Clicked Abort
vbRetry	4	The User Clicked Retry
vbIgnore	5	The User Clicked Ignore
VbYes	6	The User Clicked Yes
VbNo	7	The User Clicked No

neH ada sourCe cOde aNti viRus Buatan seNdiri...tApi iNi bUkan bUatan saya..saya Lupa siaPa pemBuatnya..yaNg Jelas saya daPat refeRensi Source ini daRi www.cybervels.co.cc...


daRi pada saya baNyak bicaRa..neH ada cOntoh peMbuatan Anti Virus mengguNakan Visual Basic 6.0...

siLahkan cLiick disini aJah... yaH...

tuLung kasih cOmmenTar uNTuk poStingan yaNg ini..daN semUa posTingan yaNg ada..

seLamt meNcoba...

Buat teMan2 sekaLian yaNg membUtuhkaN aNimasi agaR tAmpiLan ProgRamnya meNarik..neH ada Lagi sOUrce code aNimasi daRi saya...siLahkan cOpy pAste aJah...

Dim x(100), y(100), z(100) As Integer
Dim tmpx(100), tmpy(100), tmpz(100) As Integer
Dim k As Integer
Dim zoom As Integer
Dim kecepatan As Integer

Private Sub Form_Activate()
kecepatan = -1
k = 2038
zoom = 256
Timer1.Interval = 100
For i = 0 To 100
x(i) = Int(Rnd * 1024) - 512
y(i) = Int(Rnd * 1024) - 512
z(i) = Int(Rnd * 512) - 256
Next i

End Sub

Private Sub Timer1_Timer()
For i = 0 To 100
Circle (tmpx(i), tmpy(i)), 5, BackColor
z(i) = z(i) + kecepatan
If z(i) > 255 Then z(i) = -255
If z(i) < -255 Then z(i) = 255
tmpz(i) = z(i) + zoom
tmpx(i) = (x(i) * k / tmpz(i)) + (Form1.Width / 2)
tmpy(i) = (y(i) * k / tmpz(i)) + (Form1.Height / 2)
radius = 1
warnabintang = 256 - z(i)
Circle (tmpx(i), tmpy(i)), 5, RGB(warnabintang, warnabintang, warnabintang)
Next i

End Sub

seLamat meNcoba kawaN..
kaLo tidak sUka..kasih cOmment yaH..

Nah..kaLo yaNg ini uNtuk memAinkan seBuah LAgi saaT Form kaLian di JaLankan..

caRanya..sePerti biasa..cOpy Paste aJa Coding di bawaH iNi di mOduLe :

Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

keMudian,di Form_Load tAro coDing iNi...

Dim tes As String
tes = sndPlaySound(App.Path + "\test.wav", (&H1 Or &H8))

ingAt...Lagunya hArus exteNsi *.wav yah...
kaLo contoh diaTas..nama Lagunya adaLah test.wav dan beRada di FoLder yaNg kiTa bUAt..

kaLo ga JaLAn,,kasih cOmmentar aJa di Shoutmix di saMping..
seLamat menCoba..

bUat kawaN2..kaLo ingin pRograMnya meNJadi Lebih uNik deNgan adanYa eFFect suaRa..neH,TeRRen.Jr ada sCriptnya...

PerTama..cOpy Paste Coding iNi di ModULe :

Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Public Sub Sound()
Dim i As Integer
For i = 700 To 1000 Step 100
Beep i, 40
Next i
End Sub

keMudian,kaLian tinggaL mengguNakanya di Form yaNg kaLian inginkaN...
cOntoh :

Private Sub CmdTambah_Click()
sound
end Sub

pAsti akaN mengeLuarkan seBuah eFFect Suara..
siLahkan MencoBA...

Neh..biasanya kaLian MeLihat Program2 yaNg ada akan sePerti Windows screen Saver..keTika komputer/Program tidak digunakan seLama 5 meNit,maka dia akAn meminta Password uNtuk mengakTifkan windows...Nah..ini ada sCript di VB 6...

Copy Paste Listing ini di Module :

'idle login
Private Declare Function BeginIdleDetection Lib "Msidle.dll" Alias "#3" (ByVal pfnCallback As Long, ByVal dwIdleMin As Long, ByVal dwReserved As Long) As Long

Private Declare Function EndIdleDetection Lib "Msidle.dll" Alias "#4" (ByVal dwReserved As Long) As Long

Private Const USER_IDLE As Long = 1

Public reason As Long

'Procedure idlenya
Public Sub IdleBeginDetection(Optional ByVal IdleMinutes As Long = 1)
BeginIdleDetection AddressOf IdleCallBack, IdleMinutes, 0&
End Sub

Private Sub IdleCallBack(ByVal dwState As Long)
Select Case dwState
Case USER_IDLE
If reason = 0 Then
MenuuTama.Hide
FrmLogin.Show
End If
End Select
End Sub

Public Sub IdleStopDetection()
EndIdleDetection 0&
End Sub


yaNg buat di Form_Loadnya :

Private Sub MDIForm_Load()
AdjTimeout 1
End Sub

Private Sub AdjTimeout(ByVal Value As Long)
Select Case Value
Case Is > 15
Value = 15
Case Is < 0
Value = 0
End Select
TimeOut = Value
IdleStopDetection
If TimeOut Then
IdleBeginDetection TimeOut
End If
End Sub

seLamat menCoba yaH..

yaNg maU sedikiT bereksPLorasi deNgan VB..ne aDa sedikiT iLmu daRi TeRRen.Jr..

dim teksasal as string

private sub Form_load()
teksasal = "Hai, nama saya TeRRen.Jr " 'ingat pake 3 spasi dibelakangnya
timer1.interval = 500
text1.text = teksasal
end sub

private sub timer1_timer()
text1.text = (right(text1.text, len(text1.text) - 1)) + (left(text1.text , 1))
end sub


siLahkan dicoBa saJa unTuk coding yaNg diaTas....

seLamat Mencoba..

nEh..kaLo yaNg bErtAnya2 TentAng "giMana seH caRanya Text biSa JaLan...???" iNi ada soLusi daN sedikiT penJeLasan...

Private Sub Timer1_Timer()

Label1.Left = Label1.Left - 10
If Label1.Left = (-7900) Then Label1.Left = 7900

End Sub

keTerangan :
- 10 adaLah aRah / kecePatan text TerseBut berJaLan
- 7900 dan 7900 adaLah uNtuk meneNtukan Lebar texT terSebut BerjAlaN..

-7900 dan 7900 bisa diseSuaikan deNgan keingiNan kaLian...sesuka hAtiLah pokoknya..

seLamat meNcoba..

CONTOH SEDERHANA UNTUK ANIMASI FORM [ FLASHING ]

Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

Private Sub Form_Load()
Timer1.Interval = 300
End Sub

Private Sub Timer1_Timer()
FlashWindow hwnd, 1
End Sub

Selamat Mencoba...

RESTART, LOG OFF DAN SHUTDOWN DARI PROGRAM KALIAN
1.LOG OFF

Private Sub cmdLog_Click()
Dim Log As String
Log = MsgBox("Anda ingin Log off ?", vbYesNo, "Nanya Nech...!!!")
If Log = vbYes Then
'LOGOFF:
Shell "shutdown -l -f -t 0"
Else
MsgBox "Ngak Jadi Log Off...!!!", vbInformation, "Informasi"
End If
End Sub

2.RESTART

Private Sub cmdRestart_Click()
Dim Aku As String
Aku = MsgBox("Anda ingin Restart ?", vbYesNo, "Nanya Nech...!!!")
If Aku = vbYes Then
'RESTART
Shell "shutdown -r -f -t 0"
Else
MsgBox "Ngak Jadi Restart...!!!", vbInformation, "Informasi"
End If
End Sub

3.SHUTDOWN

Private Sub cmdShutdown_Click()
Dim Cinta As String
Cinta = MsgBox("Anda ingin Shutdown ?", vbYesNo, "Nanya Nech...!!!")
If Cinta = vbYes Then
'SHUTDOWN
Shell "shutdown -s -f -t 0"
Else
MsgBox "Ngak Jadi Shutdown...!!!", vbInformation, "Informasi"
End If
End Sub


Selamat Mencoba...

MENGHILANGKAN FUNGSI ICON "X" DI FORM KALIAN

tinggaL kOpas aJa di Form...

Private Declare Function _
GetSystemMenu Lib "user32" ( _
ByVal hwnd As Long, _
ByVal bRevert As Boolean) As Long

Private Declare Function _
GetMenuItemCount Lib "user32" ( _
ByVal hMenu As Long) As Long

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

Private Declare Function _
DrawMenuBar Lib "user32" ( _
ByVal hwnd As Long) As Long

Private Const MF_BYPOSITION = &H400&
Private Const MF_REMOVE = &H1000&


Public Sub NonAktifClose(frm As Form, _
Optional Disable As Boolean = True)
Dim hMenu As Long
Dim nCount As Long

If Disable Then
hMenu = GetSystemMenu(frm.hwnd, False)
nCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or _
MF_BYPOSITION)
Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or _
MF_BYPOSITION)
DrawMenuBar frm.hwnd
Else
GetSystemMenu frm.hwnd, True
DrawMenuBar frm.hwnd
End If
End Sub

Private Sub MDIForm_Load()
NonAktifClose Me, True
End Sub

Selamat Mencoba kawan...

ANIMASI FORM WITH VISUAL BASIC 6.0

neH..tinggaL koPas aJa cOding yaNg ada disiNi..

Contoh 1:
Private Sub Form_Unload(Cancel As Integer)
Me.BackColor = vbWhite ' warna belakang putih
WindowState = 2 ' maximized-kan
DrawWidth = 4 '/ ketebalan
For i = 1 To 16000
Bawah = Bawah + 1
Kanan = Kanan + 1
PSet (Rnd * Kanan, Rnd * Bawah), QBColor(Rnd * 15)
Next i
End Sub


Contoh 2:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
cepat = 150
While Left + Width < left =" Left" top =" Top" style="color: rgb(255, 0, 0);">

Contoh 3:
Private Sub Timer1_Timer()
Dim LingkaranX, LingkaranY, Radius
ScaleMode = 3
LingkaranX = ScaleWidth / 2
LingkaranY = ScaleHeight / 2
For Radius = 0 To 100
Circle (LingkaranX + Radius / 2, LingkaranY), Radius, RGB(Rnd * 215, Rnd * 55, Rnd * 15)
Next Radius
End Sub


Contoh 4:
Private Sub Form_Load()
Me.AutoRedraw = True
BackColor = 0
For i = 1 To 500
CurrentX = i * 100
CurrentY = i * 100
h = h & i
ForeColor = i * 10000
Print h
Next i
End Sub

Contoh 5:
Private Sub Form_Load()
Me.AutoRedraw = True
Me.DrawWidth = 10
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form_MouseMove 1, 0, X, Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Caption = "PosisiX=" & X & " - " & "PosisiY=" & Y
If Button = 1 Then
PSet (X, Y), vbBlue
End If
End Sub

Contoh 6:
Private Sub Tutup(FrmObj As Form)
Dim Wid As Long, Heg As Long
With FrmObj
Wid = .Width
Heg = .Height
While Not .Width <> Screen.Height Or .Left > Screen.Width Then
End
End If
Wend
End With
End Sub

Private Sub Form_Click()
Tutup Me
End Sub


siLahkan di cOba aJa yAh...