Langsung ke konten utama

VClass M7 PKTI 2B Kontrol Perulangan (Do While Loop)

KONTROL PERULANGAN (DO WHILE LOOP)



Nama : OKTAVIO PUTRA YUZA

Kelas : 1EB01

NPM : 24219966 ( GENAP ) 




Cara Membuat Kontrol Perulangan ( Do While Loop ) :


1. Buka Visual basic 6.0, dan pilih Standard EXE, dan klik Open




2. Membuat design form nya : 

      2 List Box, dan 4 Command Button






3. Klik Command 1, 2, 3, dan 4 dan isi sebagai berikut:





4. Isi Form Load sebagai berikut :





5. Jalankan program do while loop tersebut, dengan klik tombol Run di atas



Jika ingin loop hari apa saja, klik monday lalu klik Command1 yang berlogo ( > )

Jika ingin loop Semua hari tersebut, klik Command 2 yang berlogo ( >> )

Jika ingin loop dari list 2 ke list 1 dengan klik hari apa saja, klik monday dan klik Command 3 yang berlogo ( < )

Jika ingin loop Semua hari tersebut dari list 2 ke list 1 dengan klik Command 4 yang berlogo ( << )





Tampilan video saat run programnya:










Komentar

Postingan populer dari blog ini

ALGORITMA DAN FLOWCHART 2

ALGORITMA DAN FLOWCHART 2  Flowchart Menukar Isi Dari Dua Gelas OKTAVIO PUTRA YUZA 24219966 1EB01 Keterangan:  - Gelas Cadangan ( Gelas H )  - Gelas F ( Isi Teh )  - Gelas G ( Isi Susu ) Berikut Urutannya: 1. Siapkan Gelas Cadangan ( Gelas H ) 2. Tuangkan / pindahkan Gelas F( isi teh ) ke Gelas H ( gelas cadangan ) 3. Tuangan / pindahkan Gelas G ( isi susu ) ke Gelas F ( isi teh ) 4. Tuangkan / pindahkan Gelas H ( gelas cadangan ) ke Gelas G ( Isi Susu ) Berikut Flowchartnya:

KONTROL PERCABANGAN IF-THEN-ELSE

Nama : Oktavio Putra Yuza NPM : 24219966 Kelas : 1EB01 KONTROL PERCABANGAN IF-THEN-ELSE 1. Langkah pertama buka visual basic 6.0 pada komputer anda Start > All Program > Microsoft Visual Basic 6.0 > Microsoft Visual Basic 6.0 2. Pada tampilan awal VB 6.0 muncul New Project > 1. Standard EXE >2. Open 3. Lalu akan muncul jendela Project baru seperti gambar di bawah ini 4. Buat Design Form nya: 5. Double Click pada “OK” button untuk memasukkan fungsi coding massage box. 6. Setelah itu masukkan Coding nya: I. “Dim nilai As Integer”  > Pendeklarasian Variabel Nilai berupa Interger II.“Nilai = Text2.Text” > Letak variabel nilai berlokasi pada (Textbox) Text2.Text III.“If nilai >= 70 Then” > Mempunyai arti jika Nilai yang akan di input 70 s/d 100, maka akan melanjutkan perintah fungsi coding yang di bawahnya  IV. “A = MsgBox(Text1.Text + "Selamat Anda LULUS", vbOKOnly, "UTS ...