Simple MP3 Player

ketika saya masih semester 3, saya pernah terpikir untuk membuat winamp atow semacam mp3 player. Tapi saya bingung coz saya waktu itu saya ga bisa apa2, saya cuma bisa delphi. Itu juga masih belajar…
Nah setelah mengumpulkan kemauan keras, akhirnya saya maksain diri buat bikin mp3 player pake delphi.. ga sebagus winamp sih, tapi untuk saya yang masih semester 3 dan baru bisa delphi.. seneng banget bisa bikin yang kayak ginian…
Ini langkah2 ama source code-nya:

1. Program ini cuma make 1 form aja. Klo udah buka delphi, tinggal tambahkan beberapa objek ke form1. Objek yang pertama yaitu objek MediaPlayer yang terdapat pada component System.
2. Pada bagian object inspector, pilih property VisibleButton, lalu beri nilai False untuk btNext, vtPrev, btRecord, dan btEject. Jadi button yang keliatan cuma btPlay, btPause, btStop, btStep, btBack.
3. Tambahkan objek OpenDialog yang ada pada component Dialogs. Lalu pada object inspector untuk OpenDialog, pilih property Filter. Pada filter editor, kita tambahkan filter untuk file mp3 agar aplikasi ini hanya dapat membuka file mp3 saja. Misal Filter Name-nya MPEG Audio Files (*.mp3), sedangkan Filter-nya isi dengan *.mp3
4. Klo kmu pake delphi7, tambahkan object XPManifest yang ada pada component Win32, agar tampilan program-nya menyesuaikan dengan setting grafik window XP.
5. Tambahkan object Timer yang ada pada component System. Pastikan property Enabled-nya bernilai True, dan Intervalnya bernilai 1000.
6. Tambahkan 1 buah button, captionnya diisi dengan Open mp3 file…
7. Tambahkan object ProgressBar yang ada pada component Win32. Nah sekarang atur tampilannya agar seperti tampak pada gambar.

8. Sebelum mulai coding, tambahin dulu variabel global berikut ini:
Mp3Path: string; paused: Boolean;
9. Untuk inisialisasi, double klik form1, lalu tambahkan sourcode berikut ini pada procedure TForm1.FormCreate(Sender: TObject);
paused:=false; MediaPlayer1.Enabled:=False; Form1.Height:=115; Form1.Width:=435; Form1.Top:=(Screen.Height-Form1.Height)div 2; Form1.Left:=(Screen.Width-Form1.Width)div 2;
10. Nah skr mulai coding. Double klik object MediaPlayer, dan tambahkan source code berikut ini pada procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType; var DoDefault: Boolean);
if Button = btStop then begin MediaPlayer1.Position:=0; ProgressBar1.Position:=0; end else if Button = btStep then begin if ((MediaPlayer1.Position+5000)<=MediaPlayer1.Length) then MediaPlayer1.Position:=MediaPlayer1.Position+5000 else begin MediaPlayer1.Position:=0; ProgressBar1.Position:=0; end; MediaPlayer1.Play; end else if Button = btBack then begin if ((MediaPlayer1.Position-5000)>0) then MediaPlayer1.Position:=MediaPlayer1.Position-5000 else MediaPlayer1.Position:=0; MediaPlayer1.Play; end;
11. Double klik object Timer, lalu tambahkan source code ini pada procedure TForm1.Timer1Timer(Sender: TObject);
if MediaPlayer1.Enabled then begin ProgressBar1.Position:=MediaPlayer1.Position; if ProgressBar1.Position=MediaPlayer1.Length then begin MediaPlayer1.Stop; ProgressBar1.Position:=0; MediaPlayer1.Close; MediaPlayer1.Enabled:=true; MediaPlayer1.FileName:=Mp3Path; MediaPlayer1.Open; MediaPlayer1.Position:=0; ProgressBar1.Max:=MediaPlayer1.Length; ProgressBar1.Min:=0; end; end;
12. Double klik button tadi, lalu tambahkan source code ini pada procedure TForm1.Button1Click(Sender: TObject);
if OpenDialog1.Execute then begin Mp3Path:=OpenDialog1.FileName; with MediaPlayer1 do begin Enabled:=true; FileName:=Mp3Path; Open; Position:=0; Play; end; ProgressBar1.Max:=MediaPlayer1.Length; ProgressBar1.Min:=0; end;

Dah selese, cuma itu aja langkah2nya.. met nyoba

sumber
 http://bayurimba.wordpress.com/2007/10/28/simple-mp3-player/

