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

Continue Reading

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.

Continue Reading