TARIANA KESENIAN ACEH

Kesenian Tari Aceh

Kesenian Tari Aceh Seni tari tradisional aceh dapat disajikan sebagai sebuah paket wisata dengan tersedianya tenaga kreatif yang benar-benar memahami dan menggemari kesenian Aceh yang ada didamping itu juga didukung oleh pemain-pemain seni tari yang penuh didikasi mau belajar dengan sungguh-sungguh untuk keperluan penyajian paket wisata budaya.  Seni budaya yang dimiliki menjadi paket-paket yang sangat menarik karena memperlihatkan ke khasannya tersendiri,proses pengolahannya menuntut kemampuan estetika dan pandangan kedepan yang sesuai dengan landasan ideal masyarakat dan tidak meyimpang dari ciri-ciri kepribadian masyarakat aceh.yang islami dan tidak menyimpan dari spirit keislaman dan ini terlihat jelas dalam berbagai tarian, baik sedati saman,debus,ranup lampuan dan taraian tradisional lainnya. Berikut ini seni tari yang ada di aceh antara lain : Tari Saman   Tari Saman diciptakan dan dikembangkan oleh seorang tokoh islam bernama Syeh Saman ,beliau menciptakan syairnya dengan menggunakan bahasa arab dan bahasa aceh dengan iringan gerakan –gerakan tangan dan syair yang dilagukan membuat seuasana menjadi gembira, gerakan tepukan dada,tepukan diatas lutut, mengangkat tangan secara bergantian dengan gerakan dan kecepatan yang serasi menjadi ceri khasnya. Tari Laweut Laweut berasal dari kata Seulawet , sanjungan pada Nabi Muhammad S.A.W tari ini di persembahkan oleh delapan orang wanita yang disebut juga seudati iring. Tari ini di pergunakan untuk menyampaikan pesan-pesan dalam keagamaan pendidikan dan pembangunan. Tari Tarek Pukat Tari ini merupakan tarian yang diangkat dari kehidupan nelayan pesisir aceh yaitu membuat jarring “pukat” dan menangkap ikan dengan jaring ditengah laut. Suasana menarik pukat dengan harapan mendapat ikan yang banyak dinyatakan dengan semangat kerja keras da riang gembira yang sekali-kali terdengar teriakan senang pawang laut. Tari Cangklak Tari memgemalisasikan perempuan-perempuan cantik gemulai, energik dan sedikit genit dengan berbagai aksesoris yang dipakai dalam mengelilingi lekuk tubuh anggunnya, serta pelengkap busana yang senantiasa digunakan dan indetik dengan perempuan seperti payung, kipas, sapu tangan, perpaduan gerak dan tarian yang laku di aceh dengan tarian khas melayu dari daerah timur aceh. Tari Meusago Meusago disini diartikan bersudut, bersegi dan berujung begitu lengkapnya persoalan yang di hadapi dan ibadah manusia dengan manusia, dengan bermacam kehidupan yang dihadapi dan ibadah atau hubungan dengan Tuhan, ide garapan tari ini sebagai syimbol gotong royong dan persaudaraan merupakan wujud dari persatuan, satu kipas barang bermakna tapi menakala bersamaan d paparkan menjadi satu mneuji manfaat bagi kehidupan. Musik Seurune Kalee Seurune Kalee adalah suatu alur kesenian yang sangat digemari di Aceh. Seurune Kalee dalam bahasa Indonesia adalah seruling.Pemain Seurune Kalee terdiri dari satu orang peniup seurune, satu orang pemukul gendang dan tiga orang pemukul rapai, pemain memakai pakaian adat aceh “modifikasi” seragam warna hitam dan lilitan kain bermotif aceh, sekarang musikk seurune kale di kehormatan dan mengiringi tarian tradisional lainnya. Rapai Daboh Rapai Daboh yaitu suatu permainan ketangkasan atau kekebalan. Permainan Rapai Daboh terdiri dari seorang syekh yang bergelar “Khalifah”, beberapa orang penabuh rebana (rapai), dan beberapa pemain rencong atau senjata tajam lainnya, dimana saat mereka sedang menabuh rebana memukul rapainya sambil bernyanyi dengan lagu-lagu tertentu terus menikam-nikam anggota badan dengan sehebat-hebatnya, kadang-kadang rencongnya menjadi bengkok, yang semuanya berada dibawah pimpinan/pengawasan khalifah. Apa sebab tubuh mereka tidak dimakan senjata, hal ini menurut mereka oleh karena suatu keyakinan bahwa yang berkuasa hanya Khalik (Tuhan) sedangkan makhluk sama-sama tidak berkuasa; jadi besi makhluk dan manusia pun makhluk. Pada waktu para penabuh rapai sedang memukul rebana sehebat-hebatnya, maka para pemain rencong memusatkan seluruh pikirannya pada keyakinan diatas, sedikit pun tidak boleh bergoyang, dan kalau goyang pastilah senjata akan makan tubuh mereka.   Tari Seudati Seudati adalah perpaduan antara seni suara dan seni tari. Seni Seudati adalah jenis kesenian yang diciptakan setelah berdiri masyarakat islam Aceh yang berfungsi sebagai dakwah dan hiburan. Seudati juga bernama Saman yang berasal kata dari bahasa Arab yang berarti delapan. Dinamakan saman karena para pemainnya terdiri dari delapan orang yaitu Syekh dan para pembantunya berpakaian seragam, yaitu celana pantalon hitam atau putih, baju kaos putih berlengan panjang, di kepala para penari memakai tangkulok. Tari Rapai Geleng Rapai adalah jenis tamborin yang biasanya dipakai untuk mengiringi sebuah lagu atau tarian. Permainan Rapai telah dikembangkan dan diiringi dengan lagu-lagu dan berbagai macam lenggak-lenggok yang indah. Ini merupakan dobrakan penampilan sebuah tarian baru yang disebut “Rapai Geleng”. Tarian ini dimainkan oleh 11 sampai 12 orang penari dan setiap mereka memainkan Rapai (tamborin kecil). Sambil bermain Rapai dan menyanyikan lagu, mereka melakukan berbagai gerakan tubuh yaitu tangan, kepala, dan lain-lain. Gerakan para penari hampir sama dengan tarian Saman tetapi menggunakan Rapai. Tarian ini juga sangat dinikmati dan menyenangkan.   Tari Meuseukat Tarian Meuseukat adalah tarian yang sangat pupuler di Aceh yang berasal dari Kab. Aceh Selatan. Tarian ini dimainkan oleh 10 atau 12 penari dan 2 orang penyanyi. Khusus untuk wanita mengambil posisi dengan cara duduk/berlutut dalam satu barisan dan membuat gerakan tubuh dengan tangan dan kepala. Nyanyian yang berisi pujian atau doa yang dimulai dengan gerakan lambat sampai dengan gerakan cepat. Tari Ranub Lampuan Tari Ranub Lampuan sangat terkenal di Aceh. Tari ini biasanya dimainkan untuk menyambut tamu terhormat dan pejabat-pejabat yang berkunjung ke Aceh. Tari ini juga di tampilkan pada acara-acara khusus, seperti para acara Preh linto, Tueng Dara Baro. Tarian ini dimainkan oleh tujuh orang penari wanita dan diiringi dengan instrumen musik tradisional Seurunee Kalee. Penari ditangannya memegang Cerana atau Puan yang yang didalamnya berisi sirih (ranub) yang akan diberikan kepada tamu-tamu sebagai tanda kemuliaan bagi tamu-tamunya. Tari Ranub Lampuan gubahan dari Tarian Aceh. Tari Likok Pulo Tari Likok Pulo dewasa ini sudah menjadi salah satu tari wajib bagi murid sekolah dalam Kota Banda Aceh sebagai mata pelajaran kesenian muatan lokal. Karena pada akhir tahun l980an nasib tarian ini hampir punah dan kembali diperkenalkan pada PKA Pkan Kebudayaan AcehIII tahun l988 hingga sudah berkembang dan populer di kalangan masyarakat. Asal mula tarian ini berkembang di kawasan Pulo Besar Selatan dalam wilayah gugusan Pulo Aceh Kabupaten Aceh Besar, sekitar 30 mil dari dararatan Kota  Banda Aceh. Maka tarian ini juga dengan sebutan Likok Pulo Aceh. Tarian ini sebagai media pengembangan dakwah Islam dimasa era kesultanan Aceh diciptakan oleh Ulama pendatang dari Arab yang menetap di desa Ulee Paya dibawakan oleh 12 orang penari pria sambil duduk rapat berlutut bahu membahu, dengan posisi sejajar. Di desa Ulee Paya dahulu dipertunjukan di tepi pantai atas pasir sebagai pentasnya dan hanya digelari sehelai tikar daun lontar atau pandan serta dibawakan pada malam hari sebagai hiburan rakyat sambil berdakwah. Biasanya tarian ini mulai dipertunjukan puluk 21.00 WIB sampai menjelang subuh. Gerak tari Likok Pulo komposisinya dimulai dengan gerakan salam anggukan kepala dan tangan yang diselangi gerakan pinggul. Ritme tarian saling membentang dan seling ke kiri dan ke kanan sambil melantunkan syair-syair pujian kepada Sang Khalik yang diiringi dengan musik Rapai dan vokalis nyanyian syair Aceh.

