Membuat MP3Player yang sangat Sederhana dan Penuh Warna dengan Visual Basic 6.0

Selamat Sore, Hari terakhir di tahun 2015 ini saya mau posting lagi tentang Visual Basic 6.0. Postingan kali ini saya mau mencoba berbagi tentang cara membuat MP3 Player Sederhana tapi dengan tampilan yang lumayan cantik dan berkilauan (tema tahun baru),hehehehe…

                Sebenarnya program ini berasal dari berbagai tutorial yang saya coba praktekan,lalu saya coba tambahkan dan aplikasikan di aplikasi mp3 player yang dibuat ini.daripada lama, langsung saja kita mulai, Pertama buka Visual Basic 6.0 milik anda.  

Tambahkan Component Microsoft Common Dialog Control 6.0 (SP3) dan Microsoft Multimedia Control 6.0. lalu klik OK dan component nya akan tampil.

Sekarang kita buat Desain Form nya seperti berikut.

Label yang diberi kotak adalah label dengan properties Backstyle : Transparent dan Borderstyle : None

Kenapa label yang ke 2 saya buat kosong dan transparan, karena itu dibuat untuk nanti tampilan judul lagu yang diputar bisa tampil sesuai dengan nama file lagu tersebut. Dan 2buah timer sendiri saya gunakan untuk  yang pertama agar label1 bisa berkelip-kelip, kemudian timer ke 2 saya gunakan untuk label ke 2 yaitu judul lagu bisa berjalan dari kanan ke kiri dan berkelip-kelip. Kecepatan kelip atau jalannya text bisa di atur melalui interval di masing-masing timer. Sesuaikan saja menurut selera anda.Untuk gambar background silahkan mau pake atau tidak terserah anda. Jika ingin memakai background silahkan masukan gambarnya di properties,lalu picture dan pilih gambar yang ada di computer anda. mp3 player ini juga ketika di run tidak bisa di perbesar atau di perkecil form nya.

Listing code untuk mp3 player ini adalah sebagai berikut silahkan anda copy:

Private Const GWL_STYLE = (-16)

Private Const WS_THICKFRAME = &H40000

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _

        (ByVal hwnd As Long, ByVal nIndex As Long, _

        ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _

        (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Sub Command1_Click()

On Error GoTo loncat

MMControl1.Command = "stop"

CommonDialog1.ShowOpen

MMControl1.FileName = CommonDialog1.FileName

MMControl1.Command = "open"

Label1.Caption = CommonDialog1.FileTitle

loncat:

Exit Sub

End Sub

Private Sub form_load()

Dim lStyle As Long

    lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)

    lStyle = lStyle And Not WS_THICKFRAME

    Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)

End Sub

Private Sub Form_Unload(Cancel As Integer)

MMControl1.Command = "stop"

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Timer1_Timer()

Label1.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)

    If (Label1.Left + Label1.Width) <= 0 Then

        Label1.Left = Me.Width

    End If

    Label1.Left = Label1.Left - 100

End Sub

Private Sub Timer2_Timer()

Label2.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)

End Sub

Sekian cara membuat Mp3 Player sederhana yang penuh warna,hehehe... terimakasih sudah berkunjung di blog ini. Seperti biasa saya juga akan menyertakan project dari program yang dibuat ini silahkan download disini. terima kasih.... Selamat Tahun baru 2016...

Membuat Kalkulator Sederhana dengan Mcrosoft Visual Basic 6.0

 
 Cara membuat kalkulator sederhana dengan Microsoft Visual Basic 6.0 memang sudah banyak tutorialnya. Memang design form nya berbeda-beda, tapi dari codingnya masih tetap sama begitu-begitu juga. Hanya saja jika kita punya imajinasi yang bagus tampilannya bisa kita rubah sesuai keinginan.

    Sebenarnya disini saya juga mau share cara membuat kalkulator yang sangat sederhana dan biasa sekali, tidak ada yang istimewa. Tapi tak apalah tinggal nanti anda bedakan saja dimana letak perbedaannya dari yang lain. Daripada lama-lama kita langsung saja jalankan Microsoft visual basic 6.0 anda masing-masing. Berikut ini design kalkulator yang saya buat..

