.:: GnouBdilS Blog ::.

Windows Tick Count Menggunakan VB 6.0

22 February 2010

Project kali ini adalah membuat program Windows Tick Count Menggunakan VB 6.0
Windows Tick Count berguna untuk menghitung lamanya waktu sejak sistem operasi windows dijalankan.
Untuk mengetahuinya kita bisa menggunakan fungsi windows api yang bernama GetTickCount.
Fungsi ini akan mengembalikan nilai waktu dalam satuan milidetik.
Fungsi ini juga yang menggantikan fungsi versi 16bit yaitu GetCurrentTime.

OK lets start to create the project....
Buat sebuah project baru dan tambahkan sebuah form yang didalamnya terdapat sebuah objek listbox, timer dan juga buatlah sebuah module baru.

Tuliskan listing berikut pada module dan simpan dengan nama mdltick :

Public Declare Function GetTickCount Lib "kernel32" () As Long

Pada object timer di form ketikan listing berikut :

Private Sub Timer1_Timer()
Dim Time As Long
Dim detik As Long
Dim menit As Long
Dim jam As Long

Time = GetTickCount()
detik = Time / 1000
menit = detik / 60
jam = menit / 60

List1.Clear
List1.AddItem ("GetTickCount() = " & vbTab & Time & " millisecond")
List1.AddItem ("")
List1.AddItem (jam & vbTab & "Jam")
List1.AddItem (menit & vbTab & "Menit")
List1.AddItem (detik & vbTab & "Detik")
End Sub

Jangan lupa set interval untuk timer pada object propertiesnya dengan nilai 100 (1 detik).
Selamat mencoba...

Chypertext Encryption With Subtitution Method In VB 6.0

Teknik enkripsi chypertext dengan menggunakan metode subtitution sebenarnya hanya sebuah metode sederhana yaitu hanya menaikan atau menurunkan nilai ascii saja.
Dengan menggunakan visual basic (vb 6.0) kita akan membuat sebuah program sederhana mengenai masalah enkripsi dengan menggunakan metode subtitution.

siapkanlah sebuah modul simpan dengan nama mdlchyper. kemudian ketikan script code dibawah ini :

Option Explicit

Public Function Encrypt(ByVal TextInput As String) As String
Dim NewLen As Integer
Dim NewTextInput As String
Dim NewChar As String
Dim i As Integer
NewChar = ""
NewLen = Len(TextInput)
For i = 1 To NewLen
NewChar = Mid(TextInput, i, 1)
Select Case Asc(NewChar)
Case 65 To 90
NewChar = Chr(Asc(NewChar) + 127)
Case 97 To 122
NewChar = Chr(Asc(NewChar) + 121)
Case 48 To 57
NewChar = Chr(Asc(NewChar) + 196)
Case 32
NewChar = Chr(32)
End Select
NewTextInput = NewTextInput + NewChar
Next
Encrypt = NewTextInput
End Function

Public Function Decrypt(ByVal TextInput As String) As String
Dim NewLen As Integer
Dim NewTextInput As String
Dim NewChar As String
Dim i As Integer
NewChar = ""
NewLen = Len(TextInput)
For i = 1 To NewLen
NewChar = Mid(TextInput, i, 1)
Select Case Asc(NewChar)
Case 192 To 217
NewChar = Chr(Asc(NewChar) - 127)
Case 218 To 243
NewChar = Chr(Asc(NewChar) - 121)
Case 244 To 253
NewChar = Chr(Asc(NewChar) - 196)
Case 32
NewChar = Chr(32)
End Select
NewTextInput = NewTextInput + NewChar
Next
Decrypt = NewTextInput
End Function

kalau sudah buatlah sebuah form dengan nama frmenkripsi kemudian siapkan 2 buah text box pada form lalu pada textbox 1 ketikan listing berikut :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.Text = Encrypt(Text1.Text)
End If
End Sub

jalankan program dengan menekan tombol F5 kemudian isikan sebuah kata pada textboxt pertama lalu tekan Enter. nah nanti hasil enkripsi akan muncul pada textbox yang kedua..
well selamat mencoba....

Membuat Panel Pada PHP-Fusion 6.xx dan 7.xx

PHP-Fusion memberikan kemudahan untuk anda untuk menambahkan sendiri panel buatan anda...
disini saya akan sedikit membahas membuat panel pada php-fusion 6.xx dan 7.xx yaitu panel search engine google..
caranya :
- buka panel pada system admin
- klik add new panel
- tulis pada panel name dengan nama Google Search
- untuk panel kontennya isikan seperti script berikut ini:

