Ebook Pemakaian Data Report pada VB

Download

Ebook Pemanfaatan SQL Server Dengan VB6

Download

Ebook Pemanfaatan ASP Untuk Web Programming

Download

Ebook Pemograman Berorientasi Objek Pada VB.NET

Download

Ebook Pemanfaatan Data Grid Dan TrueDBGrid Pada VB

Download

Ebook Pemanfaatan Database Server Open Source

Download

Ebook Mengenal SQL

Download

Ebook Understanding IP Addresses

Download

Ebook Hackers Secrets

Download

Ebook Biggest World Secrets

Download

Ebook Bahasa Pemograman VB.NET

Download

Ebook Belajar Dasar Pemograman

Download

Ebook Dasar Pemograman Visual Basic

Download

Ebook Analisa dan pengolahan data dengan excel

Download

Ebook Albert Einstein - The World As I See it

Download

[VB] MessageBeep

Deklarasi
1 Form

Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long
Private Sub Form_Load()
Dim Cnt As Byte
'Beep 50 times
For Cnt = 1 To 50
  MessageBeep 0
Next Cnt
End Sub

[VB] InternetCombineUrl - WinInet

Deklarasi:
1 Form

'Code by Richard LOUAPRE (richard.louapre@docflow.it)
Private Declare Sub InternetCombineUrl Lib "wininet.dll" Alias "InternetCombineUrlA" (ByVal lpszBaseUrl As String, ByVal lpszRelativeUrl As String, ByVal lpszBuffer As String, ByRef lpdwBufferLength As Long, ByVal dwFlags As Long)
Private Const ICU_BROWSER_MODE = &H2000000
Private Const ICU_DECODE = &H10000000
Private Const ICU_ENCODE_PERCENT = &H1000
Private Const ICU_ENCODE_SPACES_ONLY = &H4000000
Private Const ICU_ESCAPE = &H80000000
Private Const ICU_NO_ENCODE = &H20000000
Private Const ICU_NO_META = &H8000000
Private Const ICU_USERNAME = &H40000000
Private Sub Form_Load()
    Dim strBuffer As String
    strBuffer = String(255, 0)
    InternetCombineUrl "http://skipper", "/cyberdocs/pippo pippo.asp", strBuffer, 255, ICU_ENCODE_PERCENT
    strBuffer = Left(strBuffer, InStr(strBuffer, Chr(0)) - 1)
    Debug.Print strBuffer
End Sub

[VB] Track Mouse Event Dengan Fungsi APi

Deklarasi:
1 Form
1 Module

'In a form (Form1)
Private Sub Form_Click()
   Dim ET As TRACKMOUSEEVENTTYPE
   'initialize structure
   ET.cbSize = Len(ET)
   ET.hwndTrack = Me.hWnd
   ET.dwFlags = TME_LEAVE
   'start the tracking
   TrackMouseEvent ET
   'show a message to the user
   Me.Print "Move the mouse cursor outside the form" + vbCrLf + "to generate a WM_MOUSELEAVE event"
End Sub
Private Sub Form_Load()
   'show a warning message
   MsgBox "WARNING: This sample uses subclassing." + vbCrLf + "To end this program, always use the X button of the form." + vbCrLf + "Do not use VB's Stop button and do not use the 'End' keyword in your VB code." + vbCrLf + vbCrLf + "For more information about subclassing, check out" + vbCrLf + "our subclassing tutorial at http://www.allapi.net/", vbExclamation
   'set the graphics mode to persistent
   Me.AutoRedraw = True
   Me.Print "Click the form to begin"
   'start subclassing this form
   HookForm Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
   'stop subclassing this form
   UnHookForm Me
End Sub

'In a module
Public Const TME_CANCEL = &H80000000
Public Const TME_HOVER = &H1&
Public Const TME_LEAVE = &H2&
Public Const TME_NONCLIENT = &H10&
Public Const TME_QUERY = &H40000000
Public Const WM_MOUSELEAVE = &H2A3&
Public Type TRACKMOUSEEVENTTYPE
   cbSize As Long
   dwFlags As Long
   hwndTrack As Long
   dwHoverTime As Long
End Type