DI-Smart AVR System (Sistem Minimum Mikrokontroler AVR ATMEGA8535)

DI-Smart AVR System adalah sebuah modul elektronika yang berdasar pada rangkaian sistem minimum mikrokontroler AVR (sismin AVR) ATMEGA8535 seperti pada gambar 3. Modul ini pun dapat digunakan sebagai sistem minimum mikrokontroler AVR lain yang pin-pin-nya bersesuaian dengan mikrokontroler ATMEGA8535, seperti mikrokontroler ATMEGA16 dan mikrokontroler ATMEGA32. Modul sistem minimum mikrokontroler AVR ini telah dilengkapi dengan beberapa fitur yang dapat mempermudah proses pembelajaran atau proses “troubleshooting” pemrograman.

Gambar 1. DI-Smart AVR System.

Dimensi PCB:
98.2mm(X) x 93.5mm(Y) x 1.9mm(Z)
Aplikasi:

• DI-Smart AVR System yang berdasar pada sistem minimum mikrokontroler AVR ATMEGA8535 ini dapat dijadikan sebagai media pembelajaran pemrograman mikrokontroler AVR.
• Modul dengan sistem minimum mikrokontroler AVR ini sangat baik difungsikan sebagai CPU (Central Processing Unit) atau Pengendali dalam berbagai macam sistem: sistem instrumentasi, sistem robotika, dan otomasi-otomasi yang lainnya.

