SMK MUHAMMADIYAH 7 RANDUDONGKAL

LOGO SMK ISLAM RANDUDONGKAL

LOGO SMK NEGERI 1 RANDUDONGKAL

LOGO SMK NEGERI 1 PEMALANG

http://smasatupemalang.blogspot.com/2011/10/smk-n1-pemalang.html

LOGO SMA NEGERI 1 PEMALANG

 

http://smansa50th.blogspot.com/2012/12/visi-misi-sma-negeri-1-pemalang.html

logo smk syafi'iyyah bantarbolang

TEMBANG MACAPAT

TEMBANG MACAPAT

1. A.    PANGKUR

1. Kanjeng sunan kali jaga

Ingkang ngripta kang dandhang gula yekti
Sunan gunung jati pocung
Njeng sunan bonang durma
Maskumambang yeku sunan maja agung
Tembang mijil ingkang ngripta
Sunan geseng asmane ki

2. Sunan giri smarandana

Datan kantun sunan pajang kinanthi
Sunan murya padha pangkur
Dene sinom kang ngripta
Datan sanes njeng suna giri rumuhun
Megatruh iku kang yasa
Nenggih kanjeng sunan giri

3. Sekar pangkur kangwinarna

Lelabuhan kang kanggo wongaurip
Ala lan becik puniku
Prayoga kawruh ana
Adat waton puniku dipun kadulu
Miwah ingkang tata krama
Den kaesthi siyang ratri

4. Deduga lawan prayoga

Myang swatara riringa aywa lali
Iku parabot satuhu
Tan kena tininggalan
Tangi lungguh angadeg tuwin lumaku
Ngucap meneng anendra
Duga-duga nora kari

5. muwah ing sabarang karya

ingprakara gedhe kalawan cilik
papat iku datan kantun
kanggo sadina-dina




lan ing wengi nagara miwah ing dhusun
kabeh kang padha ambegan
papat iku nora lali

6. Kalamun ana manungsa

Anyinggahi dugi lawan prayogi
Iku watege tan patut
Amor lawan wong kathah
Wong deg sura daludur tan wruh ing edur
Aja sira pedhak-pedhak
Ora wurung meniwasi

7. Mapan wataking manungsa

Pan ketemu ing laku lawan linggih
Solah muna-muninipun
Pan dadya panengeran
Kang ngapinter kang bodho miwah kang luhur
Kang asor lan kang mlarat
Tanapi manungsa sugih

8. Heh padha mongsapa dhaa

Damarwulan tangya sun enteni
Iki uru bisma prabu
Wong sekti mondra guna
Kalok ingrat pilih tandhing ing prang pupuh
Sura mrata jaya mrata
Tau tate angentasi

9. Surya candra lan kartika

Jurang harga myang wening jalanidhi
Yekti mawa pasang surut
Ywa maneh tamung sira
Yen kalisa owah gingsir ing tumuwuh
Ratri rina sore beda
Baya tan susah pinikir

10. Jirak pindha munggwing wana

Sayeng kaga we rekta kang muroni
Sinambi kalane nganggur
Wastra tumrap mustaka





Pangikete wangsalan kang sekar pangkur
Baon sabin ing nawala
Kinarya langen pribadi

1. B.     POCUNG

1. Jrotyas wuyung nulat sekar gandanya rum

Angrerujit nala
Lina lutan bangkit lalis
Tulus lalu lila lamun pinetika

2. Iya mathuk bakal ya tansah kepethuk

Tinemune nyata
Yekti marga isi-isi
Wite dhuwur angel tumi-tumiyungna

3. Yen satuhu arum njawi lebetipun

Tan nganggo pulasan
Mongka sudarsana yekti
Aweh mulya ngambar gandane kusuma

4. Bapak pocung cangkemmu marep mandhuwur

Saba mu ing sendhang
Pencokanmu lambung kering
Prapteng wisma si pocung mutah guwaya

5. Angkara gung neng angga agung gumulung

Gegolonganira
Tri loka kere kongsi
Yen den umbar ambabar dadi rubeda

6. Pangajabku duwe gegayuhan luhur

Mandhegani bangsa
Mbrastha kemiskinan yekti
Swasembada murah sandang pangan papan

7. Yen wus iku nagri kita bakal maju

datan ketinggalan
lan bangsa mancanegari
ja kesuwen dadi negara berkembang

8. Bapak pocung dudu watu dudu gunung

sabamu ing alas




ngon ingone sang bupati
prapteng marga si pocung lembehan grana

9. Bapak pocung amung sirah lawan gembung

Padha dikunjara
Mati sajroning ngaurip
Si pocung dadi dahana

10. Bapak pocung dudu tampar dudu dadhung

Dawa kaya ula
Penclokanmu kayu garing
Prapteng griya si pocung ngetokne cahya

1. C.    MIJIL

1. Duksamana durung ana listrik

Nganggo lampu teplok
Padhang mbulan tur akeh kancane
Tetembangan njoget genti-genti
Majune di gilir
Surak rame gupyuk

2. Nggaru mluku nganggo kebo sapi

Durung ana traktor
Jam sepuluh teka kirimane
Bapa tani enggala nglereni
Nggone nambut kardi
Nuli mentas wisuh

3. andhe dhuh biyung wayah apa iki

rembulan wus ngayom
ing gegana ting abyor lintange
titi sonya puspita kasilir
marutaris kengis
sumrik gandanyarum

4. Padha dipun eling mring pitutur ing ngong

Sira uga satriya arane
Kudu anteng jatmila ing budi
Ruruh sarta wasis
Samubarangipun

5. Dipun nedya prawira ing batin

Nanging aja katon
Sasabana yen durung mangsane
Kakendelan aja wani mingkis
Winika ing batin
Den samar ing semu

6. Lan dimanteb mring panggawe becik

lawan wekasingong
aja kurang iya panrimane
yen wis tinitah marang Hyang Widhi
ing badan puniki
wis papancenipun

7. Deda lanne guna lawan sekti

Kudu andhap asor
Wani ngalah dhuwur wekasane
Tumungkulla yen dipundukanni
Ruruh sarwa wasis
Samubarangipun

8. Jawa tengah dadi lumbung pari

Asil gotong royong
Panca usaha katindakake
Para warga sarta para tani
Sregep nyambut kardi
Mamrih adil makmur

9. Lanang wadon ora ana kari

Bisane kalakon
Kacukupan kang dadi butuhe
Kanggo srana anggone leladi
Labuh ing nagari
Bekti ing Hyang agung

10. Poma kaki dipun eling

Ing pitutur ingong
Sira uga satriya arane
Kudu anteng jatmika ing budi
Ruruh sarta waris





Samubarangipun

1. D.    KINANTHI

1. Nalikanira ing dalu

Wong agung mangsah semedi
Sirep kang balawanara
Sadaya wus sami guling
Nadyan ari sudarsana
Wus dangu nggenira guling

2. Kukusing dupa kumelun

Ngeningken tyas kang apekik
Kawengku sagung jajahan
Nanging saget angikipi
Sang resi kaneka putra
Kang anjog saking wiyati

3. Kagyat risang kapirangu

Rinangkul kinempi-kempit
Duh sang retnaning bawana
Ya ki tukang walang ati
Ya ki tukang ngenes ing tyas
Ya ki tukang kudu gering

4. Teka ndadak melu-melu

Kaya budine wong ceplik
Lali yen kalengkangningrat
Ing bawana amurwani
Mustikaning jagad raya
Dhemen lalen sangga runggi

5. Sun iki ngembani wuwus

Dewa sang Hyang Hodipati
Bathara sukma kawekas
Sira ingkang den paringi
Nenggih maosadi lata
Panguripe wong sabumi

6. Punapa tamirah ingsun

Prihatin was pagung mijil
Tuhu dahat tanpa karya




Sengkang rine mekan Gusti
Gelung rinusak sekarnya
Sumawur gambir melathi

7. Midering rat angelangut

Lelana njajah negari
Mubeng tepi ning samodra
Sumengka anggraning wukir
Anelasak wana wasa
Tumuruning jurang trebis

8. Giwanging surya mbok gunung

Teki kang pindho wlingi
Tan gumingsir prapteng pejah
Mung sira kang condhong budi
Peksi reng mangsa kunarpa
Sun dhandhang dadiya krami

9. Sulung enjang dhuh mbok gunung

Pustaka pinudyeng krami
Ngur matiya raganingwang
Lamun tan bisa karonsih
Ancur kaca dhuh bandara
Kang dadi rasaning ati

