Bu Program girilen değişkenlerin hafızada tutup daha sonra istenildiğinde girilen değişkenin değerini gösteririr..


[COLOR=#c5003f]Burada Dikkat Edilecek nokta değişkenin önünde '=' işaretinin olmasıdır.
Program deneme amaciyla 25 adet değişkeni hafızasında tutmaktadır istenilirse bu değer arttırılabilir

Programın çalışması için 2 adet TextBox, 4 adet Command buton 1 adet Label gerekmektedir.

Dim s(25) As String
Dim cnt As Byte
Dim x As Integer
Dim cont As Boolean

Sub bul(a As String)
Dim f, d As String
cont = False
For x = 0 To cnt
f = Mid$(s(x), 1, Len(a))
If f = a Then
d = Right$(s(x), Len(s(x)) - Len(a))
cont = True
End If
Next
Label1.Caption = d
If cont = True And d = "" Then Label1.Caption = "<Değer Girilmemiş>"

End Sub

Sub bul2(a As String)
Dim f, d As String
For x = 1 To Len(a)
f = Mid$(a, x, 1)
If f = "=" Then d = Left$(a, x)
Next
bul (d)
End Sub
Sub deg()
Dim y As Integer
Dim f, d As String
For x = 0 To cnt
For y = 1 To Len(s(x))
f = Mid$(s(x), y, 1)
If f = "=" Then
d = Left$(s(x), y - 1)
MsgBox d, , "Değişkenler"
End If
Next
Next
End Sub


Private Sub Command1_Click()
bul2 (Text1.Text)
If cont = False Then

If cnt < 25 Then
s(cnt) = Text1.Text
cnt = cnt + 1
Form1.Caption = "Değişken Sorma " & CStr(cnt) & "/25"
Else
MsgBox "Değişken İçin Yer YOK!!!"
End If

Else
MsgBox "Bu değişken Zaten Var!!!"
End If
End Sub

Private Sub Command2_Click()
bul (Text2.Text)
If cont = False Then Label1.Caption = "Değişken Bulunamadı!!!"
End Sub

Private Sub Command3_Click()
deg
If s(0) = "" Then MsgBox "Değişken Bulunamadı!!!", , "Değişkenler"
End Sub

Private Sub Command4_Click()
Dim f, g As String
For x = 0 To cnt
f = s(x)
If f <> "" Then g = g + f + vbNewLine
Next
If g <> "" Then
MsgBox g, , "Yığın"
Else
MsgBox "Yığın Boş", , "Yığın"
End If
End Sub


Private Sub Form_Load()
Command1.Caption="Ekle"
Command2.Caption="Sor"
Command3.Caption="Bul"
Command4.Caption="Yığın"
Text1.Text="A="
Text2.Text="A="
Label1.Caption=""
Form1.Caption = "Değişken Sorma 0/25"
End Sub