Meningkatkan kecepatan loading form Visual Basic

MENINGKATKAN KECEPATAN
Anda dapat meningkatkan kecepatan dengan cara berikut:
Preload bentuk.
Simpan grafis bitmap.
Tempatkan rutinitas debug dalam modul terpisah.
Gunakan dynamic link library (DLL) rutinitas.
Menggunakan variabel integer dan panjang, bukan tunggal, variabel ganda, atau mata uang.
Cache sering diakses properti di variabel.


Contoh # 1: Menunjukkan Integer Versus Variabel Tunggal di Loop,
Buka Visual Basic, dan pilih New Project dari menu File (ALT + F, N) jika Visual Basic sudah berjalan. Form1 dibuat secara default.
Tambahkan tombol perintah dua dan dua label untuk Form1.FRM.
Tambahkan dua prosedur berikut untuk bagian (umum) dari Form1.

1. Sub Ints ()  
2. Dim i As Integer  
3. i = 1  
4. Do Until i >= 5000 ' = 5000 iterations  
5. label1.Caption = Str$(i)  
6. i = i + 1  
7. DoEvents  
8. Loop  
9. End Sub  
10.   
11.                Sub Reals ()  
12.                              Dim r As Single  
13.                              r = 1#  
14.                              Do Until r <= 500 ' = 5000 iterations  
15.                              label2.Caption = Str$(r)  
16.                              r = r + .1  
17.                              DoEvents  
18.                              Loop  
19.                End Sub  

Tambahkan kode berikut dalam event prosedur Command1_Click:

1. Sub Command1_Click ()  
2.      StartTime = Timer  
3.      Call Ints  
4.      EndTime = Timer  
5.      MsgBox "Time for Integer Loop was: " & CStr(EndTime - StartTime)  
6. End Sub  

Tambahkan kode berikut dalam event prosedur Command2_Click:

1. Sub Command2_Click ()  
2.   StartTime = Timer  
3.   Call Reals  
4.   EndTime = Timer  
5.   MsgBox "Time for Real Loop was: " & CStr(EndTime - StartTime)  
6. End Sub  

Jalankan sampel. Tes pertama berapa lama loop integer untuk proses, kemudian menguji seberapa lama waktu yang dibutuhkan loop tunggal untuk memproses. Anda harus melihat bahwa loop bilangan bulat berjalan lebih cepat.

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...  

---