برنامه ی نقطه یابی ریاضی با وی بی 6

VERSION 5.00
Begin VB.Form form1
   Caption         =   "äÞØå íÇÈì ãÚÇÏáå åÇ ÈÇ ãÞÇÏíÑ ÓÓÊå  -  Noghte Yaabi"
   ClientHeight    =   4350
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   15015
   LinkTopic       =   "Form1"
   ScaleHeight     =   4350
   ScaleWidth      =   15015
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox tq
      Height          =   285
      Left            =   12960
      Locked          =   -1  'True
      TabIndex        =   20
      TabStop         =   0   'False
      Top             =   3480
      Width           =   1215
   End
   Begin VB.TextBox f
      Height          =   285
      Left            =   8760
      TabIndex        =   18
      TabStop         =   0   'False
      Text            =   "1"
      ToolTipText     =   "f = amount of exactitude for y"
      Top             =   3600
      Width           =   1335
   End
   Begin VB.TextBox e
      Height          =   285
      Left            =   8760
      TabIndex        =   17
      TabStop         =   0   'False
      Text            =   "1"
      ToolTipText     =   "e = amount of exactitude for x"
      Top             =   3360
      Width           =   1335
   End
   Begin VB.TextBox d
      Height          =   285
      Left            =   5400
      TabIndex        =   16
      TabStop         =   0   'False
      Text            =   "3"
      ToolTipText     =   "Rf = [c,d]"
      Top             =   3600
      Width           =   1815
   End
   Begin VB.TextBox c
      Height          =   285
      Left            =   5400
      TabIndex        =   15
      TabStop         =   0   'False
      Text            =   "-3"
      ToolTipText     =   "Rf = [c,d]"
      Top             =   3360
      Width           =   1815
   End
   Begin VB.TextBox b
      Height          =   285
      Left            =   2280
      TabIndex        =   14
      TabStop         =   0   'False
      Text            =   "3"
      ToolTipText     =   "Df = [a,b]"
      Top             =   3600
      Width           =   1815
   End
   Begin VB.TextBox a
      Height          =   285
      Left            =   2280
      TabIndex        =   7
      TabStop         =   0   'False
      Text            =   "-3"
      ToolTipText     =   "Df = [a,b]"
      Top             =   3360
      Width           =   1815
   End
   Begin VB.TextBox t6
      Height          =   375
      Left            =   120
      Locked          =   -1  'True
      TabIndex        =   6
      TabStop         =   0   'False
      Top             =   2520
      Width           =   14775
   End
   Begin VB.TextBox t5
      Height          =   375
      Left            =   120
      Locked          =   -1  'True
      TabIndex        =   5
      TabStop         =   0   'False
      Top             =   2040
      Width           =   14775
   End
   Begin VB.TextBox t4
      Height          =   375
      Left            =   120
      Locked          =   -1  'True
      TabIndex        =   4
      TabStop         =   0   'False
      Top             =   1560
      Width           =   14775
   End
   Begin VB.TextBox t3
      Height          =   375
      Left            =   120
      Locked          =   -1  'True
      TabIndex        =   3
      TabStop         =   0   'False
      Top             =   1080
      Width           =   14775
   End
   Begin VB.TextBox t2
      Height          =   375
      Left            =   120
      Locked          =   -1  'True
      TabIndex        =   2
      TabStop         =   0   'False
      Top             =   600
      Width           =   14775
   End
   Begin VB.TextBox t1
      Height          =   375
      Left            =   120
      Locked          =   -1  'True
      TabIndex        =   1
      TabStop         =   0   'False
      Top             =   120
      Width           =   14775
   End
   Begin VB.CommandButton c1
      Caption         =   "Calculate"
      Height          =   495
      Left            =   240
      TabIndex        =   0
      Top             =   3360
      Width           =   975
   End
   Begin VB.Label lq
      Caption         =   "quantity of answers is :"
      Height          =   255
      Left            =   11160
      TabIndex        =   19
      Top             =   3480
      Width           =   1695
   End
   Begin VB.Label lf
      Caption         =   "f ="
      Height          =   255
      Left            =   8400
      TabIndex        =   13
      ToolTipText     =   "f = amount of exactitude for y"
      Top             =   3600
      Width           =   375
   End
   Begin VB.Label le
      Caption         =   "e ="
      Height          =   255
      Left            =   8400
      TabIndex        =   12
      ToolTipText     =   "e = amount of exactitude for x"
      Top             =   3360
      Width           =   375
   End
   Begin VB.Label ld
      Caption         =   "d ="
      Height          =   255
      Left            =   5040
      TabIndex        =   11
      ToolTipText     =   "Rf = [c,d]"
      Top             =   3600
      Width           =   375
   End
   Begin VB.Label lc
      Caption         =   "c ="
      Height          =   255
      Left            =   5040
      TabIndex        =   10
      ToolTipText     =   "Rf = [c,d]"
      Top             =   3360
      Width           =   375
   End
   Begin VB.Label lb
      Caption         =   "b ="
      Height          =   255
      Left            =   1920
      TabIndex        =   9
      ToolTipText     =   "Df = [a,b]"
      Top             =   3600
      Width           =   375
   End
   Begin VB.Label la
      Caption         =   "a ="
      Height          =   255
      Left            =   1920
      TabIndex        =   8
      ToolTipText     =   "Df = [a,b]"
      Top             =   3360
      Width           =   375
   End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

 ' Df=[a,b]  , Rf=[c,d] , e = amount of exactitude for x , f = amount of exactitude for y

