Makna Lagu Jogja Istimewa

ki-jarot-kraton

Sejak diluncurkan secara resmi 9 November 2009, lagu Jogja Istimewa telah menjadi lagu rakyat Yogyakarta, diputar di rumah-rumah penduduk di pedesaan hingga di toko-toko tengah kota, menjadi hot request di radio-radio Jogja, menjelma sebagai soundtrack bagi kehidupan warga Jogja yang mencintai akar tradisi dan kebudyaannya, dan penyemangat perjuangan atas hak-hak mereka sebagai warga Jogja.

Lagu Jogja Istimewa juga hadir di acara-acara besar, mulai dari sidang rakyat Yogyakarta yang menentang Rancangan Undang-Undang Keistimewaan Yogyakarta oleh Pemerintah Pusat, 13 Desember 2010, hingga acara peringatan berpindahnya ibu kota Republik Indonesia, 4 Januari 2011 kemarin. Kawulo alit hingga raja bergoyang dan melambaikan tangan, duduk sama rendah dan berdiri sama tinggi, bernyanyi bersama lagu Jogja Istimewa dalam hentakan irama march hip hop dengan groove tradisional yang terinspirasi marching band prajurit kraton itu.

Sungguh, kami Ki Jarot (Kill the DJ, Jahanam, Rotra) yang tergabung dalam Jogja Hip Hop Foundation, merasa sangat berbangga dan haru lagu tersebut telah bisa menjadi lagu rakyat Yogyakarta.

Namun sesungguhnya sedikit yang tahu, bagaimana lagu tersebut tercipta, terutama dari mana liriknya bersumber, meskipun sudah ada beberapa pemberitaan di media masa yang sudah menyampaikan sumber lirik lagu Jogja Istimewa tersebut. Melalui tulisan ini, saya akan menjelaskan secara rinci tentang bait demi bait. Sungguh menjadi kepentingan kami agar publik bisa membaca pemikiran dibalik lagu.

Membaca Sejarah
Pertengahan tahun 2010, saya menghabiskan tiga buku dalam waktu dua minggu;

1. Tahta untuk Rakyat
Biografi tentang Sri Sultan Hamengkubuwono IX (Sultan HB 9). Perjuangan untuk mendapatkan buku ini lebih dari tiga minggu, karena sudah tidak ada lagi cetakan baru, saya mendapatkannya di salah satu kios buku bekas di Shoping, Beringharjo, dengan harga Rp.150.000,-. Waktu SMA sebenarnya saya pernah membaca sekilas tentang buku ini, tapi mungkin waktu itu saya masih terlalu hijau untuk memahami isinya.

2. Kraton Yogyakarta; Sejarah, Nasionalisme, dan Teladan Perjuangan
Meskipun sangat berpihak pada kraton, buku ini unik karena banyak syair-syair tradisional yang menerangkan setiap peristiwa dengan otentik. Buku ini gampang didapatkan di toko-toko buku.

3. Perubahan Sosial di Yogyakarta
Sebuah buku yang dinobatkan sebagai babon antropologi sosial. Buku ini adalah desertasi Selo Sumardjan, mantan ajudan Sultan HB 9 semasa perjuangan mempertahankan kemerdekaan Republik Indonesia yang kemudian menjadi guru besar antropologi Universitas Indonesia. Sebuah buku yang juga susah untuk didapatkan.

Buku biografi Sultan HB 9 Tahta untuk Rakyat yang paling berkesan, buku ini menerangkan secara gamblang kepribadian Sultan HB 9 yang mungkin sebelumnya hanya seperti cerita rakyat. Sebagai buku, tahta untuk rakyat berhasil menambah kekaguman dan hormatku terhadap pribadi Sultan HB 9, baik sebagai raja maupun manusia biasa.

Melalui ketiga buku diatas, saya menemukan banyak kalimat dari para tokoh perjuangan kemerdekaan Republik Indonesia yang memberikan testimoni tentang Yogyakarta dan pribadi Sultan HB 9.

