disini

Read more »

Tips & Trik : Pemograman melalui Visual Basic dan Turbo Pascal

Sedikit saya ingin berbagi ilmu dengan rekan pembaca semua. Kebetulan saya hobby menulis dan membuat program aplikasi. Pada kesempatan ini saya akan mencoba menerapkan sebuah fungsi dengan nama:
'Terbilang' pada dua bahasa pemograman yaitu: Visual Basic dan Turbo Pascal. Kenapa dikatakan
Terbilang? Sebetulnya saya bingung untuk menamai fungsi ini. Cuma, saya terinspirasi oleh sehelai
kwitansi, di situ tertulis: "Terbilang : Sepuluh ribu rupiah. Ya sudah, saya namakan saja fungsi ini dengan
'Terbilang'. Langsung saja, berikut ini syntax yang bisa Anda coba:
• Untuk Bahasa Pascal:
Baris Kode
Program Huruf_Terbilang;
Uses Crt;
{==========================================}
Function IntToStr(I: LongInt): String;
var
StrS: string[15];
begin
Str(I, StrS);
IntToStr := StrS;
end;
{==========================================}
Function DlmHuruf(Var nHuruf:String):String;
Begin
If nHuruf ='1' Then DlmHuruf:='satu' Else
If nHuruf ='2' Then DlmHuruf:='dua' Else
If nHuruf ='3' Then DlmHuruf:='tiga' Else
If nHuruf ='4' Then DlmHuruf:='empat' Else
If nHuruf ='5' Then DlmHuruf:='lima' Else
If nHuruf ='6' Then DlmHuruf:='enam' Else
If nHuruf ='7' Then DlmHuruf:='tujuh' Else
If nHuruf ='8' Then DlmHuruf:='delapan' Else
If nHuruf ='9' Then DlmHuruf:='sembilan' Else
DlmHuruf:=' ';
End;

{-------------------------------------------}
Function Terbilang(Var Angka:LongInt):String;
Lisensi Dokumen:
Copyright © 2006 IlmuKomputer.Com
Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan
secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau
merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen.
Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu
dari IlmuKomputer.Com

var
ChrS : Array[1..10] of String;
StrT : Array[1..10] of String;
Huruf:String;Indeks,Panjang:Integer;
{ChrS1,ChrS2,ChrS3,ChrS4,ChrS5: String;
ChrS6,ChrS7,ChrS8,ChrS9,ChrS10: String;
StrT1,StrT2,StrT3,StrT4,StrT5:String;
StrT6,StrT7,StrT8,StrT9,StrT10:String;}
Begin
Huruf:=''; Panjang:=0;
For Indeks := 1 to 10 do begin
ChrS[Indeks]:='';
StrT[Indeks]:='';End;
Panjang:=Length(IntToStr(Angka));
For Indeks := 1 to Panjang do
{If Panjang >= Indeks Then}
ChrS[Indeks] :=
Copy(IntToStr(Angka),
(Panjang-(Indeks-1)),1);
{======================================}
If ChrS[8] ='0' Then
Begin
StrT[8] :='';
StrT[7]:=DlmHuruf(ChrS[7]) + 'juta ';
End
Else If ChrS[8] ='1' Then
Begin
StrT[8]:='';
If ChrS[7] = '0' Then
StrT[7]:='Sepuluh juta ' Else
If ChrS[7] = '1' Then
StrT[7]:='Sebelas juta ' Else
StrT[7]:= DlmHuruf(ChrS[7]) +
'belas juta';
End
Else If ChrS[8] >'1' Then
Begin
StrT[7]:=DlmHuruf(ChrS[7]) + 'juta ';
StrT[8]:=DlmHuruf(ChrS[8]) + 'puluh ';
End;
Begin
End;

{======================================}
If ChrS[6] = '0' Then
StrT[6]:=''
Else
Begin
If ChrS[6] <> '1' Then
StrT[6]:=DlmHuruf(ChrS[6]) + 'ratus '
Else
StrT[6]:='Seratus ';
End;
{========================================}
If ChrS[5] = '0' Then
Begin

