io Programmo 9/IOPROG_9.ISO/soft/java/axbridge.exe/_SETUP.1/ArrayTester.Frm

Visual Basic Form | 1997-09-16 | 20.4 KB | 704 lines

VERSION 5.00
Object = "{3904AC21-2DF5-11D1-8950-00805F2ADE08}#1.0#0"; "beans.ocx"
Begin VB.Form Form1
   Caption         =   "Array Tester"
   ClientHeight    =   6450
   ClientLeft      =   1140
   ClientTop       =   1500
   ClientWidth     =   13620
   LinkTopic       =   "Form1"
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   6450
   ScaleWidth      =   13620
   Begin BridgeTesterCtl.BridgeTester BridgeTester1
      Height          =   3975
      Left            =   240
      Top             =   720
      Width           =   6255
      StringValue     =   " "
      CharValue       =   0
      intValue        =   0
      FloatArray      =   "ArrayTester.frx":0000
      ShortValue      =   0
      CharArray       =   "ArrayTester.frx":0034
      IntArray        =   "ArrayTester.frx":005E
      ShortArray      =   "ArrayTester.frx":0092
      ForeColor       =   0
      BackColor       =   12632256
      BooleanValue    =   0   'False
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BooleanArray    =   "ArrayTester.frx":00BC
      ByteValue       =   0
      DoubleValue     =   0
      LongValue       =   0
      ByteArray       =   "ArrayTester.frx":00E6
      DoubleArray     =   "ArrayTester.frx":010B
      FloatValue      =   0
   End
   Begin VB.CommandButton Command21
      Caption         =   "setIntArrayWithIndex"
      Height          =   615
      Left            =   11400
      TabIndex        =   37
      Top             =   5640
      Width           =   1815
   End
   Begin VB.CommandButton Command20
      Caption         =   "Get Java Location"
      Height          =   615
      Left            =   9240
      TabIndex        =   36
      Top             =   5640
      Width           =   1935
   End
   Begin VB.CommandButton Command19
      Caption         =   "Automation Test"
      Height          =   615
      Left            =   6960
      TabIndex        =   35
      Top             =   5640
      Width           =   2055
   End
   Begin VB.CommandButton Command18
      Caption         =   "Get Intrinsic Property"
      Height          =   495
      Left            =   11400
      TabIndex        =   34
      Top             =   240
      Width           =   1935
   End
   Begin VB.Frame Frame2
      Caption         =   "Intrinsic Types"
      Height          =   1335
      Left            =   6840
      TabIndex        =   25
      Top             =   120
      Width           =   3135
      Begin VB.OptionButton Option8
         Caption         =   "Boolean"
         Height          =   255
         Left            =   2040
         TabIndex        =   33
         Top             =   720
         Width           =   975
      End
      Begin VB.OptionButton Option7
         Caption         =   "Long"
         Height          =   255
         Left            =   2040
         TabIndex        =   32
         Top             =   480
         Width           =   855
      End
      Begin VB.OptionButton Option6
         Caption         =   "Short"
         Height          =   255
         Left            =   2040
         TabIndex        =   31
         Top             =   240
         Width           =   855
      End
      Begin VB.OptionButton Option5
         Caption         =   "Byte"
         Height          =   255
         Left            =   2040
         TabIndex        =   30
         Top             =   960
         Width           =   975
      End
      Begin VB.OptionButton Option4
         Caption         =   "Double"
         Height          =   255
         Left            =   240
         TabIndex        =   29
         Top             =   960
         Width           =   855
      End
      Begin VB.OptionButton Option3
         Caption         =   "Float"
         Height          =   255
         Left            =   240
         TabIndex        =   28
         Top             =   720
         Width           =   855
      End
      Begin VB.OptionButton Option2
         Caption         =   "Char"
         Height          =   255
         Left            =   240
         TabIndex        =   27
         Top             =   480
         Width           =   855
      End
      Begin VB.OptionButton Option1
         Caption         =   "Int"
         Height          =   255
         Left            =   240
         TabIndex        =   26
         Top             =   240
         Width           =   615
      End
   End
   Begin VB.CommandButton Command17
      Caption         =   "Set Intrinsic Property"
      Height          =   495
      Left            =   11400
      TabIndex        =   24
      Top             =   840
      Width           =   1935
   End
   Begin VB.TextBox Text6
      Height          =   495
      Left            =   10080
      TabIndex        =   23
      Text            =   "Text6"
      Top             =   600
      Width           =   1215
   End
   Begin VB.CommandButton Command16
      Caption         =   "Set Short Array"
      Height          =   495
      Left            =   10200
      TabIndex        =   22
      Top             =   1800
      Width           =   1455
   End
   Begin VB.CommandButton Command15
      Caption         =   "Get Short Array"
      Height          =   495
      Left            =   6960
      TabIndex        =   21
      Top             =   1800
      Width           =   1455
   End
   Begin VB.CommandButton Command14
      Caption         =   "Set Byte Array"
      Height          =   495
      Left            =   11760
      TabIndex        =   20
      Top             =   3600
      Width           =   1455
   End
   Begin VB.CommandButton Command13
      Caption         =   "Get Byte Array"
      Height          =   495
      Left            =   8520
      TabIndex        =   19
      Top             =   3600
      Width           =   1455
   End
   Begin VB.CommandButton Command12
      Caption         =   "Set Boolean Array"
      Height          =   495
      Left            =   10200
      TabIndex        =   18
      Top             =   3600
      Width           =   1455
   End
   Begin VB.CommandButton Command11
      Caption         =   "Get Boolean Array"
      Height          =   495
      Left            =   6960
      TabIndex        =   17
      Top             =   3600
      Width           =   1455
   End
   Begin VB.CommandButton Command10
      Caption         =   "Set Char Array"
      Height          =   495
      Left            =   11760
      TabIndex        =   16
      Top             =   3000
      Width           =   1455
   End
   Begin VB.CommandButton Command9
      Caption         =   "Get Char Array"
      Height          =   495
      Left            =   8520
      TabIndex        =   15
      Top             =   3000
      Width           =   1455
   End
   Begin VB.CommandButton Command8
      Caption         =   "Set Float Array"
      Height          =   495
      Left            =   10200
      TabIndex        =   14
      Top             =   3000
      Width           =   1455
   End
   Begin VB.CommandButton Command7
      Caption         =   "Get Float Array"
      Height          =   495
      Left            =   6960
      TabIndex        =   13
      Top             =   3000
      Width           =   1455
   End
   Begin VB.CommandButton Command6
      Caption         =   "Set String Array"
      Height          =   495
      Left            =   11760
      TabIndex        =   12
      Top             =   2400
      Width           =   1455
   End
   Begin VB.CommandButton Command5
      Caption         =   "Get String Array"
      Height          =   495
      Left            =   8520
      TabIndex        =   11
      Top             =   2400
      Width           =   1455
   End
   Begin VB.CommandButton Command4
      Caption         =   "Set Double Array"
      Height          =   495
      Left            =   10200
      TabIndex        =   10
      Top             =   2400
      Width           =   1455
   End
   Begin VB.CommandButton Command3
      Caption         =   "Get Double Array"
      Height          =   495
      Left            =   6960
      TabIndex        =   9
      Top             =   2400
      Width           =   1455
   End
   Begin VB.CommandButton Command2
      Caption         =   "Set Int Array"
      Height          =   495
      Left            =   11760
      TabIndex        =   8
      Top             =   1800
      Width           =   1455
   End
   Begin VB.TextBox Text5
      Height          =   615
      Left            =   12120
      TabIndex        =   6
      Top             =   4680
      Width           =   1095
   End
   Begin VB.TextBox Text4
      Height          =   615
      Left            =   10800
      TabIndex        =   5
      Top             =   4680
      Width           =   1215
   End
   Begin VB.TextBox Text3
      Height          =   615
      Left            =   9480
      TabIndex        =   4
      Top             =   4680
      Width           =   1215
   End
   Begin VB.TextBox Text2
      Height          =   615
      Left            =   8280
      TabIndex        =   3
      Top             =   4680
      Width           =   1095
   End
   Begin VB.TextBox Text1
      Height          =   615
      Left            =   7080
      TabIndex        =   2
      Top             =   4680
      Width           =   1095
   End
   Begin VB.CommandButton Command1
      Caption         =   "Get Int Array"
      Height          =   495
      Left            =   8520
      TabIndex        =   0
      Top             =   1800
      Width           =   1455
   End
   Begin VB.Frame Frame1
      Caption         =   "Array Values"
      Height          =   1095
      Left            =   6840
      TabIndex        =   7
      Top             =   4320
      Width           =   6495
   End
   Begin VB.Line Line1
      X1              =   7320
      X2              =   12840
      Y1              =   1680
      Y2              =   1680
   End
   Begin VB.Label Label1
      Caption         =   "Array Tester in Visual Basic"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1200
      TabIndex        =   1
      Top             =   120
      Width           =   4575
   End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub BridgeTester1_eventNumber1(ByVal information As String, intValue As Long, ByVal source As Object)
    MsgBox intValue