Sangat sederhana Sekali bukan?  Untuk nama tiap component nya saya biarkan atau tidak diganti. Ok jika sudah selesai membuat design form nya kita lanjut ke listing code. Berikut listing code nya..

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text3.Text = Val(Text1.Text) - Val(Text2.Text)

End Sub

Private Sub Command3_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

Private Sub Command4_Click()

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

End Sub

Private Sub Command5_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

End Sub

Private Sub Command6_Click()

Unload Me

End Sub

Private Sub Text1_KEYPRESS(keyascii As Integer)

If Not ((keyascii >= 48) And (keyascii <= 57) Or keyascii = 8) Then

keyascii = 0

End If

End Sub

Private Sub Text2_keypress(keyascii As Integer)

If Not ((keyascii >= 48) And (keyascii <= 57) Or keyascii = 8) Then

keyascii = 0

End If

End Sub

Pada Textbox 1 dan 2 saya batasi hanya bisa input angka saja dan tombol backspace yang dapat berfungsi pada kedua textbox tersebut...
Demikian cara membuat kalkulator sangat biasa dan sederhana sekali ini. semoga bisa menambah referensi dan bisa memotivasi supaya kita bisa lebih kreatif lagi. Berikut saya kasih contoh projek nya silahkan anda download disini.
Selamat Siang... 

Affiliate

bbm free sticker

Memang ketika ingin tampil beda itu harus ada yang di korbankan, kali ini saya akan membagikan bbm yg free sticker, disini anda bisa download sticker sepuasnya dan tampil beda dengan sticker sticker yang anda kirim pada teman anda, silahkan download disini. semoga bermanfaat, terima kasih.

BAB II Tugas Akhir Perancangan program Penggajian

Halo apa kabar? Mudah-mudahan selalu baik ya.. 
Kuliah sudah masuk tahun ajaran baru nih kawan, ada yang mulai PKL, ada yang punya banyak teman baru, atau bahkan ada yang masih berkutat dengan tugas akhir?hehehe...piiiiss,,,

Oke lah buat teman-teman saya yang masih berjuang dengan tugas akhir nya, semangat kalian pasti bisa...!!!
ngomong-ngomong tentang tugas akhir ini sebelumnya saya pernah posting tugas akhir saya yang bab 1,nah pada postingan kali ini saya akan membagi bab 2 tugas akhir saya. Silahkan jika ingin melihat atau membaca, tapi mohon jangan menjiplak keseluruhan isi nya. Maksud saya share tugas akhir ini semata-mata hanya membantu kawan-kawan yang sedang menyusun tugas akhir dan hanya sebagai referensi.
berikut link download contoh BAB II
Download BAB II
Terima Kasih atas Kunjungannya di blog ini, Semoga Bermanfaat....

Contoh Bab 1 Tugas Akhir Perancangan Program Penggajian

Bagi kamu yang lagi bingung mencari referensi tugas akhir, disini saya akan membagikan tugas akhir saya tentang program penggajian, boleh dilihat hanya untuk referensi dan mohon jangan dijiplak yaaa..... jangan jadi mahasiswa yang plagiat,heehehe......

BAB I

PENDAHULUAN

1.1.  Latar Belakang

Perkembangan teknologi di era globalisasi seperti sekarang ini sangatlah pesat, terutama dalam dunia komputer. Komputer bukan barang atau alat yang asing di perusahaan, semua pekerjaan kantor sudah didukung oleh komputer baik itu di perusahaan kecil ataupun besar. Di setiap kantor, komputer memegang peranan penting dalam pekerjaan. Banyak pekerjaan membutuhkan komputer untuk mengolah data–data agar nantinya bisa dipakai ataupun menghasilkan laporan, sehingga kegiatan produksi bisa terkontrol dan memperoleh keuntungan.