Lirik dalam Rima
Sesungguhnya, 70% lirik dalam Jogja Istimewa mengambil kalimat-kalimat yang diungkapkan oleh tokoh-tokoh seperti; Soekarno, Sultan HB 9, Ki Hadjar Dewantoro, RM Sosrokartono, dll. Selebihnya adalah hasil tulisan saya sendiri, meskipun harus saya akui, bahwa saya sangat terinspirasi oleh teks-teks tradisional Jawa. Saya merubah teks-teks itu ke dalam rima agar lebih enak di-rap-kan.

Mari kita telaah bait demi bait;

“Holopis Kuntul Baris…”
:: Ungkapan tradisional Jawa, sebuah ajakan untuk bekerja bersama-sama

“Jogja! Jogja! Tetap Istimewa
Istimewa Negrinya, Istimewa Orangnya
Jogja! Jogja! Tetap Istimewa
Jogja Istimewa untuk Indonesia”
:: Diucapkan Soekarno untuk memberikan apresiasi setinggi-tingginya terhadap kraton dan rakyat Yogyakarta dalam perjuangan kemerdekaan

“Rungokna iki gatra saka ngayogyakarta
Nagari paling penak rasane koyo swarga
Ora peduli donya dadi neraka
Neng kene tansah edi peni lan merdika”
:: 100% saya menulisnya sendiri, teks ini juga digunakan untuk lagu Dubyouth feat. Ki Jarot Bombassu. Artinya; “dengarlah ini untaian kata dari Yogyakarta, Negeri paling nyaman seperti surga, tidak peduli dunia sudah jadi neraka, di sini kami selalu nyaman dan merdeka”

“Tanah lahirkan Tahta, Tahta untuk Rakyat
Dimana Rajanya Bercermin di kalbu Rakyat
Demikianlah singgasana bermartabat
Berdiri kokoh tuk mengayomi rakyat”
:: Semangat tahta Sultan HB 9 yang kemudian ditambahi oleh anaknya Sultan HB 10 dalam jumenengan (diangkat menjadi raja)

“Memayu hayuning bawana”
:: Visi Kraton Yogyakarta yang dicangangkan oleh HB I, artinya; membuat bumi menjadi indah, atau dalam Islam; Islam rahmatal lil alamin

“Saka jaman perjuangan nganthi mardhika
Jogja istimewa bukan hanya daerahnya
Tapi juga karena orang-orangnya”
:: Kembali merujuk ungkapan Soekarno

“Tambur wis ditabuh suling wis muni
Holopis kuntul baris ayo dadi siji
Bareng para prajurit lan senopati
Mukti utawa mati manunggal kawula Gusti”
:: Saya tulis sendiri, namun terpengaruh oleh teks-teks macapat tradisional kraton. Artinya seperti ini; “Tambur telah ditabuh, seruling sudah berbunyi, Bersatu padu menjadi satu, Bersama prajurit dan senopati, Mulia atau mati rakyat dan raja adalah satu”

“Menyerang tanpa pasukan
Menang tanpa merendahkan
Kesaktian tanpa ajian
Kekayaan tanpa kemewahan”
:: Teks aslinya seperti ini: “Nlgurug tanpa bala, menang tanpa ngasorake, sugih tanpa raja brana, sekti tanpa aji” ditulis oleh RM Sosrokartono menggambarkan pribadi Sultan HB 9

“Tenang bagai ombak gemuruh laksana Merapi”
:: Teks dari puisi WS Rendra

“Tradisi hidup di tengah modernisasi
Rakyate jajah deso milang kori
Nyebarake seni lan budi pekerti”
:: 100% saya tulis sendiri dengan mengambil pepatah Jawa; “Jajah desa milangkori” yang artinya berkelana kemana-mana.

“Elingo sabdane Sri Sultan Hamengkubuwono kaping sanga
Sak duwur-duwure sinau kudune dewe tetep wong Jawa
Diumpamakne kacang kang ora ninggal lanjaran
Marang bumi sing nglahirake dewe tansah kelingan”
:: Salah satu ungkapan yang sangat saya kagumi dari Sultan HB 9: “ik ben een blijf in de allereerste plaats javaav”, dalam bahasa Indonesia Sultan HB 9 menerangkan seperti ini; “setinggi-tingginya aku belajar ilmu barat, aku adalah dan bagaimanapun jua tetap Jawa”.