End Sub
Private Sub BridgeTester1_eventNumber2(ByVal String1 As String)
    MsgBox String1
End Sub
Private Sub BridgeTester1_eventNumber3(ByVal parm1 As Integer)
        MsgBox parm1
End Sub
Private Sub BridgeTester1_eventNumber4(ByVal intArray1 As Variant)
    NL = Chr(10)
    Msg = "Array of 1 Dimension with indexed from " & LBound(intArray1) & " To " & UBound(intArray1) & NL
    For j = LBound(intArray1) To UBound(intArray1)
        Msg = Msg & "Element no " & j & " = " & intArray1(j) & NL
    Next
    MsgBox Msg
End Sub
Private Sub Command1_Click()
    Dim x As Variant
    NL = Chr(10)
    x = BridgeTester1.IntArray
    Msg = "Array of 1 Dimension with indexed from " & LBound(x) & " To " & UBound(x) & NL
    For j = LBound(x) To UBound(x)
        Msg = Msg & "Element no " & j & " = " & x(j) & NL
    Next
    If UBound(x) = 4 Then
        Text1.Text = x(0)
        Text2.Text = x(1)
        Text3.Text = x(2)
        Text4.Text = x(3)
        Text5.Text = x(4)
    End If
    MsgBox Msg
End Sub
Private Sub Command10_Click()
    Dim x(5)
    Dim y As Variant
    x(0) = CInt(Text1.Text)
    x(1) = CInt(Text2.Text)
    x(2) = CInt(Text3.Text)
    x(3) = CInt(Text4.Text)
    x(4) = CInt(Text5.Text)
    y = x
    BridgeTester1.CharArray = y
