ماشين حساب در vb6

سلام
كسي يه برنامه ماشين حساب توپ داره به زبان vb6 به من بده

البته يكي دارم ولي اجرا نمي شه
اين بر نامه را از اين آدرس گرفتم : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اين شكليه




Label به نام lblDisplayبه عنوان نمايشگر ماشين حساب
دكمه مساوي به نام cmdequal
اعداد همه با نام cmdNumber هستند
و چهار تا عملگر با نام cmdOprator در نظر گرفته شده



Option Explicit
Dim x,y As Integer
Dim op As String
Private Sub cmdNumber_Click (Index As Integer)
IF lblDisplay = “Ø” then lblDisplay = “”
lblDisplay = lblDisplay + cmdNumber(Index).Caption
End Sub
Private Sub cmdOprator_Click (Index As Integer)
x = Val(lblDisplay)
op = cmdOprator(Index).Caption
lblDisplay = “Ø”
End Sub
Private Sub cmdEqual_Click ( )
y = Val (lblDisplay)
Select Case op
Case “+”
lblDisplay = x + y
Case “-”
lblDisplay = x - y
Case “*”
lblDisplay = x * y
Case “/”
lblDisplay = x / y
End Select
End Sub

اگه اشكال اينو بهم بگين يا يه برنامه بهتر بهم معرفي كنين ممنون مي شم
پيشا پيش از جوابي كه شايد بدين ممنون.

آموزش ساخت ماشین حساب.PDF:10:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام m hsn _danger

ممنون از جوابتون. شرمنده فرموديد

با سلام

msdnچند تا مثال از بیسیک داره که اگه بگردی میتونی کد ماشین حساب رو هم پیدا کنی

majj خيلي ممنون به خاطر پاسخ تان