Form Halaman Utama implement home inherits userControlSupport open core, vpiDomains constants className = "Form/home". classVersion = "". clauses classInfo(className, classVersion). clauses new(Parent):new(), setContainer(Parent). clauses new():userControlSupport::new(), generatedInitialize(). % This code is maintained automatically, do not update it manually. 16:08:37-17.8.2011 facts predicates generatedInitialize : (). clauses generatedInitialize():setText("Home"), This:setSize(392, 214), StaticText_ctl = textControl::new(This), StaticText_ctl:setText("HALAMAN UTAM A"), StaticText_ctl:setPosition(136, 8), StaticText_ctl:setSize(120, 22), StaticText_ctl:setAlignment(alignCenter), Icon_ctl = iconControl::new(This), Icon_ctl:setIcon(resourceIdentifiers::idi_erro rpresentation_info), Icon_ctl:setPosition(48, 22), StaticText1_ctl = textControl::new(This), StaticText1_ctl:setText("Pendidikan sebagai mana tertuang dalam GBHN tahun 1973 adalah u saha sadar untuk mengembangkan kepribadian da n kemampuan didalam dan diluar sekolah yang b erlangsung seumur hidup. Pada dasarnya pendidi kan merupakan suatu proses mendidik, yaitu suat u proses dalam rangka mempengaruhi peserta did ik supaya mampu menyesuaikan diri sebaik mung kin dengan lingkungannya, sehingga akan menim bulkan perubahan dalam dirinya. "),
StaticText1_ctl:setPosition(4, 50), StaticText1_ctl:setSize(384, 38), % end of automatic code end implement home
Form Informasi implement info inherits userControlSupport open core, vpiDomains constants className = "Form/info". classVersion = "". clauses classInfo(className, classVersion). clauses new(Parent):new(), setContainer(Parent). clauses new():userControlSupport::new(), generatedInitialize().
% This code is maintained automatically, do not update it manually. 14:34:18-3.8.2011 facts editorControl_ctl : editorcontrol. predicates generatedInitialize : (). clauses generatedInitialize():setText("Info"), This:setSize(392, 214), editorControl_ctl := editorcontrol::new(This ), Str= file::readString("info.txt", Unicode), editorControl_ctl:pasteStr(Str), editorControl_ctl:setPosition(4, 36), editorControl_ctl:setSize(384, 176), StaticText_ctl = textControl::new(This), StaticText_ctl:setText("INFORMASI"), StaticText_ctl:setPosition(132, 8), StaticText_ctl:setSize(120, 22), StaticText_ctl:setAlignment(alignCenter), Icon_ctl = iconControl::new(This),
Icon_ctl:setIcon(resourceIdentifiers::idi_erro rpresentation_info), Icon_ctl:setPosition(24, 12). % end of automatic code end implement info
Form Konseling implement konseling inherits userControlSupport open core, vpiDomains constants className = "Form/konseling". classVersion = "". clauses classInfo(className, classVersion). clauses new(Parent):new(), setContainer(Parent). clauses new():userControlSupport::new(), generatedInitialize(). class facts operator:(integer,string,string). predicates onYaClick : button::clickResponder. onTdkClick : button::clickResponder. clauses operator(1, "s01.txt", "s02.txt"). operator(2, "s01.txt", "s03.txt"). operator(3, "s02.txt", "s05.txt"). operator(4, "s02.txt", "s06.txt").
% This code is maintained automatically, do not update it manually. 17:03:24-9.8.2011 facts ya_ctl : button. tdk_ctl : button. editorControl_ctl : editorcontrol. predicates generatedInitialize : (). clauses generatedInitialize():setText("Konseling"), This:setSize(392, 214), ya_ctl := button::new(This), ya_ctl:setText("&YA"), ya_ctl:setPosition(120, 134), ya_ctl:setSize(72, 20), ya_ctl:setClickResponder(onYaClick), tdk_ctl := button::new(This), tdk_ctl:setText("TIDAK"), tdk_ctl:setPosition(208, 134), tdk_ctl:setSize(72, 20), tdk_ctl:setClickResponder(onTdkClick), editorControl_ctl := editorcontrol::new(This ), Str= file::readString("pil0.txt", Unicode), editorControl_ctl:pasteStr(Str), editorControl_ctl:setPosition(108, 70), editorControl_ctl:setSize(180, 50), StaticText_ctl = textControl::new(This), StaticText_ctl:setText("KONSELING"), StaticText_ctl:setPosition(140, 8), StaticText_ctl:setSize(120, 22), StaticText_ctl:setAlignment(alignCenter), Icon_ctl = iconControl::new(This), Icon_ctl:setIcon(application_icon), Icon_ctl:setPosition(24, 12). % end of automatic code end implement konseling
Form Bantuan
onYaClick(_Source) = button::defaultAction :Str= file::readString("s06.txt", Unicode), editorControl_ctl:pasteStr(Str).
implement help inherits userControlSupport open core, vpiDomains
onTdkClick(_Source) = button::defaultAction :
constants className = "Form/help". classVersion = "".
Str= file::readString("s05.txt", Unicode), editorControl_ctl:pasteStr(Str).
clauses classInfo(className, classVersion). clauses new(Parent):new(), setContainer(Parent). clauses new():userControlSupport::new(), generatedInitialize(). % This code is maintained automatically, do not update it manually. 10:33:29-18.8.2011 facts predicates generatedInitialize : (). clauses generatedInitialize():setText("Help"), This:setSize(392, 214), StaticText_ctl = textControl::new(This), StaticText_ctl:setText("HELP"), StaticText_ctl:setPosition(136, 8), StaticText_ctl:setSize(120, 22), StaticText_ctl:setAlignment(alignCenter), Icon_ctl = iconControl::new(This), Icon_ctl:setIcon(resourceIdentifiers::idi_erro rpresentation_warning), Icon_ctl:setPosition(24, 12), StaticText1_ctl = textControl::new(This), StaticText1_ctl:setText("+ KONSULTASI") , StaticText1_ctl:setPosition(20, 48), StaticText1_ctl:setSize(112, 10), StaticText2_ctl = textControl::new(This), StaticText2_ctl:setText("Dihalaman KONS ELING anda akan menemui form konsultasi yang tersedia disana. Ada teks box dan dua tombol Y A dan TIDAK untuk melakukan konsultasi. "), StaticText2_ctl:setPosition(48, 60), StaticText2_ctl:setSize(256, 26), % end of automatic code end implement help
Form Hasil Konseling domains gejala = symbol penyakit = string query = string jawab = char
database dbanak(gejala) dbtdkanak(gejala) predicates penyebab(penyakit) go anak(query,gejala) tdkanak(query,gejala) nondeterm gejala(gejala) clear_fakta2 simpan(gejala,jawab) tanya(query,gejala,jawab) go_once nondeterm diagnosa(penyakit) solusi(penyakit) solusi0(penyakit) solusi1(penyakit) goal go. clauses go:go_once,nl,nl,nl,nl,nl, write("Anda Ingin Melakukan Konseling Ulang (Y/T)?"), readchar(Jawab),nl, Jawab='y', go. go_once:diagnosa(_),!, save("BUKU1.dat"), clear_fakta2. go_once:nl,nl,nl, write(" Maaf Permasalahan Anda Tidak Terdefinisikan"),nl, clear_fakta2. anak(_,Gejala):dbanak(Gejala),!. anak(Query,Gejala):not(dbtdkanak(Gejala)), tanya(Query,Gejala,Jawab), Jawab='y'. tdkanak(_,Gejala):dbtdkanak(Gejala),!. tdkanak(Query,Gejala):not(dbanak(Gejala)), tanya(Query,Gejala,Jawab), Jawab='t'. tanya(Query,Gejala,Jawab):write(Query), readchar(Jawab),
write(Jawab),nl, simpan(Gejala,Jawab). simpan(Gejala,'y'):asserta(dbanak(Gejala)). simpan(Gejala,'t'):asserta(dbtdkanak(Gejala)). clear_fakta2:retract(dbanak(_)),fail. clear_fakta2:retract(dbtdkanak(_)),fail. clear_fakta2. /*---------------------------GEJALA-----------------------*/ gejala("S01"):anak("Apakah anda memiliki pergaulan yang bebas, tanpa ada bimbingan dan pemantauan dari orang tua atau orang terdekat anda (Y/T)?","S01"). gejala("S02"):anak("Apakah anda sering mengikuti dan melakukan yang teman-teman perbuat (Y/T)?","S02"). gejala("S03"):anak("Apakah anda saling melemparkan ejekan dengan teman (Y/T)?","S03"). gejala("S04"):anak("Apakah anda memiliki pertengkaran pribadi atau kelompok (Y/T)?","S04"). gejala("S05"):anak("Apakah anda merasa dijauhi oleh temanteman, sehingga tidak mau sekolah (Y/T)?","S05"). gejala("S06"):anak("Apakah anda selalu dicurigai dan dimusuhi oleh teman-teman anda (Y/T)?","S06"). gejala("S07"):anak("Apakah alasan anda terlambat sekolah karena mendapat tugas dari orang tua (Y/T)?","S07"). gejala("S08"):anak("Apakah anda kesulitan dalam memahami mata pelajaran tertentu, sehingga malas mengerjakan tugasnya (Y/T)?","S08"). gejala("S09"):anak("Apakah anda tidak memiliki motivasi belajar dari orang terdekat ataupun dari diri anda sendiri (Y/T)?","S09").
gejala("S10"):anak("Apakah alat, sarana dan prasarana belajar anda terbatas atau kurang lengkap (Y/T)?","S10"). gejala("S11"):anak("Apakah anda kurang menyukai atau tidak menyukai guru dari mata pelajaran tertentu (Y/T)?","S11"). gejala("S12"):anak("Apakah anda memiliki mata pelajaran yang tidak anda sukai atau kuasai (Y/T)?","S12"). gejala("S13"):anak("Apakah anda memiliki potensi dan bakat yang sudah anda ketahui (Y/T)?","S13"). gejala("S14"):anak("Apakah anda mengalami penurunan prestasi belajar (Y/T)?","S14"). gejala("S15"):anak("Apakah anda sering terlambat masuk sekolah (Y/T)?","S15"). gejala("S16"):anak("Apakah anda memiliki permasalahan seputar teman perempuan atau pacar (Y/T)?","S16"). gejala("S17"):anak("Apakah anda merasa direndahkan dan diacuhkan oleh salah satu teman anda (Y/T)?","S17"). gejala("S18"):anak("Apakah anda sering mengalami kekecewaan dan frustasi (Y/T)?","S18"). gejala("S19"):anak("Apakah anda berpacaran karena sudah merasa dewasa dan berhak melakukan atau mendapatkannya (Y/T)?","S19"). gejala("S20"):anak("Apakah jika anda mengerjakan soal selalu merasa kurang mampu untuk menjawabnya (Y/T)?","S20"). gejala("S21"):anak("Apakah kurangnya sarana dan prasarana membuat anda kesulitan menguasai mata pelajaran tertentu (Y/T)?","S21"). gejala("S22"):anak("Apakah anda bermasalah dengan kepercayaan diri dan mental anda (Y/T)?","S22"). gejala("S23"):-
anak("Apakah anda merasa memiliki potensi yang terbatas (Y/T)?","S23"). gejala("S24"):anak("Apakah anda mengalami kesulitan mendapatkan angkutan umum atau transportasi ke sekolah, sehingga anda terlambat datang (Y/T)?","S24").
gejala("S36"):anak("Apakah yang anda alami karena masalah keluarga sudah mempengaruhi anda terlalu berat (Y/T)?","S36"). gejala("S37"):anak("Apakah hal yang anda lakukan karena keterpaksaan keadaan ekonomi (Y/T)?","S37").
gejala("S25"):anak("Apakah anda sering bangun kesiangan (Y/T)?","S25").
gejala("S38"):anak("Apakah anda kurang mendapatkan perhatian dari orang tua (Y/T)?","S38").
gejala("S26"):anak("Apakah anda bermasalah dengan tanggung jawab yang harus anda terima (Y/T)?","S26").
gejala("S39"):anak("Apakah anda memiliki kecenderungan tidak sabaran yang berujung marah meledakledak tak terkendali, sehingga muncul penyakit kejiwaan seperti pisikopat, apatis, oportunis dan lainnya (Y/T)?","S39").
gejala("S27"):anak("Apakah anda memiliki masalah dalam diri anda sendiri, atau dengan teman dan keluarga (Y/T)?","S27"). gejala("S28"):anak("Apakah anda memiliki keinginan dalam mengikuti trend dan perubahan zaman (Y/T)?","S28"). gejala("S29"):anak("Apakah anda tidak mendapatkan pembinaan dari orang tua (Y/T)?","S29"). gejala("S30"):anak("Apakah anda merasa tidak konsentrasi saat belajar di rumah karena orang tua atau keluarga anda sering bertengkar (Y/T)?","S30"). gejala("S31"):anak("Apakah keluarga anda tidak harmonis atau ayah dan ibu sudah berpisah (Y/T)?","S21"). gejala("S32"):anak("Apakah anda terpengaruh dengan permasalahan yang sedang dihadapi keluarga (Y/T)?","S32"). gejala("S33"):anak("Apakah anda sering menonton film dewasa atau hal-hal yang porno dan menyebabkan anda terpengaruh (Y/T)?","S33"). gejala("S34"):anak("Apakah anda merasa tidak nyaman dalam kondisi apapun dikarenakan terpengaruh atas keadaan keluarga (Y/T)?","S34"). gejala("S35"):anak("Apakah anda memiliki masalah kesehatan emosional berupa tidak sabaran, mudah marah dan sering terpengaruh (Y/T)?","S35").
gejala("S40"):anak("Apakah anda sering meniru atau mengikuti adegan-adegan yang ada ditelevisi dan film dalam kehidupan anda (Y/T)?","S40"). gejala("S41"):anak("Apakah orang tua kurang memantau kegiatan anda (Y/T)?","S41"). gejala("S42"):anak("Apakah anda mengalami permasalahan pribadi yang berat (Y/T)?","S42"). gejala("S43"):anak("Apakah anda mempunyai masalah keluarga yang membuat putus asa dalam hidup (Y/T)?","S43"). gejala("S44"):anak("Apakah hidup dan perilaku anda banyak mencontoh adegan film action (Y/T)?","S44"). gejala("S45"):anak("Apakah permasalahan pribadi yang anda alami berpengaruh dalam perilaku (Y/T)?","S45"). diagnosa("BOLOS"):gejala("S01"), gejala("S02"), gejala("S05"), gejala("S06"), gejala("S07"), penyebab("BOLOS"). diagnosa("MALAS"):gejala("S08"), gejala("S09"), gejala("S10"), penyebab("MALAS").
diagnosa("KESULITAN BELAJAR PADA BIDANG TERTENTU"):gejala("S11"), gejala("S12"), gejala("S13"), gejala("S14"), gejala("S15"), penyebab("KESULITAN BELAJAR PADA BIDANG TERTENTU"). diagnosa("BERKELAHI DENGAN TEMAN SEKOLAH"):gejala("S03"), gejala("S04"), gejala("S16"), penyebab("BERKELAHI DENGAN TEMAN SEKOLAH"). diagnosa("BERTENGKAR"):gejala("S03"), gejala("S04"), gejala("S17"), penyebab("BERTENGKAR"). diagnosa("MINUM-MINUMAN KERAS TAHAP AWAL"):gejala("S01"), gejala("S18"), penyebab("MINUM-MINUMAN KERAS TAHAP AWAL"). diagnosa("BERPACARAN"):gejala("S01"), gejala("S19"), penyebab("BERPACARAN"). diagnosa("MENYONTEK"):gejala("S20"), gejala("S21"), gejala("S22"), gejala("S23"), penyebab("MENYONTEK"). diagnosa("TERLAMBAT MASUK SEKOLAH"):gejala("S24"), gejala("S25"), gejala("S26"), penyebab("TERLAMBAT MASUK SEKOLAH"). diagnosa("GANGGUAN EMOSIONAL"):gejala("S27"), penyebab("GANGGUAN EMOSIONAL"). diagnosa("BERPACARAN DENGAN PERBUATAN MENYIMPANG"):gejala("S01"), gejala("S28"), gejala("S29"), penyebab("BERPACARAN DENGAN PERBUATAN MENYIMPANG").
diagnosa("BERKELAHI ANTAR SEKOLAH"):gejala("S01"), gejala("S02"), penyebab("BERKELAHI ANTAR SEKOLAH"). diagnosa("KESULITAN BELAJAR KARENA GANGGUAN KELUARGA"):gejala("S30"), gejala("S31"), penyebab("KESULITAN BELAJAR KARENA GANGGUAN KELUARGA"). diagnosa("MINUM-MINUMAN KERAS TAHAP PERTENGAHAN"):gejala("S01"), gejala("S32"), penyebab("MINUM-MINUMAN KERAS TAHAP PERTENGAHAN"). diagnosa("MELAKUKAN GANGGUAN SOSIAL DAN ASUSILA"):gejala("S33"), penyebab("MELAKUKAN GANGGUAN SOSIAL DAN ASUSILA"). diagnosa("GANGGUAN EMOSIONAL BERAT"):gejala("S34"), gejala("S35"), penyebab("GANGGUAN EMOSIONAL BERAT"). diagnosa("KECANDUAN ALKOHOL DAN NARKOTIKA"):gejala("S01"), gejala("S36"), penyebab("KECANDUAN ALKOHOL DAN NARKOTIKA"). diagnosa("PELAKU KRIMINALITAS"):gejala("S37"), gejala("S38"), gejala("S39"), gejala("S40"), penyebab("PELAKU KRIMINALITAS"). diagnosa("SISWI HAMIL"):gejala("S01"), gejala("S41"), penyebab("SISWI HAMIL"). diagnosa("PERCOBAAN BUNUH DIRI"):gejala("S42"), gejala("S43"), penyebab("PERCOBAAN BUNUH DIRI"). diagnosa("PERKELAHIAN SENJATA TAJAM DAN SENJATA API"):gejala("S01"),
gejala("S02"), gejala("S44"), gejala("S45"), penyebab("PERKELAHIAN SENJATA TAJAM DAN SENJATA API"). penyebab("BOLOS"):solusi("BOLOS"), solusi0("'Barangsiapa menempuh suatu jalan untuk mencari ilmu pengetahuan, maka dengan sebab kelakuannya itu Allah akan menempuhkan suatu jalan untuknya guna menuju kesurga' H.R Muslim"), solusi1("Melakukan bimbingan individual bersama guru BK"), solusi1("Meminta pengawasan terhadap orang tua dan prangkat sekolah agar tidak terulang"). penyebab("MALAS"):solusi("MALAS"), solusi0("'Dan bahwasannya seorang manusia tiada memperoleh selain apa yang telah diusahakannya' Q.S An Najm:39"), solusi1("Melakukan bimbingan individual atau kelompok bersama guru BK"), solusi1("Membicarakannya bersama orang tua"). penyebab("KESULITAN BELAJAR PADA BIDANG TERTENTU"):solusi("KESULITAN BELAJAR PADA BIDANG TERTENTU"), solusi0("'Karena sesungguhnya sesudah kesulitan itu ada kemudahan' Q.S Alam Nasyrah:5"), solusi1("Melakukan bimbingan individual atau kelompok bersama guru BK"), solusi1("Berbicara dan berkoordinasi dengan guru mata pelajaran atau wali kelas"). penyebab("BERKELAHI DENGAN TEMAN SEKOLAH"):solusi("BERKELAHI DENGAN TEMAN SEKOLAH"), solusi0("'Sesungguhnya orang-orang mu'min adalah bersaudara karena itu damaikanlah antara kedua saudaramu dan bertakwalah kepada Allah supaya kamu mendapat rahmat' Q.S Al Hujuraat:10"), solusi1("Melakukan bimbingan individual atau kelompok bersama guru BK"), solusi1("Membaca kembali tata tertib sekolah, agar mengetahui konsekuensi dari yang dilakukan"), solusi1("Membicarakannya bersama wali kelas, kesiswaan dan kepala sekolah untuk mencari solusi"). penyebab("BERTENGKAR"):solusi("BERTENGKAR"),
solusi0("'Sesungguhnya orang-orang mu'min adalah bersaudara karena itu damaikanlah antara kedua saudaramu dan bertakwalah kepada Allah supaya kamu mendapat rahmat' Q.S Al Hujuraat:10"), solusi1("Melakukan bimbingan individual atau kelompok bersama guru BK"), solusi1("Membicarakannya bersama wali kelas untuk mencari solusi"). penyebab("MINUM-MINUMAN KERAS TAHAP AWAL"):solusi("MINUM-MINUMAN KERAS TAHAP AWAL"), solusi0("'Hai orang-orang yang beriman, sesungguhnya(meminum) khamar (arak), berjudi, (berkorban untuk) berhala, mengundi nasib dengan panah, adalah perbuatan keji termasuk perbuatan syaitan...' Q.S Al Maa'idah:90"), solusi1("Melakukan bimbingan individual atau kelompok bersama guru BK"), solusi1("Membaca kembali tata tertib sekolah, agar mengetahui konsekuensi dari yang dilakukan"), solusi1("Membicarakannya bersama orangtua, wali kelas, kesiswaan dan kepala sekolah untuk mencari solusi"). penyebab("BERPACARAN"):solusi("BERPACARAN"), solusi0("'Dan janganlah kamu mendekati zina; sesungguhnya zina itu adalah sesuatu perbuatan yang keji. Dan suatu jalan yang buruk' Q.S Al Israa':32"), solusi1("Melakukan bimbingan individual bersama guru BK"), solusi1("Membaca kembali tata tertib sekolah, agar mengetahui konsekuensi dari yang dilakukan"). penyebab("MENYONTEK"):solusi("MENYONTEK"), solusi0("'Hai orang-orang yang beriman, mengapa kamu mengatakan apa yang tidak kamu perbuat?. Amat besar kebencian di sisi Allah bahwa kamu mengatakan apa-apa yang tiada kamu kerjakan' Q.S Ash Shaff:2-3"), solusi1("Melakukan bimbingan individual atau kelompok bersama guru BK"), solusi1("Membicarakannya bersama orangtua dan guru mata pelajaran untuk mencari solusi"). penyebab("TERLAMBAT MASUK SEKOLAH"):solusi("TERLAMBAT MASUK SEKOLAH"), solusi0("'Dan bahwasannya seorang manusia tiada memperoleh selain apa yang telah diusahakannya' Q.S An Najm:39"), solusi1("Melakukan bimbingan individual bersama guru BK"),
solusi1("Membicarakannya bersama wali kelas, guru piket, guru mata pelajaran dan orang tua untuk mencari solusi").
solusi1("Membicarakannya bersama wali kelas dan guru mata pelajaran untuk mencari solusi").
penyebab("GANGGUAN EMOSIONAL"):solusi("GANGGUAN EMOSIONAL"), solusi0("'Dan bersabarlah kamu bersamasama dengan orang-orang yang menyeru Tuhannya di pagi dan senja hari dengan mengharap keridhaan-Nya...' Q.S Al Kahfi:28"), solusi1("Melakukan bimbingan individual atau kelompok bersama guru BK"), solusi1("Membicarakannya bersama orang tua"), solusi1("Berkoordinasi bersama wali kelas, agar diketahui prangkat sekolah tentang permasalahan ini").
penyebab("MINUM-MINUMAN KERAS TAHAP PERTENGAHAN"):solusi("MINUM-MINUMAN KERAS TAHAP PERTENGAHAN"), solusi0("'Hai orang-orang yang beriman, sesungguhnya(meminum) khamar (arak), berjudi, (berkorban untuk) berhala, mengundi nasib dengan panah, adalah perbuatan keji termasuk perbuatan syaitan...' Q.S Al Maa'idah:90"), solusi1("Melakukan bimbingan individual atau kelompok bersama guru BK"), solusi1("Membicarakannya bersama orangtua, wali kelas, kesiswaan, kepala sekolah dan kepolisian untuk mencari solusi").
penyebab("BERPACARAN DENGAN PERBUATAN MENYIMPANG"):solusi("BERPACARAN DENGAN PERBUATAN MENYIMPANG"), solusi0("'Dan orang-orang yang menjaga kemaluannya. Kecuali terhadap istri-istri mereka atau budak yang mereka miliki; maka sesungguhnya mereka dalam hal ini tiada tercela' Q.S Al Mu'minuun:5-6"), solusi1("Melakukan bimbingan individual atau kelompok bersama guru BK"), solusi1("Membaca kembali tata tertib sekolah, agar mengetahui konsekuensi dari yang dilakukan"), solusi1("Membicarakannya bersama wali kelas, orangtua dan kepala sekolah untuk berjanji tidak mengulanginya").
penyebab("MELAKUKAN GANGGUAN SOSIAL DAN ASUSILA"):solusi("MELAKUKAN GANGGUAN SOSIAL DAN ASUSILA"), solusi0("'...Dia memberi balasan kepada orang-orang yang berbuat jahat terhadap apa yang telah mereka kerjakan...' Q.S An Najm:31"), solusi1("Melakukan bimbingan individual atau kelompok bersama guru BK"), solusi1("Membaca kembali tata tertib sekolah, agar mengetahui konsekuensi dari yang dilakukan"), solusi1("Membicarakannya bersama orangtua, wali kelas, kesiswaan dan kepala sekolah untuk mencari solusi").
penyebab("BERKELAHI ANTAR SEKOLAH"):solusi("BERKELAHI ANTAR SEKOLAH"), solusi0("'...Hendaknya kamu menjadi hamba Allah yang bersaudara satu sama yang lain dan tidaklah halal bagi setiap muslim mendiamkan saudaranya lebih dari tiga hari' H.R BukhariMuslim"), solusi1("Melakukan bimbingan individual atau kelompok bersama guru BK"), solusi1("Membicarakannya bersama wali kelas, kesiswaan, kepala sekolah dan kepolisian untuk mencari solusi dan minta nasihat").
penyebab("GANGGUAN EMOSIONAL BERAT"):solusi("GANGGUAN EMOSIONAL BERAT"), solusi0("'...Jauhilah sifat dengki karena dua putra Adam (Qabil dan Habil) sampai hati yang satu membunuh lainnya karena kedengkian...' H.R Qussyairy dari Ibnu Mas'ud"), solusi1("Melakukan bimbingan individual bersama guru BK"), solusi1("Membicarakan dan berkoordinasi bersama wali kelas dan orangtua untuk mencari solusi"), solusi1("Melakukan bimbingan bersama pisikolog").
penyebab("KESULITAN BELAJAR KARENA GANGGUAN KELUARGA"):solusi("KESULITAN BELAJAR KARENA GANGGUAN KELUARGA"), solusi0("'Apakah manusia itu mengira bahwa mereka dibiarkan(saja) mengatakan 'kami telah beriman', sedang mereka tidak diuji lagi?' Q.S Al 'Ankabuut:2"), solusi1("Melakukan bimbingan individual bersama guru BK"),
penyebab("KECANDUAN ALKOHOL DAN NARKOTIKA"):solusi("KECANDUAN ALKOHOL DAN NARKOTIKA"), solusi0("'Sesungguhnya orang-orang yang sesat dari jalan Allah akan mendapat adzab yang berat, karena mereka melupakan hari perhitungan' Q.S Sheh:26"), solusi1("Melakukan bimbingan individual atau kelompok bersama guru BK"),
solusi1("Membicarakan dan berkoordinasi bersama wali kelas, kepolisian dan orangtua untuk mencari solusi"). penyebab("PELAKU KRIMINALITAS"):solusi("PELAKU KRIMINALITAS"), solusi0("'Dan janganlah kamu membuat kerusakan dimuka bumi, sesudah (Allah) memperbaikinya dan berdo'alah kepada-Nya dengan rasa takut dan harapan...' Q.S Al A'raaf:56"), solusi1("Melakukan bimbingan individual bersama guru BK"), solusi1("Membicarakan dan berkoordinasi bersama wali kelas, kesiswaan, kepala sekolah, kepolisian dan orangtua untuk mencari solusi"), solusi1("Membaca kembali tata tertib sekolah, agar mengetahui konsekuensi dari yang dilakukan"). penyebab("SISWI HAMIL"):solusi("SISWI HAMIL"), solusi0("'Perempuan yang berzina dan lakilaki yang berzina, maka deralah tiap-tiap seorang dari keduanya seratus kali dera...' Q.S An Nuur:2"), solusi1("Melakukan bimbingan individual bersama guru BK"), solusi1("Membicarakannya bersama orangtua, wali kelas, kesiswaan dan kepala sekolah untuk mencari solusi"). penyebab("PERCOBAAN BUNUH DIRI"):solusi("PERCOBAAN BUNUH DIRI"), solusi0("'...Dan janganlah kamu membunuh dirimu; sesungguhnya Allah adalah maha Penyayang kepadamu' Q.S An Nisaa':29"), solusi1("Melakukan bimbingan individual bersama guru BK"), solusi1("Membicarakannya bersama orangtua, wali kelas, kesiswaan dan kepala sekolah untuk mencari solusi"). penyebab("PERKELAHIAN SENJATA TAJAM DAN SENJATA API"):solusi("PERKELAHIAN SENJATA TAJAM DAN SENJATA API"), solusi0("'Seorang (muslim) yang memerangi dan seorang (muslim) yang diperangi, keduanya tempatnya di dalam neraka' H.R Muslim"), solusi1("Melakukan bimbingan individual atau kelompok bersama guru BK"), solusi1("Membaca kembali tata tertib sekolah, agar mengetahui konsekuensi dari yang dilakukan"), solusi1("Membicarakannya bersama orangtua, wali kelas, kesiswaan, kepolisian dan kepala sekolah untuk mencari solusi"). solusi(Penyakit):upper_lower(BPenyakit,Penyakit),nl,nl,nl,
write(" Adalah : ",BPenyakit),nl.
Permasalahan Anda
solusi0(Penyakit):upper_lower(Penyakit,Penyakit), write("+============================= =================================== =============+"),nl, write("Ayat & Hadist : ",Penyakit),nl. solusi1(Penyakit):upper_lower(Penyakit,Penyakit),nl, write(" Saran Dari Permasalahan : ",Penyakit),nl.