Dalam sebuah perusahaan pasti punya pekerja atau buruh, begitu pula di PT. Mesindo Putra Perkasa. Buruh atau karyawan punya peranan penting dalam proses produksi, tanpa ada karyawan atau buruh mesin–mesin tidak dapat dijalankan. Sebagai imbalan atas pekerjaan karyawan maka perusahaan wajib membayarkan gaji setiap bulannya kepada karyawan. Perhitungan gaji karyawan di PT. Mesindo Putra Perkasa masih menggunakan MS. Office Excel. Perhitungan gaji tersebut masih banyak kekurangan, terutama ketika akan mencetak laporan keseluruhan data penggajian. Saat membuat laporan, pekerjaan admin menjadi lebih banyak karena harus melakukan input data kembali.

Dengan banyaknya kekurangan tersebut, maka penulis mengusulkan sebuah program yang dapat membantu perhitungan gaji tersebut. Program yang akan di usulkan ini di rancang dengan menggunakan Microsoft Visual Basic 6.0. Semoga dengan adanya program perhitungan gaji ini dapat membantu pekerjaan admin dalam pembuatan laporan dan perhitungan gaji itu sendiri.

Berdasarkan permasalahan yang telah diuraikan diatas, maka penulis akan memilih  judul untuk Tugas Akhir “Perancangan Program Penggajian Karyawan pada  PT Mesindo Putra Perkasa”.

  

1.2. Maksud dan Tujuan

Dalam penulisan tugas akhir ini ada beberapa maksud yang ingin dicapai oleh penulis diantaranya, sebagai berikut:

1.      Untuk menerapkan ilmu yang didapat di bangku kuliah pada jurusan Manajemen Informatika khususnya masalah pemrograman.

2.      Mencari dan mengetahui masalah yang ada pada proses penggajian dan memberikan solusi alternatif pada permasalahan yang dihadapi. 

3.      Merancang program penggajian untuk dapat dimanfaatkan secara nyata di perusahaan sehingga dapat membantu pekerjaan.

Sedangkan tujuan penuliasan Tugas Akhir ini adalah sebagai salah satu syarat kelulusan Program Diploma Tiga (D.III) jurusan Manajemen Informatika pada Akademi Manajemen Informatika dan Komputer Bina Sarana Informatika ( AMIK BSI ) Karawang.

1.3. Metode Penelitian

Dalam pembuatan Tugas Akhir ini penulis menggunakan beberapa metode riset untuk mengumpulkan informasi dan data yang diperlukan, yaitu:

A.      Metode Pengembangan Perangkat Lunak

Metode yang digunakan pada pengembangan perangkat lunak ini menggunakan model waterfall (Rosa dan Shalahuddin, 2013:31) yang terbagi menjadi 4 tahapan, yaitu :

1.    Analisis kebutuhan perangkat lunak

Dengan menggunakan aplikasi peenggajian di PT. Mesindo Putra Perkasa, karyawan atau petugas payroll dapat menginput atau menampilkan data karyawan, mengecek data gaji karyawan, dapat menginput dan menampilkan rekapitulasi gaji karyawan, mencetak gaji karyawan dan menampilkan laporan gaji karyawan.

2.    Desain perangkat lunak

Proses perancangan sistem ini difokuskan pada empat atribut, yaitu struktur data, arsitektur perangkat lunak, representasi antarmuka dan detail (algoritma) prosedural.

3.    Pembuatan kode program

Pada tahap ini, perancangan perangkat lunak direalisasikan sebagai serangkaian program atau unit program. Pembuatan program dilakukan dengan menggunakan Bahasa pemrograman Microsoft Visual Basic 6.0

4.    Pengujian

Pengujian fokus pada perangkat lunak dari segi logic dan fungsional dan memastikan bahwa semua bagian sudah diuji.

B.  Teknik Pengumpulan Data

Teknik pengumpulan data yang dipakai dalam penyusunan Tugas Akhir ini, yaitu

1.    Observasi

Meninjau dan mengamati secara langsung proses penggajian yang dipakai di PT Mesindo Putra Perkasa, serta mengumpulkan data atau informasi yang terkait dengan proses penggajian.

2.    Wawancara

Metode ini dilakukan penulis kepada petugas payroll di PT Mesindo Putra Perkasa. Dan melakukan tanya jawab mengenai proses perhitungan gaji, pencetakan slip gaji, dan pembuatan laporan.

3.    Studi Pustaka

Dengan metode ini penulis mempelajari berbagai buku untuk mengumpulkan data-data demi menunjang penulisan Tugas Akhir ini.