openside();
?>
<form method=get action=http://www.google.com/search>
<input type="text" name="q" size=25 maxlength=255 value="Cari" onFocus="if(this.value=='Cari')this.value='';">
<input type=hidden name=hl value="en">
Powered by : <a href="http://www.google.com/">
<img src="http://www.google.com/logos/Logo_25wht.gif" border="0" alt="Google" align="middle"></img></a>
</form>
<?php
closeside();

penjelasan singkat...
openside("Google"); dan closeside(); merupakan fungsi yang diberikan oleh PHP-Fusion untuk memulai dan mengakhiri script pada panel..didalam tags openside(); dan closeside(); inilah script yang ingin anda buat di ketikan..

- setelah script diatas selesai simpan dan aktifkan...

selamat mencoba...

Kode Kesalahan Windows API Part I

18 February 2010

Secara singkat windows api (application programming interface) merupakan sekumpulan fungsi-fungsi eksternal yang terdapat dalam file-file perpustakaan windows (library windows) atau file library lainnya yang dapat digunakan oleh program.

Untuk lebih jelasnya mengenai pengertian windows api dapat anda baca disini. Bagi anda yang hendak mempelajari windows api menggunakan visual basic ada baiknya jika anda mempelajari terlebih dahulu mengenai kode kesalahan windows api.

Kode kesalahan adalah nilai yang diidentifikasi dari nilai yang dihasilkan oleh fungsi windows api. Dipakai dengan memanggil fungsi GetLastError setelah pemanggilan fungsi. Nah dibawah ini tabel kode kesalahan dalam windows api, namun karena sangat banyaknya kode-kode kesalahan tersebut maka disini saya akan menuliskan kode kesalahan dimulai dari kode 0 sampai dengan kode 200 terlebih dahulu.

