cabok dast
جمعه 28 آذر 1393, 20:10 عصر
با سلام به کاربران یک انجمن لطف کنید برنامه رو با سورس قرار دادم دان کنید
تو این قسمت خطا میگیره
فقط دوستان لطف کنید زود نگا کنید که پروژه پایان ترم هستش فردا باید تحویل بدم .ممون
Dim n1, n2 As Integer
If Form1.Label1.Caption = 0 Then
Form1.Label1.Caption = ""
Else
Label3.Caption = Form1.Label1.Caption
Label4.Caption = Form1.Label6.Caption
n1 = Label3.Caption
n2 = Label4.Caption
Label9.Caption = (n2) + (n1)
If n1 <= n2 Then
Command1.Enabled = False
Label6.Caption = 0
MsgBox ("^-^ you lose ^-^ ")
Else
Label6.Caption = (n1) - (n2)
End If
End If
البته زحمت عکس ها رو خودتون بکشید
اینم برنامه (http://saman.r20.ir/other/visual%20basic%20Project.zip)
تو این قسمت خطا میگیره
فقط دوستان لطف کنید زود نگا کنید که پروژه پایان ترم هستش فردا باید تحویل بدم .ممون
Dim n1, n2 As Integer
If Form1.Label1.Caption = 0 Then
Form1.Label1.Caption = ""
Else
Label3.Caption = Form1.Label1.Caption
Label4.Caption = Form1.Label6.Caption
n1 = Label3.Caption
n2 = Label4.Caption
Label9.Caption = (n2) + (n1)
If n1 <= n2 Then
Command1.Enabled = False
Label6.Caption = 0
MsgBox ("^-^ you lose ^-^ ")
Else
Label6.Caption = (n1) - (n2)
End If
End If
البته زحمت عکس ها رو خودتون بکشید
اینم برنامه (http://saman.r20.ir/other/visual%20basic%20Project.zip)