Kadang kita pernah melihat aplikasi yang menerapkan Judul di atas, Fungsi Save Setting/ menyimpan pengaturan bisa kita lihat pada GAME...
GAME akan menyimpan fungsi pengaturan yang kita buat, Seperti Nama Player, Bentuk Tokoh, Level dan masih banyak lagi.
Dan Kebanyakan Setingan di simpan pada File berExtensi *.ini, *.Dll, *.cfg, atau Format lain yang di buat si pembuat Aplikasi...
Dan Script di bawah ini juga bisa melakukan pekerjaan tersebut, Dan tanpa harus membuat File yang berExtensi...
Asset: 2 CheckBox, 2 TextBox, dan 1 Button , Nama tidak usah di rubah
Lalu masukan Script di bawah ini pada Button1 :
'Script Save Setting
SaveSetting("SET", "Main", "TB1", TextBox1.Text)
SaveSetting("SET", "Main", "TB2", TextBox2.Text)
SaveSetting("SET", "Main", "CB1", CheckBox1.CheckState)
SaveSetting("SET", "Main", "CB2", CheckBox2.CheckState)
Dan Masukan Script di bawah pada Form Load :
'Script Load Setting
TextBox1.Text = GetSetting("SET", "Main", "TB1")
TextBox2.Text = GetSetting("SET", "Main", "TB2")
CheckBox1.CheckState = IIf(GetSetting("SET", "Main", "CB1") = "1", 1, 0)
CheckBox2.CheckState = IIf(GetSetting("SET", "Main", "CB2") = "1", 1, 0)
Setelah Selesai, Run Aplikasi, Dan Masukan Tulisan apapun pada TextBox dan beri Centang pada CheckBox.,Lalu tekan tombol/Button1.
Kemudian Stop Run dan Run kembali, Apakah perubahan yang tadi sobat buat masih ada atau tidak, Kalau ada, Brati sobat Sucsess ..he..he
Saya belum tahu kelemahan Sript ini apa..Mungkin Sobat bisa cari kelemahanya...
Terima kasih dan Semoga Bermanfaat
GAME akan menyimpan fungsi pengaturan yang kita buat, Seperti Nama Player, Bentuk Tokoh, Level dan masih banyak lagi.
Dan Kebanyakan Setingan di simpan pada File berExtensi *.ini, *.Dll, *.cfg, atau Format lain yang di buat si pembuat Aplikasi...
Dan Script di bawah ini juga bisa melakukan pekerjaan tersebut, Dan tanpa harus membuat File yang berExtensi...
Asset: 2 CheckBox, 2 TextBox, dan 1 Button , Nama tidak usah di rubah
Lalu masukan Script di bawah ini pada Button1 :
'Script Save Setting
SaveSetting("SET", "Main", "TB1", TextBox1.Text)
SaveSetting("SET", "Main", "TB2", TextBox2.Text)
SaveSetting("SET", "Main", "CB1", CheckBox1.CheckState)
SaveSetting("SET", "Main", "CB2", CheckBox2.CheckState)
Dan Masukan Script di bawah pada Form Load :
'Script Load Setting
TextBox1.Text = GetSetting("SET", "Main", "TB1")
TextBox2.Text = GetSetting("SET", "Main", "TB2")
CheckBox1.CheckState = IIf(GetSetting("SET", "Main", "CB1") = "1", 1, 0)
CheckBox2.CheckState = IIf(GetSetting("SET", "Main", "CB2") = "1", 1, 0)
Setelah Selesai, Run Aplikasi, Dan Masukan Tulisan apapun pada TextBox dan beri Centang pada CheckBox.,Lalu tekan tombol/Button1.
Kemudian Stop Run dan Run kembali, Apakah perubahan yang tadi sobat buat masih ada atau tidak, Kalau ada, Brati sobat Sucsess ..he..he
Saya belum tahu kelemahan Sript ini apa..Mungkin Sobat bisa cari kelemahanya...
Terima kasih dan Semoga Bermanfaat
0 komentar:
Posting Komentar
Setelah melihat - lihat, Alangkah baiknya memberikan komentar mengenai Blog ini.
Kritik dan Saran teman-teman semua, Saya anggap sebagai masukan buat saya... terima kasih telah berkunjung