10. Bokor siti dhuh mbok gunung

Agawe cuwaning ati
Cirak arga munggwing wana
Krawitan selehing gendhing
Durung tutug jejagongan
Kasusu tinundhung mulih

1. E.     SINOM

1. Nulada laku utama

Tumrape wong tanah jawi
Wonga gung ing ngeksi ganda
Panembahan senapati
Kepati amar sudi
Sudaning hawa lan nepsu
Pinesu tapa brata





Tanapi ing siyang ratri
Amemangun karya nak tyas ing sasama

2. Punika serat kawula

Katura sira wong kuning
Sapisan salam pandonga
Kapindo takon pawarti
Jare sirarsa laki
Ingsun mung sewu jumurung
Amung ta wekasi wang
Gelang alit mungging driji
Lamun sida aja lali kalih kula

3. Bang bang wetan wus rahina

Wungua nggenira guling
Medala lawang butulan
Lawang gedhe den jageni
Wanci punapa iki
Wancine sawung kaluruk
Umyung swarane sat
Mager sari padha tangi
Wus rahina wong bagus enggal wungua

4. Laksi tane janma tama

Ambeg rereh raras ririh
Tan tinggal duga prayoga
Riri ngatan sah liniling
Lamun micara manis
Netya sumeh semu arum
Tanggap nging nora calak
Kawignyan dineleh wuri
Ngarah arah nut wahyaning kala mangsa

5. Sun iki dhutaning nata

Prabu kenya majapahit
Kekasih Damar Sasangka
Atma mantune ki patih
Magang anyar awak mami
Lahta bisma praptaningsun





Ingutus Sang Narpendah
Kinen mocok murdataji
Marmaningsun ingutus ywa mindho karya

6. Tumraping warga negara

Marang dhasaring negari
Kang winastan pancasila
Aja nganti padha lali
Jalaran iku dadi
Pangiket ingkang satuhu
Mrih manunggaling bangsa
Beda-bedaning agami
Nora perlu padha kanggoregejegan

7. Nadyan tekan jaman kapan

Jiwane pancasilais
Kanggo nggayuh karukunan
Myang tentreming lahir batin
Sabab ing jaman mangkin
Akeh wong kang wus anyingkur
Tumpraping pancasila
Iku eman-eman yekti
Kang ateges datan ngurmati pejuang

8. Wewangsalan roning kamal

Pra anom den ngati-ati
Wreksa kang pinetha janma
Golek kawruh kang sajati
Kolik priya upami
Anganggowa reh kang tuhu
Kapika pasren karna
Gegelang munggwing dariji
Aywa tinggal miwah lali pariwarna

9. Ing marga  tan kacarita

Ing geladhag sampun prapti
Laju lun alun utara
Sami ninggali waringin
Kagunganing narpati





Dewadaru Jaya daru
Pinacak suji tosan
Ngrembuyung rone ngayomi
Pating klawer salure nyela pang wreksa

10. Waringin kembar tinilar

Mlaku-mlaku alon sami
Malebet gedhong njenggarang
Sasanawaka nami
Sinangga sakaneki
Cacah patang puluh wolu
Gyane para bupatya
Miwah sagung para mantri
Samya seba tinindhihan wrangkanata

1. F.     DHANDANGGULA

1. Kekidungan kang mawa pepeling

Ngelingaken mrih tindak utama
Wong urip iku wajibe
Ngagengna darmanipun
Kanthi rila terusing ati
Sira wajib lenggana
Manungsa puniku
Cinipta datan sampurna
Lan manehe tan bisa urip pribadi
Tansah butuh wong liya

2. Aja nyawang mring bedaning kulit

Aja nyawang bedaning agama
Iku kanca nira kabeh
Sanadyan drajadipun
Luwih cendhek lawan si reki
Becik den kurmatana
Sesamaning makhluk
Yen iku wus katindhakna
Mesti sira tetep bakal den payungi
Gusti kang Maha Nasa

3. Wardining kang sasmita jinarwi

wruh kukum iku watekira
adoh marang kanisthane
pamicara puniku
wah reseping sagung miyarsi
tatakrama puniku
ngedohaken panyendhu
kagunan iku kinarya
ngupa boga dene kelakuan becik
weh rahayuning angga

4. Dandhanggula ngresepake ati

Lamun sinom renyah miwah grapyak
Yen pangkur sereng wateke
Gambuh mawa pitutur
Yen prihatin nembanga mijil
Kasmaran smarandana
Maskumambang trenyuh
Galak greget nyekar durma
Yen megatruh gegetunang nglut lan sedhih
Pocung gecul sembrana

5. Iku kabeh watak tembang yekti

Lamun sira arsa ngripta sekar
Kajaba guru lagune
Ingkang perlu den emut
Saben tembang yekti tan sami
Guru wilanganira
Wus pinathik baku
Lagu winengku ing sastra
Yen wus iku pedhotane kang premati
Pryoga katindhakna

6. Sinarka arsa murwakani

Masjid demak kang agung bawera
Endah asri suwarnane
Saka sinungging wungu
Kuning gadhing akarya asri





Plataran gilar-gilar
Asri yen dinulu
Payon katon maya-maya
Anjenggarang kukuh bakuh edi peni
Karya ascaryaning tyas

7. Mulya yekti pigunane masjid

Tumrap kegiyataning agama
Agama islam mekare
Ngibadah mring Hyang Agung
Gusti Alloh kang maha asih
Papan kinarya dakwah
Nggegulang mring mring ngelmu
Saraking agama islam
Mula wajib masjid iku denpepetri
Tulus trusing wardaya

8. Sapa wong kang akarya kang masjid

Agung adi luhung kang sanyata
Raden patah asmane
Brawijaya sunu
Ratu agung ing majapait
Miyos saking gwagarba
Putri cempa ayu
Wau ta raden patah
Wiwit timur wineleg sagunging ngelmi
Sarak agama Islam

9. Sinengkuyung sagunging prawali

Janma tuhu sekti mandra guna
Wali sanga nggih arane
Dhihin Syeh Magrib tuhu
Sunan ngampel kang kaping kalih
Tri sunan bonang ika
Sunan giri catur
Syarifudin sunan drajat
Anglenggahi urutan gangsal sayekti
Iku ta warnanira

10. Kaping nenem kanjeng sunan kali

Jaga raden mas Said parabnya
Nenggih kasapta candhake
Yeku jeng sunan kudus
Jakfar sidik syeh magribi duk taksih alit
Astha sunan muriya
Kang uga sinebut
Raden umar said ika
Jangkep sanga sunan gunung jati nenggih
Winastan fatahillah

1. G.    MEGATRUH

1. kacarita kyana patih dhendhabahu

pan sarwia teken encis
amenggang gesar wawulung
apindha jakir nagari
yen ka anggul janma menggok

2. Aywa kliru kang jeneng urip iku

Ya kang gumelar neng bumi
Sing bisa branahan iku
Run tumurun ing salami
Tetuwuhan kewan janma

3. Kabeh iku mung manungsa kang pinujul

marga duwe lahir batin
jroning urip iku mau
isi ati klawan budi
iku pirantine ewong

4. Sigra milir sang gethek si nangga bajul

Kawan dasa kang njageni
Ing ngarsamiwah ing pungkur
Tana pi ing kanan kering
Sang gethek lampahnya alon

5. Dhuh Gusti ku Sri Rama kang hambeg sadu

Patik bra hatur hudani
Kalamun kusumaningrum
Dyah Sinta sinaut wani




Dening Ngalengka sang katong

6. yen woh-wohan enak mentah iku timus

enak mateng iku kweni
manggis enak blibaripun
palem enak mateng ati
salah enak rada bosok

7. Nora kena sinelak selak pineluk

Mringkang ngadhang adhang sisip
Yen lara anggepi reku
Temah kether maring ngening
Adoh kaelet tan adhoh

8. Kangwas kitha mangsa kenaa kaliru

Suwanda-suwanda yekti
Sasra bau sasra bau
Yen lagi kinarya silih
Yekti lang sipating loro

9. Dhuh Dhuh Dewa Bathara ingkang linuhung

Mugi paringa aksami
Mring dasih kang wlas ayun
Kasangsaya gung prihatin
Sru nalangsa jroning batos

10. Puluh puluh wus begjane awak ingsun

Kudu pisah yayah wibi
Tan langgeng den mong wong sepuh
Baya wus karsaning Widhi
Pinasthi dhewe wak ing ngong

1. H.    GAMBUH

1. Sekar gambuh ping catur

