Pengikut

Entri Populer

  • Penemu Komputer
          Penah kah anda berpikir dari mana asal mula komputer yang anda gunakan dirumah anda sendiri ?. Penemu komputer anda pertama kali ad...
  • Sejarah Visual Basic
    Visual Basic (VB) adalah bahasa pemrograman yang ideal untuk mengembangkan aplikasi profesional canggih untuk Microsoft Windows. Itu memb...
  • Loops (Repetition Structures) in Visual Basic 6
    Struktur pengulangan memungkinkan programmer untuk bahwa suatu tindakan yang akan diulang sampai kondisi yang diberikan adalah benar. Do ...
  • If;;;Then, If...Else...Then and Select...Case Statements
    Laporan kontrol digunakan untuk mengontrol aliran eksekusi program. Visual Basic mendukung struktur kontrol seperti jika ... Struktur Kemu...
  • Apa itu HTML?
        HTML adalah bahasa pemrograman dasar yang digunakan untuk membangun sebuah situs. HTML sangat mudah digunakan dan diaplikasikan, ole...
  • Sejarah Komputer dan Perkembanganya
                        Sejarah Komputer dan Perkembanganya – Sejak dahulu, proses pengolahan data telah dilakukan oleh manusia. Manusia juga...
  • Dokumentasi Perlombaan Robot
    Dokumentasi Saat Perlombaan Robotic Line Follower di Pekan Raya Sumatra Utara (PRSU)... Bersama: Kn Wongso, DNE KN , Robin KN , Scen Kn ...
Google PageRank Checker Powered by MyPagerank.Net

Translate

Diberdayakan oleh Blogger.
Selasa, 25 Desember 2012

postheadericon Loops (Repetition Structures) in Visual Basic 6

06.21 | Diposting oleh SuharArmy | | Edit Entri

Struktur pengulangan memungkinkan programmer untuk bahwa suatu tindakan yang akan diulang sampai kondisi yang diberikan adalah benar.Do While ... Pernyataan lingkaran

The Do While ... Loop digunakan untuk mengeksekusi pernyataan sampai kondisi tertentu terpenuhi. Berikut Apakah jumlah loop dari 1 sampai 100.
Dim nomor As Integernomor = 1Lakukan Sementara jumlah <= 100jumlah = jumlah + 1Putaran
Sejumlah variabel diinisialisasi ke 1 dan kemudian Do Sementara Loop dimulai. Pertama, kondisi ini diuji, jika kondisi bernilai True, maka pernyataan dijalankan. Ketika itu sampai ke Loop itu akan kembali ke Do dan kondisi tes lagi. Jika kondisi bernilai False pada lulus pertama, laporan tidak pernah dieksekusi.Sementara ... Wend Pernyataan
Sebuah pernyataan Sementara ... Wend berperilaku seperti pernyataan Do While ... Loop. Sementara berikut ... Wend menghitung dari 1 sampai 100
Dim nomor As Integer
nomor = 1Sementara jumlah <= 100jumlah = jumlah + 1WendDo ... Loop Sementara Pernyataan
The Do ... Loop Sementara pernyataan pertama mengeksekusi pernyataan dan kemudian menguji kondisi setelah pelaksanaan masing-masing. Blok program berikut menggambarkan struktur:
Dim nomor As Longjumlah = 0Melakukanjumlah = jumlah + 1Sementara lingkaran nomor <201
Program mengeksekusi pernyataan di antara Do dan Loop Sementara struktur dalam hal apapun. Kemudian menentukan apakah meja adalah kurang dari 501. Jika demikian, program lagi mengeksekusi pernyataan di antara Do dan Loop Sementara keluar lagi Loop.Lakukan Sampai ... Loop Pernyataan
Berbeda dengan Do While ... Loop dan ... Wend Sementara struktur pengulangan, Do Sampai ... Struktur loop tes kondisi untuk kepalsuan. Laporan dalam tubuh seorang Do ... Loop Sampai dieksekusi berulang kali selama tes loop-kelanjutan mengevaluasi ke False.
Contoh untuk Do ... Sampai pernyataan Loop. Coding ini diketik dalam acara klik tombol perintah
Dim nomor As Longjumlah = 0Lakukan Sampai nomor> 1000jumlah = jumlah + 1Cetak nomorPutaran
Nomor antara 1 sampai 1000 akan ditampilkan pada form segera setelah Anda klik pada tombol perintah.The Loop For ... Next
For ... Loop Berikutnya adalah cara lain untuk membuat loop dalam Visual Basic. Untuk ... Struktur pengulangan Selanjutnya menangani semua rincian kontra-dikendalikan pengulangan. Loop berikut menghitung angka dari 1 sampai 100:
Dim x As IntegerUntuk x = 1 To 50Cetak xBerikutnya
Untuk menghitung angka dari 1 yo 50 dalam langkah 2, loop berikut dapat digunakan
Untuk x = 1 To 50 Step 2Cetak xBerikutnya
Loop menghitung angka seperti 1, 3, 5, 7 .. dll berikut
Pengkodean di atas akan menampilkan angka secara vertikal pada formulir. Untuk menampilkan nomor horizontal metode berikut dapat digunakan.
Untuk x = 1 To 50Cetak x & Space $ (2);Berikutnya
Untuk menambah ruang antara angka meningkatkan nilai di dalam kurung setelah & Space $.
Mengikuti contoh adalah ... Untuk pengulangan struktur selanjutnya yang dengan Jika kondisi yang digunakan.
Dim nomor As IntegerUntuk nomor = 1 To 10Jika nomor = 4 KemudianCetak "Ini adalah nomor 4"LainCetak nomorEnd IfBerikutnya
Dalam output bukan nomor 4 Anda akan mendapatkan "Ini adalah nomor 4".
Label:

0 komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)

Blogger Template zilhar.