Perhitungan Nilai Mahasiswa

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 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/

Continue

MC, Sambutan Tuan Rumah, dan Sambutan Santri TPQ & Madin Nurur Rohmah

Suasana TPQ dan Madin Nurur Rohmah Kabunan

Kegiatan Belajar Mengajar di Madrasah Diniyah dan TPQ Nurur Rohmah Kabunan

A. Teks Pembawa Acara

السلام عليكم ورحمة الله و براكاته
اعوذب الله من الشطن الرجيم. بسم الله الرحمن الرحيم. الحمدلله الذي جعلنا ب الايمان كا ملين, وافهمنا بشر ئع الدين, والصلاة والسلام على سيد نا المرسلين, محد صلى الله عليه   و سلم خا تمى النبيين, وعلى اله وصحبه اجمعين. اما بعد.

Kepada teman-temanku santriawan dan santriwati yang saya cintai,
Bapak Ibu sohibul haja yang saya mulyakan,
ustadz-ustadzah yang sangat kami hormati.

Marilah kita bersama-sama bersyukur keharidarat ilaihi Robbi, karena hanya dengan Rahmat, nikmat dan Taufik serta hidayahnya semata, kita sekalian bisa berkumpul di sini untuk melaksanakan kegiatan rutinan “DARESLENG”.
Para santriawan dan santriwati, TPQ dan madin Nurur Rohmah yang dipimpin oleh wakil dari Almarhumah Ibu Yatimurrohmah,  mudah-mudahan pengajian ini nantinya disertahi taufik serta hidayah Allah, Amiin.
Dan hanya dengan rahmatNya lah, kita dapat melaksanakan pengajian rutinan pada setiap bulan sekali.
Sholawat serta salam, semoga tetap tercurahkan kepada junjungan kita, Nabi  Besar Muhammad SAW bersama para keluarganya serta sahabatnya dan semua orang-orang yang tetap mengikuti jejak ajaran beliau.
Hadirin yang dimulyakan Allah, tiada patut bagi kami apabilah terlalu banyak bicara, oleh karena itu untuk menyingkat waktu, kami akan sampaikan beberapa susunan acara pada siang hari ini, sebagai berikut:
1. Pembukaan
2. Sambutan dari tuan rumah
3. Sambuatan dari teman untuk mewakili santri
4. Bacaan sholawat
Dan sekarang marilah kita buka dengan bacaan surat al-fatikhah بِنِيَّةِالدُّعَاءْبِرِضَاءِالله,الفَاتِحَه
Terimakasih atas bacaan surat alfatikhah tadi, semoga acara yang kita laksanakan pada siang hari ini berjalan lancar tanpa ada halangan suatu apapun.
Acara yang ke-2 yaitu sambutan dari tuan rumah, dalam hal ini akan disampaikan oleh ........, kepadanya dipersilahkan.
Saya ucapkan terimakasih atas sambuatan dari tuan rumah tadi.
Selanjutnya acara yang ke-3 akan disampaikan oleh teman kami untuk mewakili santriawan dan santriwati, dalam hal ini akan disampaikan oleh .... , kepadanya dipersialahkan.
Terimakasih atas sambutan dari teman kami yang mewakili santriawan dan santriwati, dan tadi kami telah disinggung tentang ajakan semangat belajar untuk menuntut ilmu agama dan ilmu pengetahuan lainnya, agar kita menjadi anak yang berilmu, penuh pengertian serta berwawasan luas dan akhirnya kita menjadi anak yang berguna bagi bangsa, agama dan negara.
Dan menginjak acara yang terakhir yaitu acara yang ke-4 akan dibacakan sholawat dari santriawan dan santriwati TPQ dan Madin Nurur Rohmah yang akan dipimpin oleh .......(wakil dari ibu Almh. Yatimurrohmah)
Bagi kami selaku pembawa acara, jika terdapat beberapa kehilafan, baik yang saya sengaja maupun tidak, kami mohon maaf beribu maaf, kami akhiri dengan ucapan.

والله الموافق الى اقوامالطريق

والسلام عليكم ورحمةالله وبراكاته

Dan sekarang tibalah bacaan sholawat yang akan disampaikan oleh santriawan dan santriwati, kepadanya dipersilahkan.