Read more »

Tugas Akhir Ilmu Sosial Dasar

Tugas Akhir Ilmu Sosial Dasar 

A.    Definisi Dari Ilmu Sosial Dasar

Hal pertama saya akan mendefinisikan satu-satu dari apa yang dimaksud dengan Ilmu Sosial Dasar, Sistem Komputer, dan Fenomena dalam Kehidupan. Semuanya itu saling berkaitan, baik kita bukan dari Anak Sistem maupun Ilmu Komputer lainnya, hal itu bisa saja saling berkaitan, karena Ilmu Sosial Dasar mencakup seluruh lapisan masyarakt dan juga lingkungan. Karena Ilmu Sosial Dasar adalah pengetahuan yg menelaah masalah-masalah sosial, khususnya masalah-masalah yang diwujudkan oleh suatu masyarakat, dengan menggunakan Teori-teori  (fakta, konsep, teori) yang berasal dari berbagai bidang pengetahuan keahlian dalam lapangan ilmu-ilmu sosial (seperti Geografi Sosial, Sosiologi, Antropologi Sosial, Ilmu Politik, Ilmu Komputer, Ekonomi, Psikologi Sosial dan Sejarah).

Dari definisi diatas kita dapat menyimpulkan bahwa Ilmu Sosial dasar mencakup segala Bidang dalam kehidupan, Maka dari itulah Ilmu Sosial Dasar merupakan suatu usaha yang dapat diharapkan memberikan pengetahuan umum dan pengetahuan dasar tentang konsep-konsep yang dikembangkan untuk melengkapi gejala-gejala sosial agar daya tanggap (tanggap nilai), persepsi dan penalaran mahasiswa dalam menghadapi lingkungan sosial dapat ditingkatkan , sehingga kepekaan mahasiswa pada lingkungan sosialnya menjadi lebih besar.

B.     Apa itu yang di maksud dengan Sistem Komputer?

Sebagian masyarakat mungkin sudah mengenal Sistem Komputer, karena dari kata “Komputer” sendiri sudah mengandung makna bahwa itu berkaitan dengan Komputer itu sendiri. Tapi untuk orang di daerah-daerah tertinggal seperti contoh di Irian Jaya, yang sebagian besar masyarakatnya masih menggunakan koteka mungkin belum mengerti apa itu Sistem Komputer, Sistem Komputer itu sendiri memiliki arti kata,  yaitu dari kata “Sistem” dan kata “Komputer” . Sistem adalah suatu tatanan yang saling terhubung dan memiliki lintasan dalam komponen-komponen yang ada. Dan untuk istilah Komputer sendiri adalah perangkat keras dan perangkat lunak yang saling terhubung dengan bantuan brainware (Pengguna).

Dalam kaitannya dengan Ilmu Sosial Dasar, perkembangan perangkat keras di dunia teknologi informasi juga berkembang sangat pesat. Komputer (prosesor computer) telah digunakan diberbagai bidang seperti mesin-mesin industry, alat-alat rumah tangga, bidang keamanan, otomotif, mainan elektronik (games), dan sebagainya. Lalu apa yang mendasari semua itu? Semuanya saling berkaitan dengan Ilmu Sosial, tetapi dalam kaitannya dengan Komputer tentu ada hal yang menguntungkan dan ada pula yang dirugikan dalam sebuah sosialisainya, banyak jejaring sosial yang telah dikembangkan oleh para ahli computer. Seperti Facebook, Twitter, Skypie dan masih banyak lainnya. Tetapi semua itu belum bisa menjadikan manusia saling bersosialisasi. Karena semua itu hanya saling terhubung dalam dunia maya.

C.    Apa hubungannya antara Ilmu Sosial Dasar dan Sistem Komputer dalam fenomena kehidupan?

Dalam fenomena kehidupan sekarang memang yang namanya manusia tidak lepas dari apa itu Teknologi, semua teknologi itu tentunya diciptakan oleh seseorang yang ahli dibidang teknologi, semua itu diciptakan tentunya untuk membantu manusia dalam kehiduan sehari-hari. Dalam kesehariannya manusia tidak lepas dari komunikasi antar sesamanya. Namun bagaimana untuk jarak yang jauh seseorang dapat saling berkomunikasi, maka diciptakanlah Telefon, Komputer, dan masih banyak contoh lain, Komputer sendiri memiliki banyak kegunaan baik untuk pengerjaan tugas-tugas kantor, computer sendiri dapat digunakan untuk sarana komunikasi jarak jauh. Dalam Sistem Komputer mahasiswa diajarkan mengenai jaringan, program-program logika dan elektro (berkaitan dengan perangkat keras) tentunya disini mahasiswa diharapkan dapat menciptakan alat yang lebih inovasi dan dapat digunakan oleh banyak orang. Terciptanya Sistem Komputer juga memiliki tujuan, yaitu :

