ماشين حساب با ليست باكس

ابزار لازم:
همان ابزار هاي ماشين حساب قبلي بعلاوه ليست باكس.
نامگذاري:
l1,l2,t1,t2,c1,ls1
كد نويسي:


Dim sum As Long' be jaaye integer
Dim j As Long
Private Sub Form_Load()
Form1.Caption = "SIMPLE CALCULATOR"
c1.Caption = "Add"
l1.Caption = "write numbers"
l2.Caption = "SUM="
t1.Text = 0
t2.Text = 0
t1.MaxLength = 9 ' be jaaye 4
t2.Enabled = False
End Sub

Private Sub c1_Click()
j = sum
sum = sum + t1.Text
t2.Text = sum
ls1.AddItem (j & "+" & t1.Text & vbtab & "sum=" & sum)
t1.Text = ""
End Sub

خطوط آبي رنگ جديد اضافه شده.

متغير ((لانگ)) پذيرش بيشتري دارد . در قسمتي كه با رنگ قرمز مشخص شده ، مي بينيد كه به جاي 4 توانسته ايم اجازه دهيم ورودي عددي 9 رقمي باشد.
همچنين به شيوه توضيح نويسي كه با رنگ سبز مشخص شده ، توجه كنيد. اين توضيحات اجرا نمي شود. توضيحات براي خوانايي برنامه لازم است.




معرفی 3 ابزار دیگه





براي اين كه اين 3 ابزار با هم كار مي كنند، بايست آنها را با كد نويسي به هم مربوط كرد.
از بزرگ به كوچك اينها را
a,b,c
بناميد. اول درايو ، بعد دايركتوري ، بعد فايل. ، و بعد كد زير را ، به پنجره كد بيافزاييد.



Private Sub a_Change()
b.Path = a.Drive
End Sub

Private Sub b_Change()
c.Path = b.Path
End Sub


حالا وقتي درايو را كاربر عوض مي كنه...در ابزار دوم پوشه هاي همان درايو را نشون ميده و وقتي دايركتوري تغيير كنه...فايلهاي همون دايركتوري در ابزار سوم نمايش داده ميشه.
وقتي روي هر يك از اين ابزارها در پنجره فرم كليك كنيد ، رويداد چنج باز ميشه، همان طور كه در مورد دكمه رويداد كليك باز ميشد.