Konversi Biner ke Octal dengan VB


Bagi temen-temen yang mungkin butuh source cobe VB untuk membuat program konversi dari bilangan biner ke bilangan octal. Aligede punya sedikit koleksi yang mungkin berguna untuk temen-temen yang butuh, berikut source code nya:

Private Function BinaryToDecimal(ByVal BinValue As String) As Long
Dim lngValue As Long
Dim x As Long
Dim k As Long
k = Len(BinValue) 'will only work with 30 or fewer "bits"
For x = k To 1 Step -1 'work backwards down string
If Mid$(BinValue, x, 1) = "1" Then
If k - x > 30 Then
lngValue = lngValue Or -2147483648# 'avoid overflow error
Else
lngValue = lngValue + 2 ^ (k - x)
End If
End If
Next x
BinaryToDecimal = lngValue
End Function

Private Sub Command1_Click()
bil1 = BinaryToDecimal(Text1)
Text2.Text = Oct(bil1)
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Text1.Text = "0"
Text2.Text = "0"
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii = 48 Or KeyAscii = 49 Or KeyAscii = 8 Or KeyAscii = 46) Then
KeyAscii = 0
End If
End Sub

Kalau mau gampang nya ini sekalian ane sediain programnya bisa di download Di sini Atau Di sini untuk semua konversi langsung ke biner, decimal, hexa, dan octal

Untuk Membuat Windows Berlisensi OEM


Kalo kita install windows XP dari CD aslinya, baik yang Professional maupun yang Home Edition, maka tidak akan ditanyakan serial numbernya. Tapi sayangnya, kita harus mengaktivasi Windows kita sebelum 30 hari, karena masa trialnya 30 hari. Lewat dari itu, kalo tidak di aktivasi, Windos XP kita tidak akan bisa digunakan lagi.
Mengaktivasi Windows berarti harus mengeluarkan sejumlah uang. Jika kita harus berulang kali mengaktifasi karena di pakai untuk menginstall lebih dari 1 komputer, tentu saja bisa bikin kita bangkrut. Berikut cara membypass aktivasi tersebut. (Sudah saya coba baik di XP Prof maupun Home Edition, bahkan dari sumbernya, sudah ditest pada WIn 2003 Server)
1. Buka registry Editor. Caranya Klik Run > ketik Regedit >> OK
Cari bagian ini:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\Cu rrentVersion\WPAEvents
Perhatikan String pada OOBETimer
Doble klik untuk mengubah isinya. Apapun isinya, ganti dengan:
FF D5 71 D6 8B 6A 8D 6F D5 33 93 FD
>> klik Ok

2. Klik Kanan direktori WPAEvents (masih dalam regedit). Kemudian klik “Permissions..”
AKan muncul Kotak widows . Klik Pada System, kemudian ceklist semua kotak "Deny" nya.

>>Klik OK . Kemudian restart Komputer. Dijamin insya Allah gak akan ada lagi peringatan aktivasi bergambar kunci.




Membuat Gambar Elips

Fungsi ImageArc()
Fungsi ini merupakan fungsi yang digunakan untuk menggambar bentuk elips, baik berupa kurva terbuka maupun kurva tertutup. Sintaksnya adalah sebagai berikut:

ImageArc($img, x, y, l, t, aw, ak, $warna)
Fungsi ini akan menggambar bentuk elips dengan pusat di x,y (0,0 terletak di kiri atas), dengan tinggi t dan lebar l, serta titik awal dan titik akhir diwakili oleh aw dan ak dalam derajat. Dengan demikian, jika t dan l diisi dengan nilai yang sama, kemudian aw dan ak adalah 0 dan 360, maka yang tergambar adalah lingkaran. Berikut ini akan diberikan contoh untuk menggambar elips.

<?
Header(“Content-Type:image/jpeg”);
$img = ImageCreate(300,300);
$biru = ImageColorAllocate($img,0,0,255);
$putih = ImageColorAllocate($img,255,255,255);
ImageFill($img,0,0,$putih);
ImageArc($img,150,150,150,280,0,360,$biru);
ImageJPEG($img);
?>












Untuk diperhatikan, selama ini dalam memberikan contoh-contoh skrip PHP, selalu menggunakan tag-tag HTML, diawali dengan tag <HTML>, <HEAD>, dan seterusnya. Namun kali ini tag-tag tersebut tidak digunakan, sebab fungsi header pada skrip tersebut memberikan informasi bahwa output yang dikirimkan ke browser memiliki content-type berupa file gambar, bukan file HTML.

ImageArc($img, x, y, l, t, aw, ak, $warna)

Fungsi ini akan menggambar bentuk elips dengan pusat di x,y (0,0 terletak di kiri atas), dengan tinggi t dan lebar l, serta titik awal dan titik akhir diwakili oleh aw dan ak dalam derajat. Dengan demikian, jika t dan l diisi dengan nilai yang sama, kemudian aw dan ak adalah 0 dan 360, maka yang tergambar adalah lingkaran. Berikut ini akan diberikan contoh untuk menggambar elips.

<?
Header(“Content-Type:image/jpeg”);
$img = ImageCreate(300,300);
$biru = ImageColorAllocate($img,0,0,255);
$putih = ImageColorAllocate($img,255,255,255);
ImageFill($img,0,0,$putih);
ImageArc($img,150,150,150,280,0,360,$biru);
ImageJPEG($img);
?>

Untuk diperhatikan, selama ini dalam memberikan contoh-contoh skrip PHP, selalu menggunakan tag-tag HTML, diawali dengan tag <HTML>, <HEAD>, dan seterusnya. Namun kali ini tag-tag tersebut tidak digunakan, sebab fungsi header pada skrip tersebut memberikan informasi bahwa output yang dikirimkan ke browser memiliki content-type berupa file gambar, bukan file HTML.

