Minggu, 30 Juni 2013

Manusia,Tanggung jawab menghasilkan Kepercayaan dan Profesionalisme



Manusia merupakan ciptaan Tuhan Yang Maha Esa sebagai khalifah dibumi dengan dibekali akal pikiran untuk berkarya dimuka bumi. Manusia memiliki perbedaan baik secara biologis maupun rohani. Secara biologis umumnya manusia dibedakan secara fisik sedangkan secara rohani manusia dibedakan berdasarkan kepercayaannya atau agama yang dianutnya. Kehidupan manusia sendiri sangatlah komplek, begitu pula hubungan yang terjadi pada manusia sangatlah luas. Hubungan tersebut dapat terjadi antara manusia dengan manusia, manusia dengan alam, manusia dengan makhluk hidup yang ada di alam, dan manusia dengan Sang Pencipta.


Sejak manusia dilahirkan, manusia sudah mempunyai hak dan kewajiban yang mengikat apakah itu dengan Sang Pencipta ataupun dengan peraturan di tempat lahir mereka.  Hak yang paling mendasar adalah Hak Asasi Manusia (HAM).  HAM tidaklah berdiri sendiri, disamping itu ada yang mendampingi HAM yaitu tanggung jawab. Tanggung jawab mengandung 2 unsur kata yaitu menangggung dan menjawab. Menanggung sendiri yaitu memikul sesuatu baik nyata ataupun tidak sedangkan menjawab adalah sesuatu hasil yang mutlak dari sebuah reaksi manusia dalam merespon sesuatu disekitarnya. Dapat diartikan tanggung jawab adalah sesuatu yang ditanggung dan harus dilakukan oleh manusia baik terlihat maupun tidak terlihat.tanggung jawab sendiri erat kaitannya dengan kehidupan sehari-hari manusia maka dari itu diperlukan sebuah tekad untuk melaksanakan sebuah tanggung jawab.

Bertanggung jawab memanglah bukan hal yang mudah. Harus berani menerima resiko apapun bentuknya. Jika seseorang telah bertanggung jawab terhadap dirinya sendiri, maka ia dengan mudah dapat bertanggung jawab disemua kegiatan yang dilakukannya. Seseorang yang dapat bertanggung jawab, maka akan membuat orang lain lebih memiliki kepercayaan terhadap dirinya. Karena orang yang diberi kepercayaan untuk memikul sebuah tanggung jawab adalah hal yang besar. Karena kepercayaan yang diberikan seseorang kepada orang lain mahal harganya. Dengan diberi suatu kepercayaan mereka yakin bahwa kita dapat bertanggung jawab atas kepercayaan yang diberikan, dan tidak menyalah gunakan kepercayaan itu.
  
Tanggung jawab dan kepercayaan diperlukan dalam dunia kerja nantinya. Keduanya adalah salah satu dari sikap profesionalisme. Profesionalisme merupakan komitmen para anggota suatu profesi untuk meningkatkan kemampuannya secara terus menerus. “Profesionalisme” adalah sebutan yang mengacu kepada sikap mental dalam bentuk komitmen dari para anggota suatu profesi untuk senantiasa mewujudkan dan meningkatkan kualitas profesionalnya.

Jadi, tanggung jawab,kepercayaan, profesionalisme adalah 3 hal yang erat kaitannya didalam kehidupan manusia. Dengan menyelaraskan ketiganya diharapkan kehidupan sosial manusia menjadi lebih baik lagi.


 

Aplikasi Multimedia Dengan Visual Basic

Multimedia dengan Visual Basic

Windows media player dengan visual basic 6.0

Langkah-langkah :

1. Instalasi program visual basic  
2. Lalu buka Start-Progam-Microsoft Visual Studio  6.0-Microsoft Visual Basic 6.0 
3. Akan ada Tampilan utama,
pilih standard EXE untuk memulai membuat aplikasi baru, dan klik open untuk memulainya

4. Setelah pilih standart dan klik open,akan tampak tampilan form1 untuk memulai aplikasi
5. klik kanan pada toolbox pilih component
6. Pilih microsoft windows common dialog control 6.0
dan windows media player, lalu pilih apply dan ok
7. Buatlah Desain seperti ini dengan :
1 windows media player
1 common dialog
1 text box ( kosongkan )
dan 2 command button ( beri nama pilih dan keluar )

