Action Games

Password : ilmu-unduh.blogspot.com

predicates
umur(integer,symbol)

clauses
umur(X,Y) :-
X>49,
Y="Orang Tua";
X>20,
Y="Dewasa";
X>12,
Y="Remaja";
X>5,
Y="Anak-anak".


goal
write("Masukkan Nama Anda : "),
readln(Nama),
write("Tahun Lahir : "),
readint(X),
nl,
write("Nama Anda Adalah " ,Nama),
Umur=2013-X,
nl,
write("Umur Anda Sekarang Adalah ", Umur),
umur(Umur,Y),
nl,
write("Dan Anda Adalah ", Y).

Kamis, 29 September 2016 - www.indoblog.me Tutorial Coding Program Add Insert Edit Delete Save Otomatis di Delphi (CMD Bitvise) ini hanya sekedar melanjutkan dari tutorial sebelumnya yaitu Cara Membuat Tunnel CMD Bitvise Terbaru 2016 mungkin dari sahabat sahabat semuanya ada yang ingin membuat tunnel tersebut ketika data diisikan dan diinputkan maka sahabat tidak perlu susah-susah untuk menginputkan atau mengisi ulang secara manual karena setiap data yang dimasukan maka sudah bisa otomatis disimpan secara otomatis.

Pada konsep penyimpanan data ini sebenarnya banyak caranya, apakah data akan disimpan setelah button dijalankan, atau data akan disimpan sewaktu program close atau anda bisa pasangkan pada fungsi yang lainnya atau tergantung keperluan, dan pada tutorial ini admin akan mencoba menyimpan data ketika tombol "Start" dijalankan, ini hanyalah tutorial dari keberapa tentang save, edit, delete karena tahun tahun sebelumnya juga sudah pernah dibahas yang disini dimana hanya kebutuhan untuk tunnel cmd bistvise yang sudah dibahas sebelumnya.

Okelah langsung saja simak tips cara menyimpan config secara otomatis di command prompt bitvise (cmd bitvise) dan coding ini tentunya bisa anda kembangkan ke program yang lainnya, silahkan disimak coding dasarnya.

1. Yang pertama silahkan buka project anda yang sudah anda buat dan disini saya asumsikan bahwa di project anda sudah ada 7 komponen edit dan 1 combobox yang dimana komponen ini bertype string misalkan anda ingin menyimpan untuk checkbox maka perintah baca tulis codingnya berbeda dengan ini, nanti dibawah akan saya beri gambarannya;

Silahkan tambahkan 1 buah button, saya asumsikan button yang baru ditambahkan bernama "button2" kemudian captionnya ganti menjadi "Save" lalu visible ganti menjadi "false" tujuannya ketika di run maka button2 ini tidak akan nampak atau tidak terlihat di form.

2. Yang kedua kemudian tambahkan dulu uses IniFiles contohnya bisa perhatikan gambar saja;

3. Yang ketiga kemudian silahkan tambahkan variable saveconfig: TiniFile; tepat diatas implementation contoh penerapannya bisa anda perhatikan gambar saja;

4. Yang keempat kemudian silahkan double klik form1 lalu masukan kode dibawah ini; tujuannya data akan dibaca ketika form di oncreate.

5. Yang kelima klik button2 tadi yang captionnya sudah diubah menjadi "Save" lalu masukan kode dibawah ini, yang dimana ini adalah kode untuk menulisnya;

6. Yang terakhir karena kode menulisnya atau write berada pada onclick Button2 dan button tersebut sudah kita  hide/visible= false maka disini admin mencoba menyimpan kode write tersebut dengan Button2.Click;  disimpan pada tombol Login Tunnel dan anda bisa menyimpan konsep ini pada onclose form1 atau tergantung kebutuhan saja.

Yang terakhir silahkan dicoba di run atau di edit data data pada edit edit di project tersebut kemudian silahkan anda coba lihat hasilnya apakah config anda sudah tersimpan setiap kali tombol login click, dan untuk pengembangan lainnya silahkan di coba-coba saja.

Oh iya dan untuk yang bukan bertype string misal checkbok maka kode baca tulisnya adalah misalkan jika anda ingin menambahkannya ke yang diatas menjadi:

//--------------------------------Kode Baca------------------
CheckBox1.Checked := saveconfig.ReadBool(Config, 08, CheckBox1.Checked);
RadioButton1.Checked := saveconfig.ReadBool(Config, 09, RadioButton1.Checked);

//--------------------------------Kode Tulis-------------------
saveconfig.WriteBool(Config, 08, CheckBox1.Checked);
saveconfig.WriteBool(Config, 09, RadioButton1.Checked);

Tutorial Selanjutnya: Cara Menambahkan Password Char Pada Tunnel CMD Bitvise

Ok Guys hanya itu dulu info dengan Contoh Coding Program Add Insert Edit Delete Save Otomatis di Delphi (CMD Bitvise)Terbaru 2016 semoga apa yang sudah disampaikan bisa bermanfaat dan atas kunjungannya kami ucapkan terima kasih dan wassalam.