Zurex's Blog (Tempat Sharing Ilmu Komputer)

Program Terbilang dengan Suara (VB.NET)

2010-07-18T07:11:00.000-07:00

Assalmualaikum wr wb

Hai para Programmer....!! kali ini saya akan membuat suatu program terbilang seperti kasus dulu yang menggunakan bahasa PHP, tapi sekarang saya menggunakan Visual Basic 2008 dan hasil terbilang-nya mengeluarkan suara (wow...!! seperti antrian otomatis gitu loh!!!)

Sebelumnya kita memerlukan file-file audio (disini saya menggunakan format wav, format lain juga tidak apa-apa), disini saya menggunakan component window media player yang sudah disediakan di visual basic 2008

(dapat ditambah dari menu tools->choose toolbox items->com component)
ini file-file audio yang saya gunakan :

supaya suara keluar sesuai urutan maka kita harus membuat playlist, tanpa playlist hanya satu file suara yang dapat kita keluarkan pada saat menjalankan program, ini tampilan program yang saya buat :

dan ini adalah listing program yang saya buat (AxWindowsMediaPlayer1 adalah komponen window media player):

   1:  Public Class Form1

2:

   3:  Private Function BikinMedia(ByVal nFile As String) As Object

   4:  Dim song = Me.AxWindowsMediaPlayer1.newMedia("C:\audio\Wav\" & nFile.ToLower & ".mp3.WAV")

   5:  Return song

   6:  End Function

7:

   8:  Private Function Terbilang(ByVal i As Integer) As String

   9:  Dim angka() As String = {"Nol", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", _

  10:  "Delapan", "Sembilan", "Sepuluh", "Sebelas"}

  11:  Dim hasil As String = ""

  12:  Select Case i

  13:  Case 1 To 11

  14:  hasil &= angka(i)

  15:  Case 12 To 19

  16:  hasil &= angka(i Mod 10) & " Belas"

  17:  Case 20 To 99

  18:  hasil &= Terbilang(Int(i / 10)) & " Puluh " & Terbilang(i Mod 10)

  19:  Case 100 To 199

  20:  hasil &= "Seratus " & Terbilang(i Mod 100)

  21:  Case 200 To 999

  22:  hasil &= Terbilang(Int(i / 100)) & " Ratus " & Terbilang(i Mod 100)

  23:  End Select

  24:  Return hasil.Trim

  25:  End Function

  26:  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

27:

  28:  Me.AxWindowsMediaPlayer1.settings.autoStart = False

  29:  Me.AxWindowsMediaPlayer1.Hide()

30:

  31:  End Sub

32:

  33:  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  34:  Me.AxWindowsMediaPlayer1.currentPlaylist.clear()

  35:  Label3.Text = Terbilang(TextBox1.Text)

  36:  Dim arr() As String = Terbilang(TextBox1.Text).Split(" ")

  37:  For Each value As String In arr

  38:  Dim song = BikinMedia(value)

  39:  Me.AxWindowsMediaPlayer1.currentPlaylist.appendItem(song)

  40:  Next

  41:  Me.AxWindowsMediaPlayer1.Ctlcontrols.play()

  42:  End Sub

43:

  44:  End Class

Silahkan dicoba dan semoga bermanfaat, maaf kalo penjelasanx tidak terlalu baik (maklum belum ahli menjelaskan dengan tulisan, wkwkwkwk)

Pengurutan Data Dengan Teknik Bubble Sort & Insertion Sort

2010-07-15T19:21:00.000-07:00

Assalamualaikum Wr Wb

Kali ini saya akan menerangkan tentang teknik pengurutan data yaitu teknik Bubble Sort dan Insertion Sort (Teringat pada waktu masa kuliah dosen ngajarin Teknik ini tapi gak paham2, bodoh amat dulu ya!!! wkwkwkwk).

Sebenarnya banyak teknik untuk melakukan pengurutan data seperti selection sort, quick sort, tapi kali ini saya akan mencoba menjelaskan teknik bubble sort dan Insertion dengan menggunakan bahasa pemprograman PHP.

Mari kita lihat script PHP-nya....

function bubble_sort($arr){
do{
$loop=false;
for($i=0;$i<=sizeof($arr)-2;$i++){ if($arr[$i]>$arr[$i+1]){
$temp=$arr[$i];
$arr[$i]=$arr[$i+1];
$arr[$i+1]=$temp;
$loop=true;
}
}
} while($loop==true);
return $arr;
}

function insertion_sort($arr){
for($i=1;$i<=sizeof($arr)-1;$i++){ $value = $arr[$i]; $j = $i-1; $loop = false; do{ if($arr[$j]>$value){
$arr[$j+1]=$arr[$j];
$j=$j-1;
if($j<0){ $loop=true; } }else{ $loop=true; } } while($loop==false); $arr[$j+1]=$value; } return $arr; } function tampil_data($arr){ $i = 0; $tdata = ""; foreach($arr as $value){ if($i++) $tdata .= ', '; $tdata .= $value; } return $tdata; } $data = array(5,3,8,6,2,1); echo "Jumlah Data : " . sizeof($data) . "
";
echo "Data Awal : ", tampil_data($data);
echo "
";

$hasil_bubble = bubble_sort($data);
echo "Hasil Bubble Sort : ", tampil_data($hasil_bubble);
echo "
";
$hasil_insertion = insertion_sort($data);
echo "Hasil Insertion Sort : ", tampil_data($hasil_insertion);

Silahkan dicoba.... (Penjelasannya menyusul, he 3x)
Sumber :
http://en.wikipedia.org/wiki/Bubble_sort
http://en.wikipedia.org/wiki/Bubble_sort

Menampikan Data dengan DataReader dan DataAdapter

2010-03-14T15:40:00.000-07:00

Hai semua..! kali ini saya akan mencoba membagikan sedikit ilmu saya dalam bahasa pemrpograman Visual Basic.Net, bagaimana menampilkan data di dalam database menggunakan 2 buah metode,
pertama menggunakan DataReader, dan yang Kedua menggunakan DataAdapter yang nanti akan mengisi kedalam sebuah DataSet.
Disini saya menggunakan Console Aplication karena saya teringat dengan pelajaran ketika saya pertama kali mempelajari bahasa pemprograman yaitu pascal yang tampilannya masih under DOS.

Struktur table peserta yang dipakai :
Field1 -> ID -> NChar[10]
Filed2 -> Nama -> VChar[50]
Field3 -> Alamat -> VChar[50]

Mari kita lihat coding program sederhana yang saya buat berbasis under DOS ini.

*Klik Gambar untuk melihat tulisan

Setelah Coding Program Diatas Di Compile Maka akan ada tampilan untuk memilih 3 buah pilihan untuk menampilkan data, tampilkan semua data atau mencari data sesuai nama, dan ada 2 tampilan data pertama menggunakan datareader dan yang kedua menggunakan dataadapter

Silahkan download source code untuk mencoba...! Download

Sekian dan terima kasih, semoga bermanfaat bagi para pemula VB.NET programmer

Mudahnya Desain Web Menggunakan Website X5

2010-02-13T19:30:00.000-08:00

Bingung bikin desain website yang bagus? gak punya keahlian dalam mendesain website? gak mau repot lama2 bikin desain website?

solusinya adalah Website X8 Evolution...!!! (gakakakak...!!! udah kaya iklan aja).
Website X8 Evolution menurut saya adalah program untuk mendesain website yang paling bagus dan paling mudah, didalamnya sudah banyak tersedia template2 website yang dapat kita modifikasi, sehingga tak perlu repot-repot lagi menulis sintak2 html dan css yang lumayan banyak...!!!

ok! langsung saja saya beri link untuk "mengunduh" (keren yo bahasa indonesiax "download") aplikasi ini...!!! silahkan.

http://rapidshare.com/files/232020909/Incomedia_WebSite_X5_Evolution_v8.0.9_www.softarchive.net.exe

neh cerminnya (mirror maksudnya) :

http://letitbit.net/download/0040942469d7d3f/Incomedia_WebSite_X5_v8.0.0.9_www.softarchive.net.rar.html
http://uploading.com/files/3SB3ABVB/Incomedia_WebSite_X5_v8.0.0.9_www.softarchive.net.rar.html
http://rapidshare.com/files/228426211/Incomedia_WebSite_X5_v8.0.0.9_www.softarchive.net.rar

ket : sumber diambil dari website lain (karna saya gak sanggup ngupload sendiri ke web, wakakakak)

Balik Kalimat Dengan Javascript

2010-01-19T20:20:00.000-08:00

Hai, Sekarang saya ingin berbagi lagi sedikit script sederhana yang saya buat.
Disini saya akan membagikan sebuah script sederhana untuk membalik suatu kata atau kalimat dengan menggunakan bahasa pemprograman javascript...!

Scriptnya.....! Klik gambar untuk memperbesar....!

Selamat Mencoba....!

Konversi Angka Ke Kata-Kata (PHP)

2010-01-19T01:12:00.000-08:00

Kali ini saya akan mencoba berbagi ilmu bagaimana menkonversikan angka-angka ke dalam kata-kata, contohnya :

1200500 => Satu Juta Dua Ratus Ribu Lima Ratus.

Langsung saja saya berikan script PHP yang sudah saya buat...!

function Terbilang($n){
$hasil = "";
$satuan = array("","Satu","Dua","Tiga","Empat","Lima","Enam","Tujuh","Delapan","Sembilan","Sepuluh","Sebelas");
if($n>=0 && $n<=11){
$hasil .= " " . $satuan[$n];
}elseif($n>=12 && $n<=19){
$hasil .= Terbilang($n % 10) . " Belas";
}elseif($n>=20 && $n<=99){
$hasil .= Terbilang(floor($n/10)) . " Puluh" . Terbilang($n % 10);
}elseif($n>=100 && $n<=199){
$hasil .= " Seratus" . Terbilang($n-100);
}elseif($n>=200 && $n<=999){
$hasil .= Terbilang(floor($n/100)) . " Ratus" . Terbilang($n % 100);
}elseif($n>1000 && $n<=1999){
$hasil .= " Seribu" . Terbilang($n-1000);
}elseif($n>=2000 && $n<=999999){
$hasil .= Terbilang(floor($n/1000)) . " Ribu" . Terbilang($n % 1000);
}elseif($n>=1000000 && $n<=999999999){
$hasil .= Terbilang(floor($n/1000000)) . " Juta" . Terbilang($n % 1000000);
}else{
$hasil .= Terbilang(floor($n/1000000000)) . " Milyar" . Terbilang($n % 1000000000);
}
return $hasil;
}

Selanjutnya gunakanlah fungsi diatas untuk menkonversi angka ke kata-kata...!
Selamat Mencoba...!

Konversi Angka Romawi (PHP)

2010-01-19T01:02:00.000-08:00

MEMBUAT FUNGSI KONVERSI ANGKA BIASA KE ANGKA ROMAWI DENGAN BAHASA PEMPROGRAMAN PHP

Saya ingin berbagi sedikit ilmu yang saya dapat kepada rekan semua, disini saya akan membuat sebuah fungsi di PHP untuk mengkonversikan angka biasa ke angka romawi, contohnya 1988 menjadi MCMLXXXVIII.

Ini script PHP yang saya buat....!

function Romawi($n){
$hasil = "";
$iromawi = array("","I","II","III","IV","V","VI","VII","VIII","IX","X",20=>"XX",30=>"XXX",40=>"XL",50=>"L",
60=>"LX",70=>"LXX",80=>"LXXX",90=>"XC",100=>"C",200=>"CC",300=>"CCC",400=>"CD",500=>"D",600=>"DC",700=>"DCC",
800=>"DCCC",900=>"CM",1000=>"M",2000=>"MM",3000=>"MMM");
if(array_key_exists($n,$iromawi)){
$hasil = $iromawi[$n];
}elseif($n >= 11 && $n <= 99){
$i = $n % 10;
$hasil = $iromawi[$n-$i] . Romawi($n % 10);
}elseif($n >= 101 && $n <= 999){
$i = $n % 100;
$hasil = $iromawi[$n-$i] . Romawi($n % 100);
}else{
$i = $n % 1000;
$hasil = $iromawi[$n-$i] . Romawi($n % 1000);
}
return $hasil;
}

untuk menggunakannya tinggal gunakan fungsi diatas!
Selamat Mencoba....!

Coba Shouzu

2009-04-04T23:07:00.001-07:00

Ini adalah posting menggunakan aplikasi shouzu yang dijalankan di nokia 5800 express music

Cara Bikin Blog

2007-12-21T01:31:00.000-08:00

Salam kenal, namaku yakin, aku masih awam soal blog, tapi aku sudah dapat membuat blog kepunyaan sendiri ini, jadi aku mau sedikit berbagi bagaimana membuat blog.

langkah yang dilakukan sangatlah mudah, anda hanya perlu masuk http://www.blogger.com/ atau situs lain yang menyediakan layanan pembuatan blog, lalu masukan account gmail anda (apabila belum punya e-mail di gmail, masuk saja mail.google.com) setelah itu ikutilah langkah-langkah yang ada.

Terima kasih, semoga dapat membantu