Membuat Program Stack (Angka & Huruf) menggunakan VB-2008

         slamat siang sobat blogger, dalam rangka iseng dan untuk memenuhi tugas kuliah juga yaitu "Struktur Data", Saya akan memposting Sebuah program Stack (menggunakan Angka dan Juga Huruf),  pada awalnya, saya pengen bedain yang huruf dan jg angka, tp stlah dpikir" lagi, ngapain buang tenaga, toh satu laman juga bisa resbes, ea gak.... 
jadi kali ini kita lampauin dua pulau sekali
gus dalam sekali gas, ehhh... sekali dayung....  gak banyak yang beda koq yang pake angka sama yang pake huruf, tipis aja, tp low lom dapat pencerahan, kepala bisa nyut-nyut juga,,, hehehehe.... 
Ok gan, kita mulai aja, moga bermanfaat buat tmen-tmen skalian, yah...

langsung saja kita ke TKP.

desainlah form anda sperti gambar diatas dan Seperti biasa gan...  kita buat sebuah aturan...:

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()

nah... listing nya cukup sgini ja, terlalu banyak nanti malah bisa kita yang error, hehehe,,,
dan jikalau anda masih kurang puas, ma buatlah textbox input nya hanya menerima angka saja, atau huruf saja.
 
jom>>> tekan tombol F5 alias Play program yang sudah susah payah anda buat, Mudah Bukan, belajar Program bersama Saya...? hehehehe...
pelajari juga Membuat form-nilai-mahasiswa.

good luck...!