Sunday, June 19, 2016

TUGAS AKHIR [ILMU BUDAYA DASAR] "KEINDAHAN"

TUGAS IBD
NAMA  :  FAISHAL ES
KELAS/NPM  :  1KA16 / 12115411
JURUSAN  :  SISTEM INFORMASI

 KEINDAHAN
Kata keindahan berasal dari kata indah yang berarti molek, bagus, permai, cantik, dan sebagainya. Keindahan merupakan daya tarik seni dari suatu hal.

1.      Pengertian Keindahan
Keindahan pada dasarnya adalah sejumlah kualitas pokok tertentu yang terdapat pada suatu hal (obyek) yang memberi kepuasan bagi penyerapnya.
o   Keindahan alam arti luas merupakan pengertian semula dari bangsa Yunani dulu yang didalamnya tercakup pula kebaikan. Plato misalnya menyebut tentang watak yang indah dan hukum yang indah, sedang Aristoteles merumuskan keindahan sebagai sesuatu yang selain baik juga menyenangkan.
o   Keindahan dalam arti estetik murni menyangkut pengalaman estetis dari seseorang dalam hubungannya dengan segala sesuatu yang dilihatnya.
o   Sedang keindahan dalam arti terbatas lebih disempitkan sehingga hanya menyangkut benda-benda yang dicerna dengan penglihatan, yakni berupa keindahan dari bentuk dan warna.
Keindahan atau keelokan merupakan sifat dan ciri dari orang, hewan, tempat, objek, atau gagasan yang memberikan pengalaman persepsi kesenangan, bermakna, atau kepuasan. Dalam Kamus Besar Bahasa Indonesia, keindahan diartikan sebagai keadaan yang enak dipandang, cantik, bagus benar atau elok. Keindahan dipelajari sebagai bagian dari estetika, sosiologi, psikologi sosial, dan budaya. Sebuah "kecantikan yang ideal" adalah sebuah entitas yang dikagumi, atau memiliki fitur yang dikaitkan dengan keindahan dalam suatu budaya tertentu, untuk kesempurnaannya.

2.      Perbedaan Keindahan Sebagai Suatu Kualitas Abstrak Dan Sebuah Benda Tertentu Yang Indah
Sebenarnya sulit bagi kita untuk menyatakan apakah keindahan itu. Keindahan itu suatu konsep abstrak yang tidak dapat dinikmati karena tidak jelas. Keindahan itu baru jelas jika telah dihubungkan dengan sesuatu yang berwujud atau suatu karya. Dengan kata lain keindahan itu baru dapat dinikmati jika dihubungkan dengan suatu bentuk. Dengan bentuk itu keindahan berkomunikasi. Menurut cakupannya orang harus membedakan keindahan sebagai suatu kualitas abstrak dan sebagai sebuah benda tertentu yang indah. Untuk pembedaan itu dalam bahasa Inggris sering dipergunakan istilah “beauty” (keindahan) dan “the beautiful” (benda atau hal indah).
Keindahan abstrak adalah suatu konsep abstrak yang tidak dapat dinikmati karena tidak jelas. Keindahan itu baru jelas jika telah dihubungkan dengan sesuatu yang berwujud atau suatu karya. Dengan kata lain keindahan itu baru dapat dinikmati jika dihubungkan dengan suatu bentuk
Keindahan pada benda tertentu adalah keindahan yang memiliki konsep pemahaman dan nilai yang berbeda dengan kualitas abstrak di mana benda yang dimaksud dalam hal ini adalah sesuatu yang mewakili keindahan secara umum dan dapat dengan mudah diterima maupun dipahami oleh masyarakat.

3.      Pengertian Keindahan Menurut Luasnya
a.       Keindahan Dalam Arti  Luas
dalam arti yang luas, sebenarnya pengertian ini masih diambil dari bangsa yunani yang didalamnya mencakup pula kebaikan. Menurut beberapa ahli antara lain :
1.      Plato mengatakan bahwa watak yang indah adalah hokum yang indah;
2.      Aristoteles mengatakan bahwa keondahan merupakan sesuatu yang selain baik juga menyenangkan;
3.      Plotinus menuliskan dalam bukunya tentang ilmu yang indah dan kebijakan yang indah.
Dari beberapa ahli tersebut, bangsa Yunani tetap mengatakan bahwa keindahan adalah sesuatu ilmu dan ada yang indah dan akan terus berlangsung.bangsa yunani lebih berbicara tentang arti keindahan dalam arti estetik yang disebut sebagai ‘symmetria” untuk keindahan yang berdasarkan penglihatan semata dan harmonia untuk keindahan yang berdasarkan pendengaran. Keindahan yang seluas-luasnya meliputi :
·         Keindahan seni