Kang cinatur polah kang kalantur
Tanpa tutur katula-tula katali
Kadulu warsa kapatuh
Katutuh pan dadi awon

2. Lan sembah sungkem ipun

Mring Hyang Sukma elinga sireku
Apan titah sadaya amung sadermi




Tan welangsira andhaku
Kabeh kagungan Hyang Manon

3. Marmane sira sagung

Aneng donya ywa kong si kaugung
Dipun becik mring sasama ning dumadi
Supaya nora kaduwung
Mrih rahayu ning lalakon

4. Ana wong uwis sepuh

Duwe anak loro tan langkung
Lanang wadon wis diwasa tekeng wanci
Kang watek kosok wangsul
Ngalor ngidul nora cocok

5. Kang wadon banget wungkul

Wekel sregep samubarang laku
Dasar gemi nastiti sarwa mrantasi
Pagaweyan kasar alus
Kabeh gelem ara mopo

6. Beda lan kakangipun

Uwis bodhokesete kalangkung
Tur wegahan lumuhan sabarang kardi
Boros ngebreh tanpa petung
Apa-apa ora enjoh

7. Aja nganti kabanjur

Barang polah ingkang nora jujur
Yen kabanjur sayekti kojur tan becik
Becik ngupayaa iku
Pitutur ingkang sayektos

8. Yen wong mangkono iku

Nora pantes cedhak mring wong agung
Nora wurung anuntun panggawe juti
Nanging ana pantesipun
Wong mangkono didhedheplok

9. Pitutur bener iku

Sayektine apantes tiniru
Nadyan metu saking wong sudra pepeki





Lamun becik tuturipun
Iku pantes sira anggo

10. Sikidang umbagipun

Ngadelaken kebat lumpatipun
Pan si gajah ngadelaken gung kang inggil
Ula ngadelaken iku
Mandine kalamun nyakot

9. MASKUMAMBANG

1. Nadyan silih bapa biyung kaki nini

Sadulur myang sanak
Kalamun muruk tan becik
Nora pantes yen den nuta

2. Apan kaya mangkono watekan iki

Sanadyan wong tuwa
Yen duwe watek tan becik
Miwah tindak tan prayoga

3. Aja sira niru tindak kang tan becik

Nadyan ta wong liya
Lamun pamuruke becik
Miwah tindake prayoga

4. Wong tan manut pitutur wong tuwa ugi

Ha nemu duraka
Ing donya tumekeng akhir
Tan wurung kasurang-surang

5. Maratani ing anak putu ing wuri

Den padha prayitna
Aja na kang kumawani
Ing bapa tanapi biyang

6. Dhuh anak mas sira wajib angurmati

Marang yayah rena
Aja pisan kumawani
Anyenyamah gawe susah

7. Mugi Alloh ingkang maha asih

Tumunten paringa




Pepenget kang padha lali
Elinga mring kautaman

8. Uripira pinter samubarang kardi

Saking ibu rama
Ing batin saking Hyang Widhi
Mulane wajib sinembah

9. Putri cina gelangsaran melas asih

Mala kelaswara
Pedhangen juren wak mami
Aja andedawa lara

10. Narimaa yen nuju nampa seserik

Awit sira uga
Lali nggonmu gawe serik
Elinga purbaning sukma

10. ASMARANDANA

1. Jomblah wanuh ingkang wadi

Mangkana upami nira
Pamestri kuwajibane
Den wanuh budining priya
Dimen tuk sih tan kendhat
Mbok manawa wuwuh wuwuh
Wikaning tyas marang sira

2. Jamane nyata wus keksi

Sapa gelem nambut karya
Bakal nampa pituwase
Nging padha eling-elinga
Sosial mring sesama
Nggenya sami golek butuh
Tan mung nggo dhiri priyangga

3. wus begjane wongkang sugih

samu barang kasembadan
wragad kapetung sepele
kabutuhan wus sumadya
kepara kari aba




donya iki pancen makmur
mung emane durung wrata

4. kang kulina den adhepi

rekasane ngupa boga
repot rumpil abot angel
mula jeneng kasarasan
kang butuh wragad larang
nora kober dipun rembug
kepara den sepelekna

5. pembangunan jaman iki

ing alam kang wus mardika
      ketara kamakmurane
      yen sinawang sakeplasan
      wrata sanuswantara
      nging yen mlebet njajah dhusun
      pranyata bangkit den makna

6. dhusun pancen katon asri

samubarang wus rinasa
nuhoni paugerane
tumata tentrem raharja
nanging sanyatanira
apa ora amung palsu
sokur yen pancen wus mulya

7. Ngungak jaman duk ing uni

Negara kita jinajah saiki kari penake
Bisane kelakon rata
Makmur desa ngadesa
Saranane tetep kudu
Sengkut gumregut makarya

8. Lumrah tumrap wong ngaurip

Dumunung sadhengah papan
Tan ngrasa cukup butuhe
Ngenteni rejeki tiba
Lamun tanpa makarya
Sengara bisa kepthuk





Kang mangkono bundhelana

9. Nginguk pawartos ing jawi

Reregan barang trus mundhak
Aja mung gedhe sambate
Iku wus ingaran lumrah
Sayekti kabeh imbang
Tan ana reregan mudhun
Jangkeping sen isen donya

10. Negara mardika iki

Tinarbuka kalodhangan
Tumrap kabeh sapa wae
Kang kepengin kecukupan
Bebas nggennya makarya
Waton aywa kongsi ngganggu
Katentremaning bebrayan

11. DURMA

1. Ayo kanca gugur gunung bebarengan

Aja ana kang mangkir
Amrih kasembadan
Tujuan pembangunan
Pager apik dalan resik
Latar gumelar
Wisma asri kaeksi

2. Paman- paman apa wartane ing ndalan

Ing ndalan keh pepati
Mati kena apa
Mati pinendang ligan
Ing jaja terusing gigir
Akari raga
Badan kari gumlinting

3. Krodha ngunus candrasa Rahwana mangsah

Galak mangkrak angerik
Candra samakilat
Hingayat tan umesat




Janthayu miber ngungkuli
Gumreng ngawiyat
Dasamuka nuntuti

4. Bener luput ala becik lawan begja

Cilaka mapan saking
Ing badan priyangga
Dudu saking wong liya
Pramila den ngati ati
Sakeh dirmaga
Singgah ana den aglis

5. Matur nembah duk wau kawula tengga

Sedheng kidang munya njrit
Tinarka paduka
Nimbali ing kawula
Dadya kawula tinuding
Nusul paduka
Nanging kawula ajrih

6. Apa silih pinangan ing mong ta sira

Nulya prapta ning ari
Laksmanawidagda
Pucat kena ing wisa
Martyas sang Rama nulya ngling
Ari laksmana
Mantili anengngendi

7. Kadya pinuh sariranya dening kang rah

Wau ta sang apekik
Regawa kumesar
Muring ring tyas mangarang
Marang ngendi sira yayi
Jarang hingungak
Manawatibeng trebis

8. tiningalan tan ana wau kang garwa

lawan ta ing kang rayi
laksmana punika
dereng panggih lan raka





wau duk panusulneki
tibeng wewisa
pucat netya maputih

9. Palarasan undurrira saking tanam

Kuneng wuwusen malih
Sang ramawijaya
Lawan ari laksmana
Kidang mas kang sampun keni
Pejah binekta
Marang nggene kang rayi

10. Mituturi sang putri mantili dirja

Yen ramabadra mangkin
Myarsa jrih dosanya
Denira numpes ditya
Ing balane Sri bupati
Mila tan nedya
Ngupaya garwaneki

di kutip dari http://pitajepang.wordpress.com/2013/01/07/kumpulan-tembang-macapat/

Tembang Macapat

1. MIJIL

Mijil artinya lahir. Hasil dari olah jiwa dan raga laki-laki dan perempuan menghasilkan si jabang bayi. Setelah 9 bulan lamanya berada di rahim sang ibu, sudah menjadi kehendak Hyang Widhi si jabang bayi lahir ke bumi. Disambut tangisan membahana waktu pertama merasakan betapa tidak nyamannya berada di alam mercapadha. Sang bayi terlanjur enak hidup di zaman dwaparayuga, namun harusnetepi titah Gusti untuk lahir ke bumi. Sang bayi mengenal bahasa universal pertama kali dengan tangisan memilukan hati. Tangisan yang polos, tulus, dan alamiah bagaikan kekuatan getaranmantra tanpa tinulis. Kini orang tua bergembira hati, setelah sembilan bulan lamanya menjaga sikap dan laku prihatin agar sang rena (ibu) dan si ponang (bayi) lahir dengan selamat. Puja puji selalu dipanjat agar mendapat rahmat Tuhan Yang Maha Pemberi Rahmat atas lahirnya si jabang bayi idaman hati.