1.4. Ruang Lingkup

Dalam penulisan tugas akhir ini penulis membatasi permasalahan pada program penggajian karyawan di PT Mesindo Putra Perkasa. Batasan masalahnya hanya meliputi input data karyawan, input data pengguna, ganti password, input transaksi penggajian, pencetakan slip gaji, rekapitulasi data gaji, laporan penggajian.

Program ini dibuat dengan Bahasa pemrograman Visual Basic 6.0 dan basis data menggunakan Microsoft access 2003. Dan pencetakan laporan menggunakan crystal report 8.5.

1.5. Sistematika Penulisan

Untuk mempermudah pemahaman dari kajian tugas akhir ini, maka penulis menyajikan uraian-uraian berupa sistematika penulisan. Sehingga pembaca dapat dengan mudah memahami isi dari tugas akhir ini. Berikut adalah sistematika penulisannya :

BAB I      PENDAHULUAN

Dalam bab ini penulis menguraikan latar belakang secara umum, maksud dan tujuan, metode penelitian, ruang lingkup yang membatasi permasalahan dan sistematika penulisan yang menggambarkan keseluruhan isi tugas akhir ini.

BAB II    LANDASAN TEORI

Bab ini menjelaskan tentang konsep dasar program dan tools yang digunakan dalam pembuatan program penggajian ini.

BAB III   PEMBAHASAN

Pada bab ini menjelaskan tinjauan perusahaan, sejarah perusahaan, struktur organisasi dan fungsi, analisa kebutuhan, rancangan dokumen masukan, rancangan dokumen keluaran, Entity Relationship Diagram, spesifikasi file, pengkodean, spesifikasi program, spesifikasi sistem komputer, dan flowchart.

BAB IV   PENUTUP

Bab ini merupakan bab terakhir yang berisi tentang kesimpulan dan saran-saran untuk mencapai hasil akhir yang lebih baik.

Jengkol

Jengkol, bagi sebagian orang makanan ini identik dengan bau yang dihasilkannya yang sangat menyengat, tapi dibalik itu banyak juga orang yang menyukainya. dikutif dari Wikipedia Jengkol (Archidendron pauciflorum, sinonim: A. jiringa, Pithecellobium jiringa, dan P. lobatum) atau jering adalah tumbuhan khas di wilayah Asia Tenggara. Bangsa Barat menyebutnya sebagai dog fruit. Bijinya digemari di Malaysia (disebut "jering"), Myanmar (disebut "da nyin thee'"), dan Thailand (disebut "luk-nieng" atau "luk neang").^[1] Masyarakat Indonesia mengenalnya sebagai bahan pangan.

Jengkol termasuk suku polong-polongan (Fabaceae). Buahnya berupa polong dan bentuknya gepeng berbelit membentuk spiral, berwarna lembayung tua. Biji buah berkulit ari tipis dengan warna coklat mengilap. Jengkol dapat menimbulkan bau tidak sedap padaurin setelah diolah dan diproses oleh pencernaan, terutama bila dimakan segar sebagai lalap.

Jengkol diketahui dapat mencegah diabetes dan bersifat diuretik dan baik untuk kesehatan jantung. Tanaman jengkol diperkirakan juga mempunyai kemampuan menyerap air tanah yang tinggi sehingga bermanfaat dalam konservasi air di suatu tempat.

Manfaat Jengkol 

Ada berbagai Manfaat yang bisa didapat dari mengkonsumsi jengkol, dikutif dari disehat.com manfaat jengkol bagi kesehatan  adalah untuk mencegah terjadinya sembelit, mencegah anemia, mengatasi penyakit diabetes, mengatasi penyakit jantung, dan juga baik untuk ibu hamil. Jengkol mengandung serat yang sangat baik untuk system pencernaan. Asupan serat yang tercukupi akan menghindarkan Anda dari sembelit.

Manfaat Jengkol Untuk Diabetes

Sembelit yang terlalu sering akan membahayakan kesehatan tubuh karena sembelit dapat mengakibatkan terjadinya kanker usus besar. Manfaat dari jengkol tersebut dapat diperoleh dengan mengkonsumsi jengkol secara langsung.

