Cara membuat Form Password di Borland Delphi 7

Disini saya akan membahas bagaimana sih membuat sebuah form password di Borland Delphi 7.

Seprti biasa dibawah ini adalah desain form nya.

Catatan: klik edit2 pada form yang telah di desain klick edit2  untuk mengganti karaketer password menjadi symbol bintang. Untuk lebih jelas nya lihat gamabar dibawah ini.

Selanjutnya buat loh form baru dengan cara pilih file-new-form pada menu Delphi. Maka akan tampil seperti gambar di bawah ini.

nah setelah membuat form baru langsung kita atur properties controlnya yang ada di bawah ini.

Aturlah properties controlnya.

Nama Control	Properties	Nilai Pengaturan
Form	Caption	Form Password
Label1	Caption	Nama User
Label2	Caption	Password
Button1	Caption	&OK
Buton2	Caption	&Close
Form	Caption	Selamat Datang di Form2
Label1	Caption	Anda Berhasil Login

 Selanjutnya ketikan listing program berikut ini:

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if edit2.text='nama pasword' then

begin

form2.show;

form1.Hide;

end

else

begin

  messagedlg('maaf password anda salah!!!!',mtinformation,[mbok],0);

edit1.Clear;

edit1.setfocus;

end;

end;

end.

''selamat mencoba'' :)

Read More ->>

BAB IV

KOMBINATORIAL

 

Sebuah sandi-lewat (password) panjangnya 6 sampai 8 karakter. Karakter boleh berupa huruf atau angka. Berapa banyak kemungkinan sandi-leawt yang dapat dibuat?

       abcdef

   aaaade

   a123fr

   …

   erhtgahn

   yutresik

   …

   ????

·      Kombinatorial adalah cabang matematika untuk menghitung jumlah penyusunan objek-objek tanpa harus mengenumerasi semua kemungkinan susunannya.

Kaidah Dasar Menghitung

1. Kaidah perkalian (rule of product)

Misalkan,

Percobaan 1: p hasil

Percobaan 2: q hasil

maka,

Percobaan 1 dan percobaan 2: p ´ q hasil

2. Kaidah penjumlahan (rule of sum)

Misalkan,

Percobaan 1: p hasil

Percobaan 2: q hasil

maka,

Percobaan 1 atau percobaan 2: p + q hasil

Contoh 1. Ketua angkatan IF 2002 hanya 1 orang (pria atau wanita, tidak bias gender). Jumlah pria IF2002 = 65 orang dan jumlah wanita = 15 orang. Berapa banyak cara memilih ketua angkatan?

Penyelesaian:

65 + 15 = 80 cara.                    

Read More ->>

BAB I

Matematika Diskrit

Perhatikan argumen berikut ini,

     Jika Anda mahasiswa AKMI, maka Anda tidak sulit membuat program dengan Bahasa Pascal.

     Jika Anda tidak suka mata kuliah Algoritma dan Pemrograman, maka Anda bukan mahasiswa AKMI.

Tetapi, Anda sulit membuat program dengan Bahasa Pascal dan Anda tidak suka mata kuliah Algoritma dan Pemrograman.

Jadi, Anda bukan mahasiswa AKMI.

Apakah kesimpulan dari argumen di atas valid?

Alat bantu untuk memahami argumen tersebut adalah logika. Logika adalah metode atau teknik yang diciptakan untuk meneliti ketepatan penalaran serta mengkaji prinsip-prinsip penalaran yang benar dan penarikan kesimpulan yang absah.

Logika merupakan dasar dari semua penalaran. Penalaran didasarkan pada hubungan antara pernyataan. Logika pun telah diaplikasikan untuk desain mesin komputasi, spesifikasi sistem, kecerdasan buatan, pemrograman komputer, bahasa pemrograman, dan bagian lain dari ilmu komputer, serta banyak bidang studi lain.

Contoh 1.1

                        IF (X mod 2 = 0) then

                                    writeln(‘Genap’)

                        else

                                    writeln(‘Ganjil);

A.           Proposisi

Proposisi adalah kalimat deklaratif yang bernilai benar (true) atau salah (false), tetapi tidak keduanya.

Contoh 1.2

1.      Direktur AMIK AKMI Baturaja saat ini adalah Pak Naproni, S. T., M. Kom.

