kontrol do while loop anugrah bintang langkari 20219948 1EB10 PKTI 2B

tahapan pembuatan program dan logikanya dengan flowchart:
1. klik Microsoft Visual Basic
2.  Buat 1 Text; 1  ListBox ; 1 Label dan 3 Command
3.  Pengaturan Desain Form Pengaturan dilakukan dalam jendela properti
 List 1 - 
Text 1 Text 
Label 1 Caption Input Bilangan 
Command 1 caption do while
 Command 2 caption do until
 Command 3 Caption Caption Caption Clear
4.  Pembutan Kode Program : 
Private Sub Command1_Click()
 List1.Clear 
i = Val(Text1.Text)
 Do 
List1.AddItem "Angka " & i 
i =  i + 2 Loop While i <= 10
 End Sub
Private Sub Command2_Click() 
List1.Clear i = 
Val(Text1.Text) 
Do 
List1.AddItem "Angka " & i
 i = i - 4 Loop Until i < 5 
End Sub
Private Sub Command3_Click()
 Text1.Text = "" 
List1.Clear 
End Sub
5. Uji Coba Aplikasi Do Loop While
6. klik code2flow.com
7. masukan kode program yang tadi dibuatkan dari vb

kontrol perulangan while wend pkti 2c

cara membuat kontrol percabangan while wend dan gambarkan dengan flowchart

1. buka microsft visual basic

2. Buat 1 Text; 1  ListBox dan 2 Command sebagai berikut :
List 1 -  -
Text 1 -   -
 Command 1 Caption While Wend
Command 2  Caption  Refresh
3. pembuatan kode prigramnya :
A. klik command button 1 / while wend
B. masukan kode programnya :
Private Sub Command1_Click()
 x = Val(Text1.Text)
While x >= 8
List1.AddItem x
x = x - 3
Wend
End Sub
 C. klik command button 2 ? Refresh
D. masukan kode programnya :
Private Sub Command2_Click()
Text1.Text = ""
List1.Clear
 End Sub
4. lalu klik run untuk melihat hasilnya
5. masukan angka diinginkan di teks 1 nya
6. setelah memasukan angka di teks 1 nya , klik command button 1 / while wend
7. muncul hasilnya dari angka tersebut
8. buka goggle atau chorme
9. ketik https://code2flow.com/app
10. masukan kode program visual basic tadi ke dalam flowchart
11. atur designnya yang diinginkan
12. hasilnya akan berbentuk urutan - urutan






NAMA: ANUGRAH BINTANG LANGKARI
KELAS : 1EB10
NPM: 20219948
TUGAS M6 PKTI 2C KONTROL PERULANGAN WHILE WEND

percabangan select case

 cara membuat select case di visual basic:
1. klik microsft visual basic
2. bikin 2 label 2 command button dan 1 teks box
3. lalu masukan kodeny yaitu:

PrivateSubButton1_Click(ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) HandlesButton1.Click

Dim angka As Integer= Integer.Parse(TextBox1.Text)

Select Case angka

Case 80 To 100

MessageBox.Show("A", "Grade", MessageBoxButtons.OK, MessageBoxIcon.Information)

Case 70 To 79

MessageBox.Show("B", "Grade", MessageBoxButtons.OK, MessageBoxIcon.Information)

Case 60 To69

MessageBox.Show("C", "Grade", MessageBoxButtons.OK, MessageBoxIcon.Information)

Case 40 To 59

MessageBox.Show("D", "Grade", MessageBoxButtons.OK, MessageBoxIcon.Information)

Case 0 To 39

MessageBox.Show("E", "Grade", MessageBoxButtons.OK, MessageBoxIcon.Information)

EndSelect

EndSub

4. lalu klik running untuk mengetahui hasil lebih lanjut