Membuat program sederhana VB dengan menggunakan perintah perulangan Do Loop while

Membuat program sederhana VB dengan menggunakan perintah perulangan Do Loop while


Hafidz Habibullah 22219680
1EB10





Langkah Membuat program Do loop while :
1. buka aplikasi vb 
2.pilih standar exe
3.desain form dengan 1 label, 1 list ,1 text, 3 command
4. masukkan kode program ke command :
Private Sub Command1_Click()List1.Cleari = Val(Text1.Text)DoList1.AddItem "Angka " & ii = i + 2Loop While i <= 10End Sub
Private Sub Command2_Click()List1.Cleari = Val(Text1.Text)DoList1.AddItem "Angka " & ii = i - 4Loop Until i < 5


End Sub
Private Sub Command3_Click()Text.Text = ""List1.ClearEnd Sub

5.kemudian run


 


Komentar

Posting Komentar

Postingan populer dari blog ini

    1.) A.)  Manajemen merupakan suatu seni dalam ilmu dan pengorganisasian seperti menyusun perencanaan, membangun organisasi dan pengorganisasiannya, pergerakan, serta pengendalian atau pengawasan .                  B.)  Dampak apabila kita mempelajari mempelajari ilmu manajemen antara lain: ·         Melaksanakan dan mengevaluasi strategi yang kita pilih secara efektif dan efisien ·         Mengevaluasi kinerja, meninjau, dan mengkaji ulang situasi serta melakukan berbagai penyesuaian dan koreksi jika terdapat penyimpangan di dalam pelaksanaan strategi. ·         Senantiasa memperbaharui strategi yang kita rumuskan agar sesuai dengan perkembangan lingkungan eksternal. ·         Senantiasa meninjau kembali kekuatan, kelemahan, peluang dan ancaman peluang yang a...
Baca selengkapnya
Gambar
TUTORIAL MEMBUAT PROGRAM SEDERHANA DENGAN KONDISI IF THEN ELSE PADA VISUAL BASIC 6 TUTORIAL : 1. buka aplikasi vb 6 2.buat new project,standar x 3. tambahkan 3 text,3label,1 command 4. Atur property label,textbox,dan command button; Label 1 captionny nilai A Label 2 caption nilai B Label 3 caption hasil Command 1 captionny lihat hasil 5.masukkan kode program pada command button seperti di bawah ini : Private Sub Command1_Click() Private Sub Command1_Click() Dim a, b As Integer Dim hasil As String a = Text1.Text b = Text2.Text   If a > b Then        hasil = "nilai A lebih besar dari nilai B"  Else        hasil = "nilai B lebih besar dari nilai A"  End If   Text3.Text = hasil End Sub 6. setelah selesai jalankan programnya, ini program untuk mencari nilai besar A dan nilai B
Baca selengkapnya