www.arifusan.esy.es. Powered by Blogger.

Tuesday 6 November 2018

Assalamualaikum Wr. Wb.

Alhamdulillah puji syukur kehadirat Allah SWT, yang telah melimpahkan rahmat dan hidayah dan bertepatan di tanggal 7 Nopember 2018 ini telah genap mencapai usia 31 tahun atau 372 bulan atau 1.617 minggu atau 11.323 hari atau 271.752 jam atau 16.305.120 Menit. Usia yang cukup matang dan sudah tidak tergolong kanak-kanak lagi. 

Namun bagaimana fase usia manusia secara islam, 

berikut ini penjelasannya. Islam meletakkan garis panduan umur seseorang mengikuti tahap-tahap sebagai berikut : 
  • 1. Mumaiyiz. Tahap dimana seorang kanak2 sudah bisa membedakan baik dan buruk. Dan setiap insan berbeda dari segi umur mumaiyiz. Mereka ini jika berbuat salah tidak berdosa; jika berbuat baik tiada pahala, ibu dan bapak kita yang menanggungnya sampai umur baligh.
  • 2. Pemuda. Bermula dari umur baligh hingga umur 40 tahun (wah kalo dilihat point no. 2 Saya ternyata masih tergolong pemuda gaes kwk kwk kwk), namun pada umur ini belum cukup kuat akalnya. Sudah layaklah menanggung amanah; dan menanggung sendiri setiap perbuatannya (ya jelas dong wong uda punya anak istri). Jika ada sikap-sikap buruk di antara umur ini, masih ada ruang untuk berubah sebelum tibanya umur 40 tahun (Amiin, semoga Allah memberi kami panjang umur). 
 
  • 3. Orang Tua. Bermula umur 40 tahun dan ke atas. Ketika seseorang telah dianggap sudah amat matang. Nabi SAW juga menerima wahyu ketika berusia 40 thn, ketika akal manusia sudah stabil dan lengkap. Allah Maha Mengetahui hal keadaan hamba2 ciptaanNya. Jika sesuatu tabiat-tabiat buruk berterusan hingga mencapai usia 40 tahun maka ditakuti dia akan mati dengan tabiat-tabiat buruk itu tanpa dapat mengubahnya lagi. Sebaliknya jika seseorang itu sudah dapat mengubah tabiat2 buruk itu sebelum umur 40 tahun (saat ini masih dalam proses mengubah tabiat-tabiat buruk menjadi tabiat yang baik gaes, mohon doanya ya gaes), maka insyaAllah tabiat baik itu akan kekal sampai waktu matinya. 