Menguasai dasar ilmu dan teknologi pengolahan informasi yang berbasi komputer dan mampu menganalisis, merancang, membangun, dan menciptakan perangkat keras dan devais berbasiskan komputer (sistem tertanam/sistem embeded).

Tentunya ini saling berhubungan apa itu Ilmu. Sosial, Sistem Komputer dalam suatu fenomena kehidupan adalah untuk menjadikan manusia yang terampil dan Inovasi tentunya. Saya ambil contoh untuk diri saya sendiri, walau aktifitas lebih banyak di depan computer karna tuntukan kuliah dan cita cita ingin ahli computer namun tidak menutup kemungkinan untuk terus bergaul dengan sesame teman untuk menjalin kesosialan dan agar mencapai fenomena hidup yang lebih banyak manfaatnya nyaitu dengan membantu satu sama lain.

Read more »

Jaringan Komunikasi dalam Masyarakat dan Organisasi

Paper 5

Tugas Ilmu Sosial

Nama : Mochammad Lutfi Saepudin

Npm : 24111544

Kelas : 1KB01

Fakultas Ilmu Komputer dan Teknologi Informasi

Universitas Gunadarma

2011

Jaringan Komunikasi dalam Masyarakat dan Organisasi

Read more »

Tutorial Qbasic - Kondisi IF - THEN - ELSE

Program Dengan 2 Kondisi - Menentukan Lulus Atau Gagal

Bentuk Umum :
IF Condition THEN
Statement 1
ELSE
Statement 2
END IF

Contoh Program :
CLS
INPUT "Nilai Akhir ="; x
IF x >= 60 THEN
Print "Lulus"
ELSE
Print "Gagal"
END IF
END

Program Dengan Lebih Dari 2 Kondisi - Menentukan Grade Kelulusan

Bentuk Umum :
IF Condition 1 THEN
Statement 1
ELSE
IF Condition 2 THEN
Statement 2
ELSE
IF Condition 3 THEN
Statement 3
ELSE
IF ....... THEN
Statement .......
ELSE
Last Statement
END IF
END IF
END IF
....
END

Contoh Program :
CLS
INPUT "nilai UTS ="; x
INPUT "nilai UAS="; y
LET z = (x + y) / 2
PRINT z
IF z >= 85 THEN
PRINT "Grade A"
ELSE
IF z >= 75 THEN
PRINT "Grade B"
ELSE
IF z >= 60 THEN
PRINT "Grade C"
ELSE
IF z >= 50 THEN
PRINT "Grade D"
ELSE
PRINT "Grade E"
END IF
END IF
END IF
END

Output Program :

Cat :
- END IF pada program lebih dari 2 kondisi , digunakan sebanyak IF yang dijalankan.
- Statement Terakhir Selalu Setelah ELSE Tanpa menggunakan IF Kembali.

Read more »

Tutorial Qbasic - Perulangan FOR - NEXT

1.Program Sederhana Membuat Segitiga Siku - Siku :


For i = 1 To x
For j = 1 To i
Print j;
Next j
Print
Next i


Contoh Output :


1
12
123
1234
12345

2.Program Sederhana Membuat Segitiga Siku - Siku versi 2 :


For i = x To 1 Step -1
For j = 1 To i
Print j;
Next j
Print
Next i

Contoh Output :
12345
1234
123
12
1

3.Program Sederhana Membuat Segitiga Siku - Siku versi 3 :

For i = 1 To x
For j = 1 To i
Print i;
Next j
Print
Next i

Contoh Output :

1
22
333
4444
55555

4.Program Sederhana Membuat Segitiga Siku - Siku versi 4 :

For i = x To 1 Step -1
For j = 1 To i
Print i;
Next j
Print
Next i

Contoh Output :

55555
4444
333
22
1

5.Program Sederhana Membuat Segitiga Siku - Siku versi 5 :

For i = 1 To x
For j = i To 1 Step -1
Print j;
Next j
Print
Next i
Contoh Output :

1
21
321
4321
54321


6.Program Sederhana Membuat Segitiga Siku - Siku versi 6 :