“Ing ngarso sung tuladha
Ing madya mangun karsa
Tut wuri handayani
Holopis kuntul baris ayo dadi siji”
:: Inilah konsepsi social movement Jawa yang dipopulerkan oleh bapak pendidikan Indonesia Ki Hajar Dewantara; “yang di depan meberi contoh, yang di tengah memberi dorongan, yang di belakang memberi semangat, jika inging mulia harus dengan usaha”

“Sepi ing pamrih rame ing nggawe”
:: Ungkapan Jawa untuk “perjuangan tak kenal pamrih, tapi bekerja secara nyata”

“Sejarah wus mbuktekake
Jogja istimewa bukan hanya untuk dirinya
Jogja istimewa untuk Indonesia”
:: kembali merujuk ungkapan Soekarno “sejarah sudah membuktikan”.

Dengan lirik semacam ini, saya hanya mencoba mengaktualisasikan sejarah, mengingatkan siapapun yang mendengar, sebagai pembela sekaligus kritik bagi warga Jogja, termasuk mengingatkan semangat dan nilai-nilai yang telah ditanamkan Kraton pada masa perjuangan kemerdekaan.

Demikian, semoga bisa dipahami bagi yang bisa berbahasa Jawa maupun tidak.

Mau Download..???

Download via 4Shared (ada Liriknya langsung lho)

Tugas 4. Pertemuan Ke-3

Tugas 4

Private Sub CboGolongan_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case CboGolongan.Text
Case “I”
gapok = 1500000
tunjangan = 150000
Case “II”
gapok = 2000000
tunjangan = 200000
Case “III”
gapok = 2500000
tunjangan = 250000
Case “IV”
gapok = 3000000
tunjangan = 300000
Case Else
gapok = 0
tunjangan = 0
End Select
total = gapok + tunjangan
pajak = total * 0.1
TextGajipokok.Text = gapok
TextTunjangan.Text = tunjangan
TextPajak.Text = pajak
TextTotal.Text = total – pajak
End Sub

Private Sub cmdBatal_Click()
kosong
End Sub

Private Sub cmdKeluar_Click()
Unload Me
End Sub

Private Sub cmdLagi_Click()
kosong
End Sub

Private Sub Form_Load()
CboGolongan.AddItem “I”
CboGolongan.AddItem “II”
CboGolongan.AddItem “III”
CboGolongan.AddItem “IV”
End Sub
Public Sub kosong()
TextNIDN.SetFocus
TextNIDN = “”
TextNama = “”
CboGolongan = “Golongan”
TextGajipokok = “”
TextTunjangan = “”
TextPajak = “”
TextTotal = “”
End Sub

Private Sub TextNIDN_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TextNama.SetFocus
End If
End Sub

————————————————

Untuk File Jadinya silahkan Download di sini

Tugas3. Pertemuan ke-3

Tugas 3
Private Sub chkBold_Click()
Label2.FontBold = chkBold.Value
End Sub

Private Sub ChkItalic_Click()
Label2.FontItalic = ChkItalic.Value
End Sub

Private Sub chkStrikethru_Click()
Label2.FontStrikethru = chkStrikethru.Value
End Sub

Private Sub ChkUnderline_Click()
Label2.FontUnderline = ChkUnderline.Value
End Sub

Private Sub cmdOk_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub cmdSelesai_Click()
End
End Sub

Private Sub OptBlue_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub OptRed_Click()
Label2.ForeColor = vbRed
End Sub

Private Sub OptYellow_Click()
Label2.ForeColor = vbYellow
End Sub

Private Sub OtpGreen_Click()
Label2.ForeColor = vbGreen
End Sub

————————————————

Untuk File Jadinya silahkan Download di sini

Tugas 2 Pertemuan Ke-3

Tugas 2

