0 komentar di 23.13

Langkah cara membuat Terbilang di Win XP
1. Buka Microsoft Excel.
2. Tekan Alt + F11 untuk membuka VBA Editor, atau klik menu Tools -> Macro -> Visual Basic Editor.

3. Di Visual Basic Editor, klik menu Insert -> Module.


4. selanjutnya copy-paste script ini ke bidang kerjanya:





Public Function TERBILANG(x As Double) As String
Dim tampung As Double
Dim teks As String
Dim bagian As String
Dim i As Integer
Dim tanda As Boolean

Dim letak(5)
letak(1) = "RIBU "
letak(2) = "JUTA "
letak(3) = "MILYAR "
letak(4) = "TRILYUN "

If (x < 0) Then
TERBILANG = ""
Exit Function
End If

If (x = 0) Then
TERBILANG = "NOL"
Exit Function
End If

If (x < 2000) Then
tanda = True
End If
teks = ""

If (x >= 1E+15) Then
TERBILANG = "NILAI TERLALU BESAR"
Exit Function
End If

For i = 4 To 1 Step -1
tampung = Int(x / (10 ^ (3 * i)))
If (tampung > 0) Then
bagian = ratusan(tampung, tanda)
teks = teks & bagian & letak(i)
End If
x = x - tampung * (10 ^ (3 * i))
Next

teks = teks & ratusan(x, False)
TERBILANG = teks & " Rupiah"
End Function

Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String
Dim tmp As Double
Dim bilang As String
Dim bag As String
Dim j As Integer

Dim angka(9)
angka(1) = "SE"
angka(2) = "DUA "
angka(3) = "TIGA "
angka(4) = "EMPAT "
angka(5) = "LIMA "
angka(6) = "ENAM "
angka(7) = "TUJUH "
angka(8) = "DELAPAN "
angka(9) = "SEMBILAN "

Dim posisi(2)
posisi(1) = "PULUH "
posisi(2) = "RATUS "

bilang = ""
For j = 2 To 1 Step -1
tmp = Int(y / (10 ^ j))
If (tmp > 0) Then
bag = angka(tmp)
If (j = 1 And tmp = 1) Then
y = y - tmp * 10 ^ j
If (y >= 1) Then
posisi(j) = "BELAS "
Else
angka(y) = "SE"
End If
bilang = bilang & angka(y) & posisi(j)
ratusan = bilang
Exit Function
Else
bilang = bilang & bag & posisi(j)
End If
End If
y = y - tmp * 10 ^ j
Next

If (flag = False) Then
angka(1) = "SATU "
End If
bilang = bilang & angka(y)
ratusan = bilang
End Function

5. Setelah di paste, coba cek script ini dengan klik menu Debug -> Compile VBA Project, jika tidak keluar kotak peringatan apapun biasanya script anda sudah beres.
6. Tutup jendela Visual Basic Editor anda.
Nah sekarang tinggal coba aja:
1. Ketik di cell sembarang sederet angka (misal di cell A1), lalu untuk memanggil fungsi terbilang ini (misal di cell A2), tinggal ketik =TERBILANG(A1).

Semoga dapat bermanfaat.

Install XP tanpa CDROM

0 komentar di 21.45

Ni adalah pengalaman ku waktu install laptop tapi CDROMnya dah rusak
,pingin tahu cara installnya

Peralatan yang harus dipersiapkan

  1. flasdisk min 1 GB
  2. CD master WinXP
  3. 1 unit komputer yang sudah ada system windowsnya
Langkah-langkahnya sebagai berikut :

membuat “disk booting” menggunakan flash disk menggunakan aplikasi menggunakan aplikasi HPUSB flash. flashdisk yang dijadikan “boot disk” tetap akan bisa diisi oleh file lain, misalnya file installer windows. untuk menggunakan cara ini kita harus memiliki ‘DOS system files’ yang akan dituliskan ke dalam flash disk.

So, dengan cara kedua ini kita hanya perlu memformat flashdisk sekali saja. Dan flashdisk tersebut bisa digunakan kembali kapan saja tanpa harus memformat ulang untuk membuat disk booting.

Berikut langkah-langkahnya :

1. Siapkan flashdisk, sebaiknya kapasitas minimal 1GB.
2. Download aplikasi HPUSB flash disini
3. Download DOS system file, saya telah mengupload satu contoh DOS system file, silakan download disini
4. Ekstrak kedua file tersebut ke komputer.
5. Jalankan aplikasi HPUSB flash dengan klik ganda pada file HPUSBFW.EXE
akan tampak tampilan seperti ini :
HP USB Flash Utility
6. Pilih device, pastikan sesuai dengan flash disk yang akan anda format.
7. Cek pada pilihan Create a DOS startup disk, kemudian pada pilihan “using DOS system files located at” klik tombol sebelah kanan (browse) dan arahkan pada direktori hasil ekstrak dari file dos.zip pada langkah ke-3 di atas.
8. Setelah semua benar, kemudian klik Start. Tunggu sampai proses format selesai.
9. Setelah proses format selesai, copy-kan file-file yang ada pada direktori DOS (hasil download) ke flashdisk, kecuali file COMMAND.COM, IO.SYS, dan MSDOS.SYS (sudah tercopy sewaktu proses format).

Langkah pembuatan boot-disk selesai, anda tinggal meng-copy file installer windows ke flash disk tersebut. Caranya copy direktori i386 beserta file dan sub direktori di dalamnya dari CD installer windows ke dalam flash disk (gunakan windows eksplorer). Setelah selesai, anda siap menginstall windows ke PC/Laptop. Caranya mirip dengan tutorial install windows yang pernah saya tulis sebelumnya.
Untuk install pada Asus EEE, langkahnya sebagai berikut :
1. Pasang flash disk booting pada Laptop yang akan diinstal.
2. Saat tampil logo Asus EEE, tekan Esc. Pilih booting dari flashdisk.
3. Setelah masuk ke C prompt ( C: ), hapus semua partisi bawaan linux xandros pada Asus EEE. Caranya dengan ketik perintah
FDSIK.exe.
Setelah semua partisi terhapus, buat satu partisi tunggal, dan set atribut ke Active (perlu restart supaya partisi yang baru bisa dikenali oleh system)
4. Tekan esc untuk keluar dari menu Fdisk. Kemudian format partisi yang tadi kita buat. Caranya ketik perintah
FORMAT D: /s
Tunggu sampai proses format selesai.
5. Copy file himem.sys, config.sys, dan smartdrv.exe ke hardisk. Caranya ketik perintah
copy himem.sys D:
copy config.sys D:
copy smartdrv.exe D:
Jangan lupa selalu tekan enter di akhir setiap perintah tersebut.
5. Dari sini Laptop EEE sudah bisa booting tanpa flashdisk. Restart EEE. Biarkan booting dari Hardisk.
6. Setelah proses boot selesai, anda akan masuk ke C: kembali. Ketikkan perintah
smartdrv
kemudian enter.
7. Pindah ke direktori dimana file installer windows berada. Ketik perintah
D:
kemudian enter.
8. Pada D prompt ( D: ) ketik perintah
cd i386
kemudian enter.
9. Ketik perintah
winnt.exe
kemudian enter.
Anda akan masuk ke menu instalasi windows. Dari sini anda tinggal mengikuti langkah-langkah yang ada pada layar monitor sampai selesai instalasi windows.

Demikian cara install windows tanpa CD Rom. Semoga bermanfaat.


;;