Tembang Mijil ngemu sifal : prihatin, ngemurasa, lega

Tembang macapat mijil laras pelog pathet barang  dengan titilaras dan cakepan dapat di down load pada link di bawah ini :

http://www.youtube.com/watch?v=oD2lGnGwgbg 

2. MASKUMAMBANG

Setelah lahir si jabang bayi, membuat hati orang tua bahagia tak terperi. Tiap hari suka ngudang melihat tingkah polah sang bayi yang lucu dan menggemaskan. Senyum si jabang bayi membuat riang bergembira yang memandang. Setiap saat sang bapa melantunkan tembang pertanda hati senang dan jiwanya terang. Takjub memandang kehidupan baru yang sangat menantang. Namun selalu waspada jangan sampai si ponang menangis dan demam hingga kejang. Orang tua takut kehilangan si ponang, dijaganya malam dan siang agar jangan sampai meregang. Buah hati bagaikan emas segantang. Menjadi tumpuan dan harapan kedua orang tuannya mengukir masa depan. Kelak jika sudah dewasa jadilah anak berbakti kepada orang tua, nusa dan bangsa.

Tembang maskumambang ngemu sifat : ngeres, nelangsa.
Tembang  macapat maskumambang laras pelog pathet barang  dengan titilaras dan cakepan dapat di down load pada link di bawah ini :
http://www.youtube.com/watch?v=lf0J-syqwRU 
3. KINANTI

Semula berujud jabang bayi merah merekah, lalu berkembang menjadi anak yang selalu dikanthi-kanthi kinantenan orang tuannya sebagai anugrah dan berkah. Buah hati menjadi tumpuan dan harapan. Agar segala asa dan harapan tercipta, orang tua selalu membimbing dan mendampingi buah hati tercintanya. Buah hati bagaikan jembatan, yang dapat menyambung dan mempererat cinta kasih suami istri. Buah hati menjadi anugrah ilahi yang harus dijaga siang ratri. Dikanthi-kanthi (diarahkan dan dibimbing) agar menjadi manusia sejati. Yang selalu menjaga bumi pertiwi.

Tembang kinanthi ngemu sifat : tresna, asih, seneng.

Tembang  macapat kinanthi laras slendro pathet manyura  dengan titilaras dan cakepan dapat di down load pada link di bawah ini :
http://www.youtube.com/watch?v=_rIKQWi46Yc 
4. SINOM

Sinom isih enom. Jabang bayi berkembang menjadi remaja sang pujaan dan dambaan orang tua dan keluarga. Manusia yang masih muda usia. Orang tua menjadi gelisah, siang malam selalu berdoa dan menjaga agar pergaulannya tidak salah arah. Walupun badan sudah besar namun remaja belajar hidup masih susah. Pengalamannya belum banyak, batinnya belum matang, masih sering salah menentukan arah dan langkah. Maka segala tindak tanduk menjadi pertanyaan sang bapa dan ibu. Dasar manusia masih enom (muda) hidupnya sering salah kaprah.

Tembang sinom ngemu sifat : grapyak.

Tembang  macapat sinom laras pelog pathet 6  dengan titilaras dan cakepan dapat di down load pada link di bawah ini :

http://www.youtube.com/watch?v=QU9vzYNEBnE 

5. DHANDHANGGULA

Remaja beranjak menjadi dewasa. Segala lamunan berubah ingin berkelana. Mencoba hal-hal yang belum pernah dirasa. Biarpun dilarang agama, budaya dan orang tua, anak dewasa tetap ingin mencobanya. Angan dan asa gemar melamun dalam keindahan dunia fana. Tak sadar jiwa dan raga menjadi tersiksa. Bagi anak baru dewasa, yang manis adalah gemerlap dunia dan menuruti nafsu angkara, jika perlu malah berani melawan orang tua. Anak baru dewasa, remaja bukan dewasa juga belum, masih sering terperdaya bujukan nafsu angkara dan nikmat dunia. Sering pula ditakut-takuti api neraka, namun tak akan membuat sikapnya  menjadi jera. Tak mau mengikuti kareping rahsa, yang ada selalu nguja hawa. Anak dewasa merasa rugi bila tak mengecap manisnya dunia. Tak peduli orang tua terlunta, yang penting hati senang gembira. Tak sadar tindak tanduknya bikin celaka, bagi diri sendiri, orang tua dan keluarga. Cita-citanya setinggi langit, sebentar-sebentar minta duit, tak mau hidup irit. Jika tersinggung langsung sengit. Enggan berusaha yang penting apa-apa harus tersedia. Jiwanya masih muda, mudah sekali tergoda api asmara. Lihat celana saja menjadi bergemuruh rasa di dada. Anak dewasa sering bikin orang tua ngelus dada. Bagaimanapun juga mereka buah dada hati yang dicinta. Itulah sebabnya orang tua tak punya rasa benci kepada pujaan hati. Hati-hati bimbing anak muda yang belum mampu membuka panca indera, salah-salah justru bisa celaka semuanya

Tembang dhandhanggula ngemu sifat : luwes, ngresepake.
Tembang  macapat dhandhanggula laras pelog pathet 6  dengan titilaras dan cakepan dapat di down load pada link di bawah ini :
http://www.youtube.com/watch?v=cU7srYIlToI 
6. ASMARANDANA

Asmaradana atau asmara dahana yakni api asmara yang membakar jiwa dan raga. Kehidupannya digerakkan oleh motifasi harapan dan asa asmara. Seolah dunia ini miliknya saja. Membayangkan dirinya bagaikan sang pujangga atau pangeran muda. Apa yang dicitakan haruslah terlaksana, tak pandang bulu apa akibatnya. Hidup menjadi terasa semakin hidup lantaran gema asmara membahana dari dalam dada. Biarlah asmara membakar semangat hidupnya, yang penting jangan sampai terlena. Jika tidak, akan menderita dikejar-kejar tanggungjawab hamil muda. Sebaliknya akan hidup mulia dan tergapai cita-citanya. Maka sudah menjadi tugas orang tua membimbing mengarahkan agar tidak salah memilih idola. Sebab sebentar lagi akan memasuki gerbang kehidupan baru yang mungkin akan banyak mengharu biru. Seyogyanya suka meniru tindak tanduk sang gurulaku, yang sabar membimbing setiap waktu dan tak pernah menggerutu. Jangan suka berpangku namun pandailah  memanfaatkan waktu. Agar cita-cita dapat dituju. Asmaradana adalah saat-saat yang menjadi penentu, apakah dirimu akan menjadi orang bermutu, atau polisi akan memburu dirimu. Salah-salah gagal menjadi menantu, malah akan menjadi seteru.

Tembang asmarandana ngemu sifat : kesemsem.
Tembang  macapat asmarandana laras slendro barang miring  dengan titilaras dan cakepan dapat di down load pada link di bawah ini :
http://www.youtube.com/watch?v=BQLaDuVIUJU 
7. GAMBUH

Gambuh atau Gampang Nambuh, sikap angkuh serta acuh tak acuh, seolah sudah menjadi orang yang teguh, ampuh dan keluarganya tak akan runtuh. Belum pandai sudah berlagak pintar. Padahal otaknya buyar matanya nanar merasa cita-citanya sudah bersinar. Menjadikannya tak pandai melihat mana yang salah dan benar. Di mana-mana ingin diakui bak pejuang, walau hatinya tak lapang. Pahlawan bukanlah orang yang berani mati, sebaliknya berani hidup menjadi manusia sejati. Sulitnya mencari jati diri kemana-mana terus berlari tanpa henti.  Memperoleh sedikit sudah dirasakan banyak, membuat sikapnya mentang-mentang bagaikan sang pemenang. Sulit mawas diri, mengukur diri terlalu tinggi. Ilmu yang didapatkannya seolah menjadi senjata ampuh tiada tertandingi lagi. Padahal pemahamannya sebatas kata orang. Alias belum bisa menjalani dan menghayati. Bila merasa ada  yang kurang, menjadikannya sakit hati dan rendah diri. Jika tak tahan ia akan berlari menjauh mengasingkan diri. Menjadi pemuda pemudi yang jauh dari anugrah ilahi. Maka, belajarlah dengan teliti dan hati-hati. Jangan menjadi orang yang mudah gumunan dan kagetan. Bila sudah paham hayatilah dalam setiap perbuatan. Agar ditemukan dirimu yang sejati sebelum raga yang dibangga-banggakan itu menjadi mati.