8. jika sudah klik 2x pada command pilih dan beri coddingan seperti ini
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1 = CommonDialog1.FileName
WindowsMediaPlayer1.URL = Text1.Text
End Sub

9. dan klik 2 x pada command keluar dan beri coddingan seperti ini
Private Sub Command2_Click()
End
End Sub

10. untuk membuat menu bar di setiap aplikasi yang dibuat di vb6
- klik menu editor pada toolbar vb6
 
- isi bagian nama &caption sesuai yang dinginkan (seperti: file/edit/about dll), kemudian ok
- untuk memasukan codingnya, klik 2x menubar yang telah kita bikin

11. lalu jalankan program dengan F5

12. dan pilih tombol klik untuk memasukkan lagu

13. lalu pilih open dan program akan running dan windows media player berhasil di jalankan
Aplikasi Multimedia dengan Visual Basic

Setelah membuat Windows Media Player, kita dapat menambahkan command-command lainnya, seperti menambahkan perintah add to playlist,list,image,dan lainnya.
 

Coding :

Private Sub addcmd_Click()
LstSumber.AddItem cmdlg.FileName
LstJudul.AddItem cmdlg.FileTitle
End Sub

Private Sub cmdDelete_Click()
On Error GoTo R
LstSumber.RemoveItem LstSumber.ListIndex
LstJudul.RemoveItem LstJudul.ListIndex
Exit Sub
R:  MsgBox "Choose First.", vbCritical, "Not Choose File."
End Sub
Private Sub CmdExit_Click()
End
End Sub

Private Sub cmdnext_Click()
LstSumber.ListIndex = LstSumber.ListIndex + 1
LstJudul.ListIndex = LstJudul.ListIndex + 1
wmp.URL = LstSumber.Text
Label1 = "Now Playing - " & LstJudul.Text

End Sub

Private Sub cmdopen_Click()
cmdlg.ShowOpen
If cmdlg.FileName = "" Then
' nothing happened
Else
wmp.URL = cmdlg.FileName
Label1 = "Now Playing - " & cmdlg.FileTitle
End If
End Sub

Private Sub cmdprev_Click()
LstSumber.ListIndex = LstSumber.ListIndex - 1
LstJudul.ListIndex = LstJudul.ListIndex - 1
wmp.URL = LstSumber.Text
Label1 = "Now Playing - " & LstJudul.Text
End Sub

Private Sub form_load()
Me.Width = 7020
mnAdd.Visible = False
Timer2.Enabled = False
Timer3.Enabled = False

End Sub



Private Sub Timer1_Timer()
Image4.Visible = False
Image2.Visible = True
Timer2.Enabled = True
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
Image2.Visible = False
Image3.Visible = True
Timer3.Enabled = True
Timer2.Enabled = False
End Sub
Private Sub Timer3_Timer()
Image3.Visible = False
Image4.Visible = True
Timer1.Enabled = True
Timer3.Enabled = False
End Sub
Private Sub LstJudul_Click()
LstSumber.ListIndex = LstJudul.ListIndex
End Sub

Private Sub LstJudul_DblClick()
wmp.URL = LstSumber.Text
Label1 = "Now Playing - " & LstJudul.Text
End Sub

Private Sub mnAdd_Click()
LstSumber.AddItem cmdlg.FileName
LstJudul.AddItem cmdlg.FileTitle
End Sub

Private Sub mnExit_Click()
End
End Sub

Private Sub mnOpen_Click()
cmdlg.ShowOpen
If cmdlg.FileName = "" Then
' nothing happened
Else
wmp.URL = cmdlg.FileName
Label1 = "Now Playing - " & cmdlg.FileTitle
End If
End Sub

Object
Property
Value
Listbox 1
Name
LstJudul
Command Button 1
Name
cmdprev

Picture
D://Picture/icon_prev
Command Button 2
Name
cmdDelete

Caption
Remove From Playlist
Command Button 3
Name
cmdnext

Picture
D://Picture/icon_next
Command Button 4
Name
addcmd

Caption
Add to Playlist
Command Button 5
Name
Cmdopen

Caption
Open File
Command Button 6
Name
CmdExit

Caption
Exit
Timer1
Interval
1:500
Timer2
Interval
1:500
Timer3
Interval
1:500
Image1
Picture
D://Picture/Layout
Image2
Picture
D://Picture/Multimedia
Image3
Picture
D://Picture/1KA03
Image4
Picture
D://Picture/Mantap