Spesifikasi:

• Dapat digunakan sebagai sistem minimum mikrokontroler AVR untuk tipe ATMEGA8535(L), ATMEGA16(L), ATMEGA32(L), ATMEGA163(L), ATMEGA323(L).
• Menggunakan XTAL 11.0592MHz.
• Dilengkapi rangkaian regulator 5V dan dioda pengaman dengan konektor DC yang mudah dihubungkan dengan Adaptor-DC.
• Dilengkapi rangkaian antarmuka (interface) Max232 sehingga dapat langsung dihubungkan pada PORT SERIAL / COM PORT komputer.
• Koneksi ADC sudah disiapkan (AVCC, AGND, dan AREF) sehingga sistem sudah siap untuk menerima input ANALOG pada PORTA.
• Tersedia Array LED pada PORTC, dan Push-ON pada PORTD.2 dan PORTD.3 sehingga cocok untuk latihan pemrograman atau pengecekkan program (DEBUG).

Kelengkapan Produk:

• 1 buah DI-Smart AVR System
• 1 buah kabel konektor IDC-10
• 1 Lembar Penjelasan Produk

Cara Praktis Membuat Rangkaian sampai layout PCB (papan rangkaian tercetak)

Untuk menanggapi bagaimana membuat PCB pada project teknik digital, ada beberapa tahapan :

