Jumat, 05 Agustus 2011

Senin, 01 Agustus 2011

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

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
Get Free Music at www.divine-music.info
Get Free Music at www.divine-music.info

Free Music at divine-music.info

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | cheap international calls