fork download 
  1. Option Explicit On
  2. Option Strict Off
  3. Option Infer Off
  4.  
  5. Public Class frmMain
  6.  
  7.     Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
  8.         'Clear boxes
  9.  
  10.         lblDollarsAmount.Text = String.Empty
  11.         lblQuartersAmount.Text = String.Empty
  12.         lblDimesAmount.Text = String.Empty
  13.         lblNickelsAmount.Text = String.Empty
  14.         lblPenniesAmount.Text = String.Empty
  15.         txtOwed.Text = String.Empty
  16.         txtPaid.Text = String.Empty
  17.         lblAmountDue.Text = String.Empty
  18.         txtOwed.Focus()
  19.  
  20.     End Sub
  21.  
  22.     Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
  23.         'Close application' 
  24.         Me.Close()
  25.     End Sub
  26.  
  27.     Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
  28.         ' Find Difference between Total Price and Total Received 
  29.         lblAmountDue.Text = Val(txtPaid.Text) - Val(txtOwed.Text)
  30.         Dim intChangeAmount As Integer = lblAmountDue.Text * 100
  31.  
  32.         'Declare Integers  
  33.         Dim intDollarsBack As Integer
  34.         Dim intQuartersBack As Integer
  35.         Dim intDimesBack As Integer
  36.         Dim intNickelsBack As Integer
  37.         Dim intPenniesBack As Integer
  38.  
  39.         ' Change Values 
  40.         Const intDollarValue As Integer = 100
  41.         Const intQuarterValue As Integer = 25
  42.         Const intDimeValue As Integer = 10
  43.         Const intNickelValue As Integer = 5
  44.         Const intPennyValue As Integer = 1
  45.  
  46.         'Dollars 
  47.         intDollarsBack = CInt(Val(intChangeAmount \ intDollarValue))
  48.         intChangeAmount = intChangeAmount - Val(Val(intDollarsBack) * intDollarValue)
  49.         lblDollarsAmount.Text = intDollarsBack.ToString
  50.  
  51.         'Quarters 
  52.         intQuartersBack = CInt(Val(intChangeAmount \ intQuarterValue))
  53.         intChangeAmount = intChangeAmount - Val(Val(intQuartersBack) * intQuarterValue)
  54.         lblQuartersAmount.Text = intQuartersBack.ToString
  55.  
  56.         'Dimes 
  57.         intDimesBack = CInt(Val(intChangeAmount \ intDimeValue))
  58.         intChangeAmount = intChangeAmount - Val(Val(intDimesBack) * intDimeValue)
  59.         lblDimesAmount.Text = intDimesBack.ToString
  60.  
  61.         'Nickels 
  62.         intNickelsBack = CInt(Val(intChangeAmount \ intNickelValue))
  63.         intChangeAmount = intChangeAmount - Val(Val(intNickelsBack) * intNickelValue)
  64.         lblNickelsAmount.Text = intNickelsBack.ToString
  65.  
  66.         'Pennies 
  67.         intPenniesBack = CInt(Val(intChangeAmount \ intPennyValue))
  68.         intChangeAmount = intChangeAmount - Val(Val(intPenniesBack) * intPennyValue)
  69.         lblPenniesAmount.Text = intPenniesBack.ToString
  70.  
  71.     End Sub
  72. End Class
  73.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
compilation info 
Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/zIGwVv/prog.vb (3,13) : Error VBNC30206: 'Option' must be followed by 'Compare', 'Explicit', or 'Strict'.
Error recovery not implemented yet.
There were 1 errors and 0 warnings.
Compilation took 00:00:00.6316220
stdout 
Standard output is empty
https://ideone.com/GfGqh
language:
VB.NET (mono-3.10)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!