End Sub
Private Sub Command11_Click()
    Dim x As Variant
    NL = Chr(10)
    x = BridgeTester1.BooleanArray
    Msg = "Array of 1 Dimension with indexed from " & LBound(x) & " To " & UBound(x) & NL
    For j = LBound(x) To UBound(x)
        Msg = Msg & "Element no " & j & " = " & x(j) & NL
    Next
    If UBound(x) = 4 Then
        Text1.Text = x(0)
        Text2.Text = x(1)
        Text3.Text = x(2)
        Text4.Text = x(3)
        Text5.Text = x(4)
    End If
    MsgBox Msg
End Sub
Private Sub Command12_Click()
    Dim x(5)
    Dim y As Variant
    If (Text1.Text = "True") Then
        x(0) = True
    Else
        x(0) = False
    End If
    If (Text2.Text = "True") Then
        x(1) = True
    Else
        x(1) = False
    End If
    If (Text3.Text = "True") Then
        x(2) = True
    Else
        x(2) = False
    End If
    If (Text4.Text = "True") Then
        x(3) = True
    Else
        x(3) = False
    End If
    If (Text5.Text = "True") Then
        x(4) = True
    Else
        x(4) = False
    End If
    y = x
    BridgeTester1.BooleanArray = y
End Sub
Private Sub Command13_Click()
    Dim x As Variant
    NL = Chr(10)
    x = BridgeTester1.ByteArray
    Msg = "Array of 1 Dimension with indexed from " & LBound(x) & " To " & UBound(x) & NL
    For j = LBound(x) To UBound(x)
        Msg = Msg & "Element no " & j & " = " & x(j) & NL
    Next
    If UBound(x) = 4 Then
        Text1.Text = x(0)
        Text2.Text = x(1)
        Text3.Text = x(2)
        Text4.Text = x(3)
        Text5.Text = x(4)
    End If
    MsgBox Msg