Keindahan seni adalah keindahan yang tercipta dari hasil karya seseorang tehadap seni. Seni sering sekali menjadi penghubung keindahan agar bisa dinikmati oleh pengamat objeknya. Seseorang paling dominan menikmati keindahan itu lewat seni.
·         Keindahan alam

Keindahan alam adalah keindahan yang sudah ada di alam sekitar kita. Keindahan yang ada bisa dinikmati oleh penglihatan kita.
·         Keindahan moral

Keindahan moral adalah keindahan yang tercipta dari tingkah laku dan perilaku kita sehari-hari.
·         Keindahan Intelektual

Keindahan intelektual adalah pemikiran yang indah berdasarkan ilmu pengetahuan. Tulisan ini bukanlah mencari pengertian mengenai kata keindahan intelektual.
b.       keindahan dalam arti estetis murni
Keindahan dalam arti estetik murni menyangkut pengalaman estetis dari seseorang dalam hubungannya dengan segala sesuatu yang dicerapnya.
c.       keindahan dalam arti terbatas dalam pengertiannya dengan penglihatan
Keindahan dalam arti terbatas lebih disempitkan sehingga hanya menyangkut benda-benda yang dicerapnya dengan penglihatan, yakni berupa keindahan dari bentuk dan warna.


VISUAL BASIC 6.0 ANIMASI SUARA

VISUAL BASIC 6.0


Suara & Animasi

NAMA     : FAISHAL ES
KELAS / NPM   : 1KA16 / 12115411
JURUSAN  : SISTEM INFORMASI

PENGERTIAN SINGKAT ANIMASI & SUARA



Itulah pengertian singkat dari animasi dan juga suara!!

1.Membuat Form Login
Buka Microsoft Visual Basic 6.0, lalu pilih toolbox yang akan kita gunakan






CODINGAN

Private Sub Command1_Click()
    Dim id As String
    Dim pass As String
    id = "huehue"
    pass = "huhuhaha"
    If (Text1 = "huehue" And Text2 = "huhuhaha") Then
    MsgBox "Login Berhasil."
    Form4.Show
    Unload Me
    Else
    MsgBox "Id/Password anda salah."
    End If
End Sub

2. Membuat Menu Editor
Klik Tools – lalu Klik Menu Editor

CODINGANNYA

Private Sub AboutUs_Click()
    Form5.Show
    Me.Hide
End Sub

Private Sub Exit_Click()
    If MsgBox("Yakin Ingin Keluar?", vbOKCancel, "Notification.") = vbOK Then
    End
    Else
    Form4.Show
    End If
End Sub

Private Sub Konfirmasi_Click()
    Form2.Show
    Me.Hide
End Sub

Private Sub Kwitansi_Click()
    Form3.Show
    Me.Hide
End Sub

Private Sub Home_Click()
    Form4.Show
    Me.Hide
End Sub

3. Membuat Animasi
(Membuka Form dari Tengah)
 
Codingannya

Private Sub Form_Load()

    Me.Height = 100
    Me.Width = 100
End Sub

Private Sub Timer1_Timer()
    Me.Height = Me.Height + 83
    Tengah
    If Me.Height >= 8300 Then
    Timer1.Enabled = False
    Tengah
    End If

    Me.Width = Me.Width + 143
    Tengah
    If Me.Width >= 14300 Then
    Timer1.Enabled = False
    Tengah
    End If
End Sub

Public Sub Tengah()
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) / 2
End Sub

4. Membuat  Animasi
(Tulisan Berjalan)

Codingannya

Private Sub Timer5_Timer()
    Label3.Left = Label3.Left - 15
    If Label3.Left < -Label3.Width Then
    Label3.Left = Form1.Width
    End If
End Sub

5.Memasukkan Musik
CODINGANNYA


Private Sub Command1_Click()
    WindowsMediaPlayer1.URL = App.Path & "\Oops.mp3"
End Sub

Private Sub Command2_Click()
    WindowsMediaPlayer2.URL = App.Path & "\Night Riders.mp3"
End Sub

Private Sub Command3_Click()
    WindowsMediaPlayer3.URL = App.Path & "\No Money.mp3"
End Sub

Private Sub Command4_Click()
    WindowsMediaPlayer4.URL = App.Path & "\Ramadhan Tiba.mp3"
End Sub

CODINGAN UNTUK CEK HARGA

Private Sub CPrice1_Click()
    If Unit1.Text = "" Then
        MsgBox ("Tolong isi kolom unit.")
    Else
        TPrice1.Caption = Price1.Caption * Unit1.Text
    End If
End Sub

Private Sub CPrice2_Click()
    If Unit2.Text = "" Then
        MsgBox ("Tolong isi kolom unit.")
    Else
        TPrice2.Caption = Price2.Caption * Unit2.Text
    End If
End Sub

