Form Kontak

Your Name :
Your Email :
Subject :
Message :
Image (case-sensitive):

Efek-Efek penutupn Form

==> Form Efek Lari

Private Sub EfekLari()

Dim intTop As Integer

Dim intScreenH As Integer

‘Mendapatkan Tinggi Layar

intScreenH = Screen.Height

for intTop = Me.Top to intScheenH

‘increase Top sehingga bergerak ke bawah

Me.Top = Me.Top + 1

‘ Selesaikan Proses yang mengantri

DoEvents

Next intTop

‘Unload Form

Unlod me

End Sub

==> Form Efek Lipat ke Dalam

Private Sub EfekLipatKedalam()

Dim intHeight As Integer

Dim i As Integer

‘Mencari titik tengah vertikal

intHeight = Me.Height \ 2

for i = to intHeight

DoEvents

Me.Height = Me.Height – 100

‘Set nilai Top (hasil pengurangan)

Me.Top = (Screen.Height – Me.Height) \ 2

‘Height=500 berarti tinggal title bar

If Me.Height <= 500 Then Exit For

Next i

End Sub

==> Form Efek Hancur/Acak

Private Sub Efekhancur()

Dim i As Integer, intDown As Integer

Dim intAcross As Integer

‘Memaksimalkan Form, agar lebih kelihatan

Me.WindowState = 2

‘Perbesar Ukuran Titik

DrawWidht = 3

For I = 1 To 20000

IntDown = IntDown + 1

IntAcross = intAcross + 1

‘Menggambar titik (berwarna) acak

