PUSAT ILMU PENGETAHUAN DAN AGAMA

Samudra Ilmu : Pemrograman Sequence pada Visual Studio 2012

Sequence

Sequence merupakan struktur kontrol algoritma yang paling sederhana berisi sederetan instruksi yang akan dilaksnakan atau dieksekusi oleh komputer berdasarkan urutan penulisannya. Algoritma merupakan runtutan (sequence) satu atau lebih instruksi,yang berarti bahwa tiap instruksi dikerjakan satu per satu, dilaksanakan satu kali dan tidak ada instruksi yang diulang. Urutan penulisan aksi atau instruksi pada sequence sesuai dengan penulisannya perbaris, atau dapat juga dituliskan menjadi satu baris program dengan cara memisahkan tiap instruksi dengan tanda ; (titik koma), hal ini dilakukan untuk sequence yang jika urutannya dirubah tidak mempengaruhi programnya.

Contoh Program Sequence pada Visual Studio 2012
a. Form
Tabel Properties Form


Object
Properties
Nilai
Form4
Name
Form4
Text
Data Transaksi Pembelian
Label1
Name
Label1
Font
Microsoft Sans Serif, 8.25pt
Text
Nama Pembeli
Label2
Name
Label2
Font
Microsoft Sans Serif, 8.25pt
Text
Alamat
Label3
Name
Label3
Font
Microsoft Sans Serif, 8.25pt
Text
Kode Barang
Label4
Name
Label4
Font
Microsoft Sans Serif, 8.25pt
Text
Nama Barang
Label5
Name
Label5
Font
Microsoft Sans Serif, 8.25pt
Text
Harga Satuan
Label6
Name
Label6
Font
Microsoft Sans Serif, 8.25pt
Text
Jumlah Barang
Label7
Name
Label7
Font
Microsoft Sans Serif, 8.25pt
Text
Total Biaya
Label8
Name
Label8
Font
Microsoft Sans Serif, 8.25pt
Text
Tanggal Pemesanan
Label9
Name
Label9
Font
Microsoft Sans Serif, 8.25pt
Text
Tanggal Transfer
Label10
Name
Label10
Font
Microsoft Sans Serif, 8.25pt
Text
Tanggal Pengiriman
Label11
Name
Label11
Font
Microsoft Sans Serif, 8.25pt
Text
Nama
Label12
Name
Label12
Font
Microsoft Sans Serif, 8.25pt
Text
Alamat
Label13
Name
Label13
Font
Microsoft Sans Serif, 8.25pt
Text
Kode Barang




Label14
Name
Label14
Font
Microsoft Sans Serif, 8.25pt
Text
Nama Barang
Label15
Name
Label15
Font
Microsoft Sans Serif, 8.25pt
Text
Harga Satuan
Label16
Name
Label16
Font
Microsoft Sans Serif, 8.25pt
Text
Jumlah Barang
Label17
Name
Label17
Font
Microsoft Sans Serif, 8.25pt
Text
Total Biaya
Label18
Name
Label18
Font
Microsoft Sans Serif, 8.25pt
Text
Tanggal Pemesanan
Label19
Name
Label19
Font
Microsoft Sans Serif, 8.25pt
Text
Tanggal Transfer
Label20
Name
Label20
Font
Microsoft Sans Serif, 8.25pt
Text
Tanggal Pengiriman
Textbox1
Name
Textbox1
Textbox2
Name
Textbox2
Textbox3
Name
Textbox3
Textbox4
Name
Textbox4
Textbox5
Name
Textbox5
Textbox6
Name
Textbox6
Textbox7
Name
Textbox7
Textbox8
Name
Textbox8
Textbox9
Name
Textbox9
Textbox10
Name
Textbox10
Textbox11
Name
Textbox11
Textbox12
Name
Textbox12
Textbox13
Name
Textbox13
Textbox14
Name
Textbox14
Textbox15
Name
Textbox15
Textbox16
Name
Textbox16
Datetimepicker1
Name
Datetimepicker1
Datetimepicker2
Name
Datetimepicker2
Datetimepicker3
Name
Datetimepicker3





Listbox1
Name
Listbox1
Items
001
002
003
004
Groupbox1
Name
Groupbox1
Text
Data Pembeli
Button1
Name
Button1
Text
Cek Biaya Total
Button2
Name
Button2
Text
Proses
Button3
Name
Button3
Text
Simpan
Button4
Name
Button4
Text
Kembali

 b. Listinng Program


Public Class Form4
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ListBox1.Items.Add("001")
ListBox1.Items.Add("002")
ListBox1.Items.Add("003")
ListBox1.Items.Add("004")
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
Select Case ListBox1.Text
Case "001"
TextBox3.Text = "Gamis"
TextBox4.Text = 120000
Case "002"
TextBox3.Text = "Daster"
TextBox4.Text = 90000
Case "003"
TextBox3.Text = "Celana"
TextBox4.Text = 30000
Case "004"
TextBox3.Text = "Jilbab"
TextBox4.Text = 35000
End Select
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox6.Text = (Val(TextBox4.Text) * (Val(TextBox5.Text)))
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox7.Text = TextBox1.Text
TextBox8.Text = TextBox2.Text
TextBox9.Text = ListBox1.Text
TextBox10.Text = TextBox3.Text
TextBox11.Text = TextBox4.Text
TextBox12.Text = TextBox5.Text
TextBox13.Text = TextBox6.Text
TextBox14.Text = DateTimePicker1.Text
TextBox15.Text = DateTimePicker2.Text
TextBox16.Text = DateTimePicker3.Text
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If MessageBox.Show("Data Pembelian Telah di Simpan", "Informasi", MessageBoxButtons.OK) Then
End If
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Form2.Show()
Me.Hide()
End Sub
End Class


 c. Running Program

0 Komentar untuk "Samudra Ilmu : Pemrograman Sequence pada Visual Studio 2012"

Back To Top