Manfaat lain dari jengkol adalah untuk mencegah anemia. Penyakit tersebut terjadi karena kekurangan zat besi. Jengkol mengandung zat besi yang cukup tinggi yaitu 4,7 gram setiap 100 g jengkol. Manfaat jengkol untuk diabetes karena kandungan zat pada jengkol dapat membuat kandungan gula dalam darah dapat turun dalam waktu yang tepat.

Manfaat Jengkol Untuk Jantung

Tentu saja cara menurunkan gula darah dengan mengkonsumsi jengkol harus diimbangi dengan pola hidup yang sehat. Salah satunya dengan mengurangi makanan yang memiliki kandungan zat gula tinggi. Jika Anda penggemar minuman dan makanan yang manis, maka Anda dapat menggantinya dengan gula jagung. Dengan melakukan pola hidup sehat, maka manfaat dari jengkol dapat optimal.

Manfaat jengkol untuk jantung karena adanya kandungan mineral ang tinggi pada jantung. Jenis penyakit jantung koroner lah yang dapat diatasi dengan mengkonsumsi jengkol. Jantung koroner terjadi karena adanya penyempitan pembuluh darah.

Penyempitan tersebut tentu saja akan membuat aliran darah menuju jantung menjadi tidak lancar. Kandungan mineral pada jengkol akan membuat pembuluh darah tidak mengalami penyempitan kembali. Manfaat dari jengkol tersebut tentu saja dapat diperoleh dengan mengolah jantung tidak menjadi overcook.

Manfaat Jengkol Untuk Ibu Hamil

Manfaat jengkol untuk ibu hamil yaitu sangat baik untuk pertumbuhan tulang pada janin dan juga dapat mencegah terjadinya sembelit. Kandungan kalsium pada jengkol memang cukup tinggi. Kalsium sangat penting untuk pertumbuhan tulang, termasuk tulang pada janin. Selain kalsium, kandungan serat pada jengkol juga sangat tinggi.

Ibu hamil akan semakin sering mengalami sembelit. Sehingga, dengan mengkonsumsi jengkol, maka ibu hamil akan terhindar dari sembelit. Manfaat jengkol bagi orang hamil juga harus dengan membatasi konsumsi jengkol. Sehingga, Anda juga akan terhindar dari efek negative dari jengkol.

Sumber :Wikipedia, disehat.com

Kuliah Atau Kerja?

Kuliah atau Kerja?
Pertanyaan ini muncul ketika kita lulus SMK/SMA, betul? kalau tidak berarti anda tidak punya tujuan hidup, heheeh... piis.. ah..
Bagi orang tua anda yang punya banyak uang, mungkin anda bisa melanjutkan kuliah, tapi bagaimana dengan yang tidak punya cukup uang untuk membiayai kuliah? bagi anda yang tidak punya cukup uang untuk kuliah seperti saya, mau tak mau harus mengurungkan niat tersebut. tapi bukan berarti kita tak bisa kuliah, masih banyak jalan menuju jalan,hehehe....
Kerja? ya, itu bisa jadi pilihan daripada hanya berdiam diri, kuliah tidak,kerja tidak, usahapun tidak.
Kerja mengumpulkan modal untuk kuliah bisa jadi jalan, itupun kalau dapat pekerjaan.
Jika sudah cukup biaya untuk masuk kuliah, anda bisa mendaftar dan masuk kuliah di kelas karyawan itupun jika anda ingin kuliah sambil bekerja. Ketika anda kuliah sambil bekerja pintar-pintarlah membagi waktu, waktu adalah uang dan waktu adalah ilmu.
Kuliah sambil bekerja adalah suatu kebanggaan, kita bangga kuliah dengan biaya sendiri tanpa meminta pada orang tua dan selama kuliah kita dapat mengaplikasikan hasil belajar pada pekerjaan kita (jika pekerjaan kita sesuai dengan bidang studi kuliah). setelah lulus kita punya keuntungan pengalaman kerja dibanding yang lulus dengan kuliah reguler.
hanya itu saja yang saya bagi, artikel yang sangat simpel dan biasa ini semoga bisa jadi referensi buat anda yang baru lulus. karena ilmu takan pernah habis.