Visual Basic

IvanIT wrote:

Any other pointers on how to assign variables to each part of the name after the split

Enum PathParts
  Originator = 0
  XY = 1
  .......
  .......
  .......
End Enum

' OR
Public Const Originator = 0
Public Const XY = 1
.......
.......
.......

' Assuming your String Array is called SplitPath
' you can then refer to the different parts like this
SplitPath(PathParts.Originator)    ' SplitPath(Originator) if you use Constants
SplitPath(PathParts.XY)    ' SplitPath(XY) if you use Constants

<br />
Module nameSplit<br />
<br />
    'sectionize the name of claims file to ID program locationID<br />
<br />
    ' The file system path we need to split<br />
    Dim nuFile As String = frmMain.lblClaimsFile.Text<br />
<br />
    ' Split the string on the period character<br />
    Dim segments As String() = nuFile.Split(".")<br />
<br />
    Public ProgLoc As String = segments(3)<br />
<br />
    <br />
'ID location Code by program code<br />
        Dim progCode As String<br />
        If ProgLoc = "02" Then<br />
            progCode = "6355"<br />
        End If<br />
<br />
End Module<br />

Dave Kreskowiak wrote:

should NOT be using the Strings in your TextBox's directly in your calculations

Public Class ChargingInfo
	Private bHours As Int32    'base hours
	Private bRate As Double    'base rate
	Private aRate As Double    'additional rate

	Public Property BaseHours() As Int32
		Get
			Return Me.bHours
		End Get
		Set(ByVal value As Int32)
			Me.bHours = value
		End Set
	End Property


	Public Property BaseRate() As Double
		Get
			Return Me.bRate
		End Get
		Set(ByVal value As Double)
			Me.bRate = value
		End Set
	End Property

	Public Property AdditionalRate() As Double
		Get
			Return Me.aRate
		End Get
		Set(ByVal value As Double)
			aRate = value
		End Set
	End Property

End Class

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ci As ChargingInfo = New ChargingInfo()
    ci.BaseHours = 10
    ci.BaseRate = 9.95
    ci.AdditionalRate = 2.0
    Me.radA.Tag = ci

    ci = New ChargingInfo()
    ci.BaseHours = 20
    ci.BaseRate = 14.95
    ci.AdditionalRate = 1
    Me.radB.Tag = ci

    ci = New ChargingInfo()
    ci.BaseHours = 0
    ci.BaseRate = 19.95
    ci.AdditionalRate = 0
    Me.radC.Tag = ci
End Sub

Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
    Dim cost As Double
    Dim ci As ChargingInfo
    Dim chargeableHours As Int32 = Math.Min(744, enteredHours)

    If Me.radC.Checked Then
        ci = CType(Me.radC.Tag, ChargingInfo)
    ElseIf Me.radB.Checked Then
        ci = CType(Me.radB.Tag, ChargingInfo)
    Else
        ci = CType(Me.radA.Tag, ChargingInfo)
    End If

    If ci.BaseHours = 0 Then
        cost = chargeableHours * ci.BaseRate
    Else
        cost = Math.Min(ci.BaseHours, chargeableHours) * ci.BaseRate
        chargeableHours = chargeableHours - ci.BaseHours
        If chargeableHours > 0 Then
            cost = cost + (chargeableHours * ci.AdditionalRate)
        End If
    End If

    If Me.chboxNonProfit.Checked Then
        cost = cost * 0.8
    End If

            Me.txtTotalCost.Text = cost.ToString()
End Sub

Mycroft Holmes wrote:

Henry - I've seen smaller article than that

sub main()

dim tmp as string
dim dLaborCost as double

' read the line
tmp = GetPrice()

' cast the value of tmp to an double
dLaborCost = CDbl(tmp)

'......

end sub

private function GetPrice() as string

    GetPrice =  Console.ReadLine

end function

Module Module1

    Public Sub DoSomething(ByVal x As Integer, ByRef y As Double)

        x += 5
        y += 5

    End Sub

    Sub Main()
        Dim num As Integer = 5
        Dim anum As Double = 20.5

        Console.WriteLine("Before Method Call:")
        Console.WriteLine("Num = {0}", num.ToString)
        Console.WriteLine("Anum = {0}", anum.ToString)

        DoSomething(num, anum)

        Console.WriteLine("After Method Call:")
        Console.WriteLine("Num (After ByVal) = {0}", num.ToString)
        Console.WriteLine("Anum (After ByRef) = {0}", anum.ToString)

        Console.Read()

    End Sub

End Module