Program Aplikasi Stack Angka & Huruf dengan VB.Net

Sahabat Rienie, kali ini saya mau berbagi artikel tentang" Program Aplikasi Stack Angka & Huruf dengan VB.Net".Apakah anda tahu apa itu Stack...??? 
Stack adalah tumpukan data yang dialokasikan dalam memory dan digunakan secara berurutan, LIFO(Last In First Out).
Adapun perintah operasional stack, yaitu:
1. Push,yaitu untuk memasukan data ke alokasi.
2. Pop, yaitu untuk mengeluarkan atau menggunakan data di lokasi memory.

Sahabat rienie, disini saya tidak akan membuat dua program, saya akan gabungkan stack angka dan huruf, karena design dan listing programnya sama, mungkin ada sedikit perbedaannya.

Berikut adalah hasil dari stack angka:
*Untuk Push

*Untuk Pop

Dan berikut adalah listing programnya:
Public Class Form1
    Private  m_stack As New Collections.Stack
    Private Sub tampilstack()
        Dim value() As Object = m_stack.ToArray()
        Dim txt As String
        For i As Long = 0 To value.GetUpperBound(0)
            txt &= value(i) & ""
        Next i
        Tmpush.Text = txt
    End Sub
    Private Sub tblpush_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tblpush.Click
    
        m_stack.Push(Txtinput.Text)
        Txtinput.Text = Txtinput.Text + 1
        Txtinput.Select(0, 0)
        tampilstack()
    End Sub

    Private Sub tblpop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tblpop.Click
        Tmpop.Text = m_stack.Pop() & " " & Tmpop.Text
        tampilstack()
    End Sub
End Class

NB: Untuk Stack Huruf, Listing programnya sama, cuman ada sedikit perubahan sich.

Inilah yang membedakan, untuk listing program Push Stack Huruf adalah:

 Private Sub tblpush_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tblpush.Click

        M_stack.Push(Txtinput.Text)

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

        Txtinput.Select(0, 0)

        tampilstack()

    End Sub

Sekian Artikel tentang "Program Aplikasi Stack Angka & Huruf dengan VB.Net".Semoga artikel ini bisa bermanfaat bagi anda khususnya programer-programer dasar. Selamat Mencoba...!!!