Public Declare Function TrackMouseEvent Lib "user32" (lpEventTrack As TRACKMOUSEEVENTTYPE) As Long
Public Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long
'Subclassing is explained in our subclassing tutorial at http://www.allapi.net/
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const GWL_WNDPROC = (-4)
Public PrevProc As Long
Public Sub HookForm(F As Form)
   PrevProc = SetWindowLong(F.hWnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub
Public Sub UnHookForm(F As Form)
   SetWindowLong F.hWnd, GWL_WNDPROC, PrevProc
End Sub
Public Function WindowProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   If uMsg = WM_MOUSELEAVE Then
       'if we receive a WM_MOUSELEAVE message, show it
       Form1.Print "The mouse left the form!"
   End If
   WindowProc = CallWindowProc(PrevProc, hWnd, uMsg, wParam, lParam)
End Function

Windows Movie Maker

Editor :	Microsoft.com
eleaRse :	2.6 (latest version)
Language :	English
System :	Win 95, Win 98, Millenium, Windows 2000, XP, Windows Vista
License :	Freeware

DOWNLOAD

[VBS] Casade Semua Window

Dim shellApp, objApp
Set ShellApp = CreateObject("Shell.Application")
shellApp.CascadeWindows

[VBS] Mengaktifkan Dan Mematikan Firewall

Dim objFirewall, objPolicy
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy=objFirewall.LocalPolicy.CurrentProfile
If MsgBox("Press Yes to Enable Firewall, Or Press No to Disable It",vbYesNo, _
 "Firewall")= vbyes Then objPolicy.FirewallEnabled=True Else _
 objPolicy.FirewallEnabled=False
'(c) 2010 Crowja

[VBS] Terminate Proses Menggunakan WMI Class

Dim WMIServices, objProcessList, objProcess
Set WMIServices = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objProcessList = WMIServices.ExecQuery _
    ("Select * from Win32_Process Where Name = '" & _
    InputBox("Enter process name" & vbCrLf & "Ex: Notepad.exe", _
    "Process Killer") & "'")
For Each objProcess in objProcessList
    objProcess.Terminate()
Next

[VBS] Shutdown PC

Dim shellApp, objApp
Set ShellApp = CreateObject("Shell.Application")
shellApp.ShutdownWindows

[VBS] Shutdown PC Dengan WMI Class

' ShutDown PC with WMI Class
Dim WMIServices, OSes, objOS
Set WMIServices = GetObject_
    ("winmgmts:{impersonationLevel=impersonate,(Shutdown)}\\.\root\cimv2")
Set OSes = WMIServices.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objOS in OSes
    objOS.Win32Shutdown(1)
Next

[VBS] Menyimpan Table Database Ke Dalam Text File

On Error Resume Next
Dim ADO, onjRecordSet, objField
Dim strTable,fso, objText, strTxtPath
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set ADO = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const ForAppending = 8

' Open DataBase with ConnectionString
ADO.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=F:\Program Files\Microsoft Visual Studio\"& _
"VB98\BIBLIO.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
 
  objRecordset.CursorLocation = 0
  'Load all Record in Titles Table
  objRecordset.Open "SELECT * FROM Titles ORDER BY Title" , ADO, _
      adOpenStatic, adLockOptimistic
      MsgBox "Press OK and Please Wait"
      With WScript
       strTxtPath=Left(.ScriptFullName,Len(.ScriptFullName)- _
       Len(.ScriptName)) & "TextDB.txt"
      End with
      fso.CreateTextFile strTxtPath,true
      Set objText=fso.OpenTextFile(strTxtPath,ForAppending)
       Do Until objrecordset.EOF
        strTable=Empty
        For Each objField In objRecordset.Fields
          strTable=strTable & objField.Name & ": " & objfield.Value & vbCrLf
        Next
        strTable=strTable & "--------------------------" & vbCrLf
        objText.WriteLine strTable
        objrecordset.MoveNext
       Loop
     objText.Close   ' Close Text I/O
  objRecordset.Close  ' Close Record
ADO.Close               ' Close DataBase
MsgBox "Saved as " & strTxtPath
'(c) 2010 Crowja

[VBS] Minimize Semua Window

Dim shellApp, objApp
Set ShellApp = CreateObject("Shell.Application")
shellApp.MinimizeAll

[VBS] Database - Membuat Database JET / Ms.Access Baru

Dim objADO
Set objADO = CreateObject("ADOX.Catalog")
objADO.Create "Provider = Microsoft.Jet.OLEDB.4.0; " & _
 "Data Source = F:\New_DataBase.mdb"
'(c) 2010 Crowja

[VBS] Memunculkan Daftar Semua Port Terbuka Di Firewall

Dim iobjFWall, objPolicy, objPort, colPorts, strPorts
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
Set colPorts = objPolicy.GloballyOpenPorts
For Each objPort in colPorts
strPorts=strPorts & "Port name: " & objPort.Name & vbcrlf
strPorts=strPorts & "Port number: " & objPort.Port & vbcrlf
strPorts=strPorts & "Port IP version: " & objPort.IPVersion & vbcrlf
strPorts=strPorts & "Port protocol: " & objPort.Protocol & vbcrlf
strPorts=strPorts & "Port scope: " & objPort.Scope & vbcrlf
strPorts=strPorts & "Port remote addresses: " & objPort.RemoteAddresses & vbcrlf
strPorts=strPorts & "Port enabled: " & objPort.Enabled & vbcrlf
strPorts=strPorts & "Port built-in: " & objPort.Builtin & vbcrlf
Next
MsgBox strPorts

[VBS] Daftar Class Dinamis Dan Abstrak Dalam WMI

' Daftar Semua Class WMI Abstract Dan Dinamis
Dim strNameDynamic,strNameAbstract,objWMIService,colClasses,objClass
Set objWMIService=GetObject("winmgmts:{impersonationLevel=" & _
  "impersonate}!\\.\root\cimv2")
Set colClasses = objWMIService.SubclassesOf()
MsgBox "Press OK And Please Wait"
For Each objClass in colClasses
    For Each objClassQualifier In objClass.Qualifiers_
        If LCase(objClassQualifier.Name) = "dynamic" Then
            strNameDynamic = strNameDynamic & objClass.Path_.Class & ": " & _
            objClassQualifier.Name & "=" & _
            objClassQualifier.Value & vbcrlf
        ElseIf LCase(objClassQualifier.Name) = "abstract" Then
            strNameAbstract=strNameAbstract & objClass.Path_.Class & ": " & _
            objClassQualifier.Name & "=" & _
            objClassQualifier.Value & vbCrLf
        End If
    Next
Next
MsgBox strNameDynamic,,"Dynamic WMI Classes"
MsgBox strNameAbstract,,"Abstract WMI Classes"

[VBS] Daftar Semua Drive Beserta Type nya

Dim FSO, objDrive, strDrives
Set FSO = CreateObject("Scripting.Filesystemobject")
For Each objDrive In FSO.Drives
 strDrives=strDrives & objDrive.DriveLetter & ":  " & _
  GetDriveType( objDrive.DriveType) & vbCrLf 
Next
MsgBox strDrives,vbInformation,"Drives"
 
Function GetDriveType(ByVal intDriveType)
 Select Case intDriveType
  Case 1: GetDriveType="Removable"
  Case 2:GetDriveType="Fixed Drive"
  Case 3:GetDriveType="Remote Drive"
  Case 4:GetDriveType="CD Rom"
  Case 5:GetDriveType="Ram Disk"
  Case Else:GetDriveType="Unknown"
 End select
End Function

'(c) 2010 Crowja

>

[VBS] Explore Directory Dengan WinExplorer

Dim shellApp, objApp
Set ShellApp = CreateObject("Shell.Application")
shellApp.Explore "C:\"

[VBS] Delete Semua File Dalam Folder

Dim fso, objFile
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
For Each objFile In fso.GetFolder("X:\").Files
 objFile.Delete True
next

[VBS] Database - Membuat Tabel Baru JET Database

Dim objADO
Set objADO = CreateObject("ADODB.Connection")
objADO.Open "Provider= Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source=f:\Phone.mdb"
        
  objADO.Execute "CREATE TABLE TemanKu(" & _
     "Nama TEXT(20) ," & _
     "Alamat TEXT(20) ," & _
     "Telephone TEXT(15))" 
objADO.Close

'(c) 2010 Crowja

[VBS] Membuat Port Baru Dalam Firewall

Dim objFirewall,objPolicy, objNewPort, globPorts
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
Set objNewPort = CreateObject("HNetCfg.FwOpenPort")
With objNewPort
 .Name = "HTTP"
 .Port = 80
 .Enabled = True
End With
Set globPorts = objPolicy.GloballyOpenPorts
globPorts.Add(objNewPort)
'(c) 2010 Crowja

[VBS] Membuat Common Dialog Open

Dim objCommDialog,bolCommResult,FSO,Wshell
Set objCommDialog=CreateObject("Useraccounts.Commondialog")
Set FSO = CreateObject("Scripting.Filesystemobject")
Set Wshell=CreateObject("Wscript.Shell")
With objCommDialog
 .Filter="BMP Picture Format|*.bmp|All Files|*.*|"
 .Flags=1
 .InitialDir=FSO.GetParentFolderName(WScript.ScriptFullName)
 bolCommResult=objCommDialog.ShowOpen
 If bolCommResult Then Wshell.Run .FileName,0,true
End With
'(c) 2010 Crowja

[VBS] Membuat Common Dialog Save

Dim objCommDialog, FSO, bolSaveResult, objTextFile
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objCommDialog = CreateObject("SAFRCFileDlg.FileSave")
With objCommDialog
 .FileName="Catatanku.txt"
 .FileType="Text Document"
 bolSaveResult=.OpenFileSaveDlg
 If bolSaveResult Then
  Set objTextFile=FSO.CreateTextFile( .FileName)
  objTextFile.Write "Crowja-Coderz"
  objTextFile.Close
 End If
End With
'(c) 2010 Crowja

[VBS] Tile Horisontal Semua Window

Dim shellApp, objApp
Set ShellApp = CreateObject("Shell.Application")
shellApp.TileHorizontally

[VBS] Database - Menambah Record Dalam Table

Dim objADO,objRecordSet
Set objADO = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
Const adOpenStatic = 3
Const adLockOptimistic = 3

' Create Connection String
objADO.Open "Provider = Microsoft.Jet.OLEDB.4.0; " & _
"Data Source = f:\Phone.mdb" 

' Open All Record in TemanKu Table With SQL Statement
 objRecordSet.Open "SELECT * FROM TemanKu ORDER By Nama" , _
 objADO, adOpenStatic, adLockOptimistic
  objRecordSet.AddNew
  objRecordSet("Nama") = "Crowja-Coderz"
  objRecordSet("Alamat") = "jlMataram No84 Kroya"
  objRecordSet("Telephone") = "6285291175712"
  ' Update Record
  objRecordSet.Update
 
 objRecordSet.Close
objADO.Close
'(c) 2010 Crowja

[VB] Mengskala Object Dengan Metode Scale

Ada kalanya kita harus menghitung lebarnya dan tingginya suatu obyek untuk
keperluan programming seperti form, label, picturebox dll. Cara klasiknya adalah :

Object.ScaleWidth  :  Untuk mendapatkan lebar skala form
Object.ScaleHeight  :  Untuk mendapatkan tinggi skala form

Nilai kembalian dari property tersebut biasanya amat besar, bisa ratusan bahkan ribuan, tergantung besar
kecilnya obyek dan karena masih dalam satuan piksel.
Tetapi untuk mempermudahnya, VB memperbolehkan kita untuk mengskala lebar dan tinggi suatu object sesuai kemauan kita.
Layaknya atlas atau peta yang mempunyai skala, contoh 1:1000 artinya 1 cm dalam peta mewakili
1000 cm. Dalam VB untuk mengskalanya cukup mudah:

Scale (X1,Y1)-(X2,Y2)

Artinya nilai minimal untuk ScaleWidth adalah X1, nilai minimal untuk ScaleHeight
adalah Y1, nilai maksimal ScaleWidth adalah X2, nilai maksimal ScaleHeight adalah Y2

Untuk memperjelasnya, buatlah sebuah form, isikan source code dibawah ini:

Private Sub Form_Load()
Me.Scale (0, 0)-(10, 10)   'Mengskala lebar dan tinggi Form
For x = 0 To 10
   Line -(x, 10)      'Membuat garis horisontal
   Me.CurrentX = IIf(x + 1 > 10, 0, x + 1)
   Me.CurrentY = 0
Next x
For y = 0 To 10
  Line -(10, y)       'membuat garis vertikal
  Me.CurrentX = 0
  Me.CurrentY = IIf(y + 1 > 10, 0, y + 1)
Next y
End Sub

jalankan, apa yang anda lihat?



Form anda sekarang seperti peta yang mempunyai skala sendiri, lihat ada berapa kotakkah
pada horisontal dan vertikal?, ya benar 10! karena kita telah mengset skala form tersebut
yaitu Minimal 0 dan maksimal 10 pada horisontal dan vertikal. Bermainlah sejenak dengan memperbesar
ukuran form dan menjalankannya kembali. Sekarang kotak-kotak tersebut
menjadi lebih besar, tetapi ada berapa kotak pada horisontal dan vertikal?, ya benar tetap
ada 10, karena VB sudah mengskalanya sesuai keinginan anda.

[VB] Membuat Form MS.Office 2007

Download Source Code

[VB] Membuat Form Gila

Daripada bengong ngeliatin ikan lele berenang di belakang rumah, mending coding didepan PC saya walaupun
cuma berpentium 3, RAM nya cuma 128 MB, Hardisk 40 GB boleh meminjam, mouse nya sudah isolasian, dan monitornya berbunyi
saya tetap hepi coding didepannya, karena dia adalah sudah menjadi temanku sehari-hari. Hehehe, malah curhat.

Idenya adalah membuat Form yang geraknya tidak terkendali, cukup simple sih. Saya yakin semua programmer VB juga bisa membuatnya.

Deklarasi:
1 Form
1 COmmandButton
1 Timer

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
Me.Move Int(Me.Left * Rnd + 3000), Int(Me.Top * Rnd) + 2000
Me.SetFocus
End Sub

ya udah, Gila dan simple kan! EOF

Keanehan Microsoft WIndows

Aneh bagaimana?, sebenarnya keanehan ini sudah lama terkuak. Coba ikuti instruksi saya dibawah ini:





  
1. Buatlah sebuah Text file baru dimana saja, kali ini saya mencoba membuatnya di Desktop.
2. Klik kanan pada Desktop, Pilih New --> Text Document

3. Buka Text file tadi untuk mengeditnya

4. Ketiklah "bush hid the facts" tanpa tanda petik

5. Save text file tadi, lalu Close
6. Sekarang buka file tadi, apa yang anda lihat?
7. Setiap karakter pada katanya berubah

Mari kita selidiki, menjadi kata apakah text yang sebelumnya adalah 'bush hid the facts'

Deklarasi:
1 Form
1 COmmandButton

Private Sub Command1_Click()
   Dim text, text2 As String
   Open "f:\text.txt" For Input As #1
   Input #1, text
   Close #1
   For i = 1 To Len(text)
       text2 = text2 & Mid(text, i, 1)
   Next
   MsgBox text2
End Sub

"f:\text.txt" adalah lokasi file text nya, gantilah dengan lokasi file text tadi yang anda buat.
Jalankan dan tekan Command1, apakah yang muncul di MsgBox ?, ternyata masih 'bush hid the facts'.
Sepertinya dalam peluncuran Windows XP, ada karyawan Bill Gates yang tidak suka dengan presiden AS saat itu
yaitu George W. Bush dan menambahkan logika ini dalam pembuatan aplikasi Notepad pada Windows. Katanya sih
Windows 2000, Windows ME juga mengalami hal yang sama seperi ini. Tetapi pada Windows Vista, hal ini
sudah tidak ada lagi. Mungkin akan bekerja jika diubah menjadi 'obama hid the facts'. hehehehehehe.

[VB] Belajar Teknik Dasar Database Programming

Deklarasi:
1 Form
5 TextBox
1 Data Control

Tidak ada source code, cuma anda harus menyusunnya seperti ini.

[VB] Membuat 2 Text Marquee Bolak-Balik

Deklarasi:
1 Form
1 CommandButton
1 Timer
3 Label

Private Sub Command1_Click()
    Timer1.Enabled = Not Timer1.Enabled
End Sub

Private Sub Timer1_Timer()
    Static mar1Move, mar2Move As Boolean
    'Bagian Mengatur Marquee1
    'Jika mar1Move=True maka Marquee1 akan berjalan ke kiri
    'Jika mar1Move=False maka Marquee1 akan berjalan ke kanan
    If mar1Move Then
        Label2.Move Label2.Left - 100
        If Label2.Left < -Label2.Width Then mar1Move = False
        Debug.Print mar1Move
    Else
        Label2.Move Label2.Left + 100
        If Label2.Left > (Me.ScaleWidth) Then mar1Move = True
    End If
    
    'Bagian mengatur Marquee2
    'Jika mar2Move=True maka Marquee2 akan berjalan ke kanan
    'Jika mar2Move=False maka Marquee2 akan berjalan ke kiri
    If mar2Move Then
        Label3.Move Label3.Left + 100
        If Label3.Left > (Me.ScaleWidth) Then mar2Move = False
    Else
        Label3.Move Label3.Left - 100
        If Label3.Left < -Label3.Width Then mar2Move = True
        Debug.Print mar2Move
    End If
End Sub

Cara mambuat efek api photoshop

Hwuahahahahah .. ..
Pren"Q pengen ngedit photo karo photoshop tapi ora bisa?
Geh, siki tek waraih nggawe geni cara amatir nang photo karo photoshop CS4. Cara-carane:
1. Siapna photo sing arep di edit
Contoeh:

2. Pejet Ctrl+M, terus pasna karo gambare

3. Siki gari klik filter >> artistic >> neon glow, men dadine kaya kie:

4. Nah, gari klik image >> adjustment >> desaturate
5. Bar kue klik image >> adjustment >> brightnes/contrast ( Pasna karo Gambare )

6. Terus bar kue gari di duplikat layere ( klik layer>> duplicate layer)

7. Siki wei efek glowing edges( klik filter>> stylize>> glowing edges)

8. Ganti layer kue mau dadi screen

9. Klik icon smodge tool

, terus gawe sekarepmu

10. Siki meng background asli terus klik filter > blur >> gausian blur pilih sing 1,1, OK

11. Gari tambahna coretan coretan putih neng sekitar gambar men keton kebakar, nek perlu irengna bagian sing ngganggu .. ..

12. Terus Klik image >> mode >> grayscale, terus gari image >> mode>> indexed color, nek ana pertanyaan di Ok bae .. ..
13. Terahir siki yah, Go penutupane klik image>> mode >> color table, terus pilih sing black body .. ..

Nah dadi kueh .. ..

OSX Iconset 1.2 for Ubuntu

OSX Iconset 1.2 for Ubuntu

FREEDOWNLOAD

[VB] Membuat 3D Text Sederhana

Deklarasi:
1 Form
1 CommandButton

Source Code:

Private Sub Command1_Click()
 Call Print3DText(50, 50, "Crowja-Coderz", 30)
End Sub

Sub Print3DText(ByVal X As Single, Y As Single, sText As String, FontSize As Byte)
 Form1.ScaleMode = 3
 Form1.Font.Size = FontSize
 Form1.Font.Name = "Lucida Console"
 For i = 0 To 200
      Form1.ForeColor = RGB(i + 5, i + 5, i + 5)
     Form1.CurrentX = X + Int(i / 13)
     Form1.CurrentY = Y + Int(i / 13)
      Form1.Print sText
 Next
End Sub

[VB] Membuat Kalender Warna-Warni

Deklarasi:
1 Form
4 Label
1 Timer
Label1
 Aligment=Center
 BackColor=&H0000FF00&
 Font Type =MS Sans Serif
 Font Size=24
Label2
 Aligment=Center
 BackColor=&H00FFFFFF&
 Font Type=Palatino Linotype
 Font Size=72
Label3
 Aligment=Center
 BackColor=&H0000FFFF&
 Font Type =MS Sans Serif
 Font Size=24
Label4
 Aligment=Center
 BackColor=&H00000000&
 Font Type =MS Sans Serif
 Font Size=24
Timer1
 Interval=1000 

Buatlah sedemikian rupa, kurang lebih mirip seperti ini:

Source Code:

Private Sub Timer1_Timer()
    Label1.Caption = Format(Now, "dddd")
    Label2.Caption = Format(Now, "dd")
    Label3.Caption = Format(Now, "mmmm")
    Label4.Caption = Format(Now, "hh") & _
 IIf(InStr(Label4.Caption, ":") > 0, " ", ":") & _
    Format(Now, "mm")
End Sub