Tembang gambuh ngemu sifat : semanak, lucu, guyon.
Tembang  macapat gambuh laras pelog pathet 6  dengan titilaras dan cakepan dapat di down load pada link di bawah ini :
http://www.youtube.com/watch?v=RwA2Cw9ZuZM 
8. DURMA

Munduring tata krama. Dalam cerita wayang purwa dikenal  banyak tokoh dari kalangan “hitam” yang jahat. Sebut saja misalnya Dursasana, Durmagati,Duryudana. Dalam terminologi Jawa dikenal berbagai istilah menggunakan suku kata dur/ dura (nglengkara) yang mewakili makna negatif (awon). Sebut saja misalnya : duraatmoko, duroko, dursila, dura sengkara, duracara (bicara buruk), durajaya,dursahasya, durmala, durniti, durta, durtama, udur, dst.  Tembang Durma, diciptakan untuk mengingatkan sekaligus  menggambarkan keadaan manusia yang cenderung berbuat buruk atau jahat. Manusia gemar udur atau cekcok, cari menang dan benernya sendiri, tak mau memahami perasaan orang lain. Sementara manusia cendrung mengikuti hawa nafsu yang dirasakan sendiri (nuruti rahsaning karep). Walaupun merugikan orang lain tidak peduli lagi. Nasehat bapa-ibu sudah tidak digubris dan dihiraukan lagi. Lupa diri selalu merasa iri hati. Manusia walaupun tidak mau disakiti, namun gemar menyakiti hati. Suka berdalih niatnya baik, namun tak peduli caranya yang kurang baik. Begitulah keadaan manusia di planet bumi, suka bertengkar, emosi, tak terkendali, mencelakai, dan menyakiti. Maka hati-hatilah, yang selalu eling dan waspadha.

Tembang durma ngemu sifat : galak, nesu.
Tembang  macapat durma laras pelog pathet barang  dengan titilaras dan cakepan dapat di down load pada link di bawah ini :
http://www.youtube.com/watch?v=ThrQDabn8Cc 
9. PANGKUR

Bila usia telah uzur, datanglah penyesalan. Manusia menoleh kebelakang (mungkur) merenungkan apa yang dilakukan pada masa lalu. Manusia terlambat mengkoreksi diri, kadang kaget atas apa yang pernah ia lakukan, hingga kini yang ada  tinggalah menyesali diri. Kenapa dulu tidak begini tidak begitu. Merasa diri menjadi manusia renta yang hina dina sudah tak berguna.  Anak cucu kadang menggoda, masih meminta-minta sementara sudah tak punya lagi sesuatu yang berharga. Hidup merana yang dia punya tinggalah penyakit tua. Siang malam selalu berdoa saja, sedangkan raga tak mampu berbuat apa-apa.  Hidup enggan mati pun sungkan. Lantas bingung mau berbuat apa. Ke sana-ke mari ingin mengaji, tak tahu jati diri, memalukan seharusnya sudah menjadi guru ngaji. Tabungan menghilang sementara penyakit kian meradang. Lebih banyak waktu untuk telentang di atas ranjang. Jangankan teriak lantang, anunya pun sudah tak bisa tegang, yang ada hanyalah mengerang terasa nyawa hendak melayang. Sanak kadhang enggan datang, karena ingat ulahnya di masa lalu yang gemar mentang-mentang. Rasain loh bentar lagi menjadi bathang..!!

Tembang pangkur ngemu sifat : nepsu kang prihatin.
Tembang  macapat pangkur laras pelog pathet 6 dengan titilaras dan cakepan dapat di down load pada link di bawah ini :
http://www.youtube.com/watch?v=2ilg05pAVoI 
10. MEGATRUH

Megat ruh, artinya putusnya nyawa dari raga. Jika pegat tanpa aruh-aruh. Datanya ajal akan tiba sekonyong-konyong. Tanpa kompromi sehingga manusia banyak yang disesali.  Sudah terlambat untuk memperbaiki diri. Terlanjur tak paham jati diri. Selama ini menyembah tuhan penuh dengan pamrih dalam hati, karena takut neraka dan berharap-harap pahala surga. Kaget setengah mati saat mengerti kehidupan yang sejati. Betapa kebaikan di dunia menjadi penentu yang sangat berarti. Untuk menggapai kemuliaan yang sejati dalam kehidupan yang azali abadi. Duh Gusti, jadi begini, kenapa diri ini sewaktu masih muda hidup di dunia fana, sewaktu masih kuat dan bertenaga, namun tidak melakukan kebaikan kepada sesama. Menyesali diri ingat dulu kala telah menjadi durjana. Sembahyangnya rajin namun tak sadar sering mencelakai dan menyakiti hati sesama manusia. Kini telah tiba saatnya menebus segala dosa, sedih sekali ingat tak berbekal pahala. Harapan akan masuk surga, telah sirna tertutup bayangan neraka menganga di depan mata. Di saat ini manusia baru menjadi saksi mati, betapa penyakit hati menjadi penentu dalam meraih kemuliaan hidup yang sejati. Manusia tak sadar diri sering merasa benci, iri hati, dan dengki. Seolah menjadi yang paling benar, apapun tindakanya ia merasa paling pintar,  namun segala keburukannya dianggapnya demi membela diri.  Kini dalam kehidupan yang sejati, sungguh baru bisa dimengerti, penyakit hati sangat merugikan diri sendiri. Duh Gusti…!

Tembang megatruh ngemu sifat : getun, nglangut.
Tembang  macapat megatruh laras pelog pathet barang dengan titilaras dan cakepan dapat di down load pada link di bawah ini :
http://www.youtube.com/watch?v=0TX1E-9vmxQ 
11. POCUNG

Pocung atau pocong adalah orang yang telah mati lalu dibungkus kain kafan. Itulah batas antara kehidupan mercapadha yang panas dan rusak dengan kehidupan yang sejati dan abadi. Bagi orang yang baik kematian justru menyenangkan sebagai kelahirannya kembali, dan merasa kapok hidup di dunia yang penuh derita. Saat nyawa meregang, rasa bahagia bagai lenyapkan dahaga mereguk embun pagi. Bahagia sekali disambut dan dijemput para leluhurnya sendiri. Berkumpul lagi di alam yang abadi azali. Kehidupan baru setelah raganya mati.

Tak terasa bila diri telah mati. Yang dirasa semua orang kok tak mengenalinya lagi. Rasa sakit hilang badan menjadi ringan. Heran melihat raga sendiri dibungkus dengan kain kafan.  Sentuh sana sentuh sini tak ada yang mengerti. Di sana-di sini ketemu orang yang menangisi. Ada apa kok jadi begini, merasa heran kenapa sudah bahagia dan senang kok masih ditangisi. Ketemunya para kadhang yang telah lama nyawanya meregang. Dalam dimensi yang tenang, hawanya sejuk tak terbayang. Kemana mau pergi terasa dekat sekali. Tak ada lagi rasa lelah otot menegang. Belum juga sadar bahwa diri telah mati. Hingga beberapa hari barulah sadar..oh jasad ini telah mati. Yang abadi tinggalah roh yang suci.

Sementara yang durjana, meregang nyawa tiada yang peduli. Betapa sulit dan sakit meregang nyawanya sendiri, menjadi sekarat yang tak kunjung mati. Bingung kemana harus pergi, toleh kanan dan kiri  semua bikin gelisah hati.  Seram mengancam dan mencekam. Rasa sakit kian terasa meradang. Walau mengerang tak satupun yang bisa menolongnya. Siapapun yang hidup di dunia pasti mengalami dosa. Tuhan Maha Tahu dan Bijaksana tak pernah luput menimbang kebaikan dan keburukan walau sejumput. Manusia baru sadar, yang dituduh kapir belum tentu kapir bagi Tuhan, yang dianggap sesat belum tentu sesat menurut Tuhan.  Malah-malah yang suka menuduh  menjadi tertuduh. Yang suka menyalahkan justru bersalah. Yang suka mencaci dan menghina justru orang yang hina dina. Yang gemar menghakimi orang akan tersiksa. Yang suka mengadili akan diadili. Yang ada tinggalah rintihan lirih tak berarti, “Duh Gusti pripun kok kados niki…! Oleh sebab itu, hidup kudu jeli, nastiti, dan ngati-ati. Jangan suka menghakimi orang lain yang tak sepaham dengan diri sendiri. Bisa jadi yang salah malah pribadi kita sendiri. Lebih baik kita selalu mawas diri, agar kelak jika mati arwahmu tidak nyasar menjadi memedi.