Pset (Rnd*IntAcross, Rnd*IntDown,QBColor(Rnd*15)

Next i

End Sub

Konfersi Angka Ke Huruf (Terbilang) dengan VB

=> Konfersi Angka ke Bilangan

Function Num2Word(ByVal n As Currency) As String

Dim Satuan As Variant

Satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")

Select Case n

Case 0 To 11

Num2Word = " " + Satuan(Fix(n))

Case 12 To 19

Num2Word = Num2Word(n Mod 10) + " Belas"

Case 20 To 99

Num2Word = Num2Word(Fix(n / 10)) + " Puluh" + Num2Word(n Mod 10)

Case 100 To 199

Num2Word = " Seratus" + Num2Word(n - 100)

Case 200 To 999

Num2Word = Num2Word(Fix(n / 100)) + " Ratus" + Num2Word(n Mod 100)

Case 1000 To 1999

Num2Word = " Seribu" + Num2Word(n - 1000)

Case 2000 To 999999

Num2Word = Num2Word(Fix(n / 1000)) + " Ribu" + Num2Word(n Mod 1000)

Case 1000000 To 999999999

Num2Word = Num2Word(Fix(n / 1000000)) + " Juta" + Num2Word(n Mod 1000000)

Case Else

Num2Word = Num2Word(Fix(n / 1000000000)) + " Milyar" + Num2Word(n Mod 1000000000)

End Select

End Function

Private Sub Command1_Click()

Text1.Text = Val(Text2.Text) * Val(Text3.Text)

End Sub

Private Sub Text1_Change()

On Error Resume Next

If Text1.Text <> "" Then Label1.Caption = Num2Word(Text1.Text) + " Rupiah" Else Label1.Caption = ""

End Sub

Memindahkan File Dari Satu Folder ke Folder Lain Dangan VB

== > Memindahkan File Dari Satu Folder ke Folder Lain Dangan VB

Ketik coding berikut ini pada Module.

Declare Function MoveFile Lib "kernel32" Alias _ "MoveFileA" (ByVal lpExistingFileName As String, _

ByVal lpNewFileName As String) As Long

Ketik coding berikut ini pada Form.

Private Sub Command1_Click()

'Contoh ini memindahkan file 'c:\MyFile.Zip' ke ‘direktori 'c:\MyDir'.

A = MoveFile("c:\MyFile.Zip", "c:\MyDir\MyFile.Zip")

If A Then

MsgBox "File berhasil dipindahkan!",vbInformation, "Sukses Pindah File"
Else

MsgBox "Error. File belum dipindahkan!" & Chr(13) & "Kemungkinan file asal tidak ada" & _ Chr(13) & "atau file sudah ada di dalam " & _ Chr(13) & "direktori tujuan!", vbCritical, "Gagal _ Pindah File"

End If

End Sub

Animasi Teks dengan VB

==> Animasi Teks

Private intCount As Integer

Private Const TEKS As String =_

“By @Illank Dunia Script”

Private Sub Form_Load()

‘Inisialisasi Counter

IntCount = 0

Me.tmr.Enabled = True

End Sub

Private Sub tmr_Timer()

‘Reset counter jika lebih dari panjang teks

If IntCount > Len(TEKS) then IntCount = -1

‘Increment Counter

IntCount = IntCount + 1

‘Tampilkan Teks Satu Persatu (Karakter)

‘dimulai dari karakter paling depan

Me.Caption = Mid$(TEKS, 1, IntCount)

End Sub

Menghitung Lembur Berdasarkn Detik

==>Menghitung Lembur Berdasarkan Detik

Dim totaldetik As Long

Dim hh, mm, ss As Integer
Dim tampungdetik As Long

Private Sub cmdMulai_Click()
Timer1.Enabled = True

txtAwalLembur.Text = Time

txtDurasiPertama.Text = Format(CDate("23:59:59") _ - CDate(txtAwalLembur) + CDate("00:00:01"), _
"hh:mm:ss")

'Ditambah satu detik karena belum bulat ke 24:00:00 'dan angka 24:00:00 tsb tidak valid utk Time

txtTglMulai.Text = Format(Date, "dd/mm/yyyy")

txtTglEsok.Text = Format(Date + 1, "dd/mm/yyyy")txtDurasiKedua.Text = 0

txtTampungDetik.Text = 0
cmdMulai.Enabled = False
cmdStop.Enabled = True

End Sub

Private Sub cmdStop_Click()
Timer1.Enabled = False
Timer2.Enabled = False
cmdStop.Enabled = False
cmdMulai.Enabled = True
End Sub

Private Sub Timer1_Timer()

txtTglSistem.Text = Format(Date, "dd/mm/yyyy") txtJamSistem.Text = Time

If txtJamSistem.Text = "00:00:00" Then

txtDurasiLembur.Text = Format(CDate("23:59:59") _ - CDate(txtAwalLembur) + CDate("00:00:01"), _
"hh:mm:ss")

Else

txtDurasiLembur.Text = Format((CDate(txtJamSistem.Text) - CDate(txtAwalLembur.Text)), "hh:mm:ss")

End If

If CDate(txtAwalLembur) = CDate(txtJamSistem) Then
txtTampungDetik.Text = 0

End If

If CDate(txtTglSistem) = CDate(txtTglEsok) Then
txtTglEsok.Text = Date + 1

txtTotalDetik.Text = Format(totaldetik + 1,"0,0")

txtTampungDetik.Text = totaldetik + 1, Timer1.Enabled = False

Timer2.Enabled = True
End If

hh = Hour(txtDurasiLembur)

mm = Minute(txtDurasiLembur)

ss = Second(txtDurasiLembur)

totaldetik = hh * 3600 + mm * 60 + ss

txtTotalDetik.Text = Format(totaldetik, "0,0")

txtBesarUang.Text = Format(txtTotalDetik *100,"0,0")

txtDurasiKedua.Text = Format(Val(txtTotalDetik)- Val(txtTampungDetik), "0,0")

End Sub

Private Sub Timer2_Timer()

txtTglSistem.Text = Format(Date, "dd/mm/yyyy") txtJamSistem.Text = Time

If txtJamSistem.Text = "00:00:00" Then

txtDurasiLembur.Text = Format(CDate("23:59:59") _ - CDate(txtAwalLembur) + CDate("00:00:01"), _
"hh:mm:ss")

Else

txtDurasiLembur.Text = Format(CDate(txtJamSistem.Text) _
+ CDate(txtDurasiPertama.Text) - _
CDate("00:00:00"), "hh:mm:ss")
End If

If CDate(txtAwalLembur) = CDate(txtJamSistem) Then
txtTampungDetik.Text = 0

End If

If CDate(txtTglSistem) = CDate(txtTglEsok) Then
txtTglEsok.Text = Date + 1

txtTotalDetik.Text = Format(totaldetik, "0,0") txtTampungDetik.Text = totaldetik + 1
Timer2.Enabled = False

Timer1.Enabled = True

End If

hh = Hour(txtDurasiLembur)

mm = Minute(txtDurasiLembur)

ss = Second(txtDurasiLembur)

totaldetik = hh * 3600 + mm * 60 + ss

txtTotalDetik.Text = Format(totaldetik, "0,0")

txtBesrUang.Text = Format(txtTotalDetik * 100, - "0,0")

txtDurasiKedua.Text = Format(Val(txtTotalDetik) -Val(txtTampungDetik), "0,0")

End Sub

Sejarah PHP

Bagian 1: Captain's Log Stardate 41153.7

Kisah Sang PHP

Web pada kisah awalnya sangat menjemukan bagi orang-orang yang dinamis. Bagaimana tidak, pemakainya hanya dicekoki oleh isi (content) halaman web yang meskipun bersifat saling terhubung dengan halaman web yang lain (hyperlink) tetap saja tidak memberikan saluran bagi pengguna yang ingin mengemukakan pendapatnya. Tidak ada demokrasi, karena pengguna hanya bersifat pasif dan tidak bisa berinteraksi secara aktif dalam web.

Ketika akhirnya ditemukan tag

barulah kejemuan dan kebuntuan yang ada menjadi sirna. Pengguna menjadi bisa secara aktif berinteraksi dengan halaman web, dan mulailah era aplikasi berbasis web yang dinamis. Secara tradisi, bahasa script Perl menjadi bahasa utama yang digunakan oleh programmer web untuk menangani pemrosesan form dalam berinteraksi dengan pengguna web. Tidak diragukan lagi kedigjayaan dari Perl dalam menangani urusan ini, hal ini juga didukung dengan begitu dominannya bahasa ini digunakan di situs-situs web yang ada.

Perl bisa menjadi alat bantu yang sangat hebat di tangan ahlinya, namun akan berubah menjadi mimpi paling buruk bagi seorang programmer web pemula yang dikejar waktu dan bosnya untuk segera merilis halaman webnya. Tidak mudah memang, mempelajari bahasa Perl, dan seringkali dibutuhkan langkah panjang dan rumit untuk sebuah maksud yang sederhana saja. Pendek kata, dibutuhkan suatu bahasa yang lebih praktis dan mudah dipelajari serta adidaya untuk memudahkan dalam membangun sebuah aplikasi yang berbasis web.

Di rimba belantara web, tersebutlah dua bahasa yang paling kondang yang mampu menggantikan tugas-tugas Perl namun dengan tingkat kesulitan belajar yang rendah, ASP (Active Server Page) dan PHP (PHP: Hypertext Preprocessor). ASP yang dijagokan oleh Pak Bill Gates tentu saja berjalan di lingkungan sistem operasi Windows dan sampai saat ini belum terlihat akan di-porting ke platform yang lain. Padahal dunia web saat ini masih didominasi oleh platform UNIX dan variant-nya termasuk sistem operasi like UNIX seperti Linux. Selain itu, untuk dapat menggunakan ASP yang resmi, kita juga harus merelakan sebagian uang kita untuk menambah isi kantong Pak Bill Gates.

PHP sebagai alternatif lain memberikan solusi sangat murah (karena gratis digunakan) dan dapat berjalan di berbagai jenis platform. Awalnya memang PHP berjalan di sistem UNIX dan variant-nya, namun kini dapat berjalan dengan mulus di lingkungan sistem operasi Windows. Suatu nilai tambah yang luar biasa karena proses development program berbasis web dapat dilakukan lintas sistem operasi. Pak Fulan, misalnya, bisa mencuri waktu memrogram aplikasi untuk usaha pribadinya di kantor yang menggunakan sistem operasi Windows dan meneruskannya di rumahnya dengan komputer yang menggunakan sistem operasi Linux.

Dengan luasnya cakupan sistem operasi yang mampu menjalankan PHP dan ditambah begitu lengkapnya fungsi-fungsi program (tersedia lebih dari 400 fungsi di PHP yang sangat berguna) tidak heran jika PHP ini semakin menjadi trend di kalangan programmer web. Konon, saat ini lebih dari satu juta situs web menggunakan PHP sebagai script pemrogramannya.

Pak Rasmus Lerdorf adalah bapak penemu awal bahasa PHP ini, yang bermula dari keinginan sederhana Pak Lerdorf untuk mempunyai alat bantu (tools) dalam memonitor pengunjung yang melihat situs web pribadinya. Inilah sebabnya pada awal pengembangannya, PHP merupakan singkatan dari Personal Home Page tools, sebelum akhirnya dipaksakan menjadi singkatan rekursif dari PHP: Hypertext Preprocessor. Pertengahan tahun 1995 dirilis PHP/FI (FI adalah singkatan dari Form Interpreter) yang memiliki kemampuan dasar membangun aplikasi web, memproses form, dan mendukung database mSQL

Download Artikel Selanjutnya

1. Bagian 1 ....
2. Bagian 2.doc

Sampai ketemu minggu Depan

Teks Box Hanya Boleh Di input Nomor

Private Sub txtNomor_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub

Aneka Tips Dan Trik Pemrograman Visual Basic

Bagian ini akan memberikan aneka tips dan trik pemrograman yang biasa diterapkan di Visual Basic versi 6.0.

Karakter Password

Anda tentu sudah mengetahui bahwa pada aplikasi tertentu yang menggunakan password, text box yang digunakan untuk mengisi password selalu memunculkan karakter bintang (*) jika Anda mengetikkan sesuatu ke dalamnya. Hal ini tentu saja dimaksudkan agar orang lain tidak dapat membaca karakter sebenarnya yang Anda ketikkan. Untuk membuat sebuah text box agar mengeluarkan karakter * (atau bahkan karakter yang lain) caranya sangat mudah, yaitu mengisikan karakter yang Anda inginkan pada properti PasswordChar kontrol text box. Setelah itu jika Anda mengetikkan sesuatu ke dalam text box tersebut, maka karakter yang akan muncul adalah karakter yang Anda masukkan ke dalam properti PasswordChar tersebut.

Download Artikel Selengkapnya

Script Cetak Slip

Private Sub cetak()
Dim i As Integer
Close #1
Open “LPT1″ For Output As #1
‘Open “LPT1:” For Output Access Write As #1
Printer.CurrentX = 0
Printer.CurrentY = 0
‘Printer.Font = 6
Print #1, Chr$(27) + Chr$(15) + ” ” & LAlm ‘Kecil
Print #1, ” NAMA TOKO’”
Print #1, ” ALAMAT TOKO″
Print #1, ” TELP. (0352) 531700″
Print #1, “”
Print #1, “NO KWITANSI:” + nokwitansi; ” “; “Tgl:” + tgl;
Print #1, “”
Print #1, “—————————————–”
Print #1, Tab(1); “Kd Barang”; Tab(11); “Nama Barang”; Tab(24); “Jml”; Tab(28); “Harga”; Tab(36); “Total”;
Print #1, Tab(1); “—————————————–”
jumtot = 0
‘cari_tanggal = InputBox(”Masukan Tanggal Pencarian”, “Tanggal Pencarian”, “18/07/05″)
dbjual.RecordSource = “select * from jual where nokwitansi=’” & nokwitansi.Text & “‘”
dbjual.Refresh
jum = dbjual.Recordset.RecordCount

For i = 1 To jum
‘no = Adodc1.Recordset!nokwitansi
kdbrg = dbjual.Recordset!kodebarang
nabar = Left(dbjual.Recordset!namabarang, 12)
jum = dbjual.Recordset!jumjual
hrg = dbjual.Recordset!harga
tot = dbjual.Recordset!totalharga
tgl = dbjual.Recordset!tgl
user = dbjual.Recordset!kasir
jumtot = Val(jumtot) + Val(tot)
pj = Len(nabar)
‘If pj <= 24 Then

Print #1, kdbrg; Tab(11); nabar; Tab(24); jum; Tab(28); hrg; Tab(36); tot;
‘Else
‘pr1 = Right(nabar, 20)
‘pr2 = Mid(nabar, 21, 15)
‘Print #1, Tab(1); i; Tab(6); pr1; Tab(32); jum; Tab(37); hrg; Tab(47); tot;
‘Print #1, Tab(6); pr2;
‘ End If
Print #1, “”
dbjual.Recordset.MoveNext
Next i
Print #1, Tab(1); “—————————————–”
Print #1, Tab(1); “TOTAL BAYAR = ” + “Rp ” + TOTBAYAR.Text + “,-”
Print #1, Tab(1); “Dibayar = ” + “Rp ” + DIBAYAR.Text + “,-” + “Kembali = ” + “Rp ” + SISA.Text + “,-”
tjam = Time
Print #1, Tab(1); “Kasir : ” + kasir
Print #1, Tab(1); “Terima Kasih Atas Kunjungannya”
dbjual.Refresh
Print #1, “”
Print #1, “”
Print #1, “”
Close #1

End Sub

Membuat File Excel Dari Program dengan VB

Contoh Program ini Digunakan untuk membuat file MS Excel menggunakan coding
Persiapan :
1. Buat 1 project baru dengan 1 form dan 1 commandbutton
2. Tambahkan reference dari project - > References
3. Microsoft Excel X.0 Object Library, lalu klik ok
4. Ketik coding berikut ke dalam editor dan module yang bersangkutan

Ketik coding berikut pada form

Private Sub Command1_Click()
Dim xlApp As Excel.Aplication
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet

Set xlApp = New Excel.Aplication
Set xlWB = xlApp.workbooks.Add
Set xlWS = xl WB.Worksheets.Add

‘Baris berikut ini akan mengisi cell (2,2) dengan tulisan “Hello”
‘dan akan mengisi cel (1,3) dengan tulisan “Word”
xlWS.Cells(2,2).Value = “hello”
xlWS.cells(1,3).value = “word”
“C:\mysheet.xls”.
xlWS.SaveAs “c:\mysheet.xls”
xlApp.Quit

‘Bebaskan Memory
Set xlWS = Nothing
Set xlWB = Nothing
Set xlApp = Nothing
End Sub

Membuat Perhitungan Waktu (Stopwatch) dengan VB

Membuat sebuah perhitungan waktu yang akan menampilkan urutan jam:menit:detik:persepuluh detik. Waktu ini bisa direset, dihentikan dan dilanjutkan kembali
Persiapan :
1. Buat 1 project baru dengan 1 form, 1 timer, 1 label dan 2 commandbutton
2. Set property interval Timer menjadi 10
3. Set property enabel Timer menjadi false
4. Ketik coding berikut ke dalam editor dan module yang bersangkutan

Ketik coding berikut pada form

Dim TotaltenthDetik, TotalDetik, Tenthdetik, detik, menit, Jam As integer
Dim Jam1 as string
Private Sub Command1_Click()
‘Inisialisasi Total sepersepuluh detik
TotalTenthDetik = -1
‘Aktifkan Timer
Timer1.Enabled = True
End sub
Private sub Command2Click()
‘Memulai atau menghentikan timer kembali
Timer1.Enabled = Not Timer1.enabled
End sub
Privated Sub Timer1_timer()
‘Ta\mbah dengan satu untuk total sepersepuluh detik
‘kita mengeset interval timer menjadi 10, jadi
‘setiap sepersepuluh detik prosedur ini akan dieksekusi
TotalTenthDetik = TotalTenthDetik
‘Jika TotalTenthSeconds = 10, set kembali menjadi 0
TenthDetik = TotalTenthDetik Mod 10
TotalDetik = Int(TotalTenthDetik / 10)
Detik = TotalDetik Mod 60
If Len(Detik) = 1 Then
Detik = “0” & detik
End if
Menit = Int(TotalDetik / 60) Mod 60
If Len(menit) = 1 Then
Menit = “0” & Menit
End if
Jam = Int(TotalDetik / 3600)
If Jam < 9 Then
Jam1 = “0” & Jam
End if
Label = Jam1 & “:” & Menit & “:” & Detik & “:” & TenthDetik & “”
End Sub