Enskripsi

Buat teman 2 yang butuh kode enskripsi bisa pake yang ini,  program ini di jalan kan di vb 

Enkripsi Searah

Public Function Hash(ByVal text As String) As String
a = 1
For i = 1 To Len(text)
a = Sqr(a * i * Asc(Mid(text, i, 1))) ‘Numeric Hash
Next i
Rnd (-1)
Randomize a ’seed PRNG

For i = 1 To 16
Hash = Hash & Chr(Int(Rnd * 256))
Next i
End Function

Private Sub Form_Load()
MsgBox Hash(”EmZ-2509″)    ‘Yang dihasilkan: ‰°’r¿¾ ©Ì¿ÂX*¤W
End
End Sub

Posted in Visual Basic 6.0 | No Comments »

Fungsi Terbilang VB

Buat Module baru dengan nama Mod_terbilang :
isi script didalamnya :

Function NumToText(dblValue As Double) As String
    Static ones(0 To 9) As String
    Static teens(0 To 9) As String
    Static tens(0 To 9) As String
    Static thousands(0 To 4) As String
    Dim i As Integer, nPosition As Integer
    Dim nDigit As Integer, bAllZeros As Integer
    Dim strResult As String, strTemp As String
    Dim tmpBuff As String

    ones(0) = ""
    ones(1) = "one"
    ones(2) = "two"
    ones(3) = "three"
    ones(4) = "four"
    ones(5) = "five"
    ones(6) = "six"
    ones(7) = "seven"
    ones(8) = "eight"
    ones(9) = "nine"

    teens(0) = ""
    teens(1) = "eleven"
    teens(2) = "twenteen"
    teens(3) = "thirteen"
    teens(4) = "fourteen"
    teens(5) = "fiveteen"
    teens(6) = "sixteen"
    teens(7) = "seventeen"
    teens(8) = "eighteen"
    teens(9) = "nineteen"

    tens(0) = ""
    tens(1) = "ten"
    tens(2) = "twenty"
    tens(3) = "thirty"
    tens(4) = "fourty"
    tens(5) = "fivety"
    tens(6) = "sixty"
    tens(7) = "seventy"
    tens(8) = "eighty"
    tens(9) = "ninety"

    thousands(0) = ""
    thousands(1) = "thousand"
    thousands(2) = "million"
    thousands(3) = "billion"
    thousands(4) = "triliun"

    'Errors Handler
    On Error GoTo NumToTextError
    'Bagian akhir
    strResult = "rupiah "
    'Konversi ke string
    Dim des, j, t1, t2
    Dim ada As Boolean
    For j = 1 To Len(totalbiaya)
       des = Mid(totalbiaya, j, 1)
       If des = "." Or des = "," Then
          ada = True
          t1 = Mid(totalbiaya, 1, j - 1)
          t2 = Mid(totalbiaya, j   1)
          j = Len(totalbiaya)
       End If
    Next j
    If ada = True Then
      strTemp = CStr(Int(t1))
      ada = False
    Else
      strTemp = CStr(Int(dblValue))
    End If
'    strTemp = CStr(Int(dblValue))
    'Diulang sebanyak panjang teks
    For i = Len(strTemp) To 1 Step -1
        'Ambil nilai angka posisi ke-i
        nDigit = Val(Mid$(strTemp, i, 1))
        'Ambil posisi angka
        nPosition = (Len(strTemp) - i)   1
        'Pilihan proses tergantung posisi satuan, puluhan, atau ratusan
        Select Case (nPosition Mod 3)
            Case 1  'Posisi satuan
                bAllZeros = False
                If i = 1 Then
                    tmpBuff = ones(nDigit)

Posted in Visual Basic 6.0 | No Comments »

ADO (Active Data Object)

bagi VB mania…tentu gak asing lagi ma library yang satu ini. Namanya cukup pendek ADO, kayak nama orang (ALDO) heee…kagak nyambung.

ADO merupakan generasi terbaru dari DAO yang sudah telebih dahulu lengser. ADO digunakan untuk melakukan koneksi, maupun manipulasi database. klo mau lebih lengkap klik disini





Posted in Visual Basic 6.0 | 1 Comment »

Artikel Visual Basic

Visual Basic (VB) adalah salah satu bahasa pemrograman komputer untuk database.
Bahasa pemrograman adalah perintah-perintah yang dimengerti oleh komputer untuk melakukan tugas-tugas tertentu.
Bahasa pemrograman Visual Basic, yang dikembangkan oleh Microsoft sejak tahun 1991, merupakan pengembangan dari pendahulunya yaitu bahasa pemrograman BASIC (Beginner’s All-purpose Symbolic Instruction Code) yang dikembangkan pada era 1950-an.
Visual Basic merupakan salah satu Development Tool yaitu alat bantu untuk membuat berbagai macam program komputer, khususnya yang menggunakan sistem operasi Windows.
Visual Basic merupakan salah satu bahasa pemrograman komputer yang mendukung object (Object Oriented Programming = OOP).

Menu Bar, digunakan untuk memilih tugas-tugas tertentu seperti menyimpan project, membuka project, dll
Main Toolbar, digunakan untuk melakukan tugas-tugas tertentu dengan cepat.
Jendela Project, jendela ini berisi gambaran dari semua modul yang terdapat dalam aplikasi anda. Anda dapat menggunakan icon Toggle Folders untuk menampilkan modul-modul dalam jendela tersebut secara di group atau berurut berdasarkan nama. Anda dapat menggunakan Ctrl+R untuk menampilkan jendela project, ataupun menggunakan icon Project Explorer.
Jendela Form Designer, jendela ini merupakan tempat anda untuk merancang user interface dari aplikasi anda. Jadi jendela ini menyerupai kanvas bagi seorang pelukis.
Jendela Toolbox, jendela ini berisi komponen-komponen yang dapat anda gunakan untuk mengembangkan user interface.
Jendela Code, merupakan tempat bagi anda untuk menulis koding. Anda dapat menampilkan jendela ini dengan menggunakan kombinasi Shift-F7.
Jendela Properties, merupakan daftar properti-properti object yang sedang terpilih. Sebagai contohnya anda dapat mengubah warna tulisan (foreground) dan warna latarbelakang (background). Anda dapat menggunakan F4 untuk menampilkan jendela properti.
Jendela Color Palette, adalah fasilitas cepat untuk mengubah warna suatu object.
Jendela Form Layout, akan menunjukan bagaimana form bersangkutan ditampilkan ketika runtime.

Posted in Visual Basic 6.0 | 3 Comments »

Akhirnya Datang Juga

Akhirnya daang juga, bersamaan dengan acara oke di Trans TV, blog ini juga selesai sambil nonton akhirnya datang juga. Dengan menggunakan wordpress, dan oprek sedikit wp dan themennya, jadilah blog ini. Mudah mudah bisa bermaanfaat bagi blogger semuanya. Posting sini ya…

Posted in VB.NET, Download, Visual Basic 6.0, SQL Server 2000, Opini, Article | No Comments »