Option Explicit
Dim sglHours As Single
Dim sglHrsOT As Single
Dim sglHrlyRate As Single
Dim sglGrossPay As Single
Dim sglOTPay As Single
Dim sglSalTotal As Single
Dim sglSalNet As Single
Dim sglTax As Single
Dim sglTaxRate As Single
Dim strName As String, strProv As String
Private Sub cmdCancel_Click()
ClearAll
End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub Form_Load()
ClearAll
'Show current date
lblDate.Caption = Format(Date, " dddd, dd mmmm yyyy")
lstProv.AddItem "Ontario"
lstProv.AddItem "Quebec"
lstProv.AddItem "Manitoba"
lstProv.AddItem "Nova Scotia"
' "Sorted" property of ListBox is set to True
End Sub
Private Sub ClearAll()
'Initialize strings with ""
' and numeric with 0
txtName.Text = ""
txtHrlyRate.Text = 0
txtHours.Text = 0
lblTax.Caption = ""
lblSalGross.Caption = ""
lblSalNet.Caption = ""
lblOTHrs = ""
lblHrsReg = ""
lblSalOT = ""
lblTaxRate = ""
sglGrossPay = 0
sglOTPay = 0
sglSalNet = 0
sglSalTotal = 0
sglHrsOT = 0
lstProv.ListIndex = -1 'means no item in list is selected
End Sub
Private Sub lblDate_Click()
End Sub
Private Sub mnuCenter_Click()
'Me refers to current active form
Me.Width = 6500
Me.Height = 7000
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub
Private Sub mnuForm2_Click()
Load frmPay2
frmPay2.Show
End Sub
Private Sub mnuPrint_Click()
Me.PrintForm
End Sub
Private Sub mnuMax_Click()
Me.WindowState = 2
End Sub
Private Sub mnuRestore_Click()
Me.WindowState = 0
End Sub
Private Sub txtName_Change()
strName = txtName.Text
End Sub
Private Sub txtName_GotFocus()
FocusIn
End Sub
Private Sub txtHours_Change()
If Not IsNumeric(txtHours.Text) Then
MsgBox ("Must be numeric!")
End If
End Sub
Private Sub txtHours_GotFocus()
FocusIn
End Sub
Private Sub txtHrlyRate_Change()
If Not IsNumeric(txtHrlyRate.Text) Then
MsgBox ("Must be numeric!")
End If
End Sub
Private Sub txtHrlyRate_GotFocus()
FocusIn
End Sub
Private Sub txtHrlyRate_Validate(Cancel As Boolean)
If txtHrlyRate < 1 Or txtHrlyRate > 50 Then
MsgBox ("Hourly rate must be between 1 and 50")
Cancel = True
'cancel = true keeps cursor in textbox
'until valid value is input
End If
End Sub
Private Sub txtHours_Validate(Cancel As Boolean)
If txtHours < 1 Or txtHours > 100 Then
MsgBox ("Hours must be between 1 and 100")
Cancel = True
End If
End Sub
Private Sub lstProv_Click()
strProv = lstProv.Text
'Whenever possible, use Select Case instead of If...Then...Else
Select Case strProv
Case "Ontario"
sglTaxRate = 0.3
Case "Quebec"
sglTaxRate = 0.28
Case Else
sglTaxRate = 0.33
End Select
End Sub
Private Sub cmdCalc_Click()
If txtName.Text = "" Then
MsgBox ("You must enter an employee name")
txtName.SetFocus 'put cursor in textbox
Exit Sub
End If
If txtHours.Text = 0 Then
MsgBox ("Enter the hours, between 1 and 100")
txtHours.SetFocus
Exit Sub
End If
If txtHrlyRate.Text = 0 Then
MsgBox ("Enter the hourly rate, between 1 and 50")
txtHrlyRate.SetFocus
Exit Sub
End If
sglHrlyRate = txtHrlyRate.Text
sglHours = txtHours.Text
sglGrossPay = sglHours * sglHrlyRate
'Overtime pay is calculated at 1.5 * hourly rate
'for all hours over 40
If sglHours > 40 Then
sglGrossPay = 40 * sglHrlyRate
sglHrsOT = sglHours - 40
sglHours = 40
sglOTPay = sglHrsOT * sglHrlyRate * 1.5
End If
sglSalTotal = sglGrossPay + sglOTPay
sglTax = sglSalTotal * sglTaxRate
sglSalNet = sglSalTotal - sglTax
lblHrsReg.Caption = Format(sglHours, "#0.00")
lblSalGross.Caption = Format(sglGrossPay, "currency")
lblSalOT.Caption = Format(sglOTPay, "currency")
lblOTHrs.Caption = Format(sglHrsOT, "#0.00")
lblTax.Caption = Format(sglTax, "currency")
lblSalNet.Caption = Format(sglSalNet, "currency")
lblTaxRate.Caption = Format(sglTaxRate, "percent")
End Sub
Private Sub FocusIn()
ActiveControl.SelStart = 0
ActiveControl.SelLength = Len(ActiveControl.Text)
End Sub
About Online Vb.net Compiler
Try our Online Vb.net Compiler (Version Mono v6.8.0) to Edit, Run, and Share your Vb.net Code directly from your browser. This online development environment provides you the latest version Mono v6.8.0.
How to use Online Vb.net Compiler?
Write and Execute Code
- Write your program (or, paste it) directly under the "Source Code" tab.
- If you want to save your program, go to the "Project" menu and save it.
- You can directly execute your program without saving it by clicking on on "Execute" button.
User Input
The latest version of Coding Ground allows to provide program input at run time from the termnial window exactly the same way as you run your program at your own computer. So simply run a program and provide your program input (if any) from the terminal window available in the right side.
Online Vb.net Compiler: Keyboard Shortcuts
The following are the keyword shortcut of this Online Vb.net Compiler:
| Shortcut | Description |
|---|
| ⌘ + Enter | Run the program |
| ⌘ + S | Save Project (Login Required) |
| ⇧ + ⌘ + S | Save As Project |
| ⌘ + P | New Project |
| ⌘ + G | Share Project |
| ⌘ + Z | Undo Editing |
| ⌘ + Y | Redo Editing |
| ⌘ + A | Select All Text |
| ⌘ + X | Cut Selected Text |
| ⌘ + C | Copy Selected Text |
| ⌘ + V | Paste Copied Text |
| ⌘ + F | Search Text |
| ⌘ + ⌥ + F | Replace Text |
| Shortcut | Description |
|---|
| Ctrl + Enter | Run the program |
| Ctrl + S | Save Project |
| Shift + Ctrl + S | Save As Project |
| Ctrl + G | Share Project |
| Ctrl + Z | Undo Editing |
| Ctrl + Y | Redo Editing |
| Ctrl + A | Select All Text |
| Ctrl + X | Cut Selected Text |
| Ctrl + C | Copy Selected Text |
| Ctrl + V | Paste Copied Text |
| Ctrl + F | Search Text |
| Ctrl + H | Replace Text |
Online Vb.net Compiler: Save and Share Vb.net Code (Project)
Save Vb.net Project Online
You can save your Vb.net Project with us so that you can access this project later on. To save a project you will need to create a login Id with us. So before you save a project, please create a login Id using a link given at the top right corner of this page.
Share Vb.net Project Online
You can use this feature to share your Vb.net Code with your teachers, classmates and colleagues. Just click Share Button and it will create a short link, which can be shared through Email, WhatsApp or even through Social Media. A shared link will be deleted if it has been passive for almost 3 months.
More Features of Online Vb.net Compiler
- Theme – You can change the current editor's theme from the "Editor Theme" option under "Settings" menu.
- Font Size – You can change the font size of the editor /compiler from from the "Font Size" option under "Settings" menu.
- Tab Size – You can change the tab size from the "Tab Size" option under "Settings" Menu.
- Show/Hide Line Numbers – You can show/hide the line number with the code from the "Show Line Numbers" or "Hide Line Numbers" option under "Settings" Menu.
- And, many more.
Benefits of Using Online Vb.net Compiler
There are several benefits of using the Online Vb.net Compiler to run your Vb.net code:
- Platform independence: You can run your code from any device without taking care of operating systems.
- Convenience: You don't need to install anything for using this.
- No setup required: There is no need for additional setup to run your code.
- Updated version: Our online compiler/editors/terminals are the latest up-to-date.