2.      AMIK AKMI Baturaja hanya memiliki program studi Teknik Informatika.

3.      d < a

4.      8 > 2

5.      Apa program studi yang ada di AMIK AKMI Baturaja?

6.      Tolong tidak datang terlambat di kuliah Matematika Diskret.

7.      1 + x  > 3

8.      y + x = z

Kalimat 1 sampai dengan 4 adalah proposisi, kalimat 1 dan 4 nilai kebenarannya adalah BENAR (TRUE), sedangkan nilai kebenaran kalimat 2 dan 3 adalah SALAH (FALSE).

Kalimat 5 sampai dengan 8 bukan merupakan proposisi. Kalimat 5 dan 6 bukan merupakan kalimat deklaratif.  Kalimat 7 dan 8 tidak memiliki nilai kebenaran, akan menjadi proposisi jika suatu nilai menggantikan variabel.

 

Read More ->>

DEFINISI E-COMMERCE

E-commerce merupakan prosedur berdagang atau mekanisme jual-beli di internet dimana pembeli dan penjual dipertemukan di dunia maya.

Faktor kunci sukses dalam e-commerce

Dalam banyak kasus, sebuah perusahaan e-commerce bisa bertahan tidak hanya mengandalkan kekuatan produk saja, tapi dengan adanya tim manajemen yang handal, pengiriman yang tepat waktu, pelayanan yang bagus, struktur organisasi bisnis yang baik, jaringan infrastruktur dan keamanan, desain situs web yang bagus, beberapa faktor yang termasuk:

1.    Menyediakan harga kompetitif

2.    Menyediakan jasa pembelian yang tanggap, cepat, dan ramah.

3.    Menyediakan informasi barang dan jasa yang lengkap dan jelas.

4.    Menyediakan banyak bonus seperti kupon, penawaran istimewa, dan diskon.

5.    Memberikan perhatian khusus seperti usulan pembelian.

6.    Menyediakan rasa komunitas untuk berdiskusi, masukan dari pelanggan, dan lain-lain.

7.    Mempermudah kegiatan perdagangan

Masalah e-commerce

1.    Penipuan dengan cara pencurian identitas dan membohongi pelanggan.

2.    Hukum yang kurang berkembang dalam bidang e-commerce ini.

 

Aplikasi bisnis

Beberapa aplikasi umum yang berhubungan dengan e-commerce adalah:

·         E-mail dan Messaging

·         Content Management Systems

·         Dokumen, spreadsheet, database

·         Akunting dan sistem keuangan

·         Informasi pengiriman dan pemesanan

·         Pelaporan informasi dari klien dan enterprise

·         Sistem pembayaran domestik dan internasional

·         Newsgroup

·         On-line Shopping

·         Conferencing

·         Online Banking/internet Banking

·         Product Digital/Non Digital

DEFINISI E-BISNIS

·         E-Business ádalah penggunaan teknologi informasi untuk memudahkan proses bisnis, melakukan e-commerce dan menyediakan kerjasama untuk mendukung komunikasi perusahaan

FAKTOR PENGERAK E-BUSINESS

·         Customer expectations

·         Competitive imperatives

·         Deregulation

·         Technology

Read More ->>

CERITA LUCU 1 Si Bejo sedang buru2 menuju ke kantaronya karna kesiangan bangun dan tak sengaja dia menabrak seekor burung di tengah perjalanannya karna menendarai mobilnya dengan sangat cepat dilihatnya burung itu, ternyata kepalanya terluka dan burung itu pingsan karna merasa iba dan bersalah kepada burung itu maka dia memutuskan untuk pulang sesampainya dirumah ditaruhlah burung itu dalam sangkar besi dan diciprat2inya air, tapi burung itu gak sadar juga keesokan harinya ketika dia mau berangkat ke kantor diberinya air dalam wadah kecil dan roti dalam sangkar burung itu dipikirnya 'nanti setelah burung itu sadar pasti dia sangat haus dan lapar' dan dia berangkat kerja seperti biasa.... burung itu ternyata sadar juga burung itu melihat sekitar dilihatnya ada air minum dan septong roti.. terus dia melihat sekelilingnya ternyata dia ada di dalam jeruji besi dan burung itu berkata dalam hati sambil menangis... Oh... Tuhan rupanya kemarin aku menabrak pengendara mobil pasti dia meninggal sehingga aku sekarang di penjara. Maafkan aku Tuhan aku tak sengaja...'

