Now that you are a bit more familiar with the Visual Basic design environment, let us run few Visual Basic Applications.
Exercise 1.3 Running the Finance Calculator Demo
- Create a Folder with the name Finance on your Hard Drive. Copy the Finance Project Source Code, Paste them into Notepad and save them into the Finance folder with the Filename and extension specified:
Project File: Finance.vbp
Type=Exe Form=Form1.frm Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation IconForm="Form1" Startup="Form1" Command32="" Name="Project1" HelpContextID="0" CompatibleMode="0" MajorVer=1 MinorVer=0 RevisionVer=0 AutoIncrementVer=0 ServerSupportFiles=0 VersionCompanyName="Home" CompilationType=0 OptimizationType=0 FavorPentiumPro(tm)=0 CodeViewDebugInfo=0 NoAliasing=0 BoundsCheck=0 OverflowCheck=0 FlPointCheck=0 FDIVCheck=0 UnroundedFP=0 StartMode=0 Unattended=0 ThreadPerObject=0 MaxNumberOfThreads=1 [MS Transaction Server] AutoRefresh=1Project File: Finance.vbw
Form1 = 138, 622, 585, 947, C, 0, 0, 0, 0,Project File: Form1.frm
VERSION 5.00 Begin VB.Form Form1 Caption = "New House Payment" ClientHeight = 4665 ClientLeft = 5565 ClientTop = 2115 ClientWidth = 6315 LinkTopic = "Form1" ScaleHeight = 4665 ScaleWidth = 6315 Begin VB.CommandButton cmdCompute Caption = "Compute it" Height = 495 Left = 1440 TabIndex = 3 Top = 3840 Width = 2175 End Begin VB.TextBox txtYears Height = 495 Left = 3480 TabIndex = 2 Top = 1800 Width = 1815 End Begin VB.TextBox txtRate Height = 495 Left = 3480 TabIndex = 1 Top = 960 Width = 1815 End Begin VB.TextBox txtBorrow Height = 495 Left = 3480 TabIndex = 0 Top = 240 Width = 1815 End Begin VB.Label Label4 Caption = "Monthly Payments" Height = 495 Left = 480 TabIndex = 8 Top = 2640 Width = 2655 End Begin VB.Label Label3 Caption = "Life of Loan (in years)" Height = 495 Left = 480 TabIndex = 7 Top = 1800 Width = 2655 End Begin VB.Label Label2 Caption = "Yearly interest rate (i.e. 6.5)" Height = 495 Left = 480 TabIndex = 6 Top = 960 Width = 2655 End Begin VB.Label Label1 Caption = "Borrow" Height = 495 Left = 480 TabIndex = 5 Top = 240 Width = 2655 End Begin VB.Label lblPayment BorderStyle = 1 'Fixed Single Height = 495 Left = 3480 TabIndex = 4 Top = 2640 Width = 1815 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub cmdCompute_Click() Dim yearIRate As Single Dim nperiod As Integer Dim borrow As Currency Dim payment As Currency yearIRate = CSng(txtRate.Text) / (12 * 100) nperiod = CInt(txtYears.Text) * 12 borrow = CCur(txtBorrow.Text) payment = Pmt(yearIRate, nperiod, -borrow, 0, 0) lblPayment.Caption = Format(payment, "Currency") End Sub- Start Visual Basic from Windows.
- Select Open Project from File Menu. If a dialog box appears asking you to save a file, click No.
- Browse to the Finance folder, where you have saved Finance Project files and select Finance.vbp File and click the Open button.
- Choose Run, Start from the Visual Basic menu, or press F5. This runs the Visual Basic application.
- Enter Value 100,000 into the Text Control with the label borrow
- Enter Value 7.5 into the Text control with the label Yearly Interest Rate.
- Enter Value 30 into the Text control with the label Life of loan.
- Click on the Command Button to Calculate and display the Monthly Payments.
- Choose Options, Exit to exit the application and return to the Visual Basic design environment.
- Choose File, Remove Project to remove the Project from the design environment.
Exercise 1.4 Running the Highest and Lowest Score Values Demo
- Create a Folder with the name Score on your Hard Drive. Copy the Score Project Source Code, Paste them into Notepad and save them into the Score folder with the Filename and extension specified:
Project File: HighLow.vbp
Type=Exe Form=Form1.frm Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation IconForm="Form1" Startup="Form1" Command32="" Name="Project1" HelpContextID="0" CompatibleMode="0" MajorVer=1 MinorVer=0 RevisionVer=0 AutoIncrementVer=0 ServerSupportFiles=0 VersionCompanyName="Home" CompilationType=0 OptimizationType=0 FavorPentiumPro(tm)=0 CodeViewDebugInfo=0 NoAliasing=0 BoundsCheck=0 OverflowCheck=0 FlPointCheck=0 FDIVCheck=0 UnroundedFP=0 StartMode=0 Unattended=0 ThreadPerObject=0 MaxNumberOfThreads=1 [MS Transaction Server] AutoRefresh=1Project File: HighLow.vbw
Form1 = 648, 202, 1253, 947, I, 0, 0, 0, 0,Project File: Form1.frm
VERSION 5.00 Begin VB.Form Form1 Caption = "Get Score" ClientHeight = 3765 ClientLeft = 5385 ClientTop = 2310 ClientWidth = 7785 LinkTopic = "Form1" ScaleHeight = 3765 ScaleWidth = 7785 Begin VB.TextBox txtScore Height = 495 Index = 1 Left = 1080 TabIndex = 0 Top = 240 Width = 1215 End Begin VB.TextBox txtScore Height = 495 Index = 2 Left = 2400 TabIndex = 1 Top = 240 Width = 1215 End Begin VB.TextBox txtScore Height = 495 Index = 3 Left = 3720 TabIndex = 2 Top = 240 Width = 1215 End Begin VB.TextBox txtScore Height = 495 Index = 4 Left = 5040 TabIndex = 3 Top = 240 Width = 1215 End Begin VB.TextBox txtScore Height = 495 Index = 5 Left = 6360 TabIndex = 4 Top = 240 Width = 1215 End Begin VB.TextBox txtScore Height = 495 Index = 14 Left = 5040 TabIndex = 13 Top = 1440 Width = 1215 End Begin VB.TextBox txtScore Height = 495 Index = 13 Left = 3720 TabIndex = 12 Top = 1440 Width = 1215 End Begin VB.TextBox txtScore Height = 495 Index = 12 Left = 2400 TabIndex = 11 Top = 1440 Width = 1215 End Begin VB.TextBox txtScore Height = 495 Index = 11 Left = 1080 TabIndex = 10 Top = 1440 Width = 1215 End Begin VB.TextBox txtScore Height = 495 Index = 10 Left = 6360 TabIndex = 9 Top = 840 Width = 1215 End Begin VB.TextBox txtScore Height = 495 Index = 9 Left = 5040 TabIndex = 8 Top = 840 Width = 1215 End Begin VB.TextBox txtScore Height = 495 Index = 8 Left = 3720 TabIndex = 7 Top = 840 Width = 1215 End Begin VB.TextBox txtScore Height = 495 Index = 7 Left = 2400 TabIndex = 6 Top = 840 Width = 1215 End Begin VB.TextBox txtScore Height = 495 Index = 6 Left = 1080 TabIndex = 5 Top = 840 Width = 1215 End Begin VB.CommandButton cmdScores Caption = "Set High and Low Scores" Height = 495 Left = 600 TabIndex = 15 Top = 2880 Width = 2655 End Begin VB.TextBox txtScore Height = 495 Index = 0 Left = 6360 TabIndex = 14 Top = 1440 Width = 1215 End Begin VB.Label Label5 Caption = "Team 3" Height = 495 Left = 120 TabIndex = 22 Top = 1440 Width = 855 End Begin VB.Label Label4 Caption = "Team 1" Height = 495 Left = 120 TabIndex = 21 Top = 240 Width = 855 End Begin VB.Label Label3 Caption = "Team 2" Height = 495 Left = 120 TabIndex = 20 Top = 840 Width = 855 End Begin VB.Label lblLow BorderStyle = 1 'Fixed Single Height = 495 Left = 5640 TabIndex = 19 Top = 2880 Width = 1935 End Begin VB.Label lblHigh BorderStyle = 1 'Fixed Single Height = 495 Left = 5640 TabIndex = 18 Top = 2280 Width = 1935 End Begin VB.Label Label2 Caption = "Low Score is" Height = 495 Left = 3600 TabIndex = 17 Top = 3000 Width = 1815 End Begin VB.Label Label1 Caption = "High Score is" Height = 495 Left = 3600 TabIndex = 16 Top = 2400 Width = 1815 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub cmdScores_Click() Static score(0 To 14) As Integer Dim num As Integer Dim High As Integer Dim Low As Integer For num = 0 To 14 score(num) = Val(txtScore(num).Text) Next num High = High_Score(score(), num - 1) lblHigh.Caption = Str$(High) Low = Low_Score(score(), num - 1) lblLow.Caption = Str$(Low) End Sub Private Function High_Score(score() As Integer, num As Integer) Dim max As Integer Dim High As Integer High = 0 For max = 0 To num If (score(max) > High) Then High = score(max) End If Next max High_Score = High End Function Private Function Low_Score(score() As Integer, num As Integer) Dim min As Integer Dim Low As Integer Low = 1000 For min = 0 To num If (score(min) < Low) Then Low = score(min) End If Next min Low_Score = Low End Function- Start Visual Basic from Windows.
- Select Open Project from File Menu. If a dialog box appears asking you to save a file, click No.
- Browse to the Score folder, where you have saved the Score Project files, and select HighLow.vbp File and click the Open button.
- Choose Run, Start from the Visual Basic menu, or press F5. This runs the Visual Basic application.
- Enter some random numbers into the 15 Text Boxes given with the labels Team 1, Team 2 and Team 3.
- Click on the Command Button to find the Highest and Lowest score values and display them.
- Choose Options, Exit to exit the application and return to the Visual Basic design environment.
- Choose File, Remove Project to remove the Project from the design environment.
Exercise 1.5 Running the Race Pace Demo
- Create a Folder with the name Race on your Hard Drive. Copy the Race Project Source Code, Paste them into Notepad and save them into the Score folder with the Filename and extension specified:
Project File: Race.vbp
Type=Exe Form=..\Highlow\Race\Form1.frm Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation Startup="Form1" Command32="" Name="Project1" HelpContextID="0" CompatibleMode="0" MajorVer=1 MinorVer=0 RevisionVer=0 AutoIncrementVer=0 ServerSupportFiles=0 VersionCompanyName="Home" CompilationType=0 OptimizationType=0 FavorPentiumPro(tm)=0 CodeViewDebugInfo=0 NoAliasing=0 BoundsCheck=0 OverflowCheck=0 FlPointCheck=0 FDIVCheck=0 UnroundedFP=0 StartMode=0 Unattended=0 ThreadPerObject=0 MaxNumberOfThreads=1 [MS Transaction Server] AutoRefresh=1Project File: Race.vbw
Form1 = 136, 117, 583, 940, , 0, 0, 0, 0,Project File: Form1.frm
VERSION 5.00 Begin VB.Form Form1 Caption = "Convert Race Result" ClientHeight = 4155 ClientLeft = 2040 ClientTop = 1890 ClientWidth = 6585 LinkTopic = "Form1" ScaleHeight = 4155 ScaleWidth = 6585 Begin VB.CommandButton cmdClear Caption = "Clear" Height = 495 Left = 840 TabIndex = 7 Top = 3240 Width = 1575 End Begin VB.TextBox txtTime Height = 495 Left = 4680 TabIndex = 3 Top = 720 Width = 1575 End Begin VB.Frame Frame1 Caption = "Click on one" Height = 2175 Left = 480 TabIndex = 0 Top = 600 Width = 2415 Begin VB.OptionButton Opt8K Caption = "8 K Run/Walk" Height = 255 Left = 360 TabIndex = 2 Top = 1440 Width = 1815 End Begin VB.OptionButton Opt10K Caption = "10 K Run/Walk" Height = 255 Left = 360 TabIndex = 1 Top = 720 Width = 1815 End End Begin VB.Label Label3 Caption = "Pace [in minutes per mile]" Height = 855 Left = 3000 TabIndex = 6 Top = 1800 Width = 1335 End Begin VB.Label lblPace Height = 495 Left = 4680 TabIndex = 5 Top = 1920 Width = 1575 End Begin VB.Label Label1 Caption = "Enter Time in Minutes [i.e. 50.5] and press Enter" Height = 855 Left = 3000 TabIndex = 4 Top = 720 Width = 1335 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub cmdClear_Click() lblPace.Caption = "" txtTime.Text = "" txtTime.SetFocus End Sub Private Sub txtTime_KeyPress(KeyAscii As Integer) Dim result As Single Dim newtime As Single If KeyAscii = vbKeyReturn Then newtime = CSng(txtTime.Text) result = mph(newtime) lblPace.Caption = Str$(result) Else Exit Sub End If End Sub Function mph(newtime As Single) As Single If (Opt10K = True And newtime > 0) Then mph = CSng(newtime / 6.2) ElseIf (Opt8K = True And newtime > 0) Then mph = CSng(newtime / 5.1) End If txtTime.SetFocus End Function- Start Visual Basic from Windows.
- Select Open Project from File Menu. If a dialog box appears asking you to save a file, click No.
- Browse to the Race folder, where you have saved the Race Project Files and select Race.vbp File and click Open button.
- Choose Run, Start from the Visual Basic menu, or press F5. This runs the Visual Basic application.
- Click on one of the Option Buttons to select it.
- Enter the value 48.45 into the Text Box.
- Press Enter key to calculate the pace of race in miles required per minute and display it in the label below the Text Box.
- Click on the Command Button to clear the values and try it on a different set of values
- Choose Options, Exit to exit the application and return to the Visual Basic design environment.
- Choose File, Remove Project to remove the Project from the design environment.
We will learn how to design these Forms and programs at a later stage.
No comments:
Post a Comment