Program sederhana VB 6.0 dengan menggunakan perintah perulangan Do Until Loop

Membuat program sederhana dengan menggunakan perintah perulangan
Do Until Loop

Program ini saya buat untuk memenuhi tugas Vclass Pengantar Komputer dan Teknologi Informasi 2B.

Berikut langkah -langkah pembuatannya :

1. Masuk ke dalam aplikasi Visual
Basic 6 setelah dibuka tampilan nya akan seperti di bawah ini, lalu pilih Standar EXE, dan klik Open

2. Buka halaman utama VB

3. buat 1 text, 1 listbox, dan 3 command

4. Pengaturan desain form 

Object                 property           value

List 1                          -                       -

Text 1                      Text                 

Command 1       caption           Do While

Command 2       caption           Do Until

Command 3       caption           Clear

Pengaturan dilakukan di dalam jendela properti

5. Pembuatan kode program

6. Uji coba aplikasi Do Until

Do Until -> Kondisi false 

Do until -> Kondisi true

Terima kasih sudah berkunjung :)

Program Menggunakan Perintah Perulangan "For-Next" Pada VB 6.0

Membuat Program Sederhana dengan Menggunakan Perintah Perulangan "For-Next"

Program ini saya buat dalam memenuhi tugas Vclass Pengantar Komputer & Teknologi Informasi 2B

Berikut langkah-langkah pembuatannya :

1. Masuk ke dalam aplikasi
    Visual Basic 6. Tampilan nya seperti
    di bawah ini. Kemudian pilih Standar
    Exe, klik open.

2. Kemudian akan muncul halaman 

    Utama VB

3. Buat 1 label, 1 textbox, 1 listbox, 1 command button

4. Pengaturan desain form

Label 1 = 

isi property (caption) dengan "N="

                 

TextBox 1 =

Kosongkan property (text)

Command button 1 = 

isi property (caption) dengan tampilan barisan.

Pengaturan dilakukan di dalam jendela properti dibawah ini :

5. Pembuatan kode program

6. Uji coba aplikasi

7. Penjelasan kode program

• fungsi Val digunakan untuk mengubah tipe data text menjadi tipe data numerik.

• property clear pada list 1digunakan untuk membersihkan isi list 1. Kemudian property addltem pada list 1 

Digunakan untuk menambahkan isi list 1.

Program sederhana dengan menggunakan kondisi percabangan Select-Case dalam Visual Basic 6

Ini adalah program yang saya buat dalam memenuhi tugas Vclass Pengantar Komputer & Teknologi Informasi 2B

Berikut langkah - langkah pembuatannya :

1. Masuk ke dalam Aplikasi Visual Basic 6. Setelah itu pilih Standar Exe, klik open.

2. Buka halaman utama VB

3. Buat 2 text dan 1 command

4. Pengaturan desain form, pengaturan dilakukan di dalam jendela properti

Object              Property        value

Text 1               text                 -

Text 2               text                 -

Command 1    Caption         ASEAN

Pengaturan tulisan text 1 dan text 2 di atur di font dengan ukuran 18

Dan pengaturan tulisan di command1 di atur di font dengan ukuran 24

5. Pembuatan kode program

     

6. Uji coba aplikasi

Program Sederhana dengen Menggunakan Kondisi Percabangan If-Then-Else

Program yang saya buat ini untuk memenuhi tugas Vclass Pengantar Komputer & Teknologi Informasi 2B

Berikut implementasi If-Then-Else :


1. Buka aplikasi Visual Basic 6. Setelah dibuka tampilan nya seperti berikut ini. Kemudian pilih standar exe, dan klik open.

2. Setelah klik open, akan muncul tampilan utama vb.6 seperti ini

3. Kemudian buat 2 label, 2 textbox dan 1 command.

4. Pengaturan desain form, pengaturan dilakukan di jendela properti.

• pada label 1, isi property (caption) dengan bilangan. Pada label 2, isi property (caption) dengan keterangan.

• pada text box 1 dan 2 kosongkan property (text)

• pada command 1 isi property (caption) dengan cek

5. Pembuatan kode program beserta penjelasannya

Private sub command1_click ()

bil = Val (Text 1)

If bil Mod 2 = 0 Then  > bil Mod 2 =

                                          Kondisi perca-

                                          bangan

ket = "GENAP"              > pernyataan jika

                                           Kondisi genap

Else

ket = "GANJIL"             > pernyataan jika

                                          Kondisi ganjil

End If

Text 2 = ket

End sub

6. Uji coba aplikasi 

Logika dari programnya yaitu jika bilangan habis dibagi 2 maka bilangan itu genap, jika tidak bilangan tersebut ganjil.