Read More ->>

CERITA LUCU 1 Si Bejo sedang buru2 menuju ke kantaronya karna kesiangan bangun dan tak sengaja dia menabrak seekor burung di tengah perjalanannya karna menendarai mobilnya dengan sangat cepat dilihatnya burung itu, ternyata kepalanya terluka dan burung itu pingsan karna merasa iba dan bersalah kepada burung itu maka dia memutuskan untuk pulang sesampainya dirumah ditaruhlah burung itu dalam sangkar besi dan diciprat2inya air, tapi burung itu gak sadar juga keesokan harinya ketika dia mau berangkat ke kantor diberinya air dalam wadah kecil dan roti dalam sangkar burung itu dipikirnya 'nanti setelah burung itu sadar pasti dia sangat haus dan lapar' dan dia berangkat kerja seperti biasa.... burung itu ternyata sadar juga burung itu melihat sekitar dilihatnya ada air minum dan septong roti.. terus dia melihat sekelilingnya ternyata dia ada di dalam jeruji besi dan burung itu berkata dalam hati sambil menangis... Oh... Tuhan rupanya kemarin aku menabrak pengendara mobil pasti dia meninggal sehingga aku sekarang di penjara. Maafkan aku Tuhan aku tak sengaja...'

Read More ->>

Windraqreen@blogspot.com

Read More ->>

Sejarah Berdirinya AMIK AMIK Baturaja

Berawal dari sebuah perusahaan yang bernama C.V. Mitragama yang berdomisili di daerah Istimewa Yogyakarta, dan didirikan pada tahun 1998 oleh Putu Putrayasa dan Made Sumiarta yang bergerak di bidang penjualan komputer dan distribusi komputer, lahirlah sebuah yayasan dengan nama Yayasan Pendidikan Mitragama.
Adapun tujuan didirikannya yayasan Pendidikan Mitragama adalah untuk mengembangkan dan menyebarluaskan teknologi komputer secara sistematis dan ilmiah melalui penyelenggaraan pendidikan yang berkualitas.
Dari yayasan tersebut lahirlah sebuah Perguruan Tinggi dengan nama Akademi Manajemen Informatika dan Komputer AKMI Baturaja, dengan para pendiri Putu Putrayasa, Made Sumiarta, SE, Sugiri M.Eng, Eni Munarsih M.Si, dan Naproni S.T, M.Kom.

Tujuan pendirian Perguruan Tinggi Akademi Manajemen Informatika dan Komputer AKMI Baturaja adalah menyelenggarakan pendidikan tinggi yang dapat Menghasilkan anggota masyarakat yang bertakwa kepada Tuhan Yang Maha Esa, berakhlak tinggi, berbudaya Indonesia, bersemangat ilmiah, serta memiliki kemampuan akademik, dan suatu profesionalisasi dan sanggup berkinerja baik di lingkungan kerjanya, serta mampu menerapkan ilmu pengetahuan dan teknologi serta mengembangkan kemampuan diri terhadap tuntutan kemajuan di bidangnya, dan berperan dalam pemeliharaan dan operasi proses produksi. Menghasilkan ilmu pengetahuan dan teknologi baru, menghasilkan peneliti dan pemikir, serta memutakhirkan pengetahuan dan kemampuan agar sistem berdaya dalam menghimpun, mengalihkan, menyebarkan, menafsirkan, dan menerapkan ilmu pengetahuan dan teknologi yang telah ada bagi kemajuan dan kesejahteraan masyarakat.

Read More ->>

Read more: http://myhafiezers.blogspot.com/2011/11/cara-buat-cursor-di-ikuti-tulisan-di.html#ixzz2cceJlt3J

Read More ->>

SEJARAH JARINGAN KOMPUTER 

Ditahun 1950-an ketika jenis komputer mulai membesar sampai terciptanya
super komputer, maka sebuah komputer mesti melayani beberapa terminal (lihat
Gambar 1) Untuk itu ditemukan konsep distribusi proses berdasarkan waktu yang
dikenal dengan nama TSS (Time Sharing System), maka untuk pertama kali
bentuk jaringan (network) komputer diaplikasikan. Pada sistem TSS beberapa
terminal terhubung secara seri ke sebuah host komputer. Dalam proses TSS mulai
nampak perpaduan teknologi komputer dan teknologi telekomunikasi yang pada
awalnya berkembang sendiri-sendiri.
Gambar 1 Jaringan komputer model TSS
    Memasuki tahun 1970-an, setelah beban pekerjaan bertambah banyak dan harga
