Kamis, 30 September 2010

2

Download Custom ActiveX Control Untuk VB Development

  • Kamis, 30 September 2010
  • Nurkholish Ardi Firdaus
  • 0

    Berbagai Akronim/Singkatan Istilah Dalam Komputer

  • Nurkholish Ardi Firdaus
  • Dibawah ini adalah beberapa singkatan istilah dalam komputer

    ADSL - Asymmetric Digital Subscriber Line
    ADO - ActiveX Data Object
    AGP - Accelerated Graphics Port
    ALI - Acer Labs, Incorporated
    ALU - Arithmetic Logic Unit
    AMD - Advanced Micro Devices
    APC - American Power Conversion
    ASCII - American Standard Code for Information Interchange
    ASIC - Application Specific Integrated Circuit
    ASPI - Advanced SCSI Programming Interface
    AT - Advanced Technology
    ATI - ATI Technologies Inc.
    ATX - Advanced Technology Extended

    --- B ---
    BASIC - Beginner All-Purpose Symbolic Instruction Code
    BFG - BFG Technologies
    BIOS - Basic Input Output System
    BNC - Barrel Nut Connector

    --- C ---
    CAS - Column Address Signal
    CD - Compact Disk
    CDR - Compact Disk Recorder
    CDRW - Compact Disk Re-Writer
    CD-ROM - Compact Disk - Read Only Memory
    CFM - Cubic Feet per Minute (ft�/min)
    CMOS - Complementary Metal Oxide Semiconductor
    CPU - Central Processing Unit
    CTX - CTX Technology Corporation (Commited to Excellence)

    --- D ---

    DDR - Double Data Rate
    DDR-SDRAM - Double Data Rate - Synchronous Dynamic Random Access Memory
    DFI - DFI Inc. (Design for Innovation)
    DIMM - Dual Inline Memory Module
    DNS - Domain Name Server
    DRAM - Dynamic Random Access Memory
    DPI - Dots Per Inch
    DSL - See ASDL
    DVD - Digital Versatile Disc
    DVD-RAM - Digital Versatile Disk - Random Access Memory

    --- E ---
    ECC - Error Correction Code
    ECS - Elitegroup Computer Systems
    EDO - Extended Data Out
    EEPROM - Electrically Erasable Programmable Read-Only Memory
    EPROM - Erasable Programmable Read-Only Memory
    EVGA - EVGA Corporation

    --- F ---
    FAT - File Aloccation Table
    FC-PGA - Flip Chip Pin Grid Array
    FDC - Floppy Disk Controller
    FDD - Floppy Disk Drive
    FPS - Frame Per Second
    FPU - Floating Point Unit
    FSAA - Full Screen Anti-Aliasing
    FS - For Sale
    FSB - Front Side Bus
    FTP - File Transfer Protocol

    --- G ---
    GB - Gigabytes
    GBps - Gigabytes per second or Gigabits per second
    GDI - Graphical Device Interface
    GHz - GigaHertz

    --- H ---
    HDD - Hard Disk Drive
    HIS - Hightech Information System Limited
    HP - Hewlett-Packard Development Company
    HSF - Heatsink-Fan
    HTTP - Hyper Text Transfer Protocol

    --- I ---
    IBM - International Business Machines Corporation
    IC - Integrated Circuit
    IDE - Integrated Drive Electronics
    IFS- Item for Sale
    IRQ - Interrupt Request
    ISA - Industry Standard Architecture
    ISO - International Standards Organization

    --- J ---
    JBL - JBL (Jame B. Lansing) Speakers
    JVC - JVC Company of America

    - K ---
    Kbps - Kilobits Per Second
    KBps - KiloBytes per second

    --- L ---
    LG - LG Electronics
    LAN - Local Are Network
    LCD - Liquid Crystal Display
    LDT - Lightning Data Transport
    LED - Light Emitting Diode

    --- M ---
    MAC - Media Access Control
    MB � MotherBoard or Megabyte
    MBps - Megabytes Per Second
    Mbps - Megabits Per Second or Megabits Per Second
    MHz - MegaHertz
    MIPS - Million Instructions Per Second
    MMX - Multi-Media Extensions
    MSI - Micro Star International

    --- N ---
    NAS - Network Attached Storage
    NAT - Network Address Translation
    NEC - NEC Corporation
    NIC - Network Interface Card
    NTFS - New Technology File System

    --- O ---
    OC - Overclock (Over Clock)
    OCZ - OCZ Technology
    OEM - Original Equipment Manufacturer

    --- P ---
    PC - Personal Computer
    PCB - Printed Circuit Board
    PCI - Peripheral Component Interconnect
    PDA - Personal Digital Assistant
    PCMCIA - Peripheral Component Microchannel Interconnect Architecture
    PGA - Professional Graphics Array
    PLD - Programmable Logic Device
    PM - Private Message / Private Messaging
    PnP - Plug 'n Play
    PNY - PNY Technology
    POST - Power On Self Test
    PPPoA - Point-to-Point Protocol over ATM
    PPPoE - Point-to-Point Protocol over Ethernet
    PQI - PQI Corporation
    PSU - Power Supply Unit

    --- R ---
    RAID - Redundant Array of Inexpensive Disks
    RAM - Random Access Memory
    RAMDAC - Random Access Memory Digital Analog Convertor
    RDRAM - Rambus Dynamic Random Access Memory
    ROM - Read Only Memory
    RPM - Revolutions Per Minute

    --- S ---
    SASID - Self-scanned Amorphous Silicon Integrated Display
    SCA - SCSI Configured Automatically
    SCSI - Small Computer System Interface
    SDRAM - Synchronous Dynamic Random Access Memory
    SECC - Single Edge Contact Connector
    SODIMM - Small Outline Dual Inline Memory Module
    SPARC - Scalable Processor ArChitecture
    SOHO - Small Office Home Office
    SRAM - Static Random Access Memory
    SSE - Streaming SIMD Extensions
    SVGA - Super Video Graphics Array
    SQL - Structured Query Language
    S/PDIF - Sony/Philips Digital Interface

    --- T ---
    TB - Terabytes
    TBps - Terabytes per second
    Tbps - Terabits per second
    TDK - TDK Electronics
    TEC - Thermoelectric Cooler
    TPC - TipidPC
    TWAIN - Technology Without An Important Name

    --- U ---
    UART - Universal Asynchronous Receiver/Transmitter
    USB - Universal Serial Bus
    UTP - Unshieled Twisted Pair

    --- V ---
    VCD - Video CD
    VPN - Virtual Private Network

    --- W ---
    WAN - Wide Area Network
    WTB - Want to Buy
    WYSIWYG - What You See Is What You Get

    --- X ---
    XGA - Extended Graphics Array
    XFX - XFX Graphics, a Division of Pine
    XMS - Extended Memory Specification
    XT - Extended Technology
    1

    [VB] Membuat Fungsi Sleep Sendiri

  • Nurkholish Ardi Firdaus
  • Terkadang untuk suatu keperluan, kamu harus menghentikan sejenak alur code yang kamu buat dalam beberapa detik.
    Dalam kasus ini, kamu bisa menggunakan fungsi API yang yaitu Sleep pada VB, apakah kamu tidak ingin membuatnya sendiri?

    Hehehe, aneh ya! sudah disediakan fungsi Sleep, masih tidak puas. Oke, untuk iseng-iseng mari kita buat prosedur yang mirip dengan
    fungsi Sleep, tetapi mari kita gunakan waktu dalam detik bukan dalam milidetik seperti fungsi Sleep, tidak terlalu rumit kok.

    Delarasi:

    1 Form
    1 Command Button




    Source Code:

    Private Sub Command1_Click()

    Dim waktu As Integer

    'waktu tidur=3 detik
    waktu = 3
    Ngorok_ZZZ waktu
    MsgBox "Bangun!!!, kau telah tidur selama " & waktu & " s"

    End Sub

    Private Sub Ngorok_ZZZ(ByVal time As Integer)

    Dim t As Single

    t = Timer

    Do Until (Timer - t) >= time
    DoEvents
    Loop

    End Sub

    '2010 crowja

    5

    [VB] Belajar Dasar Enkripsi Metode XOR

  • Nurkholish Ardi Firdaus
  • Xor, apakah itu?
    Xor adalah salah satu operator logika yang terdapat di sebagian besar bahasa pemrograman. Merupakan singkatan dari Exclusive OR.
    Xor memang jarang digunakan, namun dibalik semua itu ternyata operator xor mempunyai kegunaan lain, yaitu untuk
    enkripsi!.

    Berbeda dengan operator logika lainya seperti AND dan OR, Xor hanya akan bernilai True jika hanya salah satu operand nya bernilai True,
    Untuk lebih jelasnya, simak contoh di bawah ini:

    Opernad1 Xor Opernad2 = Hasil

    True Xor True = False
    False Xor False = False
    True Xor False = True
    False Xor True = True



    Lihat, ternyata Xor hanya bernilai True jika salah satu operand nya bernilai True, jika kedua operadnya bernilai True atau kedua
    operand nya bernilai False, Xor akan bernilai False.
    Sebenarnya Xor merupakan operator gabungan antara AND dan OR, sebenarnya kita juga membuatnya, beginilah Rumus Xor:

    a XOR b = (a AND (NOT b)) OR ((NOT a) AND b)



    Ternyata begitulah rumus XOR sebenarnya sehingga Xor hanya akan bernilai True jika hanya salah satu operand nya bernilai True.
    Sepertinya haya itu yang bisa saya jelaskan tentang operator Xor, selanjutnya kita akan membahas tentang kegunaan operator Xor untuk enkripsi.
    Dalam enkripsi Xor, kita juga perlu menentukan Kunci dari enkripsi tersebut, beginilah caranya:

    Sebelum_Enkripsi XOR Kunci = HasilEnkripsi



    Mari kita bermain dengan kode biner. Perlu anda ketahui bahwa Kode biner 0 adalah bernilai False (Salah),
    dan 1 adalah bernilai True (Benar).
    Misalnya Sebelum_Enkripsi bernilai 1 dan kunci bernilai 1 maka:

    1 Xor 1 = 0



    Dalam kasus diatas hasil enkripsi bernilai 0 (False).
    Namun jika kita menengkripsi suatu variable, bagaimana cara kita men dekripsinya?
    Tenang, jangan panik karena disinilah kelebihan dari operator Xor!. Jika hasil enkripsi kita enkripsi kembali menggunakan kunci yang sama,
    maka hasilnya ternyata merupakan hasil sebelum enkripsi, tidak percaya?

    True Xor True = False



    Diatas saya ibaratkan True pertama merupakan variable sebelum enkripsi, True kedua adalah kuncinya dan False merupakan hasil enkripsi.
    Jadi untuk mendekripsinya, kita bisa melakukan enkripsi ulang terhadap hasil enkripsi menggunakan kunci yang sama

    False Xor True = True



    Lihat, hasil deskripsi adalah True! sama persis dengan variable sebelum enkripsi bukan?
    Ok, mari kita terapkan konsep yang sudah kita ketahui tersebut kedalam code VB.


    Deklarasi:

    1 Form
    3 Text Box
    2 Command Button


    Susun seperti dibawah ini:



    Source code:

    Private Sub Command1_Click()
    Text2.Text = Basic_XOR_EncryptDecrypt(Text1.Text, Text3.Text)
    End Sub

    Private Sub Command2_Click()
    Text1.Text = Basic_XOR_EncryptDecrypt(Text2.Text, Text3.Text)
    End Sub

    Private Sub Form_Load()

    Command1.Caption = "Enkripsi!"
    Command2.Caption = "Dekripsi!"
    Text1.Text = "text untuk enkripsi"
    Text2.Text = "text untuk deskripsi"
    Text3.Text = "Kunci"

    End Sub




    ' Fungsi enkripsi-dekripsi
    Private Function Basic_XOR_EncryptDecrypt(ByVal str As String, ByVal key As String)

    Dim StrEnc As String

    For i = 1 To Len(str)
    StrEnc = StrEnc & Chr(Asc(Mid(str, i, 1)) Xor Asc(key))
    Next

    Basic_XOR_EncryptDecrypt = StrEnc

    End Function

    ' 2010 crowja



    Fungsi enkripsi-dekripsi diatas masih sangat sederhana, untuk memperumitnya agar tidak mudah di crack,
    kita bisa melakukannya dengan berbagai cara, seperti menambahkan algoritma aritmatika, melakukan looping
    dan sebagainya, seperti contoh fungsi Basic_XOR_EncryptDecrypt yang sedikit diperumit:

    ' Fungsi enkripsi-dekripsi
    ' 2010 crowja
    Private Function Basic_XOR_EncryptDecrypt(ByVal str As String, ByVal key As String)

    Dim StrEnc As String
    Dim XoredKey As Long

    ' melakukan enkripsi pada kunci
    For i = 1 To Len(key)
    XoredKey = XoredKey Xor Asc(Mid(key, i, 1))
    Next

    ' melakukan enkripsi pada str
    For i = 1 To Len(str)
    StrEnc = StrEnc & Chr(Asc(Mid(str, i, 1)) Xor XoredKey)
    Next

    Basic_XOR_EncryptDecrypt = StrEnc

    End Function


    Mudahkan, anda bisa melakukan berbagai kombinasi enkripsi lagi dengan berbagai cara seperti menambahkan
    algoritma aritmatika dan lain-lain.

    Semoga bermanfaat

    Subscribe