CPU saat ini berkembang semakin cepat. Dari 386 dan 486 hingga Pentium dan Pentium II saat ini, kecepatan pengembangannya bisa dikatakan sangat cepat. Namun, dengan pesatnya perkembangan CPU, "bobot" perangkat lunak aplikasi juga meroket. Dari beberapa K atau puluhan K saat saya belajar komputer menjadi puluhan megabita atau ratusan megabita saat ini, perubahan ini bahkan memengaruhi saya. Semua terkejut. Kemajuan CPU telah membuat orang bekerja lebih cepat dan meningkatkan efisiensi secara signifikan. Pada saat yang sama, kemajuan ini juga mengembangkan kebiasaan buruk orang-orang yang "tidak mencari kesederhanaan". Penulis pernah melihat seorang teman menulis sebuah program menggunakan VBA. Kode programnya adalah sebagai berikut:
Dengan Jendela Aktif
IfWindowState=wdWindowStateMaximizeMaka ini adalah bagian pertama!
MsgBox"Ini adalah Maksimalkan Jendela"
AkhirJika
IfWindowState=wdWindowStateMinimizeMaka ini adalah bagian kedua!
MsgBox"HereisaMinimalkanJendela"
AkhirJika
JikaWindowState=wdWindowStateNormalMaka ini adalah bagian ketiga!
MsgBox"Tidak kemana-mana,adalahNormalWindow!"
AkhirJika
BerakhirDengan
Sekilas terlihat strukturnya cukup indah dan merupakan program yang bagus. Namun jika Anda menganalisisnya dengan cermat, Anda akan menemukan bahwa prosedur ini gagal. Karena ketiga program ini tidak mengimplementasikan struktur logis yang seharusnya. Saya menceritakan pendapat ini kepada teman ini, dan dia mendengarkan dengan baik dan segera memodifikasi program di atas. Kode program spesifiknya adalah sebagai berikut: WithActiveWindow
IfWindowState=wdWindowStateMaximizeMaka ini adalah bagian pertama!
MsgBox"Ini adalah Maksimalkan Jendela"
ElseIfWindowState=wdWindowStateMinimizeMaka ini adalah bagian kedua!
MsgBox"HereisaMinimalkanJendela"
ElseIfWindowState=wdWindowStateNormalMaka ini adalah bagian ketiga!
MsgBox"Tidak kemana-mana,adalahNormalWindow!"
AkhirJika
Berakhir
Setelah teman saya selesai menulis program ini, dia tersenyum kepada saya dan berkata, "Bagaimana?" Saya melihat program ini dan berpikir: Jika WindowState tidak sama dengan wdWindowStateMaximize, maka saya harus menilai apakah WindowState sama dengan wdWindowStateMaximize , bagaimana jika belum sama? Kemudian Anda harus terus menilai apakah itu sama dengan wdWindowStateNormal. Pada titik ini, Anda harus mendobrak tiga "pintu" sebelum Anda bisa masuk. Saya menjadi tidak sabar dan menulis sebuah program sendiri:
PilihCaseWindowState
CasewdWindowStateMaksimalkan'ini adalah bagian pertama!
MsgBox"Ini adalah Maksimalkan Jendela"
CasewdWindowStateMinimalkan'ini adalah bagian kedua!
MsgBox"HereisaMinimalkanJendela"
CasewdWindowStateNormal'ini adalah bagian ketiga!
MsgBox"Tidak kemana-mana,adalahNormalWindow!"
Pilihan Akhir
Seperti yang Anda lihat, program ini ringkas, mudah dipahami, dan mudah dibaca. Saya yakin ini akan menambah banyak warna pada program. Dan jika Anda men-debugnya, Anda akan menemukan kelebihan lainnya. Pantas saja teman saya tiba-tiba menyadarinya!
Faktanya, ada aturan yang harus diikuti mengenai pernyataan penilaian mana yang akan digunakan. Misalnya: jika ada dua kemungkinan, maka Anda dapat memilih If/Elseif tanpa ragu; untuk dua kemungkinan atau lebih, yang terbaik adalah memilih SelectCase/EndSelect. Dalam kebanyakan kasus, jika hanya ada satu hubungan opsional, maka "ifthen/endif" akan menjadi pilihan terbaik. ->