Karena elips tersebut digambar mulai dari 0 hingga 360 derajat, maka gambar yang dihasilkan akan berupa kurva tertutup. Jika misalnya elips digambar mulai dari 0 hingga 180 derajat, maka hasilnya adalah setengah elips, atau elips dengan kurva terbuka. Untuk menggambar elips dengan kurva selalu tertutup, Anda dapat menggunakan fungsi ImageEllipse. Sintaksnya adalah sebagai berikut:

imageellipse ($img, x, y, l, t, $warna)

Fungsi ini baru terdapat pada PHP 4.0.6 dan membutuhkan GD 2.0.2 atau sesudahnya. Library ini dapat Anda dapatkan di http://www.boutell.com/gd.

Fungsi ImageLine()
Fungsi ini digunakan untuk menggambar garis. Sintaksnya adalah sebagai berikut:

ImageLine($img,x1,y1,x2,y2,$warna)

Parameter x1,y1 merupakan koordinat awal garis dan x2,y2 merupakan koordinat akhir garis. Berikut akan diberikan contoh menggambar garis.

<?
Header(“Content-Type:image/jpeg”);
$img = ImageCreate(300,300);
$biru = ImageColorAllocate($img,0,0,255);
$merah = ImageColorAllocate($img,255,0,0);
$putih = ImageColorAllocate($img,255,255,255);
ImageFill($img,0,0,$putih);
ImageLine($img,0,0,300,300,$biru);
ImageLine($img,0,150,300,150,$merah);
ImageJPEG($img);
?>

Ada sebuah fungsi yang mirip dengan ImageLine(), yaitu ImageDashedLine(), yang digunakan untuk menggambar garis putus-putus. Sintaks penggunaannya sama persis dengan fungsi ImageLine().

Fungsi ImageRectangle()
Fungsi ini digunakan untuk menggambar empat persegi panjang. Sintaksnya adalah sebagai berikut:

ImageRectangle($img,x1,y1,x2,y2,$warna)

Parameter x1,y1 merupakan titik kiri atas dari empat persegi panjang, sedangkan x2,y2 merupakan titik kanan bawahnya. Berikut akan diberikan contoh menggambar empat persegi panjang.

<?
Header("Content-Type:image/jpeg");
$img = ImageCreate(300,300);
$biru = ImageColorAllocate($img,0,0,255);
$merah = ImageColorAllocate($img,255,0,0);
$putih = ImageColorAllocate($img,255,255,255);
ImageFill($img,0,0,$putih);
ImageRectangle($img,0,0,200,200,$biru);
ImageJPEG($img);
?>

Fungsi ImagePolygon()
Fungsi ini digunakan untuk menggambar polygon (kurva banyak sisi atau banyak sudut). Sintaksnya adalah sebagai berikut:

imagepolygon ($img, array_sudut, jml_sudut, $warna)

Parameter array_sudut adalah array yang berisi koordinat dari setiap titik sudut polygon, misalnya $titik[0]=x1, $titik[1]=y1, $titik[2]=x2, $titik[3]=x3, dan seterusnya. Parameter jml_sudut adalah jumlah titik sudut dari polygon yang akan digambar. Berikut akan diberikan contoh menggambar polygon.

<?
Header("Content-Type:image/jpeg");
$img = ImageCreate(300,300);
$warna = ImageColorAllocate($img,157,25,12);
$putih = ImageColorAllocate($img,255,255,255);
ImageFill($img,0,0,$putih);
$titik[0]=0;
$titik[1]=0;
$titik[2]=60;
$titik[3]=30;
$titik[4]=60;
$titik[5]=100;
$titik[6]=120;
$titik[7]=190;
$titik[8]=210;
$titik[9]=60;
ImagePolygon($img,$titik,5,$warna);
ImageJPEG($img);
?>

Karena akan dibuat polygon dengan 5 titik sudut, maka diperlukan array dengan 10 komponen, karena setiap titik sudut memerlukan 2 angka sebagai koordinatnya. Dengan demikian, contoh gambar polygon tersebut akan mempunyai titik sudut pada (0,0), (60,30), (60,100), (120,190), dan (210,60).

Cara Install XAMPP

Cara Instalasi XAMPP
XAMPP merupakan sebuah paket instalasi untuk PHP, APACHE dan MySQL. Dengan menggunakan XAMPP, kita tidak perlu lagi repot menginstall ketiga software itu secara terpisah. XAMPP dapat di download di http://sourceforge.net/projects/xampp/. Berikut ini adalah cara menginstall XAMPP.
1. Jalankan file xampp-win32-1.7.3-installer.exe karena saya pakai versi ini.
2. Kemudian akan tampil tampilan berikut

















3. Kali ini saya taruh program XAMPP di C:\Ali Muhammad atau ditempat lain sesuai selera temen-temen :D
4. Akan muncul pilihan apakan anda ini menampilkan XAMPP di startmenu / dekstop








5. Selanjutnya akan muncul tampilan-tampilan ini







































6. Setelah proses terakhir silahkan pilih opsi 1 maka akan muncul XAMPP control panel



















7. Nyalakan Apache dan Mysql dengan mengklik tombol Start. Buka web browser anda, lalu ketikkan http://localhost. Jika tampilannya seperti di bawah ini, maka apache sudah terinstall dengan sukses




















8. Sekedar informasi saja, document root milik XAMPP terletak pada folder C:\Ali Muhammad\xampp\htdocs. Hal ini disebabkan karena saya menginstall XAMPP pada folder C:\Ali Muhammad.