Private Sub CPrice3_Click()
    If Unit3.Text = "" Then
        MsgBox ("Tolong isi kolom unit.")
    Else
        TPrice3.Caption = Price3.Caption * Unit3.Text
    End If
End Sub

Private Sub CPrice4_Click()
    If Unit4.Text = "" Then
        MsgBox ("Tolong isi kolom unit.")
    Else
        TPrice4.Caption = Price4.Caption * Unit4.Text
    End If
End Sub


CODINGAN UNTUK MEMUNCULKAN LISTBOX

Private Sub Buy1_Click()
    If TPrice1.Caption = "" Then
        MsgBox ("Silahkan Klik Cek Harga Terlebih Dahulu.")
    Else
        Form2.List1.AddItem Form1.Frame1 & "      || " & "Harga Satuan :" & Form1.Price1.Caption & "  || " & "Unit :" & Form1.Unit1.Text & "  || " & "Total :" & Form1.TPrice1.Caption
        Form3.List1.AddItem Form1.Frame1 & "      || " & "Harga Satuan :" & Form1.Price1.Caption & "  || " & "Unit :" & Form1.Unit1.Text & "  || " & "Total :" & Form1.TPrice1.Caption
        MsgBox ("Item Telah Ditambahkan.")
    End If
End Sub

Private Sub Buy2_Click()
    If TPrice2.Caption = "" Then
        MsgBox ("Silahkan Klik Cek Harga Terlebih Dahulu.")
    Else
        Form2.List1.AddItem Form1.Frame2 & "       || " & "Harga Satuan :" & Form1.Price2.Caption & "  || " & "Unit :" & Form1.Unit2.Text & "  || " & "Total :" & Form1.TPrice2.Caption
        Form3.List1.AddItem Form1.Frame2 & "       || " & "Harga Satuan :" & Form1.Price2.Caption & "  || " & "Unit :" & Form1.Unit2.Text & "  || " & "Total :" & Form1.TPrice2.Caption
        MsgBox ("Item Telah Ditambahkan.")
    End If
End Sub


Private Sub Buy3_Click()
    If TPrice3.Caption = "" Then
        MsgBox ("Silahkan Klik Cek Harga Terlebih Dahulu.")
    Else
        Form2.List1.AddItem Form1.Frame3 & "             || " & "Harga Satuan :" & Form1.Price3.Caption & "  || " & "Unit :" & Form1.Unit3.Text & "   || " & "Total :" & Form1.TPrice3.Caption
        Form3.List1.AddItem Form1.Frame3 & "             || " & "Harga Satuan :" & Form1.Price3.Caption & "  || " & "Unit :" & Form1.Unit3.Text & "  || " & "Total :" & Form1.TPrice3.Caption
        MsgBox ("Item Telah Ditambahkan.")
    End If
End Sub


Private Sub Buy4_Click()
    If TPrice4.Caption = "" Then
        MsgBox ("Silahkan Klik Cek Harga Terlebih Dahulu.")
    Else
        Form2.List1.AddItem Form1.Frame4 & "                || " & "Harga Satuan :" & Form1.Price4.Caption & "  || " & "Unit :" & Form1.Unit4.Text & "   || " & "Total :" & Form1.TPrice4.Caption
        Form3.List1.AddItem Form1.Frame4 & "                || " & "Harga Satuan :" & Form1.Price4.Caption & "  || " & "Unit :" & Form1.Unit4.Text & "   || " & "Total :" & Form1.TPrice4.Caption
        MsgBox ("Item Telah Ditambahkan.")
    End If
End Sub

CODINGAN COMMAND BUTTON CLEAR

Private Function bersih()
    List1.Clear
    Form3.List1.Clear
    Ongkir.Text = "-"
    Total1.Text = ""
    Form3.Total.Text = ""
    Nama.Text = ""
    Alamat.Text = ""
    EMail.Text = ""
    Telephone.Text = ""
    TOngkir.Text = ""
End Function
Membuat Animasi
(Loading)

CODINGANNYA

Private Sub Timer1_Timer()
    ProgressBar1.Value = ProgressBar1.Value + 2
    If ProgressBar1.Value = ProgressBar1.Max Then
       Timer1.Enabled = False
       MsgBox ("Terima Kasih Telah Berbelanja di Toko Kami.")
        Form3.Show
        Me.Hide
    End If
End Sub

Membuat Form Kwitansi Pembayaran

Membuat Form About Us dan Exit

CODINGANNYA

Private Sub Exit_Click()
    If MsgBox("Yakin Ingin Keluar?", vbOKCancel, "Notification.") = vbOK Then
    End
    Else
    Form4.Show
    End If
End Sub



Pengertian Desain Komunikasi Visual

 Desain Komunikasi Visual Pengertian Desain Komunikasi Visual adalah ilmu yang mengembangkan bentuk bahasa komunikasi visual berupa pengol...