Scribd
Upload
25 views15 pages

Tugas Pemograman Riki Pandela (2522318)

The document contains examples of programming assignments in Visual Basic.NET. It includes simple programs for biodata input, a calculator, shopping cart, and hosting package order. It also demonstrates different looping structures like For, For Each, and ForNext.

Uploaded by

gegemur08
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
25 views15 pages

Tugas Pemograman Riki Pandela (2522318)

The document contains examples of programming assignments in Visual Basic.NET. It includes simple programs for biodata input, a calculator, shopping cart, and hosting package order. It also demonstrates different looping structures like For, For Each, and ForNext.

Uploaded by

gegemur08
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 15

TUGAS PEMOGRAMAN II

DOSEN PENGAMPU:
Abdul Yamin, S.Pd., M.Kom

Riki Pandela (2522318)

PROGRAM STUDI PENDIDIKAN TEKNIK


INFORMATIKA DAN KOMPUTER
FAKULTAS TARBIYAH DAN ILMU KEGURUAN
UIN SJECH M.DJAMIL DJAMBEK BUKITTINGGI
TA 2024

DAFTAR ISI

1
Tugas 1............................................................................................................ 1

A.Biodata Sederhana....................................................................................... 1

Tugas 2............................................................................................................ 2

B. Kalkulator...................................................................................................2

Tugas 3............................................................................................................4

C.Program Belanja..........................................................................................4

D.Order Paket Hosting....................................................................................6

Tugas 4 ...........................................................................................................9

E. Looping List 1.............................................................................................9

F. Looping For2...............................................................................................10

G. Looping ForNext 3.....................................................................................12

2
Tugas 1
(F5 | start untuk menjalankan program )
A.Biodata Sederhan

ScreenShoot Design View

ScreenShoot Hasil Running