1. Siapkan ide piranti rangkaian digital yang akan dibuat
2. Tentukan masukan dan keluaran dari rangkaian digital yang akan dibuat melalui tabel kebenaran
3. Sederhanakan ungkapan Boolean dalam tabel kebenaran menggunakan peta Karnaugh dan minimisasi ungkapan Boolean
4. Simulasikan dalam aplikasi software seperti circuit maker atau menggunakan diagram bentuk gelombang pada Maxplus II
5. Tentukan komponen digital / chip yang akan digunakan
6. Siapkan komponen / chip yang akan digunakan dalam project, agar tahu ukuran sehingga bisa disesuaikan dengan perancangan PCB-nya
7. Setelah komponen tersedia, rancang PCB-nya menggunakan Eagle
8. Teliti sambungan jangan sampai tidak tersambung apalagi salah penyambungan pada rancangan PCB
9. Jika sudah selesai, silahkan di-print, teliti sekali lagi kalau perlu cocokkan dengan komponen / chip yang tersedia
10. Foto copy hasil printer PCB pada kertas glossy
11. Letakkan kertas glossy yang ada cetakan PCB pada PCB
12. Rekatkan atau usahakan kertas gloosy tersebut dan PCB tidak bergeser
13. Setrika kertas glossy tersebut dengan panas yang sesuai, tekan dan tahan setrika sehingga dapat dipastikan bahwa serbuk foto copy menempel secara merata pada PCB
14. Jika merasa sudah menempel merata, diamkan sebentar kemudian masukkan dalam air sambil menghilangkan kertas yang menempel, lakukan dengan hati-hati jangan sampai merusak sambungan PCB
15. Larutkan Ferre Chlorida dengan air secukupnya pada loyang (wadah); (Hati-hati ferre chlorida zat yang beracun)
16. Letakkan PCB pada larutan Ferre chlorida dan goyang-goyang loyang (wadah) sampai PCB yang tidak tertutup serbuk foto copy hilang, kemudian bersihkan dengan air
17. Lubangi PCB sesuai rancangan peletakkan komponen dengan bor
18. Letakkan komponen yang tersedia pada PCB kemudian solder dengan timah
19. Lakukan hati-hati ketika menyolder jangan sampai terlalu panas karena akan dapat merusak komponen dan PCB

Quis No 3 Pak Mesran

Listing Login :
Public Class Form1
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If username.Text = "Rizki Wardhana" And password.Text = "0911329" Then
            menuutama.Show()
            Me.Hide()
        Else
            MsgBox("Username / Password SALAH")
            username.Text = ""
            password.Text = ""
        End If

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        End
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        username.Focus()
    End Sub
End Class

Hasil Program Login :

  


Listing Menu :

Public Class menuutama

    Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click
        End

    End Sub

    Private Sub DataPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPegawaiToolStripMenuItem.Click
        pegawai.show()
    End Sub
End Class

Hasil Program Menu :




Listing Pengajian Karyawan :