Private Sub c1_Click()




Counter = 0:    cou2 = 1:    ques1 = "1"
t1 = "":    t2 = "":    t3 = "":    t4 = "":    t5 = "":    t6 = "":    tq = "":
lq.BackColor = &HFF&:  la.BackColor = &HFF&:  lb.BackColor = &HFF&
lc.BackColor = &HFF&:  ld.BackColor = &HFF&:  le.BackColor = &HFF&
lf.BackColor = &HFF&:  form1.BackColor = &HFF&
form1.MousePointer = 11






 
 
  For x = a To b Step e

           For y = c To d Step f
    
               If Counter = 500 And cou2 = 1 Then 'start*************************
               cou2 = 2
               ques1 = InputBox("There are more than 500 answers. Type 1 to continue or type 0 to stop calculating.", "Do you want to continue?")
               MsgBox ("Your computer is calculating. Please wait.")
               End If

               If Counter = 1000 And cou2 = 2 Then
               cou2 = 3
               ques1 = InputBox("There are more than 1000 answers. Type 1 to continue or type 0 to stop calculating.", "Do you want to continue?")
               End If

               If Counter = 3000 And cou2 = 3 Then
               cou2 = 4
               ques1 = InputBox("There are more than 3000 answers. Type 1 to continue or type 0 to stop calculating.", "Do you want to continue?")
               End If

               If Counter = 5000 And cou2 = 4 Then
               cou2 = 5
               ques1 = InputBox("There are more than 5000 answers. Type 1 to continue or type 0 to stop calculating.", "Do you want to continue?")
               End If

               If Counter = 10000 And cou2 = 5 Then
               cou2 = 6
               ques1 = InputBox("There are more than 10000 answers. Type 1 to continue or type 0 to stop calculating.", "Do you want to continue?")
               End If
              
               If Counter = 100000 And cou2 = 6 Then
               cou2 = 7
               ques1 = InputBox("There are more than 100000 answers. Type 1 to continue or type 0 to stop calculating.", "Do you want to continue?")
               End If 'end**********************************************************



         
                    If ques1 = "1" And y = x Then '     ****** You can change the equation between "If" & "Then" ******


                           Counter = Counter + 1
                           t1 = t1 & "[ (time = " & Counter & ")" & " , " & "(x = " & x & ")" & " , " & "(y = " & y & ") ]" & "     "
                           t2 = t2 & "[ (time = " & Counter & ")" & " , " & "(x = " & x & ") ]" & "     "
                           t3 = t3 & "[ (time = " & Counter & ")" & " , " & "(y = " & y & ") ]" & "     "
                           t4 = t4 & x & "     "
                           t5 = t5 & y & "     "
                           t6 = t6 & "(" & x & "," & y & ")" & "  "
                           tq = Counter
        
                       ElseIf ques1 = "0" Then
                      
                           t1 = t1 & "error     error     error     error     error"
                           t2 = t2 & "error     error     error     error     error"
                           t3 = t3 & "error     error     error     error     error"
                           t4 = t4 & "error     error     error     error     error"
                           t5 = t5 & "error     error     error     error     error"
                           t6 = t6 & "error     error     error     error     error"
                          
                           MsgBox ("The operation failed.")
                      
                       Exit For
                      
                       End

                      
                   
                    End If
         
         
    
             Next y
    
            If ques1 = "0" Then Exit For
    
      
    
  Next x
 





form1.BackColor = &H8000000F
form1.MousePointer = 0
lq.BackColor = &H8000000F
la.BackColor = &H8000000F
lb.BackColor = &H8000000F
lc.BackColor = &H8000000F
ld.BackColor = &H8000000F
le.BackColor = &H8000000F
lf.BackColor = &H8000000F



End Sub

Private Sub Form_Load()

End Sub