1
Kode Program
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
MessageBox.Show(TextNama.Text & vbCrLf & CBGender.Text & vbCrLf & CBJurusan.Text, "Hasil
Inputan", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
End Class

Tugas 2
(F5 | start untuk menjalankan program )
B.Kakulator

ScreenShoot Design View

ScreenShoot Hasil Running

2
Kode Program
Public Class Form1
' Deklari Variable
Dim Angka1, Angka2, Hasilnya As Double

Private Sub BtnBagi_Click(sender As Object, e As EventArgs) Handles BtnBagi.Click


Angka1 = TextAngka1.Text
Angka2 = TextAngka2.Text
Hasilnya = Angka1 / Angka2
'Tampilkan Hasilnya
THasil.Text = Hasilnya
End Sub

Private Sub BtnKali_Click(sender As Object, e As EventArgs) Handles BtnKali.Click


Angka1 = TextAngka1.Text
Angka2 = TextAngka2.Text
Hasilnya = Angka1 * Angka2
'Tampilkan Hasilnya
THasil.Text = Hasilnya
End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click


End
End Sub

Private Sub BtnKurang_Click(sender As Object, e As EventArgs) Handles BtnKurang.Click


Angka1 = TextAngka1.Text
Angka2 = TextAngka2.Text
Hasilnya = Angka1 - Angka2
'Tampilkan Hasilnya
THasil.Text = Hasilnya
End Sub

Private Sub BtnTambah_Click(sender As Object, e As EventArgs) Handles BtnTambah.Click


Angka1 = TextAngka1.Text
Angka2 = TextAngka2.Text
Hasilnya = Angka1 + Angka2
'Tampilkan Hasilnya
THasil.Text = Hasilnya
End Sub

3
End Class

Tugas 3
(F5 | start untuk menjalankan program )
C.Program Belanja

ScreenShoot Design View

ScreenShoot Hasil Running

4
Kode Program
Public Class Form1
Private Sub TextJumlah_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextJumlah.KeyPress
If e.KeyChar = ChrW(Keys.Enter) Then
If TextNamaBarang.Text = "" Or TextHargaSatuan.Text = "" Or TextJumlah.Text = "" Then
Me.BackColor = Color.OrangeRed
MessageBox.Show("Inputan Tidak Boleh Kosong ..", "PERINGATAN!", MessageBoxButtons.OK,
MessageBoxIcon.Exclamation)
Else
Me.BackColor = Color.Aqua
Dim Harga, Jumlah As Integer
Dim Total, Diskon, Bayar As Double
Dim Bonus As String
Harga = TextHargaSatuan.Text
Jumlah = TextJumlah.Text
Total = Harga * Jumlah
If Total >= 500000 Then
Diskon = 0.2 * Total
Bonus = "Hand Bag"

ElseIf Total >= 200000 Then


Diskon = 0.2 * Total
Bonus = "Payung"

ElseIf Total >= 100000 Then


Diskon = 0.1 * Total
Bonus = "Kaos"

ElseIf Total >= 50000 Then


Diskon = 0.05 * Total
Bonus = "Pena"
Else
Diskon = 0
Bonus = "Tidak dapat Diskon"
End If
Bayar = Total - Diskon
TextTotalHarga.Text = "Rp" & Format(Total, "#,#,##")
TextDiskon.Text = "Rp" & Format(Diskon, "#,#,##")

5
TextTotalBayar.Text = "Rp" & Format(Bayar, "#,#,##")
End If
End If
End Sub
Private Sub BtnRiset_Click(sender As Object, e As EventArgs) Handles BtnRiset.Click
TextNamaBarang.Clear()
TextHargaSatuan.Clear()
TextJumlah.Clear()
TextTotalHarga.Clear()
TextDiskon.Clear()
TextTotalBayar.Clear()
Bonus.Clear()
Me.BackColor = Color.Aqua
End Sub

Private Sub BtnClose_Click(sender As Object, e As EventArgs) Handles BtnClose.Click


End
End Sub
End Class

(F5 | start untuk menjalankan program )


D.Order Paket Hosting

ScreenShoot Design View

ScreenShoot Hasil Running

6
Kode Program
Public Class Form2
Dim HargaHosting, HargaDomain As Integer

Private Sub ListDomain_SelectedIndexChanged(sender As Object, e As EventArgs) Handles


ListDomain.SelectedIndexChanged
Select Case ListDomain.Text
Case ".COM"
HargaDomain = 129900
THargaDomain.Text = "Rp. " & Format(HargaDomain, "#,#,##")
Case ".ID"
HargaDomain = 21990
THargaDomain.Text = "Rp. " & Format(HargaDomain, "#,#,##")
Case ".ORG"
HargaDomain = 105000
THargaDomain.Text = "Rp. " & Format(HargaDomain, "#,#,##")
Case ".SCH"
HargaDomain = 50000
THargaDomain.Text = "Rp. " & Format(HargaDomain, "#,#,##")
Case ".AC.ID"
HargaDomain = 65000
THargaDomain.Text = "Rp. " & Format(HargaDomain, "#,#,##")
End Select
End Sub

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load


HideDomain()
End Sub

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles


CheckBox1.CheckedChanged
If CheckBox1.Checked Then
ShowDomain()
Else
HideDomain()

7
End If
End Sub
Sub HideDomain()
LDomain.Visible = False
ListDomain.Visible = False
LHrgaDomain.Visible = False
THargaDomain.Visible = False
End Sub

Sub ShowDomain()
LDomain.Visible = True
ListDomain.Visible = True
LHrgaDomain.Visible = True
THargaDomain.Visible = True
End Sub

Private Sub BtnHintung_Click(sender As Object, e As EventArgs) Handles BtnHintung.Click


Dim JmlMasaAktif, JumlahBayar As Integer
JmlMasaAktif = TMasaAktif.Text
JumlahBayar = HargaHosting + HargaDomain * JmlMasaAktif
TjumlahBayar.Text = "Rp " & Format(JumlahBayar, "#,#,##")
End Sub

Private Sub BtnKeluar_Click(sender As Object, e As EventArgs) Handles BtnKeluar.Click


End
End Sub

Private Sub ListHosting_SelectedIndexChanged(sender As Object, e As EventArgs) Handles


ListHosting.SelectedIndexChanged
Select Case ListHosting.Text
Case "ENTRY"
HargaHosting = 15000
THargaHosting.Text = "Rp. " & Format(HargaHosting, "#,#,##")
Case "SMALL"
HargaHosting = 17900
THargaHosting.Text = "Rp, " & Format(HargaHosting, "#,#,##")
Case "MEDIUM"
HargaHosting = 29900
THargaHosting.Text = "Rp, " & Format(HargaHosting, "#,#,##")
Case "LARGE"
HargaHosting = 49900
THargaHosting.Text = "Rp, " & Format(HargaHosting, "#,#,##")
End Select
End Sub
End Class

Tugas 4
(F5 | start untuk menjalankan program )
E. Looping List 1

8
ScreenShoot Design View

ScreenShoot Hasil Running

Kode Program
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 1 To 10
LoopingList.Items.Add(i)
Next
End Sub
End Class

9
(F5 | start untuk menjalankan program )
F. Looping For2

ScreenShoot Design View

ScreenShoot Hasil Running

10
Kode Program
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles BtnSubmit.Click
Dim Nama As String
Dim JumlahLoop As Integer
If TextNama.Text = "" Or TextJmILoop.Text = "" Then
MsgBox("Inputan Wajib Diisi..")
Else
Nama = TextNama.Text
JumlahLoop = TextJmILoop.Text
For i = 1 To JumlahLoop
ListItem.Items.Add(Nama)
Next
End If
End Sub

Private Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click


TextNama.Clear()
TextJmILoop.Clear()
ListItem.Items.Clear()
End Sub
End Class

F5 | start untuk menjalankan program )


G. Looping ForNext 3

11
ScreenShoot Design View

ScreenShoot Hasil Running

12
Kode Program
Public Class Form1
Private Sub BtnProses_Click(sender As Object, e As EventArgs) Handles BtnProses.Click
ListGanjil.Items.Clear()
ListGenap.Items.Clear()
Dim Starts, Ends, i As Integer
Starts = Val(TextAwal.Text)
Ends = Val(TextAkhir.Text)
For i = Starts To Ends
If i Mod 2 = 0 Then
ListGenap.Items.Add(i)
Else
ListGanjil.Items.Add(i)
End If
Next
End Sub
End Class

13

You might also like