Kode       Deskripsi
0              Tidak ada kesalahan atau berhasil
1              Penggunaan fungsi salah
2              File tidak ditemukan
3              Path tidak ditemukan
4              Tidak bisa membuka file - terlalu banyak file yang dibuka
5              Akses ditolak
6              Kesalahan penggunaan handle
7              Blok kontrol penyimpanan rusak
8              Memori tidak cukup/kurang
9              Kesalahan pada alamat kontrol blok penyimpanan
10            Kesalahan atau environment tidak tepat
11            Kesalahan pada format program untuk dimuat
12            Kesalahan kode akses
13            Kesalahan pada data
14            Memori tidak cukup atau kurang
15            Kesalahan pada drive yang dispesifikasikan
16            Direktori tidak bisa dibuang
17            Tidak bisa memindahkan file ke drive yang berbeda
18            Tidak terdapat file
19            Disk diproteksi
20            Tidak bisa menemukan peranti (device)
21            Peranti tidak siap
22            Perintah untuk peranti tidak dikenal
23            Data CRC (Cyclic Redundance Check) rusak
24            Kesalahan pada ukuran panjang perintah
25            Tidak ditemukan area atau track dalam disk
26            Disk tidak bisa diakses
27            Tidak bisa menemukan permintaan lokasi sektor
28            Kertas dalam printer kosong
30            Tidak bisa membaca dari drive yang dispesifikasikan
31            Peranti tidak berfungsi
32            Tidak dapat mengakses file, file sudah digunakan
33            Tidak dapat mengakses file, file terkunci
34            Kesalahan pada pendefinisian disk dalam drive
36            Terlalu banyak file yang di-share
38            Akhir dari file (End of file)
39            Disk penuh
50            Permintaan terhadap jaringan tidak tersedia atau tidak ada
51            Komputer remote tidak tersedia atau tidak ada
52            Penamaan ganda dalam jaringan
53            Path tidak ditemukan
54            Jaringan sibuk
55            Sumber jaringan atau peranti tidak tersedia
56            Telalu banyak perintah dalam jaringan dengan menggunakan BIOS
57            Kartu (adapter) jaringan rusak
58            Server yang dispesifikasikan tidak dapat melakukan operasi permintaan
59            Kesalahan jaringan yang tidak diduga
60            Tidak kompatiblenya kartu jaringan (adapter remote)
61            Print queue penuh
62            Tidak ada ruang dalam server untuk menyimpan file spool untuk mencetak
63            File yang akan dicetak terhapus atau tidak ada
64            Spesifikasi nama jaringan tidak ditemukan atau tidak ada
65            Akses kedalam jaringan ditolak
66            Kesalahan pada tipe sumber jaringan
67            Nama jaringan tidak ditemukan
68            Terlalu banyak nama dalam jaringan
69            Jaringan dengan BIOS melebihi kapasitas
70            Server remote sedang dihentikan atau sedang dimulai kembali
71            Tidak diterimanya permintaan jaringan
72            Printer atau disk yang dispesifikasikan sedang dihentikan
80            File ditemukan
82            Tidak dapat membuat direktori atau file
83            Kesalahan pada interrupt 24 (INT 24)
84            Tidak cukupnya penyimpanan pada proses yang diminta
85            Nama peranti lokal sedang digunakan
86            Kesalahan pada password jaringan
87            Parameter salah
88            Kesalahan menulis dalam jaringan
89            Tidak dapat memulai proses lain pada saat ini
100          Tidak dapat membuat semapore lain, terlalu banyak yang digunakan
101          Mode exclusive semapore telah dimiliki
102          Semapore siap diset dan tidak bisa ditutup
103          Semapore tidak dapat diset lagi
104          Tidak dapat meminta kode exclusive semapore pada saat waktu interupsi
105          Penggunaan semapore diakhiri
106          Masukan disk
107          Alternatif disk tidak dimasukan
108          Disk terkunci atau sedang digunakan
109          Penggunaan pipe diakhiri
110          Tidak dapat membuka spesifikasi peranti atau file
111          Nama file terlalu panjang
112          Tidak cukup ruang dalam disk
113          Tidak ada file internal yang tersedia
114          Salah penunjukan tujuan pada file internal
117          Salah pemanggilan IOCTL
118          Kesalahan pada pemindahan parameter verify on write
119          Perintah tidak didukung atau tidak ada
120          Fungsi tersebut hanya ada dalam sistem operasi Windows NT
121          Waktu semapore telah habis
122          Tidak cukup pada buffer data
123          Salah nama file, nama direktori, atau volume label
124          Salah pada pemanggilan level system
125          Tidak ada volume lebel dalam disk
126          Spesifikasi modul tidak ditemukan
127          Spesifikasi prosedur tidak ditemukan
128          Tidak ada proses anak untuk tunggu
129          Aplikasi tidak dapat berjalan pada Windows NT
130          Handle file untuk membuka partisi disk tidak digunakan untuk I/O
131          File pointer dipindahkan sebelum awal dari file
132          Tidak dapat menset file pointer dalam spesifikasi pernati atau file
133          Tidak dapat di-JOIN atau SUBST dalam drive yang sudah digunakan
134          Tidak dapat di-JOIN atau SUBST dalam drive yang sudah digabung
135          Tidak dapat di-JOIN atau SUBST dalam drive yang sudah diganti
136          Tidak dapat dihapus dalam perintah JOINdari drive yang tidak dapat digabung
137          Tidak dapat menghapus SUBST dari drive yang tidak bisa dipindahkan
138          Drive tidak dapat di-JOIN kedalam direktori yang sudah di-JOIN sebelumnya
139          Drive tidak bisa diganti kedalam direktori yang sudah diganti
140          Drive tidak bisa di-JOIN kedalam direktori dalam drie yang sudah diganti
141          Drive tidak bisa diganti kedalam direktori dalam drive yang sudah di-JOIN
142          Tidak dapat di-JOIN atau SUBST, drive sedang sibuk
143          Drive tidak dapat di-JOIN atau SUBST kedalam direktori yang sama
144          Direktori tidak dalam subdirektoridari root direktori
145          Direktori belum kosong
146          Spesifikasi path dalam pergantian
147          Kekurangan sumber untuk di-JOIN atau diganti
148          Tidak dapat menggunakan spesifikasi path - status path sedang sibuk
149          Drive tidak bisa di-JOIN atau SUBST karena target telah di SUBST
150          Sistem tidak bisa di-trace atau tidak diperbolehkan dalam CONFIG.SYS
151          Kesalahan nomor dari spesifikasi event semapore
152          Teralu banyak semapore yang diset
153          Kesalahan daftar
154          Volume label terlalu panjang - potong menjadi 11 karakter
155          Tidak dapat membuat urutan lain
156          Proses penerimaan signal gagal
157          Segmen telah dibuang dan tidak bisa dikunci
158          Segmen telah dibuka
159          Kesalahan urutan penenal alamat
160          Kesalahan parameter string
161          Spesifikasi path salah
162          Tanda telah siap dipakai
164          Tidak terdapat urutan yang dapat dibuat
167          Tidak dapat mengunci file region
170          Permintaan sumber sedang sibuk
173          Mengunci permintaan tidak dapat ditambahkan
174          Perubahan atom kedalam tipe yang tidak didukung
180          Kesalahan nomor segmen
182          Tidak dapat menjalankan program - kesalahan nomor urutan
183          File telah ada
186          Kesalahan melewati flag
187          Spesifikasi semapore tidak dapat digunakan
188          Tidak dapat menjalankan program - kesalahan kode segmen
189          Tidak dapat menjalankan program - kesalahan stack segmen
190          Tidak dapat menjalankan program - kesalahan tipe modul
191          Tidak dapat menjalankan program didalam sistem operasi Windows NT
192          Tidak dapat menjalankan program - kesalahan file EXE
193          Kesalahan pada aplikasi Windows NT
194          Tidak dapat menjalankan program - mengulangi data melebihi 64k
195          Tidak dapat menjalankan program - kesalahan minimum pengalokasian ukuran
196          Tidak dapat menjalankan program - link dinamik dari ring yang salah
197          Sistem operasi tidak dapat mengkonfigurasi untuk menjalankan aplikasi
198          Tidak dapat menjalankan program - kesalahan segmen DPL
199          Tidak dapat menjalankan program - data segmen melebihi 64k
200          Kode segmen harus kurang dari 64k

