Visual Basic

Imports System.Diagnostics
Imports Nini.Config
Imports System.IO

Public Class CompanySetup
    '  Inherits System.Windows.Forms.Form
Public Shared fileBanner As String
Private sourc As IniConfigSource
Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click

        With bannerFile
            .CheckFileExists = True
            .ShowReadOnly = False
            .Filter = "All Files|*.*|Bitmap Files (*)|*.bmp;*.gif;*.jpg"
            .FilterIndex = 2
            If .ShowDialog = DialogResult.OK Then
                bannerBox.Image = Image.FromFile(.FileName)
                fileBanner = bannerFile.FileName.ToString

            End If
        End With
    End Sub
     
      
sourc.Configs("General").Set("Imgpic", strimg)
     

sourc.Configs("General").Set("CoName", txtCoName.Text)
        sourc.Configs("General").Set("Imgpic", fileBanner)
        sourc.Configs("General").Set("Addr", txtAddr.Text)
        sourc.Configs("General").Set("Phone", txtPhone.Text)
        sourc.Configs("General").Set("Fax", txtFax.Text)
        sourc.Configs("General").Set("Email", txtEmail.Text)
        sourc.Configs("General").Set("Vat", txtVat.Text)
        sourc.Configs("General").Set("Btm1", txtBtm1.Text)
        sourc.Configs("General").Set("Btm2", txtBtm2.Text)
        sourc.Configs("General").Set("Btm3", txtBtm3.Text)
        sourc.Configs("General").Set("Btm4", txtBtm4.Text)


        sourc.Save()

Private Sub CompanySetup_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Load the configuration source file
        sourc = New IniConfigSource("dvinv.ini")
        'sourc.CaseSensitive = False

        ' Set the config to the Logging section of the INI file.
        Dim config As IConfig
        config = sourc.Configs("General")

        ' Load up some normal configuration values
        txtCoName.Text = config.Get("CoName")
        fileBanner = config.Get("Imgpic")
        '  MsgBox(config.Get("Imgpic"))

        Try
            bannerBox.Image = Image.FromFile(fileBanner)
        Catch ex As Exception
        End Try
        txtAddr.Text = config.Get("Addr")
        txtPhone.Text = config.Get("Phone")
        txtFax.Text = config.Get("Fax")
        txtEmail.Text = config.Get("Email")
        txtVat.Text = config.Get("Vat")
        txtBtm1.Text = config.Get("Btm1")
        txtBtm2.Text = config.Get("Btm2")
        txtBtm3.Text = config.Get("Btm3")
        txtBtm4.Text = config.Get("Btm4")



    End Sub

Private Sub btnCal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCal.Click

'Variables
Dim StrArr() As String
Dim Str As String
Dim count As Integer
Dim lblStack() As Label
Dim i As Integer


    Str = txtInput.Text 'store string into variable
    StrArr = Str.Split(" ") 'use split to seperate words by space

    For count = 0 To StrArr.Length - 1
        'add user entered values to list box
        lstDisplay.Items.Add(StrArr(count))

    Next    'end for

    count = 0   'set counter back to 0

    For i = 0 To StrArr.Length - 1
        lblDis1.Text = StrArr(0) 'gets the first value from the array
        lblDis2.Text = StrArr(1) 'gets the second value from the array
        lblDis3.Text = StrArr(2) ' and so on and so on...........
        lblDis4.Text = StrArr(3)
        lblDis5.Text = StrArr(4)

    Next 'OKAY THIS IS WHERE I KNOW IF THE USER ENTER ONLY 3 VALUES IN THE TEXT BOX MY PROGRAM WOULD CRASH
         'BECAUSE THE ARRAY ONLY HAS 3 ITEMS BEING STORED IN (0)(1)AND (2) SO WHAT IS A BETTER WAY OF
         'DOING THIS LOOP AND SENDING OUT EACH ELEMENT TO THE LABELS.
End Sub

'This is the Standard Module'
Option Strict On

Module Module1

Public Sub AddToOrder(ByVal intTotalSales As Integer, ByRef dblSubtotal As Double)

        dblSubtotal = dblSubtotal + intTotalSales

End Sub

Public Function Taxes() As Double

Dim dbltaxRate As Double = 0.07
Dim dblSubtotal As Double

Return CDbl(dblSubtotal * dbltaxRate)


End Function


End Module

Option Strict On
Public Class frmDisplay

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click

        'Closes the Bill 
        Me.Close()

    End Sub

    Private Sub frmDisplay_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'When the form is loaded, the date is going to appear as well as the total amount due for all coffee ordered'

        Dim todayDate As Date = Today
        txtBoxDate.Text = todayDate.ToString

        'declare'
        Dim decSalesTax As Decimal
        Dim decSubtotal As Decimal
        Dim dblSubtotal As Double
        Dim intTotalSales As Integer
        
        'calculate'
        decSalesTax = CDec(Taxes())
        decSubtotal = AddToOrder(intTotalSales, dblSubtotal)

        'display'
        txtBoxSubtotal.Text = decSubtotal.ToString
        txtBoxTax.Text = decSalesTax.ToString
        txtBoxTotal.Text = txtBoxSubtotal.Text + txtBoxTax.Text


    End Sub


End Class