CONTOH PROGRAM STACK PADA VISUAL BASIC 2008

Membuat Program Stack  menggunakan Visual Basic 2008

       

Aturan Permainan

dalam permainan kali ini, aturan nya simple saja, bila kita tekan tombol Push, maka nilai textbox di atas nya akan naik, dan textbox dibawahnya mengambil nilai textbox yg diatasnya, begitu juga bila kita tekan tombol pop. setelah kita siap mendesain programnya langsung saja dengan cepat menuju Properties lalu ganti:

1. textbox1 kita ganti namenya menjadi txtinput

2.textbox2 kita ganti namenya menjadi tmpush

3. textbox3 kita ganti namenya menjadi tmpop

4. button1 kita ganti textnya menjadi Push dan namenya menjadi tblpush

5. button2 kita ganti textnya menjadi Pop dan namenya menjadi tblpop

NB"dalam proses penggantian Name, tidak boleh menggunakan "space"

langkah pertama,

kita masukkan listing berikut, tepat dibawah Public class 

 Private m_stack As New Collections.Stack

Private Sub tampilstack()
        Dim values() As Object = m_stack.ToArray()
        Dim txt As String
        For i As Long = 0 To values.GetUpperBound(0)
            txt &= values(i) & " "
        Next i

        tmpush.Text = txt
    End Sub

tapi ingat, private class dan end class jangan sempat terganggu sedikitpun, jika anda tidak ingin program nya error;

langkah selanjutnya>>>

double click pada Tblpush lalu ketikkan listing berikut;

m_stack.push(txtinput.Text)
        txtinput.Text = txtinput.Text + 1
        txtinput.Select(0, 0)
        tampilstack()

jika kita ingin membuat pertambahan angka, maka kita ganti text yg bergaris biru diatas menjadi listing berikut.

txtinput.Text = Chr(Asc(txtinput.Text) + 1)

langkah selanjutnya>>>
 
double click pada Tbl pop lalu ketikkan listing berikut;

tmpop.Text = m_stack.pop() & " " & tmpop.Text
        tampilstack()

 
BY : ALWIN TANOGA