yap sekian dulu nanti kita akan lanjutkan lagi pada posting berikutnya.

Sharing File Menggunakan Konqueror pada Centos 5

Mensharing file menggunakan konqueror pada sistem operasi linux cukup mudah dilakukan.
Dalam kasus ini saya akan menjelaskannya dengan menggunakan sistem operasi linux Centos 5.0 namun tidak menutup kemungkinan juga bisa dilakukan pada OS Linux lainnya..

Langsung pada pokok permasalahannya aja...
Jalankan terlebih dahulu terminal/konsol linux anda, lalu ketikan perintah berikut untuk mengecek bahwa service yang bernama lisa sedang aktif atau tidak tetapi sebelumnya login dahulu sebagai user root

[gnoubdils@gnoubdils ~]$ su -l ---> perintah untuk berpindah ke user root
[root@gnoubdils ~]# service lisa status ---> perintah untuk mengecek status service lisa

kalau service lisa sedang tidak berjalan maka jalankanlah terlebih dahulu service tersebut caranya dengan mengetikan perintah berikut :

[root@gnoubdils ~]# service lisa start

jika anda menggunakan desktop gnome logout dan kemudian login kembali menggunakan desktop session kde.

setelah itu jalankan browser konqueror..
lalu pada addredd barnya ketikan

fish://iptujuan

iptujuan merupakan ip komputer yang akan kita lihat filenya.
contoh kita akan melihat file pada komputer dengan ip 192.168.1.1
maka pada address bar konqueror kita ketikan :

fish://192.168.1.1

karena kita menggunakan jaringan maka terlebih dahulu pastikan ipnya sudah diset...

Rounded Corner Form di VB 6.0

07 February 2010

Rounded Corner Form merupakan sebuah bentuk lengkungan di tepian form.
Jika pada properties form kita set borderstylenya menjadi None maka form hanya akan berbentuk kotak saja.
Untuk membuat lengkungan pada tepian form kita menggunakan beberapa fungsi windows api yaitu :
- SetWindowRgn
- CreateRoundRectRgn
- DeleteObject

Disini saya akan membuatnya dengan menggunakan visual basic6.0
langsung ke pembuatan projectnya saja...

Tulis listing berikut pada sebuah module :