perangkat komputer besar mulai terasa sangat mahal, maka mulailah digunakan
konsep proses distribusi (Distributed Processing). Seperti pada Gambar 2, dalam
proses ini beberapa host komputer mengerjakan sebuah pekerjaan besar secara
paralel untuk melayani beberapa terminal yang tersambung secara seri disetiap
host komputer. Dala proses distribusi sudah mutlak diperlukan perpaduan yang
mendalam antara teknologi komputer dan telekomunikasi, karena selain proses
yang harus didistribusikan, semua host komputer wajib melayani terminalterminalnya dalam satu perintah dari komputer pusat.

Read More ->>

menunggu sesuatu yang sangat menyebalkan 

bagi ku sa'at ku harus bersabar dan terus bersabar

menanti diri mu..

Read More ->>

CAZZNOVA PARFUME

Specialist reffil parfume fragrances Adalah tempat pembelian minyak wangi dengan berbagai macam wangi yang anda suka,.minyak wangi ini “non alkohol dan alkohol

Harga murah tetapi wangi nya tahan lama…

Daftar harga

7 ml : Rp. 10.000,-

10 ml : Rp. 15.000,-

13 ml : Rp. 25.000,-

20 ml : Rp. 35.000,-

23 ml : Rp. 45.000,-

40 ml : Rp. 70.000,-

50 ml : Rp. 100.000,-

toko penjualan ini beralamt di ;

Jl. setia budi ,depan indomaret pasar baru ( BATURAJA ) bisa pesan antar / dan isi ulang

E-mail : paris_parfume@yahoo.com

Hub. ( 0857 8805 3022 )

( 0877 9709 9443 )

CAZZNOVA PARFUME……

PARFUME……!!!!!!

PARFUME……!!!!!!

.,,,,,,Dengan keharuman nya.,,,

,,…..bikin semua orang lupa diri….. 

Read More ->>

..mencari informasi dan keilmuwan di dunia maya..

Read More ->>

Read More ->>

Manual TPW 1.5
TPW 1.5 (Turbo Pascal) adalah bahasa pemprograman yang biasa digunakan untuk menjalankan
suatu program matematika.
Hal  pertama yang kita lakukan yaitu  Download TPWin15.rar, kemudian Instal dengan cara klik
kanan TPWin15.rar  pilih extrack here  Klik Install.exe  next terus sampai finish. Seelah
selesai Instal Restart Koputer, untuk memulai membuka TPW double klik TPW 1.5 pada desktp
untuk membuka tampilan seperti yang ditunjukan pada lingkaran biru dibawah ini. Atau klik
menu start  All Programs  TPW 1.5
Setelah meng-klick menu TPW 1.5 akan tampak tampilan seperti dibawah ini.TPW 1.5 memiliki 8 buah menu utama, yang terdiri dari :
File, Edit, Search, Run, Compile, Options, Window dan Help yang memiliki fungsi masingmasing seperti yang ditunjukan dengan lingkaran merah dibawah ini.
Untuk mulai bekerja,buka halaman baru dengan meng-klik ”new” pada menu file…sehingga tampak tampilan seperti dibawah ini..
..
selamat belajar. :)
temen - temen semua.. ???

Read More ->>

Bikin logo,, nie.. susahh niannn...

Read More ->>

hy teman - teman.. pengguna social media.
jangan pada susah yah.. jika bikin usaha tidak mempunyai modal..
yuk telusuri di web http//:www.windraqreen.blogspot.com
and di twitter aku di_ @windrasllusetia

Read More ->>

Sumur bersama milik H Nazori Cikuni (74) dan Busli bin Matoni (60) di Desa Lubukrukam Kecamatan Peninjauan, Kabupaten Ogan Komering Ulu (OKU), semakin ramai dikunjungi warga, Rabu  (20/3/2013).

Pemilik sumur mengaku sangat bersyukur dengan titipan Allah berupa sumur yang dari dalamnya terdengar suara tahlil La ilaha illallah dan kalimah mengangungkan Allah lainnya.