StrT[5]:='';
If ChrS[4] = '1' Then
StrT[4]:= 'Seribu '
Else
StrT[4] := DlmHuruf(ChrS[4]) + 'ribu ';
End
Else If ChrS[5] = '1' Then
Begin
StrT[5]:='';
If ChrS[4] = '0' Then
StrT[4]:='Sepuluh ribu ' Else
If ChrS[4] = '1' Then
StrT[4]:='Sebelas ribu ' Else
StrT[4]:= DlmHuruf(ChrS[4]) +
'belas ribu ';
End
Else
Begin
StrT[4]:=DlmHuruf(ChrS[4]) + 'ribu ';
StrT[5]:=DlmHuruf(ChrS[5]) + 'puluh ';
End;
{=======================================}
If ChrS[3] = '0' Then
StrT[3]:=''
Else If ChrS[3] ='1' Then
StrT[3]:='Seratus '
Else If ChrS[3] > '1' Then
StrT[3]:=DlmHuruf(ChrS[3]) + 'ratus ';
{========================================}
If ChrS[2] = '0' Then
Begin
StrT[2]:='';
StrT[1]:=DlmHuruf(ChrS[1]);
End
Else If ChrS[2] ='1' Then
Begin
StrT[2]:='';
If ChrS[1] = '0' Then
StrT[1]:='Sepuluh' Else
If ChrS[1] = '1' Then
StrT[1]:='Sebelas' Else
StrT[1]:= DlmHuruf(ChrS[1]) +'belas';
End
Else If ChrS[2] > '1' Then
Begin
StrT[1]:=DlmHuruf(ChrS[1]);
StrT[2]:=DlmHuruf(ChrS[2])+'puluh ';
End;
For Indeks := 1 to 8 Do
If Panjang <= Indeks Then StrT[Indeks + 1] :=''; For Indeks := 8 DownTo 1 Do Huruf:=Huruf + StrT[Indeks]; {Huruf:=StrT[8+StrT[7+StrT[6+StrT[5+ StrT[4+StrT[3+StrT[2+StrT[1;} Terbilang:=Huruf; End; Var IntAngka:LongInt; StrTerbilang:String; YT:Char; Begin YT:='Y'; Repeat ClrScr; Write('Masukkan Angka : '); Readln(IntAngka); StrTerbilang := Terbilang(IntAngka); WriteLn('Terbilang : ',StrTerbilang); WriteLn; Write('Ingin Mengulang (Y/T): '); Readln(YT); until UpCase(YT) ='T'; End. Untuk Bahasa Visual Basic: Jalankan Visual Basic, pada Form1 tambahkan dua buah objek TextBox, Namai dengan txtAngka dan txtTerbilang. Tambahkan sebuah object CommandButton, namai dengan cmdTerbilang. Tambahkan sebuah Modul pada project Anda (dari menu Project, klik Add Module). Ketikkan kode berikut pada Module1 (Boleh saja sich, kalau Anda malas menambahkan Module, ketik saja semua kode di Form1.) Baris Kode 'Pada Module1 Option Explicit Function DlmHuruf$(nHuruf&) Select Case nHuruf Case 1: DlmHuruf = "satu" Case 2: DlmHuruf = "dua" Case 3: DlmHuruf = "tiga" Case 4: DlmHuruf = "empat" Case 5: DlmHuruf = "lima" Case 6: DlmHuruf = "enam" Case 7: DlmHuruf = "tujuh" Case 8: DlmHuruf = "delapan" Case 9: DlmHuruf = "sembilan" End Select End Function Function Terbilang$(Angka&) On Error Resume Next Dim Huruf$, Indeks%, Panjang% Dim ChrS(10) As Long Dim StrT(10) As String Panjang = Len(CStr(Angka&)) For Indeks = 1 To Panjang ChrS(Indeks) = Val(Mid(CStr(Angka), _ (Panjang - (Indeks - 1)), 1)) Tips & Trik IlmuKomputer.Com Copyright © 2006 IlmuKomputer.Com Next If ChrS(8) = 0 Then StrT(8) = "" StrT(7) = DlmHuruf(ChrS(7)) & "juta " ElseIf ChrS(8) = 1 Then StrT(8) = "" If ChrS(7) = 0 Then StrT(7) = "Sepuluh juta " ElseIf ChrS(7) = 1 Then StrT(7) = "Sebelas juta " Else StrT(7) = DlmHuruf(ChrS(7)) + _ "belas juta" End If ElseIf ChrS(8) > 1 Then
StrT(7) = DlmHuruf(ChrS(7)) + "juta "
StrT(8) = DlmHuruf(ChrS(8)) + "puluh "
End If
If ChrS(6) = 0 Then
StrT(6) = ""
Else
If ChrS(6) <> 1 Then
StrT(6) = DlmHuruf(ChrS(6)) + "ratus "
Else
StrT(6) = "Seratus "
End If
End If
If ChrS(5) = 0 Then
StrT(5) = ""
If ChrS(4) = 1 Then
StrT(4) = "Seribu "
Else
StrT(4) = DlmHuruf(ChrS(4)) + "ribu "
End If
ElseIf ChrS(5) = 1 Then
StrT(5) = ""
If ChrS(4) = 0 Then
StrT(4) = "Sepuluh ribu "
ElseIf ChrS(4) = 1 Then
StrT(4) = "Sebelas ribu "
ElseIf ChrS(4) > 1 Then
StrT(4) = DlmHuruf(ChrS(4)) + _
"belas ribu "
End If
ElseIf ChrS(5) > 1 Then
StrT(4) = DlmHuruf(ChrS(4)) + "ribu "
StrT(5) = DlmHuruf(ChrS(5)) + "puluh "
End If
If ChrS(3) = 0 Then
StrT(3) = ""
ElseIf ChrS(3) = 1 Then
StrT(3) = "Seratus "

ElseIf ChrS(3) > 1 Then
StrT(3) = DlmHuruf(ChrS(3)) + "ratus "
End If
If ChrS(2) = 0 Then
StrT(2) = ""
StrT(1) = DlmHuruf(ChrS(1))
ElseIf ChrS(2) = 1 Then
StrT(2) = ""
If ChrS(1) = 0 Then
StrT(1) = "Sepuluh"
ElseIf ChrS(1) = 1 Then
StrT(1) = "Sebelas"
Else
StrT(1) = DlmHuruf(ChrS(1)) + "belas "
End If
ElseIf ChrS(2) > 1 Then
StrT(1) = DlmHuruf(ChrS(1))
StrT(2) = DlmHuruf(ChrS(2)) + "puluh "
End If
For Indeks = 1 To 6
If Panjang <= Indeks Then _
StrT(Indeks + 1) = ""
Next
For Indeks = 8 To 1 Step -1
Huruf = Huruf & StrT(Indeks)
Next
Terbilang = Huruf
End Function
'Pada Form1
Option Explicit
Private Sub cmdTerbilang_Click()
Me.txtHasil.Text = Terbilang(CLng(txtAngka))
End Sub
Private Sub txtAngka_Change()
txtAngka.SelStart = Len(txtAngka)
txtAngka.Text = Format(txtAngka, _
"###,###,###,###")
End Sub

Jika Anda perhatikan kedua contoh bahasa kode di atas tidak jauh berbeda. Memang. Awalnya, saya
membuat fungsi tersebut pada Visual Basic. Kemudian saya mencoba menerapkannya dalam bahasa
Pascal. Ternyata bisa saja. Asalkan kita mematuhi aturan-aturan pada tiap bahasa pemograman.
Sedikit berbeda memang, jika pada Pascal saya membuat tiga buah fungsi (IntToStr, DlmHuruf dan
Terbilang) sedangkan pada Visual Basic, saya hanya membuat dua buah fungsi (DlmHuruf dan Terbilang).
Kenapa demikan? Karena bahasa Pascal tidak menyediakan suatu fungsi untuk mengkonversi nilai variabel
Integer menjadi nilai String, dan kita harus membuatnya sendiri (pada contoh di atas: IntToStr), sedangkan
Visual Basic sudah menyediakannya, yaitu: CStr

Kode untuk bahasa Pascal di atas, bisa Anda terapkan pada bahasa Delphi. Karena Delphi adalah
pengembangan dari pascal. Untuk penerapan pada Delphi, Anda tidak perlu menuliskan fungsi IntToStr,
karena Delphi sudah menyediakannya, dengan nama yang sama, yaitu: IntToStr

Read more »

Cara Melacak IP ADDRESS dan REAL ADDRESS Seseorang

1. Melacak alamat IP suatu situs

2. Melacak Real Adress server suatu situs

3. Cara Mengetahui IP address lawan chatting kita

(:::::—– Pembahasan —–::::

1. Melacak alamat IP suatu situs

Untuk mengetahui alamat IP suatu situs, kita dapat melakukan PING terhadap situs tersebut. Caranya: Masuk ke command Prompt dan ketikan PING WWW.SITUS-YANG-DILACAK.COM lalu tekan enter. Maka akan muncul alamat Ip situs tersebut.

2. Melacak Lokasi server (real address) suatu situs

Kita dapat melacak lokasi server suatu situs hanya dengan mengetahui alamat situsnya saja. Coba anda buka www.domainwhitepages.com Tinggal masukkan IP address situs tadi atau masukkan alamat situsnya dan anda akan mendapatkan info lengkap tentang server dari situs tersebut diantaranya adalah lokasi negara dan kota.

3. Melacak IP address lawan chatting kita

Saat kita menggunakan Yahoo messenger, sebenarnya kita bisa mengetahui alamat IP dari lawan chatting kita. Caranya:

:: Kirimkan suatu file pada lawan chat kita.

:: Lalu masuklah ke Command Prompt (MSDOS) dan ketikkan NETSTAT -N lalu tekan enter, maka alamat IP lawan chatting anda (yang telah anda kirimi file tadi) akan muncul beserta port yang digunakan untuk pengiriman file.

:: Untuk mengetahui lokasi lawan chatting anda (real address) seperti ia berada di kampus atau di warnet mana, tinggal anda chek di www.domainwhitepages.com dengan mempergunakan alamat IP yang anda dapatkan.

-------------Cuma Share,, Minta GRp..huehue..------------

Thread Lain nya
Isenk2x warga dalam LAN..
bisa di klik di

Read more »

Bagi-Bagi File Dapet DUIT !!

Assalamu alaikum wr.wb
Hallo rekan netter sekalian

Kali ini kita akan membahas mengenai Bisnis Gratis lainnya yaitu PAID TO SHARE

Teman-teman tahu nggak?

Kalau ada website yang menyediakan SPACE untuk kita menyimpan file-file kita seperti ebook, musik, film , foto dll.. Nggak Bayar Alias GRATIS Eh..Malah Ngasih Uang lagi.. SERU NGGAK Tuh..!!?

Memang Ada Yang Seperti Itu ?

Ada loh.. salah satunya adalah Ziddu ,

Di Ziddu kita bisa menaruh file yang kita miliki dan mendapat bayaran $.0,001 bila file tersebut di download orang.. Emang sih bayarannya tergolong kecil tapi kita bisa mendapatkan manfaat berlapis-lapis dari program seperti ini diantaranya :

Kita bisa meningkatkan Trafik situs/blog kita sambil menghasilkan uang

Yah.. dengan memberikan berbagai link download gratis seperti ebook, film dll.. maka situs/blog yang kita miliki akan cenderung di sukai orang (saya sudah buktikan loh..), jadi pengunjung tidak perlu bayar tapi kita tetap dapat uang dari Ziddu

Kita bisa menghemat space dan dapat uang

Dengan menaruh file di Ziddu space website/Blog kita jadi lebih ringan sehingga tidak mengurangi kecepatan akses situs/blog yang kita miliki.


Jika File kita di Bajak Orang kita malah tambah untung

Anda pernah memiliki link download yang di bajak orang (saya sering he..he), dan sialnya orang tersebut tidak hanya membajak file kita dan menaruhnya di servernya sendiri..tapi seenaknya saja membuat Link dengan menarik langsung dari server kita..yang akibatnya server kita menjadi berat sementara mereka yang menikmati hasilnya..Nah kalau kita taruh file kita di Ziddu tentu tidak akan ada masalah.. mau linknya di bajak semua juga tidak apa-apa.. karena selain tidak berpengaruh pada server kita.. kita malah dapat uang lebih banyak dari Ziddu


Benarkah Ziddu Membayar ?

Ziddu membayar di awal bulan jika kita sudah mencapai minimal $.10,-

O..iya Ziddu juga memberikan bonus untuk referal yaitu sebesar $0,1 untuk file pertama yang di Upload oleh orang yang anda referalkan…


Dan seperti biasa saya selalu “mengkampanyekan” kepada rekan netter sekalian bahwa setiap program referal/affiliasi/reseller/mlm dan sejenisnya, pengelolanya sudah menyediakan dana untuk program tersebut..jadi berpihaklah pada orang yang merekomendasikan kepada anda dengan mengunakan Link/URL/Banner yang mereka rekomendasikan, agar saat anda tertarik untuk “JOIN” tidak hanya menguntungkan pengelolanya .. sementara .. orang yang sudah susah payah merekomendasikan malah tidak dapat apa-apa…kasiankan ..he..he

Baik langsung aja untuk daftar ke Ziddu

silahkan klik banner di bawah ini (100% GraTISSS)

Read more »

Berburu Dollar Menggunakan Minisite

Assalamu alaikum wr wb,
Hallo sahabat semua..

Beberapa waktu yang lalu saya menemukan sebuah FASILITAS TRANSAKSI GRATIS di Internet, dimana kita bisa memanfaatkannya sebagai sarana untuk mencari uang via internet.

Cara kerjanya cukup OTOMATIS, layanan tersebut akan membuat lembar tagihan dan memberikan Link download secara otomatis bila pembeli telah melakukan pembayaran.. jadi kita tida perlu repot-repot lagi melayani pembelian.. Asyik bukan ?

Untuk ilustarsinya kira-kira sebagai berikut :

Kita meng-Upload sebuah produk digital ke website tersebut lengkap dengan harga dan keterangannya.
Kemudian kita diberi sebuah link dari hari Upload kita.
Jika link tersebut di-klik maka langsung masuk ke lembar tagihan Paypal
Dan Jika pembeli tersebut melakukan pembayaran maka secara otomatis LINK DOWNLOAD akan muncul untuk memberikan produk digital yang kita jual..
Nama dari website tersebut adalah : http://uploadnsell.com/

Read more »