Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wg_lib / arryfrm1.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-09-06 | 9.9 KB | 359 lines

VERSION 2.00 Begin Form ArryFrm1 BackColor = &H00C0C0C0& Caption = "Numeric Array Ops" ClientHeight = 3225 ClientLeft = 1560 ClientTop = 1905 ClientWidth = 5355 Height = 3630 Left = 1500 LinkMode = 1 'Source LinkTopic = "Form2" ScaleHeight = 3225 ScaleWidth = 5355 Top = 1560 Width = 5475 Begin CommandButton TotCmd Caption = "Total" Height = 300 Left = 255 TabIndex = 27 Top = 2355 Width = 1185 End Begin TextBox NdxVal Height = 300 Left = 1695 TabIndex = 29 Text = "1" Top = 1755 Width = 825 End Begin CommandButton NdxCmd Caption = "Init NDX" Height = 300 Left = 255 TabIndex = 26 Top = 1755 Width = 1170 End Begin TextBox IncrVal Height = 300 Left = 1680 TabIndex = 25 Text = "1" Top = 1155 Width = 825 End Begin CommandButton IncrCmd Caption = "Increment" Height = 300 Left = 255 TabIndex = 24 Top = 1155 Width = 1185 End Begin TextBox InitVal Height = 315 Left = 1680 TabIndex = 23 Text = "1" Top = 540 Width = 825 End Begin CommandButton InitCmd Caption = "Initialize" Height = 300 Left = 225 TabIndex = 22 Top = 555 Width = 1200 End Begin VScrollBar VScroll Height = 2535 Left = 2955 TabIndex = 30 Top = 465 Width = 240 End Begin Label Ilbl BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Height = 270 Index = 10 Left = 4155 TabIndex = 11 Top = 2745 Width = 915 End Begin Label Vlbl BorderStyle = 1 'Fixed Single Height = 270 Index = 10 Left = 3180 TabIndex = 21 Top = 2745 Width = 915 End Begin Label Ilbl BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Height = 270 Index = 9 Left = 4155 TabIndex = 10 Top = 2490 Width = 915 End Begin Label Vlbl BorderStyle = 1 'Fixed Single Height = 270 Index = 9 Left = 3180 TabIndex = 20 Top = 2490 Width = 915 End Begin Label TotVal BorderStyle = 1 'Fixed Single Height = 300 Left = 1695 TabIndex = 28 Top = 2340 Width = 825 End Begin Label Ilbl BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Height = 270 Index = 8 Left = 4155 TabIndex = 9 Top = 2235 Width = 915 End Begin Label Vlbl BorderStyle = 1 'Fixed Single Height = 270 Index = 8 Left = 3180 TabIndex = 19 Top = 2235 Width = 915 End Begin Label Ilbl BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Height = 270 Index = 7 Left = 4155 TabIndex = 8 Top = 1980 Width = 915 End Begin Label Vlbl BorderStyle = 1 'Fixed Single Height = 270 Index = 7 Left = 3180 TabIndex = 18 Top = 1980 Width = 915 End Begin Label Ilbl BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Height = 270 Index = 6 Left = 4155 TabIndex = 7 Top = 1725 Width = 915 End Begin Label Vlbl BorderStyle = 1 'Fixed Single Height = 270 Index = 6 Left = 3180 TabIndex = 17 Top = 1725 Width = 915 End Begin Label Ilbl BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Height = 270 Index = 5 Left = 4155 TabIndex = 6 Top = 1470 Width = 915 End Begin Label Vlbl BorderStyle = 1 'Fixed Single Height = 270 Index = 5 Left = 3180 TabIndex = 16 Top = 1470 Width = 915 End Begin Label Ilbl BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Height = 270 Index = 4 Left = 4155 TabIndex = 5 Top = 1215 Width = 915 End Begin Label Vlbl BorderStyle = 1 'Fixed Single Height = 270 Index = 4 Left = 3180 TabIndex = 15 Top = 1215 Width = 915 End Begin Label Ilbl BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Height = 270 Index = 3 Left = 4155 TabIndex = 4 Top = 960 Width = 915 End Begin Label Vlbl BorderStyle = 1 'Fixed Single Height = 270 Index = 3 Left = 3180 TabIndex = 14 Top = 960 Width = 915 End Begin Label Ilbl BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Height = 270 Index = 2 Left = 4155 TabIndex = 3 Top = 705 Width = 915 End Begin Label Vlbl BorderStyle = 1 'Fixed Single Height = 270 Index = 2 Left = 3180 TabIndex = 13 Top = 705 Width = 915 End Begin Label Ilbl BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Height = 270 Index = 1 Left = 4155 TabIndex = 2 Top = 450 Width = 915 End Begin Label Vlbl BorderStyle = 1 'Fixed Single Height = 270 Index = 1 Left = 3180 TabIndex = 12 Top = 450 Width = 915 End Begin Label Label2 BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = " Index" Height = 270 Left = 4155 TabIndex = 1 Top = 195 Width = 915 End Begin Label Label1 BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = " Value" Height = 270 Left = 3180 TabIndex = 0 Top = 195 Width = 915 End DefInt A-Z Option Base 1 Dim TopNDx As Integer Dim Arry() As Integer Sub Command1_Click () End Sub Sub DispArray () For x = 0 To 9 ILbl(x + 1).Caption = Str$(x + TopNDx) VLbl(x + 1).Caption = Str$(Arry(x + TopNDx)) Next x End Sub Sub Form_Load () TopNDx = 1 ReDim Arry(1 To 32700) Call DispArray VScroll.Min = 1 VScroll.Max = 32700 VScroll.Value = TopNDx VScroll.LargeChange = 1000 End Sub Sub Form_Paint () ConvexFrm ArryFrm1, 5 ConcaveCtl InitVal, 3 ConcaveCtl IncrVal, 3 ConcaveCtl NDXVal, 3 ConcaveCtl TotVal, 4 End Sub Sub IncrCmd_Click () Ival = Val(IncrVal.Text) Call ArrayIncrI(Arry(1), Ival, UBound(Arry)) Call DispArray End Sub Sub InitCmd_Click () Ival = Val(InitVal.Text) If Ival > 32700 Then Ival = 32700 Call ArrayInitI(Arry(1), Ival, UBound(Arry)) Call DispArray End Sub Sub NdxCmd_Click () v& = Val(NDXVal.Text) If v& > 32700 Then Ival = Int(v& - 32700) NDXVal.Text = Str$(Ival) Else Ival = v& End If ArrayInitNDX Arry(1), Ival, UBound(Arry) Call DispArray End Sub Sub TotCmd_Click () v& = ArrayTotI&(Arry(1), UBound(Arry)) TotVal.Caption = Format$(v&) End Sub Sub TotCmd_LostFocus () TotVal.Caption = "" End Sub Sub VScroll_Change () TopNDx = VScroll.Value Call DispArray End Sub