MENINGKATKAN KECEPATANAnda 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.
- Sub Ints ()
- Dim i As Integer
- i = 1
- Do Until i >= 5000
- label1.Caption = Str$(i)
- i = i + 1
- DoEvents
- Loop
- End Sub
-
- Sub Reals ()
- Dim r As Single
- r = 1#
- Do Until r <= 500
- label2.Caption = Str$(r)
- r = r + .1
- DoEvents
- Loop
- End Sub
Tambahkan kode berikut dalam event prosedur Command1_Click:
- Sub Command1_Click ()
- StartTime = Timer
- Call Ints
- EndTime = Timer
- MsgBox "Time for Integer Loop was: " & CStr(EndTime - StartTime)
- End Sub
Tambahkan kode berikut dalam event prosedur Command2_Click:
- Sub Command2_Click ()
- StartTime = Timer
- Call Reals
- EndTime = Timer
- MsgBox "Time for Real Loop was: " & CStr(EndTime - StartTime)
- 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...