مشاهده نسخه کامل
: خودم1
12-06-2007, 17:41
سلام
كسي يه برنامه ماشين حساب توپ داره به زبان 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
اگه اشكال اينو بهم بگين يا يه برنامه بهتر بهم معرفي كنين ممنون مي شم
پيشا پيش از جوابي كه شايد بدين ممنون.
كسي يه برنامه ماشين حساب توپ داره به زبان 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
اگه اشكال اينو بهم بگين يا يه برنامه بهتر بهم معرفي كنين ممنون مي شم
پيشا پيش از جوابي كه شايد بدين ممنون.