B. Sambutan Shohibul Haja Santri yang ketempatan Tadarus Keliling

السلام عليكم ورحمة الله و براكاته
اعوذب الله من الشطن الرجيم. بسم الله الرحمن الرحيم. الحمدلله رب العا لمين, والصلاة على اشرف الا نبياء والمرسلين. سيدنا محد وعلى اله وصحبه اجمعين. اما بعد

Hadrotil mukarromin,
para ustadz dan ustadzah yang sangat kami mulyakan
teman-teman santriawan dan santriwati yang sangat kami cintai.
Pada pagi hari ini, marilah kita panjatkan puja dan puji syukur kehadirat Allah SWT, yang mana pada pagi hari ini kita mendapat curahan rahmat, nikmat, taufik dan hidayahnya, sehingga pada pagi hari ini kita dapat menghadiri pertemuan silaturrohim yang diselenggarakan oleh TPQ dan Madin Nurur Rohmah, semoga bermanfaat dan langgeng selamanya, Amiin, Amiin ya Robbal Alamin.
Sholawat dan salam semoga tetap tercurahkan kepada junjungan kita nabi besar Muhammad SAW, yang telah telah menunjukkan dari jalan kegelapan menuju jalan yang diridloi Allah SWT.  Semoga kita dapat mengamalkan apa yang menjadi perintahNya dan meninggalkan apa yang menjadi larangan Allah SWT.
Teman-temanku santriawan dan santriwati TPQ dan Madin Nurur Rohmah yang sangat saya cintai.
Di sini saya mewakili ayah dan ibu sebagai tuan rumah, menyampaikan ribuan terimakasih yang sedalam-dalamnya atas kehadiran para Asatidz, semoga menjadi amal kebaikan kita disisi Allah SWT, Amiin, Amiin, Allahumma Amiin.
Di sini saya pribadi ......(nama santri yang ketempatan) menyampaikan ribuan terimakasih atas kehadiran para Asatidz, serta para teman-temanku santriawan dan santriwati  bila ada hidangan atau tempat yang kurang berkenan.
Saya ....(nama santri yang ketempatan) mohon maaf beribu maaf , kami akhiri dengan ucapan

والله الموافق الى اقوامالطريق
والسلام عليكم ورحمةالله وبراكاته

C. Sambutan Perwakilan Teman Santri TPQ dan Madin Nurur Rohmah Kabunan

لسلام عليكم ورحمة الله و براكاته
بسم الله الرحمن الرحيم. الحمدلله رب العا لمين,نحمده ونستعينه ونستغفره ونعوذ ب الله من سرورانفسنا, ومن سيئات اعمالنا, من يهدالله فلامضل له, ومن يضلله فلا ها دي له, والصلا ة والسلام على رسو لله, وعلى اله وصحبه ومن واله لاحول ولا قوة الا ب الله العلي العظيم. اما بعد

Kepada sohibul haja yang saya mulyakan.
Kepada Asatidz yang mengajari ilmu kepada kita semua yang kami taati dan yang kami harapkan keberkahan doa restunya agar kita mendapat ilmu yang manfaat dan mendapat ridlo ilahi Robbi,
Tak lupa pula sholawat serta salam, semoga tetap tercurahkan kepada beliau junjungan kita nabi besar Muahmmad SAW yang telah menyebar luaskan yakni الدين الاسلام diseluruh alam.