Tembang pocong ngemu sifat :
Tembang  macapat pocong laras slendro pathet manyura dengan titilaras dan cakepan dapat di down load pada link di bawah ini :
http://www.youtube.com/watch?v=n3sSYOBdtu8

Berikut adalah contoh script form penjualan yang akan langsung memotong stok yang ada..

procedure TPenjualan.Edit2KeyPress(Sender: TObject; var Key: Char);
var
edi1:real;
edi2,edi3,edi4 :string;
begin
datamodule2.ADOQuery1.Active:=true;
if key = #13 then
begin
if (datamodule2.ADOQuerypart['stok']<0) or (datamodule2.ADOQuerypart['stok']<(strtoint(edit2.Text))) then
begin
showmessage('Stok Tidak Cukup');
exit;
end
else
datamodule2.ADOQuerypart.Edit;
datamodule2.ADOQuerypart.FieldValues['stok']:=datamodule2.ADOQuerypart.FieldValues['stok']-(strtoint(edit2.Text));
datamodule2.ADOQuerypart.Post;

datamodule2.ADOQuery1.Active:=true;

datamodule2.ADOQuery1.Append;
datamodule2.ADOQuery1['kd_brng']:=edit5.Text;

datamodule2.ADOQuery1['nm_brng']:=dbedit11.Text;

datamodule2.ADOQuery1['hrg_jual']:=edit1.text;

datamodule2.ADOQuery1['qty']:=edit2.text;

datamodule2.ADOQuery1['hrg_beli']:=dbedit3.Text;

edi2:=floattostr((strtofloat(Edit1.Text))*(strtofloat(edit2.Text)));
datamodule2.ADOQuery1['total']:=Edi2;

edi3:=floattostr((strtofloat(Edit2.Text))*(strtofloat(dbedit3.Text)));
datamodule2.ADOQuery1['total2']:=Edi3;



datamodule2.ADOQuery1.Post;
datamodule2.ADOQuery1['total']:=edi1;
edit6.Text:=floattostr(edi1+(strtofloat(edit6.Text)));


  edit5.Text:='';
  dbedit11.Text:='';
    edit1.Text:='';
      edit2.Text:='';
        dbedit3.Text:='';
        edit10.Text:='';
  Penjualan1.ActiveControl:=Edit5;


end;
end;


SUMBER :http://ambat-romance.blogspot.com/2013/01/script-form-penjualan-dengan-stok.html

PROGRAM SEDERHANA APLIKASI DELPHI

Assalamualaikum....
Kali ini saya coba membuat Aplikasi Perhitungan Gaji Karyawan degan kriteria sebagai berikut :

1. Setiap orang memiliki gaji pokok dan tunjangan anak.
2. Besarnya tunjangan anak adalah 50.000
3. Jumlah anak yang diberi tunjangan maksimal sampai anak ke-3.

Contoh membuat aplikasi perhitungan gaji dengan menggunakan delphi 7
1. Buat project baru pada delphi, kemudian tempatkan komponen-komponen pada form seperti gambar berikut:

Tata Letak Form Aplikasi Perhitungan Gaji

2. Atur properti form dan komponen seperti pada tabel.

Component	Properti	Value
Label1	Caption	Nama
Label2	Caption	Gaji Pokok
Label3	Caption	Jumlah Anak
Label4	Caption	Gaji Total
Label5	Caption	Aplikasi Perhitungan Gaji
	Font	14
Label6	Caption	Maksimal anak ke-3
Edit1	Name	EdNama
	Text	Dikosongkan
Edit2	Name	EdGajipokok
	Text	Dikosongkan
Edit3	Name	EdJumlahanak
	Text	Dikosongkan
Edit4	Name	EdGajitotal
	Text	Dikosongkan
Button1	Name	BtHitung
	Width	75
	Height	65

3. Jika benar maka tampilan form menjadi seperti ini.

Form Aplikasi Perhitungan Gaji

4. Dobel klik Button BtHitung pada form, lalu isikan prosedur perhitungan gaji sebagai berikut

procedure TForm1.Button1Click(Sender: TObject);
Const TAnak = 50000;
Var
JAnak:integer;
GPokok,Tunjangan,GTotal:Real;
begin
GPokok := StrtoFloat(EdGajipokok.Text);
JAnak := Strtoint(EdJumlahanak.Text);
if Janak > 3 then
begin
Janak := 3;
Showmessage(‘Jumlah Anak yang diberi tunjangan hanya sampai anak ke-3′);
end;
Tunjangan := Janak * Tanak;
GTotal := GPokok + Tunjangan;
EdGajiTotal.Text := Floattostr(GTotal);
end;

5. Coba jalankan project dengan menekan F9 lalu isikan data data pada nama, gaji pokok dan jumlah anak dan tekan tombol Hitung, Jika benar maka akan tampil seperti ini

Aplikasi Perhitungan Gaji Dengan Delphi 7

6. Coba pada jumlah anak isikan dengan angka diatas 3 (misal= 4) maka akan tampil pesan sebagai berikut dan jumlah tunjangan hanya dihitung 3 anak.

Perhitungan Nilai Mahasiswa

Asslamualaikum...
Kali ini saya mencoba memposting tugas UTS ku yg kmarin
Sebelumnya saya mohon maaf kepada para master Delphi, posting ini khusus buat pemula seperti saya. Kali ini saya akan mencoba menjelaskan bagaimana cara membuat program hitung nilai mahasiswa yang sederhana pada Delphi. OK langsung saja……
1. Jalankan aplikasi Delphi yang sudah kita instal di komputer kita terserah versi berapa, maka akan muncul tampilan seperti dibawah ini.
         
2. Masukan komponen-komponen berikut pada form :

Komponen	Propertis
GroupBox1	Caption	Input
Label1	Caption	Nama Lengkap
Label2	Caption	Nilai Tugas
Label3	Caption	Nilai Mid
Label4	Caption	Nilai Semester
Edit1	Text	Kosongkan aja
Edit2	Text	0 (nol)
Edit3	Text	0
Edit4	Text	0
Bitbtn1	Caption	Proses
Bitbtn2	Caption	Baru
GroupBox2	Caption	Output
Label5	Caption	Total Nilai
Label6	Caption	Nilai Akhir
Label7	Caption	Nilai Huruf
Label8	Caption	_
Label9	Caption	Keterangan
Bitbtn3	Caption	Keluar

Silahkan liat gambar dibawah ini dan bisa di desain sendiri terserah anda bagaimana seninya.
         
3. Masukan listing pada Bitbtn Proses sebagai berikut :

var

total, akhir : integer;

begin

total := StrToInt(Edit2.Text)+StrToInt(Edit3.Text)+StrToInt(Edit4.Text);

Edit5.Text:=IntToStr(total);

akhir := total div 3;

Edit6.Text:=IntToStr(akhir);

if akhir >= 85 then

Edit7.Text:='A'

else if akhir >= 70 then

Edit7.Text:='B'

else if akhir >= 60 then

Edit7.Text:='C'

else if akhir >= 50 then

Edit7.Text:='D'

else

Edit7.Text:='E';

//Keterangan

if Edit7.Text='E' then

Label8.Caption:='Tidak Lulus'

else

Label8.Caption:='Lulus';

4. Listing Baru sbb:

Edit1.Enabled:=True;

Edit2.Enabled:=True;

Edit3.Enabled:=True;

Edit4.Enabled:=True;

Edit5.Enabled:=True;

Edit6.Enabled:=True;

Edit7.Enabled:=True;

BitBtn1.Enabled:=True;

Edit1.Text:='';

Edit2.Text:='0';

Edit3.Text:='0';

Edit4.Text:='0';

Edit5.Text:='';

Edit6.Text:='';

Edit7.Text:='';

Label8.Caption:='_';

Edit1.SetFocus;

5. Listing Keluar sbb:

Application.Terminate;

6. Masukan listing pada Form Aktivate, caranya klik pada bagian Events kemudian klik 2x sebelah kanan pada OnAktivate.mlihat gambar dibawah ini.
         
Masukan listing berikut :

Edit1.Enabled:=False;

Edit2.Enabled:=False;

Edit3.Enabled:=False;

Edit4.Enabled:=False;

Edit5.Enabled:=False;

Edit6.Enabled:=False;

Edit7.Enabled:=False;

BitBtn1.Enabled:=False;