Seiring berjalannya waktu, hari berganti minggu, minggu berganti bulan, bulan berganti tahun dan seterusnya, yang saya rasakan adalah tanggung jawab yang saya emban makin banyak banget (terbukti pada edisi muhassabah tahun 2018 ini, Alhamdulillah Allah SWT memberi amanah anggota baru berupa putri kecil, imut-imut nan lucu), dan idealnya kita harus amanah terhadap tanggung jawab kita (walau kenyataannya masih banyak yang kurang amanah he he, ya namanya juga masih berusaha menjadi baik so masih belum baik tho). 
Oke Gaes berikut ini ada puisi sekaligus harapan dan doa untuk hari yang sangat bersejarah buat aku. 
Ya Allah, 
Engkau ciptakan kami dari tiada, menjadi ada 
Kemudian Engkau kembalikan kami kepada-Mu 
Kehidupan kami berjalan dan berputar Mengiringi dari masa kemasa sesuai dengan kehendak-Mu 
Ya Allah, 
Hari ini tiba juga Saya di usia ini Hari di mana Saya harus menjadi lebih Arif dan bijaksana 
Hari di mana Saya harus menjadi lebih dekat dengan-Mu 
Hari di mana Saya harus bisa menjadi teladan bagi orang lain 
Hari di mana Saya harus bisa menjadi lebih displin dan amanah 
Ya Allah, 
Tambahkan usia-ku agar hidupku menjadi lebih bermanfaat bagi orang lain 
Tambahkan usia-ku agar dapat lebih memandang hidup Dengan penuh makna dalam kebesaran-Mu Tambahkanlah usiaku agar Saya dapat membimbing keluargaku dengan sepenuh Hati 
Guna untuk dapat tunduk dan berbakti kepada-Mu 
Panjangkanlah usiaku supaya Aku dapat lebih bersyukur Atas Nikmat dan rezeki yang Engkau anugerahkan kepadaku 
Ya Allah, 
Jadikanlah Saya menjadi Hamba-Mu yang Khusyu’ dan Tawadhu 
Dalam menerima hikmah dan berkah-Mu 
Bertambah usia dalam hitunganku 
Berkurang pula usiaku dalam hitungan-Mu 
Ya Allah, 
Terima kasih Engkau telah mengangkatku Menjadi makhluk dengan derajat yang tinggi diantara Mahluk Ciptaan-MU 
Terima kasih Engkau telah memberikan cahaya keimanan kepadaku sehingga Saya dapat lebih mengenal-Mu 
Ya Allah, 
Saya percaya bahwa Engkau akan selalu berikan yang terbaik untuk diriku, keluargaku, orang tuaku dan semua sahabat sejatiku, yang selalu peduli padaku 
Hanya pada-Mu lah Saya senantiasa mengabdi 
dan Hanya pada-Mu lah Saya memohon pertolongan 
Besar Harapan Saya 
Semoga Hari Ini Lebih Baik dari Hari Sebelumnya 
Kabulkan Do’a Hamba-Mu ini Ya Allah.. 
Amin..amin..amin.. Yaa Robbal ‘Alamin.. 
Oke Gaes kalo kalian semua pada kepo episode muhassaba-ku dari tahun ke tahun silahkan klik link di bawah ini : 

Sebelumnya mohon maaf gaes episode kali ini fotonya gak banyak yang saya upload seperti episode yang sebelumnya, 
Wassalamualaikum wr. wb

Monday 24 September 2018

Materi Produk Kreatif dan Kewirausahaan
Kelas XII TKJ K13 Revisi 2017
SMK Darut Taqwa Purwosari Pasuruan
Thn 2018 / 2019
By Mas Arif
Semua materi ini telah disesuaikan dengan Kurikulum K13 revisi 2017 mapel Produk Kreatif dan Kewirausahaan yang terbaru.


MATERI PRODUK KREATIF DAN KEWIRAUSAHAAN XII

1. Sikap Dan Perilaku Wirausahawan
Definisi wirausaha
Definisi kewirausahaan
Pengertian sikap dan perilaku wirausaha
Karakteristik wirausaha
Keberhasilan dan kegagalan wirausaha
Perilaku wirausaha
Kriteria faktor keberhasilan dan kegagalan wirausaha
Ebook  Sikap dan Perilaku Wirausahawan >> Dowload Disini
Rangkuman 1 >> XII TKJ 
Soal Jawaban Pilihan Ganda 1 >> XII TKJ  
 
2. Peluang Usaha Produk Barang/Jasa
Definisi peluang dan resiko usaha
Definisi Barang / Jasa
Faktor-faktor keberhasilan  dan kegagalan usaha komputer(hardware/software/produk digital)
Ide dan peluang usaha komputer(hardware/software/produk digital)
Peluang usaha produk barang/jasa komputer (hardware/software/produk digital)
Ebook Menganalisis Peluang Usaha  >> Dowload Disini 
Rangkuman 2 >> XII TKJ 
Soal Jawaban Pilihan Ganda 2 >> XII TKJ

3. Hak Atas Kekayaan Intelektual
Pengertian hak atas kekayaan intelektual
Macam-macam hak atas kekayaan intelektual
Menyebutkan Macam – macam hak atas kekayaan intelektual
Hak atas kekayaan intelektual dalam bidang komputer (hardware/software/produk digital)
Ebook Hak Atas Kekayaan Intelektual  >> Dowload Disini
Rangkuman 3 >> XII TKJ 
Soal Jawaban Pilihan Ganda 3 >> XII TKJ 