Di sini saya mewakili santriawan dan santriwati dari TPQ dan Madin Nurur Rohmah menyampaikan ribuan terimakasih kepada shohibul haja yang telah menyambut kedatangan kita dengan menyiapkan segala sesuatunya, semoga bisa menambah amal kebaikan Bapak Ibu sohibul haja.
Kita semua mendoakan جزاكمالله خيراكثيرا semoga bapak ibu sohibul haja oleh Allah dibalas kebaikanya, Amiin.
Dan di sini saya mengajak teman-temanku, marilah kita semangat belajar sungguh-sungguh, lebih-lebih ilmu agama di TPQ dan Madin Nurur Rohmah, agar kita semua bisa memahami dan mengerti tentang ilmu agama.
Teman-temanku sekalian, marilah kita tingkatkan iman dan taqwa kita kepada Allah SWT, dengan arti kita berusaha melaksanakan segala perintahNya dan menjauhi laranganNya. Kita sekalian inilah sebagai manusia dan sebagai santri yang dapat dinyatakan sebagai Kholifah oleh Allah SWT di bumi ini. Tentunya kalian inilah yang mengemban amanat, baik amanat kepada Allah, terhadap diri sendiri, terhadap sesama manusia, nusa, bangsa, agama dan negara. Kita menyadari bahwa Allah SWT sudah banyak memberikan rahmat dan anugerah kepada hambanya di dunia ini.
Oleh Allah ada yang diberi berupa harta benda kemewahan yang berlimpah, ada yang diberi kekuatan dan fikiran, serta ada yang diberi ilmu pengetahuan dan lain sebagainya, tidak lain kesemuanya itu adalah nikmat Allah SWT yang telah diberikan kepada kita semua, agar dengan kenikmatan tersebut kita dapat melestarikan menuju kebahagiaan lahir dan batin.
Para santriawan dan santriwati yang saya cintai, apalagi di abad jaman moderen ini, kita tidak cukup berbekal makanan dan minuman serta kekuatan tenaga, seperti hidup ditengah-tengah hutan belantara, namun lebih dari itu dengan berbekal ilmu agama dan ilmu pengetahuan lainnya, serta dihiasi dengan ahlaqul karimah, itulah yang diutamakan dalam memenuhi hidup di zaman moderen sekarang ini.
Dengan demikian maka jelaslah bahwa ilmu pengetahuan agama dan pembinaan mental ahlaqul karimah itulah yang mendapat prioritas utama bagi masa pembangunan saat ini. Sedangkan untuk menunjang hal itu, sebagai sarannya adalah dengan meningkatkan pendidikan agama yang bermutu serta perilaku yang berakhlaqul karimah. Hal ini sesuai dengan firman Allah SWT

بسم الله الرحمن الرحيم, فلو لا نفر من كل فرقة منهم ليتفقهوا في الدين ولينذرو قومهم اذا اجرعو اليهم لعلهم يحذرون

Yang artinya
Hendaklah berangkat sekelompok dari tiap-tiap golongan untuk memahami ilmu agama dan memberi peringatan kepada kaumnya bila mereka kembali kepadanya agar mereka takut dan waspada.


Teman-temanku santriawan dan santriwati yang berbahagia, tentunya kitalah yang banyak mengemban amanat dari Allah SWT, oleh karena itu hendaklah kita ini mampu memahami ilmu agama di TPQ dan di madrasah diniyah di pesantren-pesantren adalah merupakan bagian unsur pembangunan di abad moderen ini, karena program pemerintah didalam membangun manusia seutuhnya harus dilengkapi pembangunan lahir dan batin yakni pembangunan jasmani dan rohani.
Kita bisa membuktikan sekarang ini, pembangunan sudah merajalela, gedung-gedung sudah didirikan, pabrik-pabrik sudah banyak, begitu pula jalan-jalan sudah halus. Namun itu belum mencukupi kebutuhan tanpa diadakan pendidikan, mental, spiritual dan ahlaqul karimah.
Hal ini dapat diibaratkan rumah sakit, kalau dipandang dari luar, nampak indah bangunannya, megah dan rapi. Namun setelah kita masuk ke dalamnya, banyak penderita yang merintih, menangis, menjerit karena kesakitan.
Untuk itu, marilah kita merubah mental yang kotor kembali ke jalan yang benar dengan mengikuti syariat agama Islam.
Ya Allah Ya Rob, petang hingga larut kami lalui untuk menyelami lautan ilmu, penggalian tanpa berhenti, demi keridlohanmu.
Ya Allah, penantian keberhasilan jauh lebih terbentang luas dengan Islam kami tumbuh, dengan ilmu kami maju, dengan keberhasilan kami kuat, dengan berkarya kami kaya.

Ya Allah, ridloilah kita semua menjadi anak yang berguna bagi nusa, bangsa, agama dan negara,

امين اللهم امين يا مجيب السا ئمين.

Bila ada kurang sopannya kami kepada sohibul haja dalam bertamu, kami mohon maaf beribu maaf, kami akhiri dengan ucapan.   

والعفو منكم
والله الموافق الى اقوامالطريق
والسلام عليكم ورحمةالله وبراكاته

Continue