Penjelasan Program : Ketika program dijalankan, pada bagian edit yaitu edit1 sampai edit 7 dan tombol Proses bersifat Enable (tidak berfungsi) dan setfocus pada tombol Baru. Dalam artian kita blum bisa mengimput data, Jadi ketika mau mengimput kita harus klik dulu tombol Baru, baru bisa mengimput data.
Silahkan lihat gambar-gambar dibawah ini.
         

           

Script Form Penjualan dengan Stok

Berikut adalah contoh script form penjualan yang akan langsung memotong stok yang ada..

procedure TPenjualan.Edit2KeyPress(Sender: TObject; var Key: Char);
var
edi1:real;
edi2,edi3,edi4 :string;
begin
datamodule2.ADOQuery1.Active:=true;
if key = #13 then
begin
if (datamodule2.ADOQuerypart['stok']<0) or (datamodule2.ADOQuerypart['stok']<(strtoint(edit2.Text))) then
begin
showmessage('Stok Tidak Cukup');
exit;
end
else
datamodule2.ADOQuerypart.Edit;
datamodule2.ADOQuerypart.FieldValues['stok']:=datamodule2.ADOQuerypart.FieldValues['stok']-(strtoint(edit2.Text));
datamodule2.ADOQuerypart.Post;

datamodule2.ADOQuery1.Active:=true;

datamodule2.ADOQuery1.Append;
datamodule2.ADOQuery1['kd_brng']:=edit5.Text;

datamodule2.ADOQuery1['nm_brng']:=dbedit11.Text;

datamodule2.ADOQuery1['hrg_jual']:=edit1.text;

datamodule2.ADOQuery1['qty']:=edit2.text;

datamodule2.ADOQuery1['hrg_beli']:=dbedit3.Text;

edi2:=floattostr((strtofloat(Edit1.Text))*(strtofloat(edit2.Text)));
datamodule2.ADOQuery1['total']:=Edi2;

edi3:=floattostr((strtofloat(Edit2.Text))*(strtofloat(dbedit3.Text)));
datamodule2.ADOQuery1['total2']:=Edi3;



datamodule2.ADOQuery1.Post;
datamodule2.ADOQuery1['total']:=edi1;
edit6.Text:=floattostr(edi1+(strtofloat(edit6.Text)));


  edit5.Text:='';
  dbedit11.Text:='';
    edit1.Text:='';
      edit2.Text:='';
        dbedit3.Text:='';
        edit10.Text:='';
  Penjualan1.ActiveControl:=Edit5;


end;
end;

Program Login

Ingin Program anda aman dan ndk bisa di buka sama orang2 lain,nah gini carax sobt.

Buat penggemar pemrograman yang sudah mengenal tentang bahasa pemrograman Delphi 7, berikut ini penulis ingin sharing tentang bagaimana membuat suatu aplikasi yang dimulai dengan suatu modul login pengguna dengan menggunakan database berbasis paradox bawaan Borland Delphi 7.

Dalam pembahasan ini anggap kita sudah mengenal Delphi 7 itu. Langsung saja, sebelumnya folder baru dengan nama folder baru di directory C:/ dengan nama Delphi_Lat, dari folder ini buat 2 buah folder  masing-masing beri nama folder Bin (untuk menyimpan file project Delphi 7) dan folder Database (untuk menyimpan file database berbasis paradox). Buatlah sebuah database berbasis paradox 7 dengan data sebagai berikut :

Name Table: Tb_Passwd

                                                                           Tabel Password

Isilah database di atas dengan data seperti contoh di bawah ini :

                                                             Isian data Tabel Password

Simpan database dengan nama tb_Passwd di folder Database.

Bukalah aplikasi Borland Delphi 7, pilih File – New – Application,  diawali pembuatan sebuah form login.

Pilih toolbar Standard – Groupbox tempel di form yang kosong ganti nama Groupbox1 dengan Login Pengguna, ambil ikon Label1 tempatkan pada Groupbox isikan dengan User dan ulangi ambil Label2 tempatkan di Groupbox kemudian ganti Label2 dengan Password.

Masih di Toolbar Standard – klik ikon Edit tempatkan di samping User, ulangi lagi ambil ikon Edit tempatkan di samping Pengguna. Ambil ikon Button tempatkan di bawah kolom Edit2 ganti Button dengan Batal. Bila telah selesai form login pengguna akan tampak seperti gambar di bawah ini. Beri nama form1 diganti menjadi form FLogin.

Kembali ke ikon Toolbar pilih ikon system, klik tombol Timer1 tempelkan ke form login pengguna. Pilih BDE klik ikon Table tempatkan di form ganti nama Table1 menjadi TbPasswd, kemudian pilih ikon Data Access pilih ikon DataSource tempatkan bersebelahan dengan ikon tbPasswd, ganti nama DataSource dengan ds_Passwd. Simpan Project Delphi 7 pada folder Bin dengan nama file _Toko_FAZZFAY.dpr dan simpan file unit dengan nama U_Login.pas.

Form Login

Kemudian buatlah satu buah form lagi dengan dengan design seperti berikut, dengan cara klik File – New – Form, ganti nama form2 menjadi form FMenu_Utama :

Form Menu Utama

Sampai disini langkah pertama selesai, langkah kedua biarkan Borland Delphi 7 masih terbuka, buatlah file alias  database paradox yang telah kita buat  dengan cara :

Klik  Start – Borland Delphi 7  - BDE Administrator, setelah  masuk ke programnya klik Objet – New – Standard – Ok, ganti nama file Standard dengan nama file _Toko_FAZZFAY kemudian lihat jendela sebelah kanan masukkan alamat (path) folder atau file database paradox di simpan seperti berikut ini : C:\Delphi_Lat\Database , simpan dengan cara klik Objet – Save As – _Toko_FAZZFAY – Ok. Keluar dari program BDE Administrator.

Kembali ke Delphi 7, klik pada ikon tb_Passwd lihat Objet Inspector di sebelah kiri form di layar Delphi 7, tentukan database namenya adalah _Toko_FAZZFAY, table namenya file : tb_Passwd, dan active option menjadi: TRUE. Klik pada ds_Passwd lihat Object Inspector, klik dataset pilih : tb_Passwd.

Setelah itu klik form FLogin lihat Object Inspector pilih Event – double klik pada OnShow tulis program sebagai berikut :

procedure TFLogin.FormShow(Sender: TObject);

begin

    Edit1.Text:=”;

    Edit2.Text:=”;

end;

Tekan F12 kembali ke form FLogin, klik Edit1 – lihat Object Inspector pilih Event – double klik pada Edit1 tuliskan programnya sebagai berikut :

procedure TFLogin.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

    if not(key=chr(13)) then exit;

    edit2.SetFocus;

end;

Tekan F12 kembali ke form FLogin, klik Edit1 – lihat Object Inspector pilih Event – double klik pada Edit1 tuliskan programnya sebagai berikut :

procedure TFLogin.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

    if not(key=chr(13)) then exit;

    edit2.SetFocus;

end;

Tekan F12 kembali ke form FLogin, klik Edit2 – lihat Object Inspector pilih Event – double klik pada Edit2 tuliskan programnya sebagai berikut :

procedure TFLogin.Edit2KeyPress(Sender: TObject; var Key: Char);

    var

       ada : Boolean;

begin

   if not (key=chr(13)) then Exit;

       if length(edit2.Text)=20 then

       if (length(edit1.Text)=TBPasswd['Nm_Petugas'] and length(edit2.Text)=tbPasswd['Password']) then

             tbPasswd.IndexName:=”;

            Ada:=tbPasswd.FindKey([edit1.Text,edit2.Text]);

            If Ada Then

            Begin

                Edit2.SetFocus;

                Edit2.SelectAll;

                if (Edit1.Text=tbPasswd['Nm_Petugas']) and (tbPasswd['Klasifikasi']=’administrator’) then

                Begin

                End

             Else

                Begin

                     FLogin.Enabled:=False;

                End;

                FLogin.Cursor:=crhourglass;

               Bitbtn1.Cursor:=crhourglass;

               Edit1.Cursor:=crhourglass;

               Edit2.Cursor:=crhourglass;

               GroupBox1.Cursor:=crhourglass;

               Timer1.Enabled:=True;

            End

   Else

   Begin

              ShowMessage(‘Akses Anda Ditolak ….!’);

              edit2.text:=”;

              Edit1.SetFocus;

  end;

end;

 

 

Tekan F12 kembali ke form FLogin, klik Timer1 – lihat Object Inspector pilih Event – double klik pada Timer1 tuliskan programnya sebagai berikut :