End Sub
Private Sub Command14_Click()
    Dim x(5)
    Dim y As Variant
    x(0) = CInt(Text1.Text)
    x(1) = CInt(Text2.Text)
    x(2) = CInt(Text3.Text)
    x(3) = CInt(Text4.Text)
    x(4) = CInt(Text5.Text)
    y = x
    BridgeTester1.ByteArray = y
End Sub
Private Sub Command15_Click()
    Dim x As Variant
    NL = Chr(10)
    x = BridgeTester1.ShortArray
    Msg = "Array of 1 Dimension with indexed from " & LBound(x) & " To " & UBound(x) & NL
    For j = LBound(x) To UBound(x)
        Msg = Msg & "Element no " & j & " = " & x(j) & NL
    Next
    If UBound(x) = 4 Then
        Text1.Text = x(0)
        Text2.Text = x(1)
        Text3.Text = x(2)
        Text4.Text = x(3)
        Text5.Text = x(4)
    End If
    MsgBox Msg
End Sub
Private Sub Command16_Click()
    Dim x(5)
    Dim y As Variant
    x(0) = CInt(Text1.Text)
    x(1) = CInt(Text2.Text)
    x(2) = CInt(Text3.Text)
    x(3) = CInt(Text4.Text)
    x(4) = CInt(Text5.Text)
    y = x
    BridgeTester1.ShortArray = y
End Sub
Private Sub Command17_Click()
    If Option1.Value = True Then
        BridgeTester1.intValue = CInt(Text6)
    End If
    If Option2.Value = True Then
        BridgeTester1.CharValue = CInt(Text6)
    End If
    If Option3.Value = True Then
        BridgeTester1.FloatValue = CDbl(Text6)
    End If
    If Option4.Value = True Then
        BridgeTester1.DoubleValue = CDbl(Text6)
    End If
    If Option5.Value = True Then
        BridgeTester1.ByteValue = CInt(Text6)
    End If
    If Option8.Value = True Then
        If (Text6 = "true") Or (Text6 = "True") Then
            BridgeTester1.BooleanValue = True
        Else
            BridgeTester1.BooleanValue = False
        End If
    End If
    If Option7.Value = True Then
        BridgeTester1.LongValue = CInt(Text6)
    End If
    If Option6.Value = True Then
        BridgeTester1.ShortValue = CInt(Text6)
    End If
End Sub
Private Sub Command18_Click()
    If Option1.Value = True Then
        Text6 = BridgeTester1.intValue
    End If
    If Option2.Value = True Then
        Text6 = BridgeTester1.CharValue
    End If
    If Option3.Value = True Then
        Text6 = BridgeTester1.FloatValue
    End If
    If Option4.Value = True Then
        Text6 = BridgeTester1.DoubleValue
    End If
    If Option5.Value = True Then
        Text6 = BridgeTester1.ByteValue
    End If
    If Option8.Value = True Then
        If (BridgeTester1.BooleanValue) Then
            Text6 = "True"
        Else
            Text6 = "False"
        End If
    End If
    If Option7.Value = True Then
        Text6 = BridgeTester1.LongValue
    End If
    If Option6.Value = True Then
        Text6 = BridgeTester1.ShortValue
    End If
End Sub
Private Sub Command19_Click()
    Dim x As Integer
    x = BridgeTester1.getComponentCount()
    MsgBox x
    Dim z As Object
    Set z = BridgeTester1.getComponent(0)
    MsgBox z.toString
