Hallo viewer and reader my blog....
Kini Saya kembali memposting sebuah materi perkuliahan Mikroprosessor tentang menampilkan angka pada Top View Simulator, adapun angkanya berupa 4 digit terakhir NIM saya yaitu 2579 ( NIM Lengkap 11.11.2579 ). Langsung aja deh,,,Langkah-langkahnya :
Coretanku
Senin, 30 Desember 2013
Sabtu, 22 Desember 2012
Menganalisa Program Function
Program Function dengan Return Value berupa Array
Private Function fstat(ByVal ParamArray args() As Object) As Single()
Dim hasil(3) As Single
Dim i As Integer
For i = 0 To UBound(args)
hasil(0) = hasil(0) + args(i)
If i = 0 Then
hasil(1) = args(i)
hasil(2) = args(i)
End If
If hasil(1) < args(i) Then hasil(1) = args(i)
If hasil(2) > args(i) Then hasil(2) = args(i)
Next i
Return hasil
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim statistik As Single() = fstat(20, 5, 7, 9, 3, 15, 12, 10, 8, 1)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
End Sub
Private Function fstat(ByVal ParamArray args() As Object) As Single()
Dim hasil(3) As Single
Dim i As Integer
For i = 0 To UBound(args)
hasil(0) = hasil(0) + args(i)
If i = 0 Then
hasil(1) = args(i)
hasil(2) = args(i)
End If
If hasil(1) < args(i) Then hasil(1) = args(i)
If hasil(2) > args(i) Then hasil(2) = args(i)
Next i
Return hasil
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim statistik As Single() = fstat(20, 5, 7, 9, 3, 15, 12, 10, 8, 1)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
End Sub
Sabtu, 08 Desember 2012
Tile,Menu&ToolSrip,danMenu Ribbon
Tugas 1
Membuat Tampilan Fom MDI Parent menjadi Tile Horisontal, Vertikal, Cascade.
berikut codingnya di bawah ini :
Private Sub SatuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SatuToolStripMenuItem.Click
Form3.Show()
Form3.MdiParent = Me
End Sub
Private Sub DuaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DuaToolStripMenuItem.Click
Form4.Show()
Form4.MdiParent = Me
End Sub
Private Sub TigaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TigaToolStripMenuItem.Click
Form5.Show()
Form5.MdiParent = Me
End Sub
Membuat Tampilan Fom MDI Parent menjadi Tile Horisontal, Vertikal, Cascade.
berikut codingnya di bawah ini :
Private Sub SatuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SatuToolStripMenuItem.Click
Form3.Show()
Form3.MdiParent = Me
End Sub
Private Sub DuaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DuaToolStripMenuItem.Click
Form4.Show()
Form4.MdiParent = Me
End Sub
Private Sub TigaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TigaToolStripMenuItem.Click
Form5.Show()
Form5.MdiParent = Me
End Sub
Minggu, 11 November 2012
Program List Box dan Radio Button
Program List Box
Langkah-langkahnya :
1. Buka Aplikasi VB .Net 2010 dan buat project baru dengan desain di bawah ini !
2. Tulis Coding di bawah ini!
Private Sub btisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btisi.Click
Dim isi As String
isi = txtisi.Text
ListBox1.Items.Add(isi)
End Sub
Dim isi As String
isi = txtisi.Text
ListBox1.Items.Add(isi)
End Sub
Rabu, 07 November 2012
Daftar Tugas Pemrograman Visual
Nama : Rudi Fitrianto
Kelas : TI11D
NIM : 11.11.2579
Daftar Tugas
Kelas : TI11D
NIM : 11.11.2579
Daftar Tugas
- Tugas1 - Program bebas menggunakan object label,textbox dan button - http://mreferensi.blogspot.com/2012/10/program-luas-keliling-volume-bangun.html
- Tugas2 - Variabel,if,dan case - http://mreferensi.blogspot.com/2012/10/menganalisa-program-yang-error.html
- Tugas3 - Perulangan (Program Puzzle) - http://mreferensi.blogspot.com/2012/10/program-lanjutan-dan-puzzle.html
- Tugas4 - Program List Box dan Radio Button- http://mreferensi.blogspot.com/2012/11/program-list-box-dan-radio-button.html
- Tugas7 - Tile,Menu&ToolSrip,danMenu Ribbon- http://mreferensi.blogspot.com/2012/12/tilemenu-ribbon.html
- Tugas8 - Menganalisa Program Function - http://mreferensi.blogspot.com/2012/12/menganalisa-program-tugas-8.html
Minggu, 28 Oktober 2012
Program Lanjutan dan Puzzle
Disini saya ngeposting tentang lanjutan program yang kemarin, yaitu dengan menambahkan perintah sebagai berikut :
1. Saat form dijalankan : semua isian tidak aktif, tombol isidata dan tutup aktif, tombol clear tidak aktif
1. Saat form dijalankan : semua isian tidak aktif, tombol isidata dan tutup aktif, tombol clear tidak aktif
2.Saat ditekan tombol isi data : kodebarang, jumlahbarang, cara beli, tombol clear, aktif, tombol isi data tidak aktif
3.Saat ditekan combol clear sama dengan saat form dijalankan
Berikut coding & hasilnya :
Berikut coding & hasilnya :
Sabtu, 20 Oktober 2012
Menganalisa Program Yang Error
1. Jawaban No 3
a. Yang menyebabkkan program error, karena variabel alamat belum dideklarasikan terlebih dahulu.
untuk memperbaikinya tinggal dideklarasikan pada button alamat (Dim alamat As String)
b. Karena pendeklarasian alamat bersifat constant. Terbukti dengan adanya Const alamat = "Bumiayu".
Sedangkan pada pendeklarasian nama, didalam form 1 sudah dideklarasikan menggunakan :
Dim nama As String
nama = Rudi
Tetapi pada modul juga dideklarasikan menggunakan public yaitu :
Public Const nama As String = "Rudi Fitrianto"
Sehingga pendeklarasian nama kedua-duanya dijalankan.
a. Yang menyebabkkan program error, karena variabel alamat belum dideklarasikan terlebih dahulu.
untuk memperbaikinya tinggal dideklarasikan pada button alamat (Dim alamat As String)
b. Karena pendeklarasian alamat bersifat constant. Terbukti dengan adanya Const alamat = "Bumiayu".
Sedangkan pada pendeklarasian nama, didalam form 1 sudah dideklarasikan menggunakan :
Dim nama As String
nama = Rudi
Tetapi pada modul juga dideklarasikan menggunakan public yaitu :
Public Const nama As String = "Rudi Fitrianto"
Sehingga pendeklarasian nama kedua-duanya dijalankan.
Langganan:
Postingan (Atom)