procedure TFLogin.Timer1Timer(Sender: TObject);

begin

    Timer1.Enabled:=False;

    FMenu_Utama.Show;

    FLogin.Cursor:=crdefault;

    Bitbtn1.Cursor:=crdefault;

    Edit1.Cursor:=crdefault;

    Edit2.Cursor:=crdefault;

    GroupBox1.Cursor:=crdefault;

    edit1.text:=”;

    edit2.text:=”;

end;

Tekan F12 kembali ke form FLogin, klik Batal – lihat Object Inspector pilih Event – double klik pada Batal tuliskan programnya sebagai berikut :

procedure TFLogin.BitBtn1Click(Sender: TObject);

begin

      Application.Terminate;

end;

 

RadioGroup

Kali ini kita akan membuat Aplikasi yg bisa mengubah warna dan dlm aplikasi ini kita bisa menulis sebagai template yg menggunakan RadioGroup.
RadioGroup adalah komponen program borland delphi 7 yang digunakan untuk pemilihan opsi dari beberapa item yang tersedia. Berikut latihan untuk menggunakan RadioGroup.

Mengetahui letak RadioGroup
Komponen RadioGroup terletak pada tab standart, lihat gambar.

Komponen yang dibutuhkan dalam latihan
2 buah RadioGroup
1 buah Button ,dan
1 buah Label

Memberikan items pada RadioGroup
Klik RadioGroup1 > Pilih box Object Inspector -> Tab Properties -> Items -> Tambahkan items
dan klik ok.

Lakukan hal yang sama untuk RadioGroup ke dua, namun gunakan items warna seperti merah,
biru, dan hijau.
Kemudian ubah itemindex pada kedua RadioGroup dari -1 menjadi 0
Hasil dan tampilannya kurang lebih seperti

Coding pada button
Klik 2 kali button1 dan masukkan source code berikut :

  Label1.Caption:=RadioGroup1.Items[RadioGroup1.ItemIndex];
  if RadioGroup2.ItemIndex=0 then
  begin
    Label1.Font.Color:=  clRed;
  end
  else
  if RadioGroup2.ItemIndex=1 then
  begin
    Label1.Font.Color:=  clBlue;
  end
  else
  if RadioGroup2.ItemIndex=2 then
  begin
    Label1.Font.Color:=  clGreen;
  end;

Running program
Pilih tab run -> run atau bisa menekan shortcut F9, hasilnya seperti gambar berikut

Program Sederhana Playlist

Assalamualikum kawan.....

Kali ini kita akan membuat program sederhana Playlist ,di mana playlist ini kita bisa memutar music.

Nah ini cara-caranya utk membuat program tersebut,moga bisa berguna utk sobat semua.
Moga bermanfaat utk kawan2 smuax..

1. Sekedar Info, Aplikasi Ini Membutuhkan 2 Buah Form.
2. Buka Delphi Anda Desain Tampilan-nya Kayak Gini (Lebih Bagus Lebih Baik) :

Komponen-komponen-nya adalah :
1 Buah Media Player
1 Buah Progresbar
3 buah button
1 Buah Panel
1 Buah Label
1 Buah Timer
1 Buah Open Dialog
1 Buah Speed Button

2. Untuk Form Dua (Playlist-nya)
Komponen Yang dibutuhkan :
1 Buah Popup Menu
1 Buah List

Code Untuk Form 2 :
procedure Tplaylist.Hapus1Click(Sender: TObject);
begin
list.Items.Delete(list.ItemIndex);
end;

procedure Tplaylist.listDblClick(Sender: TObject);
begin
form1.btstart.Caption:='Start';
form1.btstart.OnClick(self);
end;
end.

Code Untuk Form 1
var
Form1: TForm1;
index : integer;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
judul.Caption:='';
timer1.Enabled:=false;
btstart.Enabled:=false;
btstop.Enabled:=false;
progress.Enabled:=false;
end;

procedure TForm1.showplsClick(Sender: TObject);
begin
playlist.show;
end;

procedure TForm1.btopenClick(Sender: TObject);
var
i : integer;
begin
if opendialog1.Execute then
begin
for i:=0 to opendialog1.Files.Count-1 do
playlist.list.Items.Add(opendialog1.Files.Strings[i]);
btstart.Enabled:=true;
playlist.Show;
playlist.list.ItemIndex:=0;
end;
end;

procedure TForm1.btstartClick(Sender: TObject);
begin
if btstart.Caption = 'Start' then
begin
index:=playlist.list.itemindex;
mp.FileName:=playlist.list.Items.Strings[index];
mp.Open;
judul.Caption:=extractfilename(mp.FileName);
judul.Left:=200;
progress.Max:=mp.Length;
mp.Play;
timer1.Enabled:=true;
progress.Enabled:=true;
btstop.Enabled:=true;
btstart.Caption:='Pause';
end else
if btstart.Caption = 'Pause' then
begin
mp.Pause;
btstart.Caption:='Play';
end else
if btstart.Caption = 'Play' then
begin
mp.Pause;
btstart.Caption:='Pause';
end else
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
mp.Close;
end;

procedure TForm1.btstopClick(Sender: TObject);
begin
mp.Stop;
timer1.Enabled:=false;
judul.Left:=8;
btstart.Caption:='Start';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
judul.Left:=judul.Left-1;
if judul.Left = 0-judul.Width then
judul.Left:=panel1.Width+1;
progress.Position:=mp.Position;
if mp.position=mp.Length then
begin
if index + 1 = playlist.list.Items.Count then
begin
form1.btstop.OnClick(self);
playlist.list.ItemIndex:=0;
end else
begin
playlist.list.ItemIndex:=index+1;
btstart.Caption:='Start';
btstart.OnClick(self);
end;
end;
end;

procedure TForm1.progressScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
mp.Position:=progress.Position;
mp.Play;
end;

end.

Calculator Sederhana

Ass. Apa kabarx Bro hehee……

Sebelumnya saya pernah memposting bagaimna Cara Membuat Aplikasi Penjualan Stock Menggunakan Borland Delphi 7.

Nah sob disini saya akan mencoba berbagi pengetahuan bagaimna membuat kalkulator sederhana dengan menggunakan Borland Delphi 7. Langsung aja dech kita pembahasan hehe.

Nah sob dibawah ini adalah desain form nya.  

Aturlah properties controlnya terlebih dahulu seperti pada tabel yang ada di bawah ini.

Nama Control	Properties	Nilai Pengaturan
Form	Caption	Aplikasi Kalkulator Sederhana
Label1	Caption	KALKULATOR
Label2	Caption	Bilangan Ke 1
Label3	Caption	Bilangan ke 2
Label4	Caption	Hasil Hitungan
Text1	Text	Kosongkan
Text2	Text	Kosongkan
Text3	Text	Kosongkan
Button1	Caption	&Penjumlahan
Button2	Caption	&Pengurangan
Button3	Caption	&Perkalian
Button4	Caption	&Pembagian
Button2	Caption	&Ulang Bilangan
Button5	Caption	&Close

Nah kemudian ketikan kode program berikut;

1.      Double Kilick Button1 dan isikan listing program dibawah ini.

procedure TForm1.BitBtn1Click(Sender: TObject);

var a,b,c:integer;

begin

a:=strtoint(edit1.Text);

b:=strtoint(edit2.Text);

C:=a+b;

edit3.Text:=inttostr(c);

end;

2.      Double Kilick Button2 dan isikan listing program dibawah ini.

procedure TForm1.BitBtn2Click(Sender: TObject);

var a,b,c:integer;

begin

a:=strtoint(edit1.Text);

b:=strtoint(edit2.Text);

C:=a-b;

edit3.Text:=inttostr(c);

end;

3.      Double Kilick Butto 3 dan isikan listing program dibawah ini.

procedure TForm1.BitBtn3Click(Sender: TObject);

var a,b,c:integer;

begin

a:=strtoint(edit1.Text);

b:=strtoint(edit2.Text);

C:=a*b;

edit3.Text:=inttostr(c);

end;

4.       procedure TForm1.BitBtn4Click(Sender: TObject);

var a,b,c:real;

begin

a:=strtofloat(edit1.Text);

b:=strtofloat(edit2.Text);

C:=a/b;

edit3.Text:=floattostr(c);

end;

end.

Nah sob,,,,,setelah kalian mengetik koding di atas coba sobat jalan kan programnya dengan cara menekan tombol F9 pada keyboard.

Kalau sukses maka hasilnya akan seperti gambar di bawah ini.

SUMBER :http://ambat-romance.blogspot.com/