For i = x To 1 Step -1
For j = i To 1 Step -1
Print j;
Next j
Print
Next i
Contoh Output :

54321
4321
321
21
1

7.Program Sederhana Membuat Segitiga Sama Sisi :

a=4
b=a
for i = 1 to a
print tab(b);
for j = 1 to i
print "* ";
next j
print
b = b -1
next i


Output :

*
* *
* * *
* * * *

8.Program Sederhana Membuat Segitiga Sama Sisi versi 2 :

a=4
b=1
for i = a to1 step -1
print tab(b);
for j = 1 to i
print "* ";
next j
print
b = b + 1
next i

Output :

* * * *
* * *
* *
*

9.Program Sederhana Membuat Jam Pasir :

a=4
b=1
for i = a to1 step -1
print tab(b);
for j = 1 to i
print " *";
next j
print
b = b + 1
next i
b=a
for i = 2 to a
print tab(b);
for j = 1 to i
print "* ";
next j
print
b = b -1
next i

Output :

* * * *
* * *
* *
*
* *
* * *
* * * *

Read more »

Kasus Tersebarnya Video Mesum Ariel Peterporn yang menghebohkan masyarakat

Paper 4

Tugas Ilmu Sosial

Nama         : Mochammad Lutfi Saepudin

Npm           : 24111544

Kelas          : 1KB01

Fakultas Ilmu Komputer dan Teknologi Informasi

Universitas Gunadarma

2011

Kasus Tersebarnya Video Mesum Ariel Peterporn yang menghebohkan masyarakat

·       POKOK MASALAH

Read more »

Cara Upgrade Galaxy Gio Android Froyo Ke Gingerbread Via Odin

Kali ini saya akan memberikan tutorial bagaimana upgrade Samsung Galaxy Gio Froyo ke Android Gingerbread via odin. Jika beberapa waktu yang lalu Samsung telah mengumumkan Gingerbread Eropa, kali ini versi Asia dengan Bahasa Indonesia bisa kamu nikmati.

Sebenarnya sejak diumumkannya Gingerbread versi Eropa untuk Samsung Galaxy Gio saya berkeinginan untuk meng-upgrade smartphone ini. Namun, saya masih tetap menunggu Gingerbread wilayah Asia.

Well, untuk meng-upgrade Galaxy Gio, kamu perlu memperisapkan

1. Odin Multi Downloader yang bisa kamu download http://www.mediafire.com/download.php?gy12y2m4qbwtcyb


2. Download Firmware GingerBread untuk yang versi internasional bisa di dapet di
S5660XXKQG_S5660SEBKQ1(GINGERGREAD 2.3.4)
 http://hotfile.com/dl/129879201/a677f1f/S5660XXKQG_S5660SEBKQ1.rar.html

untuk versi asia (Indo) bisa di dapet di
S5660DXKP6 (GB 2.3.4/INDO) with A2SD/LINK2SD Enable
http://www.megaupload.com/?d=B6EHRAC1

3. Kemudian ekstrak file yang telah didownload tersebut dengan password samfirmware.com. dan jalankan file Odin Multi Downloader.

 

4. Tekan tombol OPS dan pilih GIO_v1.0.ops sehingga tulisan (Android) berubah menjadi (GT-S5660).

5. Masukkan file yang didownload tadi secara berutan.

BOOT : APBOOT_S5660DXKP6_CL561540_REV03_user_low_true.tar.md5

PHONE : MODEM_S5660DXKP6_CL561540_REV03.tar.md5

PDA : CODE_S5660DXKP6_CL561540_REV03_user_low_true.tar.md5

CSC : GT-S5660-MULTI-CSC-OLBKP6.tar.md5

EFS dan One Package kosongkan saja

6. Kemudian matikan Galaxy Gio kamu dan hidupkan kembali dengan menekan tombol Volume Down, Home dan Power secara bersamaan sehingga masuk Download Mode sampai muncul tulisan Downloading.

7. Lepaskan memori eksternal kemudian colokkan kabel USB ke Galaxy Gio dan PC sehingga keduanya terhubung. Lihat COM Port di Odin akan muncul warna kuning sebagai tanda bahwa smartphone kamu sudah terhubung dengan PC.

8. Tekan tombol Start. Tunggu kurang lebih 5 menit sampai terlihat warna biru bertuliskan PASS. Jika kamu melakukannya dengan benar Galaxy Gio kamu sudah menjadi Gingerbread. Selamat mencoba.

Read more »