4. Konsep Desain/Prototype Dan Kemasan Produk Barang/ Jasa
Konsep desain/ prototype dan kemasan produk barang/jasa komputer(hardware/software/produk digital)
Memperkirakan konsep desain/prototype dan kemasan produk barang/jasa komputer (hardware/software/produk digital)
Menyajikan desain/ prototype dan kemasan produk barang/jasa komputer(hardware/software/produk digital)
Ebook Konsep Desain_ Prototype dan Kemasan Produk Barang atau Jasa  >> Dowload Disini 
Rangkuman 4 >> XII TKJ 
Soal Jawaban Pilihan Ganda 4 >> XII TKJ

5. Proses Kerja Pembuatan Prototype Produk Barang/Jasa
Tahapan – tahapan pembuatan prototype produk barang/jasa komputer(hardware/software/produk digital)
Keunggulan dan kelemahan produk barang/jasa komputer(hardware/software/produk digital)
Proses kerja pembuatan prototype produk barang/jasa komputer(hardware/software/produk digital)
Ebook Proses Kerja Pembuatan Prototype Produk Barang atau Jasa >> Dowload Disini 
Rangkuman 5 >> XII TKJ 
Soal Jawaban Pilihan Ganda 5 >> XII TKJ

6. Gambar Kerja Produk
Konsep lembar kerja
Tujuan gambar kerja
Langkah-langkah pembuatan gambar kerja produk barang/jasa komputer(hardware/software/produk digital)
Ebook Lembar Kerja_Gambar Kerja Untuk Pembuatan Prototype Produk Barang atau Jasa >> Dowload Disini 
Rangkuman 6 >> XII TKJ 
Soal Jawaban Pilihan Ganda 6 >> XII TKJ 
 
7. Pengujian Produk
Arti dan tujuan pengujian  produk barang/jasa komputer(hardware/software/produk digital)
Tahapan pengujian  produk barang/jasa komputer(hardware/software/produk digital)
Metode pengujian produk produk barang/jasa komputer(hardware/software/produk digital)
Ebook Biaya Produksi Prototype Produk Barang atau Jasa >> Dowload Disini
Rangkuman 7>> XII TKJ 
Soal Jawaban Pilihan Ganda 7 >> XII TKJ 2
 
8. Biaya Produksi
Biaya produksi
Harga pokok pesanan (Job order costing)
Harga pokok process (Job processing cost)
Ebook prototype  produk barang jasa-Konsultan Pajak  >> Dowload Disini  
Ebook prototype  produk barang jasa-Reparasi Komputer  >> Dowload Disini  
Rangkuman 8>> XII TKJ 
Soal Jawaban Pilihan Ganda 8 >> XII TKJ
________________________________________________________
Pengumpulan Modul Produk Kreatif dan Kewirausahaan 
>> XII TKJ 
________________________________________________________
Berikut ebook yang dibutuhkan Produk Kreatif dan Kewirausahaan:
1. Modul Kerja Proyek >> Download Disini
2. Modul Produk Kreatif dan Kewirausahaan Ristekdikti
STRATEGI DAN PROSES PENGEMBANGAN PRODUK BARU >> DOWNLOAD DISINI
MENGKOORDINASIKAN KEGIATAN USAHA >> DOWNLOAD DISINI
EVALUASI HASIL USAHA DAN PROMOSI  >> DOWNLOAD DISINI
3. Contoh pembuatan rangkuman PKK >> Donwload disini  
4.  Contoh Modul Troubleshooting Jaringan XII>> Download Disini pdf dan Download Disini word

5.  Contoh Modul  Kerja Proyek XII >> Download Disini pdf dan Download Disini word
6. Buku Cetak TKJ Kurikulum 2013 >> Download Disini

Tuesday 24 April 2018

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:
form hitung gaji
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
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
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.
Pesan jumlah 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.
          clip_image002
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.
          clip_image004
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.
          clip_image006
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.
          clip_image008
clip_image012
        clip_image010   

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) :

http://form-info.blogspot.com/
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
http://form-info.blogspot.com/

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/