Samudra Ilmu : Pemrograman Sequence pada Visual Studio 2012

Oleh Putra

Saturday, 19 November 2016

Bagikan :

Tweet

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

Tag : pengetahuan alam, pengetahuan umum, VB 2012