Rabu, 30 Juni 2010

4

Ebook Pemakaian Data Report pada VB

  • Rabu, 30 Juni 2010
  • Nurkholish Ardi Firdaus
  • 1

    Ebook Pemanfaatan SQL Server Dengan VB6

  • Nurkholish Ardi Firdaus
  • 2

    Ebook Pemanfaatan ASP Untuk Web Programming

  • Nurkholish Ardi Firdaus
  • 0

    Ebook Pemograman Berorientasi Objek Pada VB.NET

  • Nurkholish Ardi Firdaus
  • 4

    Ebook Pemanfaatan Data Grid Dan TrueDBGrid Pada VB

  • Nurkholish Ardi Firdaus
  • 1

    Ebook Pemanfaatan Database Server Open Source

  • Nurkholish Ardi Firdaus
  • 2

    Ebook Mengenal SQL

  • Nurkholish Ardi Firdaus
  • 0

    Ebook Understanding IP Addresses

  • Nurkholish Ardi Firdaus
  • 0

    Ebook Hackers Secrets

  • Nurkholish Ardi Firdaus
  • 0

    Ebook Biggest World Secrets

  • Nurkholish Ardi Firdaus
  • 0

    Ebook Bahasa Pemograman VB.NET

  • Nurkholish Ardi Firdaus
  • 0

    Ebook Belajar Dasar Pemograman

  • Nurkholish Ardi Firdaus
  • 0

    Ebook Dasar Pemograman Visual Basic

  • Nurkholish Ardi Firdaus
  • 0

    Ebook Analisa dan pengolahan data dengan excel

  • Nurkholish Ardi Firdaus
  • 0

    Ebook Albert Einstein - The World As I See it

  • Nurkholish Ardi Firdaus
  • 0

    [VB] MessageBeep

  • Nurkholish Ardi Firdaus













  • 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
    0

    [VB] InternetCombineUrl - WinInet

  • Nurkholish Ardi Firdaus

  • Deklarasi:
    1 Form

    'Code by Richard LOUAPRE ([email protected])
    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

    1

    [VB] Track Mouse Event Dengan Fungsi APi

  • Nurkholish Ardi Firdaus









  • 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

    Sabtu, 26 Juni 2010

    0

    Windows Movie Maker

  • Sabtu, 26 Juni 2010
  • Nur Wahyogi


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



    Kamis, 24 Juni 2010

    0

    [VBS] Casade Semua Window

  • Kamis, 24 Juni 2010
  • Nurkholish Ardi Firdaus
  • Dim shellApp, objApp
    Set ShellApp = CreateObject("Shell.Application")
    shellApp.CascadeWindows
    0

    [VBS] Mengaktifkan Dan Mematikan Firewall

  • Nurkholish Ardi Firdaus
  • 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
    0

    [VBS] Terminate Proses Menggunakan WMI Class

  • Nurkholish Ardi Firdaus
  • 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
    0

    [VBS] Shutdown PC

  • Nurkholish Ardi Firdaus
  • Dim shellApp, objApp
    Set ShellApp = CreateObject("Shell.Application")
    shellApp.ShutdownWindows
    0

    [VBS] Shutdown PC Dengan WMI Class

  • Nurkholish Ardi Firdaus
  • ' 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
    2

    [VBS] Menyimpan Table Database Ke Dalam Text File

  • Nurkholish Ardi Firdaus
  • 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

    0

    [VBS] Minimize Semua Window

  • Nurkholish Ardi Firdaus
  • Dim shellApp, objApp
    Set ShellApp = CreateObject("Shell.Application")
    shellApp.MinimizeAll
    0

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

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

    [VBS] Memunculkan Daftar Semua Port Terbuka Di Firewall

  • Nurkholish Ardi Firdaus
  • 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
    0

    [VBS] Daftar Class Dinamis Dan Abstrak Dalam WMI

  • Nurkholish Ardi Firdaus
  • ' 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"
    0

    [VBS] Daftar Semua Drive Beserta Type nya

  • Nurkholish Ardi Firdaus

  • 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
    >
    0

    [VBS] Explore Directory Dengan WinExplorer

  • Nurkholish Ardi Firdaus
  • Dim shellApp, objApp
    Set ShellApp = CreateObject("Shell.Application")
    shellApp.Explore "C:\"
    0

    [VBS] Delete Semua File Dalam Folder

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

    [VBS] Database - Membuat Tabel Baru JET Database

  • Nurkholish Ardi Firdaus
  • 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
    0

    [VBS] Membuat Port Baru Dalam Firewall

  • Nurkholish Ardi Firdaus
  • 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
    3

    [VBS] Membuat Common Dialog Open

  • Nurkholish Ardi Firdaus
  • 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
    0

    [VBS] Membuat Common Dialog Save

  • Nurkholish Ardi Firdaus
  • 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

    0

    [VBS] Tile Horisontal Semua Window

  • Nurkholish Ardi Firdaus

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

    [VBS] Database - Menambah Record Dalam Table

  • Nurkholish Ardi Firdaus


  • 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

    0

    [VB] Mengskala Object Dengan Metode Scale

  • Nurkholish Ardi Firdaus

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





    0

    [VB] Membuat Form MS.Office 2007

  • Nurkholish Ardi Firdaus
  • 0

    [VB] Membuat Form Gila

  • Nurkholish Ardi Firdaus


  • 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


    Tag

    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

    0

    Keanehan Microsoft WIndows

  • Nurkholish Ardi Firdaus
  • 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
    Crowja-Coderz
    3. Buka Text file tadi untuk mengeditnya
    Crowja-Coderz
    4. Ketiklah "bush hid the facts" tanpa tanda petik
    Crowja-Coderz
    5. Save text file tadi, lalu Close
    6. Sekarang buka file tadi, apa yang anda lihat?
    7. Setiap karakter pada katanya berubah
    Crowja-Coderz

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

    [VB] Belajar Teknik Dasar Database Programming

  • Nurkholish Ardi Firdaus

  • Deklarasi:
    1 Form
    5 TextBox
    1 Data Control

    Tidak ada source code, cuma anda harus menyusunnya seperti ini.
    It should look like it
    0

    [VB] Membuat 2 Text Marquee Bolak-Balik

  • Nurkholish Ardi Firdaus

  • Deklarasi:
    1 Form
    1 CommandButton
    1 Timer
    3 Label

    Should look like it
    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



    2

    Cara mambuat efek api photoshop

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

    Selasa, 22 Juni 2010

    0

    OSX Iconset 1.2 for Ubuntu

  • Selasa, 22 Juni 2010
  • Nur Wahyogi
  • Jumat, 18 Juni 2010

    0

    [VB] Membuat 3D Text Sederhana

  • Jumat, 18 Juni 2010
  • Nurkholish Ardi Firdaus



  • 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


    0

    [VB] Membuat Kalender Warna-Warni

  • Nurkholish Ardi Firdaus


  • 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


    Subscribe