Code development platform for open source projects from the European Union institutions

Skip to content
Snippets Groups Projects
ElectricalConsumerMock.vb 1.74 KiB
Newer Older
Imports VectoAuxiliaries.Electrics
Imports System.ComponentModel
Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.DownstreamModules.Electrics
	Public Class ElectricalConsumerMock
		Implements IElectricalConsumer
		Public Property AvgConsumptionAmps As Double Implements IElectricalConsumer.AvgConsumptionAmps
		Public Property BaseVehicle As Boolean Implements IElectricalConsumer.BaseVehicle
Terry Burns's avatar
 
Terry Burns committed

		Public Property Category As String Implements IElectricalConsumer.Category
Terry Burns's avatar
 
Terry Burns committed

		Public Property ConsumerName As String Implements IElectricalConsumer.ConsumerName
Terry Burns's avatar
 
Terry Burns committed

		Public Property NominalConsumptionAmps As Double Implements IElectricalConsumer.NominalConsumptionAmps
Terry Burns's avatar
 
Terry Burns committed

		Public Property NumberInActualVehicle As Integer Implements IElectricalConsumer.NumberInActualVehicle
Terry Burns's avatar
 
Terry Burns committed

		Public Property PhaseIdle_TractionOn As Double Implements IElectricalConsumer.PhaseIdle_TractionOn
Terry Burns's avatar
 
Terry Burns committed

		Public Property PowerNetVoltage As Double Implements IElectricalConsumer.PowerNetVoltage
Terry Burns's avatar
 
Terry Burns committed

		Public Function TotalAvgConumptionAmps(Optional PhaseIdle_TractionOnBasedOnCycle As Double = Nothing) As Ampere _
			Implements IElectricalConsumer.TotalAvgConumptionAmps
			Return 9.SI(Of Ampere)()
		End Function
Terry Burns's avatar
 
Terry Burns committed


		Public Function TotalAvgConsumptionInWatts(Optional PhaseIdle_TractionOnBasedOnCycle As Double = 0.0) As Watt _
			Implements IElectricalConsumer.TotalAvgConsumptionInWatts
Terry Burns's avatar
 
Terry Burns committed

			Return (9 * 26.3).SI(Of Watt)()
		End Function
		Public Property Info As String Implements IElectricalConsumer.Info
		Public Event PropertyChanged As PropertyChangedEventHandler _
			Implements INotifyPropertyChanged.PropertyChanged
		Private Sub NotifyPropertyChanged(p As String)
			RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(p))
		End Sub
	End Class