Public Class pegawai

    Private Sub pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nip.Items.Add("00112")
        nip.Items.Add("00225")
        nip.Items.Add("43342")

        jabatan.Items.Add("Staf")
        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Kepala Bagian")

        status.Items.Add("Belum Menikah")
        status.Items.Add("Menikah")

        lembur.Items.Add("Tidak")
        lembur.Items.Add("Ya")


        nip.Focus()

        Call buattabel()


    End Sub

    Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nip.SelectedIndexChanged
        If nip.Text = "00112" Then
            nama.Text = "Rizki"
        ElseIf nip.Text = "00225" Then
            nama.Text = "Ayu"
        ElseIf nip.Text = "43342" Then
            nama.Text = "Fahrul"
        End If
    End Sub

    Private Sub jabatan_SelectedIndexChaenged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        If jabatan.Text = "Staf" Then
            gaji.Text = 1250000
        ElseIf jabatan.Text = "Mandor" Then
            gaji.Text = 1750000
        ElseIf jabatan.Text = "Kepala Bagian" Then
            gaji.Text = 2500000
        End If

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        If status.Text = "Menikah" Then
            tjgistri.Text = gaji.Text * 9 / 100
            jlhanak.Enabled = True

        ElseIf status.Text = "Belum Menikah" Then
            tjgistri.Text = 0
            jlhanak.Enabled = False
            pajak.Text = gaji.Text * 1.5 / 100
            total.Text = Val(gaji.Text) + Val(tjganak.Text) + Val(tjgistri.Text) + Val(gjlmbr.Text) - Val(pajak.Text)
        End If

    End Sub

    Private Sub jlhanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlhanak.TextChanged
        If jlhanak.Text <> "" Then
            If jlhanak.Text = 0 Then
                tjganak.Text = 0
            ElseIf jlhanak.Text = 1 Then
                tjganak.Text = gaji.Text * 3 / 100
            ElseIf jlhanak.Text >= 2 Then
                tjganak.Text = gaji.Text * 7 / 100
            End If
        End If

        pajak.Text = gaji.Text * 1.5 / 100
        total.Text = Val(gaji.Text) + Val(tjganak.Text) + Val(tjgistri.Text) + Val(gjlmbr.Text) - Val(pajak.Text)

    End Sub

    Sub buattabel()
        ListView1.Columns.Add("N.I.P", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("jabatan", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Status", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Gaji", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Gaji Lembur", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Tunjangan Anak", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Tunjangan Keluarga", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Total Gaji", 100, HorizontalAlignment.Left)

        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True

    End Sub

    Sub isitabel()
        Dim isi As New ListViewItem
        isi.Text = nip.Text
        isi.SubItems.Add(nama.Text)
        isi.SubItems.Add(jabatan.Text)
        isi.SubItems.Add(status.Text)
        isi.SubItems.Add(jlhanak.Text)
        isi.SubItems.Add(gaji.Text)
        isi.SubItems.Add(gjlmbr.Text)
        isi.SubItems.Add(tjganak.Text)
        isi.SubItems.Add(tjgistri.Text)
        isi.SubItems.Add(pajak.Text)
        isi.SubItems.Add(total.Text)

        ListView1.Items.Add(isi)

    End Sub

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

        Call isitabel()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        nip.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        status.Text = ""
        jlhanak.Text = ""
        gaji.Text = ""
        tjganak.Text = ""
        tjgistri.Text = ""
        pajak.Text = ""
        total.Text = ""
        lembur.Text = ""
        jmljam.Text = 0
        perjam.Text = ""
        gjlmbr.Text = ""
        jmljam.Enabled = False
        perjam.Enabled = False
        gjlmbr.Enabled = False

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        nip.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        status.Text = ""
        jlhanak.Text = ""
        gaji.Text = ""
        tjganak.Text = ""
        tjgistri.Text = ""
        pajak.Text = ""
        total.Text = ""
        lembur.Text = ""
        jmljam.Text = 0
        perjam.Text = ""
        gjlmbr.Text = ""
        jmljam.Enabled = False
        perjam.Enabled = False
        gjlmbr.Enabled = False

        ListView1.Items.Clear()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub

    Private Sub lembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lembur.SelectedIndexChanged
        If lembur.Text = "Ya" Then
            jmljam.Enabled = True
            perjam.Enabled = True
            gjlmbr.Enabled = True
            If jabatan.Text = "Staf" Then
                If perjam.Text = "" Then
                    perjam.Text = 5000
                End If
            ElseIf jabatan.Text = "Mandor" Then
                If perjam.Text = "" Then
                    perjam.Text = 7500
                End If
            ElseIf jabatan.Text = "Kepala Bagian" Then
                If perjam.Text = "" Then
                    perjam.Text = 10000
                End If
            End If

        End If
        If lembur.Text = "Tidak" Then
            gjlmbr.Text = 0
            jmljam.Text = 0

            jmljam.Enabled = False
            perjam.Enabled = False
            gjlmbr.Enabled = False
            If jabatan.Text = "Staf" Then
                If perjam.Text <> 0 Then
                    perjam.Text = ""
                End If
            ElseIf jabatan.Text = "Mandor" Then
                If perjam.Text <> 0 Then
                    perjam.Text = ""
                End If
            ElseIf jabatan.Text = "Kepala Bagian" Then
                If perjam.Text <> 0 Then
                    perjam.Text = ""
                End If


            End If
        End If


    End Sub

    Private Sub jmljam_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmljam.TextChanged
        gjlmbr.Text = perjam.Text * jmljam.Text

    End Sub
End Class


Hasil Program Gaji Pegawai Sebelum :




   



Hasil Program Gaji Pegawai Sesudah :