ALGORITMA DAN STRUKTUR DATA
LATIHAN 4 PERULANGAN
Disusun Oleh:
Kelompok 2 – SA01
Wibowo Abdusalam (1322001)
Ramzi Norfadhli Qastalani (1322005)
Rachel Diva Samantha (1322011)
Hikmal Ananta Putra (1322015)
Diva Aulia Andistya (1322021)
Muammar Aufar Prasetya (1322026)
Dosen Pengampu:
DEDY TRISANTO S.Kom M.M.S.I
POLITEKNIK STMI JAKARTA
SISTEM INFORMASI INDUSTRI OTOMOTIF
Jl. Letjen Suprapto No. 26 RT.10/RW. 5, Cempaka Putih Timur, Kec. Cempaka Putih, Kota
Jakarta Pusat, Daerah Khusus Ibukota Jakarta
2023
1. Menampilkan deret bilangan prima dengan nilai maksimal 25 dengan for
• Syntax deret bilangan prima dengan nilai maksimal 25 dengan for
Public Class Form1
Private Sub btnTampilkan_Click(sender As Object, e As EventArgs) Handles
btnTampilkan.Click
Dim maxNilai As Integer = 25
ListBox1.Items.Clear() ' Menghapus isi ListBox sebelum menambahkan
bilangan prima baru.
For nilai As Integer = 2 To maxNilai
If IsBilanganPrima(nilai) Then
ListBox1.Items.Add(nilai)
End If
Next
End Sub
Private Function IsBilanganPrima(ByVal nilai As Integer) As Boolean
If nilai <= 1 Then
Return False
End If
For pembagi As Integer = 2 To Math.Sqrt(nilai)
If nilai Mod pembagi = 0 Then
Return False
End If
Next
Return True
End Function
End Class
2. Menampilkan deret : 1, 2, 5, 26 . Dengan menggunakan Do loop until
• Syntax untuk Menampilkan deret : 1, 2, 5, 26 . Dengan menggunakan Do loop until
Public Class Form1
Private Sub btnGenerate_Click(sender As Object, e As EventArgs) Handles
btnGenerate.Click
Dim n As Integer = 1
Dim previousValue As Integer = 0
Dim output As String = ""
Do
output &= n
previousValue = n
n = (n * previousValue) + 1
If n <= 26 Then output &= ","
Loop Until n > 26
txtOutput.Text = output
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles
Label1.Click
End Sub
End Class
3. Program untuk menyimpan data diri menggunakan variabel biasa dan variabel array
• Syntax untuk menyimpan data diri menggunakan variabel biasa dan variabel array
Public Class Form1
Dim nama, umur, ttl, email, komentar, jk As String
Dim tanggal As DateTime
Dim hasil As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles
MyBase.Load
rblaki.Checked = True
cbumur.SelectedIndex = 0
End Sub
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles
Label2.Click
End Sub
Private Sub Label3_Click(sender As Object, e As EventArgs) Handles
Label3.Click
End Sub
Private Sub Label4_Click(sender As Object, e As EventArgs) Handles
Label4.Click
End Sub
Private Sub Label5_Click(sender As Object, e As EventArgs) Handles
Label5.Click
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles
Label1.Click
End Sub
Private Sub Label6_Click(sender As Object, e As EventArgs) Handles
Label6.Click
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
Handles tbnama.TextChanged
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As
EventArgs)
End Sub
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As
EventArgs) Handles cbumur.SelectedIndexChanged
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
btsimpan.Click
nama = tbnama.Text
ttl = tbttl.Text
tanggal = dttanggal.Value
email = tbemail.Text
If rblaki.Checked Then
jk = rblaki.Text
End If
If rbperempuan.Checked Then
jk = rbperempuan.Text
End If
umur = cbumur.SelectedItem.ToString()
tanggal = dttanggal.Value.ToString("dd MM yyyy")
komentar = tbkomentar.Text
hasil = "Form Data Diri :" & vbCrLf &
"Nama : " & nama & vbCrLf &
"TTL : " & ttl & ", " & vbCrLf & tanggal & vbCrLf &
"Email : " & email & vbCrLf &
"Jenis Kelamin : " & jk & vbCrLf &
"Umur : " & umur & vbCrLf &
"Komentar : " & komentar
MessageBox.Show(hasil, "Data Tersimpan!", MessageBoxButtons.OK,
MessageBoxIcon.Information)
End Sub
Private Sub btreset_Click(sender As Object, e As EventArgs) Handles
btreset.Click
tbnama.Text = String.Empty
tbttl.Text = String.Empty
tbemail.Text = String.Empty
rblaki.Checked = False
rblaki.Checked = False
cbumur.SelectedIndex = 0
tbkomentar.Text = String.Empty
End Sub
End Class