Private Sub cboNPM_Click()
Dim Nama, Jurusan, HM As String
Select Case Cbonpm.Text
Case “14100414”
Nama = “Hanif Ahmad Prasojo”
Jurusan = “Sistem Informasi”
Case “14100413”
Nama = “Agung Triawan”
Jurusan = “Sistem Informasi”
Case “14100418”
Nama = “Abdul Aziz”
Jurusan = “Sistem Informasi”
Case “14100420”
Nama = “Jimmi Benardo Sinaga”
Jurusan = “Sistem Informasi”
Case “14100405”
Nama = “Ita Rofiqoh”
Jurusan = “Sistem Informasi”
Case “14100422”
Nama = “Galuh Fiyan Permadi”
Jurusan = “Sistem Informasi”
Case “14100423”
Nama = “Nikko Hendi Pratama”
Jurusan = “Sistem Informasi”
Case “14100250”
Nama = “Azmaini”
Jurusan = “Sistem Informasi”
Case “14100419”
Nama = “Iqbal Deka Yando”
Jurusan = “Sistem Informasi”
Case “14100215”
Nama = “Sholihin”
Jurusan = “Sistem Informasi”
Case “14201055”
Nama = “Cahya Ari Setiabudi”
Jurusan = “Manajemen Informatika”
End Select
TextNama.Text = Nama
TextJurusan.Text = Jurusan
TextQuis.SetFocus
End Sub

Private Sub cmdBatal_Click()
Cbonpm.SetFocus
Cbonpm.Text = “”
TextNama.Text = “”
TextJurusan.Text = “”
TextQuis.Text = “”
TextTugas.Text = “”
TextUTS.Text = “”
TextUAS.Text = “”
TextNA.Text = “”
Texthm.Text = “”
End Sub

Private Sub cmdKeluar_Click()
Unload Me
End Sub