End Sub
Private Sub Command2_Click()
    Dim x(5)
    Dim y As Variant
    x(0) = CInt(Text1.Text)
    x(1) = CInt(Text2.Text)
    x(2) = CInt(Text3.Text)
    x(3) = CInt(Text4.Text)
    x(4) = CInt(Text5.Text)
    y = x
    BridgeTester1.IntArray = y
End Sub
Private Sub Command20_Click()
    Dim x As Object
    Set x = BridgeTester1.getLocation()
    MsgBox x.x
    x.x = 12
    MsgBox x.x
End Sub
Private Sub Command21_Click()
    Call BridgeTester1.setIntArrayWithIndex(2, 4)
End Sub
Private Sub Command3_Click()
    Dim x As Variant
    NL = Chr(10)
    x = BridgeTester1.DoubleArray
    Msg = "Array of 1 Dimension with indexed from " & LBound(x) & " To " & UBound(x) & NL
    For j = LBound(x) To UBound(x)
        Msg = Msg & "Element no " & j & " = " & x(j) & NL
    Next
    If UBound(x) = 4 Then
        Text1.Text = x(0)
        Text2.Text = x(1)
        Text3.Text = x(2)
        Text4.Text = x(3)
        Text5.Text = x(4)
    End If
    MsgBox Msg
End Sub
Private Sub Command4_Click()
    Dim x(5)
    Dim y As Variant
    x(0) = CDbl(Text1.Text)
    x(1) = CDbl(Text2.Text)
    x(2) = CDbl(Text3.Text)
    x(3) = CDbl(Text4.Text)
    x(4) = CDbl(Text5.Text)
    y = x
    BridgeTester1.DoubleArray = y
End Sub
Private Sub Command5_Click()
    Dim x As Variant
    NL = Chr(10)
    x = BridgeTester1.StringArray
    Msg = "Array of 1 Dimension with indexed from " & LBound(x) & " To " & UBound(x) & NL
    For j = LBound(x) To UBound(x)
        Msg = Msg & "Element no " & j & " = " & x(j) & NL
    Next
    If UBound(x) = 4 Then
        Text1.Text = x(0)
        Text2.Text = x(1)
        Text3.Text = x(2)
        Text4.Text = x(3)
        Text5.Text = x(4)
    End If
    MsgBox Msg
End Sub
Private Sub Command6_Click()
    Dim x(5)
    Dim y As Variant
    x(0) = Text1.Text
    x(1) = Text2.Text
    x(2) = Text3.Text
    x(3) = Text4.Text
    x(4) = Text5.Text
    y = x
    BridgeTester1.StringArray = y
End Sub
Private Sub Command7_Click()
    Dim x As Variant
    NL = Chr(10)
    x = BridgeTester1.FloatArray
    Msg = "Array of 1 Dimension with indexed from " & LBound(x) & " To " & UBound(x) & NL
    For j = LBound(x) To UBound(x)
        Msg = Msg & "Element no " & j & " = " & x(j) & NL
    Next
    If UBound(x) = 4 Then
        Text1.Text = x(0)
        Text2.Text = x(1)
        Text3.Text = x(2)
        Text4.Text = x(3)
        Text5.Text = x(4)
    End If
    MsgBox Msg
End Sub
Private Sub Command8_Click()
    Dim x(5)
    Dim y As Variant
    x(0) = CDbl(Text1.Text)
    x(1) = CDbl(Text2.Text)
    x(2) = CDbl(Text3.Text)
    x(3) = CDbl(Text4.Text)
    x(4) = CDbl(Text5.Text)
    y = x
    BridgeTester1.FloatArray = y
End Sub
Private Sub Command9_Click()
    Dim x As Variant
    NL = Chr(10)
    x = BridgeTester1.CharArray
    Msg = "Array of 1 Dimension with indexed from " & LBound(x) & " To " & UBound(x) & NL
    For j = LBound(x) To UBound(x)
        Msg = Msg & "Element no " & j & " = " & x(j) & NL
    Next
    If UBound(x) = 4 Then
        Text1.Text = x(0)
        Text2.Text = x(1)
        Text3.Text = x(2)
        Text4.Text = x(3)
        Text5.Text = x(4)
    End If
    MsgBox Msg
End Sub