Senin, 30 Desember 2013

Menampilkan 4 Digit Terakhir Dari NIM Pada Top View Simulator

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 :

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

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

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

Rabu, 07 November 2012

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
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 :

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.