Private Sub cmdProses_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(TextQuis.Text)
TUGAS = Val(TextTugas.Text)
UTS = Val(TextUTS.Text)
UAS = Val(TextUAS.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
TextNA.Text = NA
Select Case TextNA.Text
Case Is > 80
HM = “A”
Case Is > 70
HM = “B”
Case Is > 60
HM = “C”
Case Is > 50
HM = “D”
Case Is < 50
HM = “E”
End Select
Texthm.Text = HM
End Sub

Private Sub Form_Load()
Cbonpm.AddItem “14100414”
Cbonpm.AddItem “14100413”
Cbonpm.AddItem “14100418”
Cbonpm.AddItem “14100420”
Cbonpm.AddItem “14100405”
Cbonpm.AddItem “14100422”
Cbonpm.AddItem “14100423”
Cbonpm.AddItem “14100250”
Cbonpm.AddItem “14100419”
Cbonpm.AddItem “14100215”
End Sub

——————————————————————————————————————————–

Private Sub cboNPM_Click()
Dim Nama, Jurusan, HM As String
Select Case Cbonpm.Text
Case “14100414”
Nama = “Hanif Ahmad Prasojo”
Jurusan = “Sistem Informasi”
Case “14100413”
Nama = “Agung Triawan”
Jurusan = “Sistem Informasi”
Case “14100418”
Nama = “Abdul Aziz”
Jurusan = “Sistem Informasi”
Case “14100420”
Nama = “Jimmi Benardo Sinaga”
Jurusan = “Sistem Informasi”
Case “14100405”
Nama = “Ita Rofiqoh”
Jurusan = “Sistem Informasi”
Case “14100422”
Nama = “Galuh Fiyan Permadi”
Jurusan = “Sistem Informasi”
Case “14100423”
Nama = “Nikko Hendi Pratama”
Jurusan = “Sistem Informasi”
Case “14100250”
Nama = “Azmaini”
Jurusan = “Sistem Informasi”
Case “14100419”
Nama = “Iqbal Deka Yando”
Jurusan = “Sistem Informasi”
Case “14100215”
Nama = “Sholihin”
Jurusan = “Sistem Informasi”
Case “14201055”
Nama = “Cahya Ari Setiabudi”
Jurusan = “Manajemen Informatika”
End Select
TextNama.Text = Nama
TextJurusan.Text = Jurusan
TextQuis.SetFocus
End Sub

Private Sub cmdBatal_Click()
Cbonpm.SetFocus
Cbonpm.Text = “”
TextNama.Text = “”
TextJurusan.Text = “”
TextQuis.Text = “”
TextTugas.Text = “”
TextUTS.Text = “”
TextUAS.Text = “”
TextNA.Text = “”
Texthm.Text = “”
End Sub

Private Sub cmdKeluar_Click()
Unload Me
End Sub

Private Sub cmdProses_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(TextQuis.Text)
TUGAS = Val(TextTugas.Text)
UTS = Val(TextUTS.Text)
UAS = Val(TextUAS.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
TextNA.Text = NA
Select Case TextNA.Text
Case Is > 80
HM = “A”
Case Is > 70
HM = “B”
Case Is > 60
HM = “C”
Case Is > 50
HM = “D”
Case Is < 50
HM = “E”
End Select
Texthm.Text = HM
End Sub

Private Sub Form_Load()
Cbonpm.AddItem “14100414”
Cbonpm.AddItem “14100413”
Cbonpm.AddItem “14100418”
Cbonpm.AddItem “14100420”
Cbonpm.AddItem “14100405”
Cbonpm.AddItem “14100422”
Cbonpm.AddItem “14100423”
Cbonpm.AddItem “14100250”
Cbonpm.AddItem “14100419”
Cbonpm.AddItem “14100215”
End Sub

Private Sub TextQuis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TextTugas.SetFocus
End If
End Sub

Private Sub TextTugas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TextUTS.SetFocus
End If
End Sub

Private Sub TextUAS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim NA As Integer
Dim HM As String
QUIS = Val(TextQuis.Text)
TUGAS = Val(TextTugas.Text)
UTS = Val(TextUTS.Text)
UAS = Val(TextUAS.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
TextNA.Text = NA
Select Case TextNA.Text
Case Is > 80
HM = “A”
Case Is > 70
HM = “B”
Case Is > 60
HM = “C”
Case Is > 50
HM = “D”
Case Is < 50
HM = “E”
End Select
Texthm.Text = HM
End If
End Sub

Private Sub TextUTS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TextUAS.SetFocus
End If
End Sub

Untuk File Jadinya silahkan Download di sini

Tugas 1. Pertemuan Ke-3

Tugas 1

Private Sub chkBold_Click()

If chkBold.Value = 1 Then

lblText.FontBold = True
Else
lblText.FontBold = False
End If
End Sub

——————————————-

Private Sub chkItalic_Click()
If chkItalic.Value = 1 Then
lblText.FontItalic = True
Else
lblText.FontItalic = False
End If
End Sub

——————————————

Private Sub chkStrike_Click()
If chkStrike.Value = 1 Then
lblText.FontStrikeout = True
Else
lblText.FontStrikeout = False
End If
End Sub

——————————————

Private Sub chkStrikethru_Click()
If chkStrikethru.Value = 1 Then
lblText.FontStrikethru = True
Else
lblText.FontStrikethru = False
End If
End Sub

——————————————

Private Sub chkUnderline_Click()
If chkUnderline.Value = 1 Then
lblText.FontUnderline = True
Else
lblText.FontUnderline = False
End If
End Sub

——————————————

Private Sub cmdExit_Click()
Unload Me
End Sub

——————————————

Private Sub optBlue_Click()
lblText.ForeColor = vbBlue
End Sub

——————————————

Private Sub optGreen_Click()
lblText.ForeColor = vbGreen
End Sub

——————————————

Private Sub optRed_Click()
lblText.ForeColor = vbRed
End Sub

——————————————

Private Sub optYellow_Click()
lblText.ForeColor = vbYellow
End Sub

——————————————

Untuk File jadinya Download Di sini..

Tugas 6.1

Tugas 6.1

Private Sub Command1_Click()
Text4.Text = (Val(Text1) + Val(Text2)) – Val(Text3)
Text5.Text = Val(Text4) * 0.1
Text6.Text = Val(Text4) – Val(Text5)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.Text = (Val(Text1) + Val(Text2)) – Val(Text3)
Text5.Text = Val(Text4) * 0.1
Text6.Text = Val(Text4) – Val(Text5)
End If
End Sub

———————————-

Untuk Datanya Download Di sini

Tugas 5.1 – 5.2

Tuga 5.1

Private Sub Command1_Click()
Text1.SetFocus
Text2.Text = Val(Text1) * 0.1
Text3.Text = Val(Text1) – Val(Text2)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

——————————————————————————————-

Private Sub Command1_Click()
Text1.SetFocus
Text2.Text = Val(Text1) * 0.1
Text3.Text = Val(Text1) – Val(Text2)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.SetFocus
Text2.Text = Val(Text1) * 0.1
Text3.Text = Val(Text1) – Val(Text2)
End If
End Sub

———————————-

Untuk Datanya Download Di sini