Public Declare Function SetWindowRgn Lib _
"user32" (ByVal hwnd As Long, _
ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Declare Function CreateRoundRectRgn Lib _
"gdi32.dll" (ByVal X1 As Long, ByVal Y1 As Long, _
ByVal X2 As Long, ByVal Y2 As Long, _
ByVal X3 As Long, ByVal Y3 As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Public Sub buatoval(Frm As Form, Optional ByVal Kurva As Double = 15)
Dim hRgn As Long
Dim X1 As Long, Y1 As Long
X1 = Frm.Width / Screen.TwipsPerPixelX
Y1 = Frm.Height / Screen.TwipsPerPixelY
hRgn = CreateRoundRectRgn(0, 0, X1, Y1, Kurva, Kurva)
SetWindowRgn Frm.hwnd, hRgn, True
DeleteObject hRgn
End Sub

lihat pada bagian berikut :

Optional ByVal Kurva As Double = 15

Angka 15 dapat anda ganti sesuai keinginan anda nilai tersebut yang akan menentukan seberapa dalam lengkungan form yang ingin anda buat.

Nah terakhir agar pada saat form diload form memiliki lengkungan kita panggil didalam event Form_Loadnya, tulis listing berikut pada form:

Private Sub Form_Load()
buatoval me
End Sub

Nah sekarang form yang anda buat yang tidak menggunakan border tersebut sudah memiliki lengkungan di sisi-sisinya.

Animasi Form dengan VB 6.0

05 February 2010

Dengan menggunakan visual basic 6.0 kita bisa membuat sebuah program memiliki animasi pada saat program tersebut diakhiri atau ditutup. Animasi tersebut diantaranya animasi form bergerak keatas, kebawah, kekanan serta kekiri.

Kita mulai dengan animasi form yang bergerak ke atas ketika ditutup.
Agar form bergerak ke atas pada saat ditutup maka kode akan ditulis pada sub QueryUnload ataupun Unload. Siapkanlah sebuah form dan buatlah listing kode berikut :

Private Sub Form_Unload(Cancel As Integer)
Do
DoEvents
Form1.Top = Trim(Str(Int(Form1.Top) - 5))
Loop Until Form1.Top < -Form1.Width
End Sub

Angka 5 bisa anda rubah sesuai kebutuhan anda contoh bila anda ingin agar form bergerak ke atas lebih cepat maka tambahkan nilainya pada Trim(Str(Int(Form1.Top) - 5)) menjadi 50 dan seterusnya.

Animasi yang berikutnya adalah animasi form bergerak ke bawah.
Sama seperti animasi sebelumnya siapkanlah sebuah form terlebih dahulu lalu buatlah listing kode berikut :

Private Sub Form_Unload(Cancel As Integer)
Do
Me.Top = Me.Top + 5
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Top > Screen.Height - 500
End Sub

Kalau kedua aniasi diatas adalah animasi form bergerak ke atas dan ke bawah, berikutnya adalah animasi agar form bergerak ke kiri atau ke kanan.
Dimulai dengan animasi form bergerak ke kanan, siapkanlah sebuah form kemudian buatlah listing kode berikut :

Private Sub Form_Unload(Cancel As Integer)
Do
Me.Left = Me.Left + 5
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
End Sub

Nah yang terakhir animasi form bergerak ke kiri, siapkan sebuah form kemudian buatlah listing kode berikut :

Private Sub Form_Unload(Cancel As Integer)
Do
Me.Left = Me.Left - 5
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left < -Screen.Width
End Sub

yupz... selesai sudah semuanya... selamat mencoba..

Membuat Kalendar dengan PHP

Dalam tutorial kali ini saya akan berbagi mengenai cara membuat sebuah kalendar sederhana menggunakan php.
Bukalah editor website anda, anda bisa menggunakan dreamweaver, frontpage atau editor apapun yang anda miliki kemudian ketikanlah script kode php berikut ini :

<?php
$date =time () ;
$day = date('d', $date) ;
$month = date('m', $date) ;
$year = date('Y', $date) ;
$first_day = mktime(0,0,0,$month, 1, $year) ;
$title = date('F', $first_day) ;
$day_of_week = date('D', $first_day) ;

switch($day_of_week){
case "Sun": $blank = 0; break;
case "Mon": $blank = 1; break;
case "Tue": $blank = 2; break;
case "Wed": $blank = 3; break;
case "Thu": $blank = 4; break;
case "Fri": $blank = 5; break;
case "Sat": $blank = 6; break;
}

$days_in_month = cal_days_in_month(0, $month, $year) ;
echo "<table border=1 width=294>";
echo "<tr><th colspan=7> $title $year </th></tr>";
echo "<tr><td width=42>S</td><td width=42>M</td><td width=42>T</td><td width=42>W</td><td width=42>T</td><td width=42>F</td><td width=42>S</td></tr>";
$day_count = 1;
echo "<tr>";

while ( $blank > 0 )
{
echo "<td></td>";
$blank = $blank-1;
$day_count++;
}

$day_num = 1;
while ( $day_num <= $days_in_month )
{
echo "<td> $day_num </td>";
$day_num++;
$day_count++;
if ($day_count > 7)
{
echo "</tr><tr>";
$day_count = 1;
}
}

while ( $day_count >1 && $day_count <=7 )
{
echo "<td> </td>";
$day_count++;
}

echo "</tr></table>";
?>