H Nazori bertekad akan tetap memberikan air sumurnya tanpa bayaran.

"Alhamdulillah air dari sumur kami sudah sampai kemana-mana sampai ke Palembang dan Lampung," kata H Nazori

Ada yang Dengar La Illaha Illallah Muhammad Darasulullah




 
 Sumur bertahlil di Desa Lubukrukam Kecamatan Peninjauan, Kabupaten Ogan Komering Ulu (OKU) semakin menyedot perhatian seperti yang terlihat, Rabu (20/3/2013).

Setiap pengunjung memasang telinga dengan khusuk untuk mendengarkan suara tahlil berjamaah dari dasar sumur.

Dari dalam sumur awalnya terdengar samar-samar suara bertahlil lama kelamaan semakin jelas.

Suara tahlil dari dasar sumur milik bersama H Nazori dan Busli seperti suara orang yang sedang bertahlil secara berjamaah.

Sesekali terdengar satu suara yang lebih dominan (khalifah- red).

Setiap pengunjung mayoritas mendengar bunyi La illaha illallah. Namun ada juga yang mendengar kalimah lanjutannya La Illaha illallah Muhammad Darasulullah.

Ada juga yang mendengar suara Allah, Allah serta ada yang sempat mendengar suara berjamaah mengucap astaghfirullah hal azim.

Masing-masing pengunjung berbeda-beda. Ada yang begitu mendekatkan telinga ke dalam sumur langsung mendengar dengan jelas suara tahlil namun ada juga yang mesti menunggu beberapa menit baru bisa mendengar.

"Tapi semua pengunjung mengaku mendengar kalimah Allah dari dalam sumur yang paling banyak mendengar La Ilaha Illallah seperti orang tahlilan bersama," terang Erzadi, anak pemilik sumur, kepada Sripoku.com.


sumber | windraqreen.blogspot.com | http://windraqreen@blogspot.com/2013/03/20/sumur-bertasbih-semakin-ramai-dikunjungi-warga

Read More ->>

Cara Membuat Program yang akan saya posting kali ini adalah Cara Membuat Program Sederhana Menggunakan Visual Basic. Saya ada sedikit Script Visual Basic untuk belajar membuat program sederhana, ya walaupun cuma program sederhana yang tidak berarti, tapi setidaknya nambah ilmu kan? Ya kalau mau buat silahkan buat. Ini hanya untuk menambah ilmu dan sekedar sharing saja tentang Cara Membuat Program Sederhana Menggunakan Visual Basic

Berikut langkah - langkahnya :

1. Masuk Visual Basic, lalu pilih standard exe, ganti nama form
2. Buat 4 Label

• Label 1 diberi nama Angka Pertama
• Label 2 diberi nama Angka Kedua
• Label 3 diberi Hasil
• Label 4 (Tidak Wajib) diisi dengan kata kalkulator

3. Buatlah 4 button command

Button command 1 diberi nama Tambah

Kodenya :

Dim a,b as integer

A = text 1.text

B = text 2.text

Text3.text = a+b

Button Command 2 diberi nama Kurang

Kodenya :

Dim a,b as integer

A = text1.text

B = text2.text

Text3.text = a-b

Button Command 3 diberi nama Kali

Kodenya :

Dim a,b as integer

A = text1.text

B = text2.text

Text3.text = a*b

Button Command 4 diberi nama Bagi

Kodenya :

Dim a,b as integer

A = text1.text

B = text2.text

Text3.text = a/b

4. Buatlah 3 Text

• Text 1 untuk angka pertama
• Text 2 untuk angka kedua
• Text 3 untuk hasil penjumlahan text1 dan text2

Coba dulu program yang telah anda buat tadi dengan menekan tombol F5 atau mengklik toolbar Run - Start. Letaknya terserah anda, bila program tidak berjalan dengan baik berarti masih ada kesalahan yang harus anda perbaiki lagi. Biasanya Visual Basic akan langsung memberitahukan kepada anda, mana kode yang error. Kalau mau mengganti tulisan tinggal setting captionnya, kalau mau ganti tulisan atau ukurannya tinggal ke font. Kalau mau ganti bacground tinggal klik picture di setting formnya. Jika sudah selesai tinggal klik file - make project .exe. Jadi deah kalkulatornya.

Read More ->>