Mattm
New member
- Joined
- Jan 16, 2008
- Messages
- 3
- Programming Experience
- 10+
I've got a problem with VS2008 it keeps corrupting one class almost daily, I've tried renaming the file and renaming the class but it still garbles up only this one class, sometime between run builds minutes apart.
Also it seams to fill up part of the file only to a certian line row count: L:112 C:32
here is the current garbage in the file, plus a couple lines of where the real code continues:
Here is some other garbage that has been in it prevously, plus a couple lines of where the real code continues::
Here is the Origional code upto to the line 112 count
Also it seams to fill up part of the file only to a certian line row count: L:112 C:32
here is the current garbage in the file, plus a couple lines of where the real code continues:
HTML:
<ServiceInfo Version="1.0" Key="MediaGuide">
<FriendlyName>Media Guide</FriendlyName>
<Color MediaPlayer="#0063B0" />
<Image MenuURL="http://images.metaservices.microsoft.com/svcswitch/wm_com_v_rgb_15x15.png"
ServiceLargeURL="http://images.metaservices.microsoft.com/svcswitch/WindowsMediaPlayer11_30x30.png"/>
<ServiceTask1 URL="http://www.windowsmedia.com/mediaguide/home">
<ButtonText>Media Guide</ButtonText>
<ButtonTip>Media Guide</ButtonTip>
</ServiceTask1>
<InfoCenter URL="http://images.metaservices.microsoft.com/svcswitch/default.htm" />
<AlbumInfo URL="http://images.metaservices.microsoft.com/svcswitch/default.htm" />
</ServiceInfo>lid(_FloatAlarm) Then myAlarms.AlarmClear(_FloatAlarm, "Normal")
End IfHas Any one seen any thing like this before?
Here is the Origional code upto to the line 112 count
VB.NET:
[SIZE="2"][FONT="Lucida Console"]
''' <summary>
''' supports a collection of Floats and valves for a ammonia king
''' </summary>
''' <remarks> note kingX is a tag = king0 lists zones
''' [KingSystem name="King System" kingX="" retrigger="5"]
''' [Inputs(Digitalinputs()).../]
''' [Outputs(digitalOutputs()).../>]
''' [/KingSystem]
''' </remarks>
Public Class KingSystem
Inherits GItem
#Region "Varables"
''' <summary>
''' king floats
''' </summary>
''' <remarks></remarks>
Private _floats() As DigitalInput
''' <summary>
''' King sols
''' </summary>
''' <remarks></remarks>
Private _kings() As DigitalOutput
''' <summary>
''' one list per king sol
''' </summary>
''' <remarks></remarks>
Private _ZoneList() As fbMultiSelect
''' <summary>
''' if a float trips then how long to wait before reinergizing
''' </summary>
''' <remarks></remarks>
Private _RetryDelay As fbInteger
''' <summary>
''' the delays in the reinergizing of the kings
''' </summary>
''' <remarks></remarks>
Private _Delays() As Date
''' <summary>
''' the alarm to trigger if all float are on
''' </summary>
''' <remarks></remarks>
Private _FloatAlarm As Long
''' <summary>
''' for display on the screen
''' </summary>
''' <remarks></remarks>
Private _output As ValuePair
#End Region
''' <summary>
''' creates a new KingSystem
''' </summary>
''' <param name="theNode">the xmlnode to parse</param>
''' <param name="theOwner">who owns this code</param>
''' <param name="OwnerArray">a list to add items to</param>
''' <remarks></remarks>
Public Sub New(ByVal theNode As XmlNode, ByVal theOwner As String, ByVal OwnerArray As List(Of GItem))
MyBase.New(theNode, theOwner)
'setup the hardware
_floats = DigitalInput.GetItems(mNode, "Inputs", theOwner, OwnerArray)
_kings = DigitalOutput.GetItems(mNode, "Outputs", theOwner, OwnerArray)
ReDim _ZoneList(_kings.Length - 1)
ReDim _Delays(_kings.Length - 1)
Dim lst() As String = Globals.GetAllItemsSupportEffectsSuction
Dim ful As String = String.Join(",", lst)
'setup the settings
_RetryDelay = mSettings.AddInteger("King Re-trigger time after float trip", "Minutes", 120, 0, PropUse.Advanced, mNode, "retrigger", 5, _floats.Length <> _kings.Length)
For xloop As Integer = 0 To _kings.Length - 1
_ZoneList(xloop) = mSettings.AddMultiSelect("Zone Opperating on " & _kings(xloop).Name, "", lst, PropUse.Advanced, mNode, "king" & xloop, ful)
_Delays(xloop) = Now
Next
'set up the screen items
_output = Me.AddVP(VType.String, VAType.Display, DspBts.None)
End Sub
''' <summary>
''' updates the code
''' </summary>
''' <param name="AllowRun">if the kings are allowed to run</param>
''' <remarks></remarks>
Public Shadows Sub Update(ByVal AllowRun As Boolean)
'check up on the floats
Dim smCnt As Boolean = _floats.Length = _kings.Length
Dim bAlarm As Boolean = True
For xloop As Integer = 0 To _floats.Length - 1
Dim lencnt As Integer = _floats(xloop).SameCount
'if the float counts = the king solinoid count
'and the float has tripped off then set the
'next time to reinergize the matching king
'as long as the change count on the float is
'only within 1 to 5 seconds
If smCnt AndAlso _floats(xloop).Value = False Then
If (1 < lencnt < 5) Then _Delays(xloop) = Now.AddMinutes(_RetryDelay.Value)
bAlarm = False
End If
Next
'check for alarming out
If bAlarm Then
If myAlarms.AlarmValid(_FloatAlarm) = False Then
_FloatAlarm = myAlarms.AlarmCreate(AlarmType.MachineKingFloat, Me.Name)
End If
Else
If myAlarms.AlarmValid(_FloatAlarm) Then myAlarms.AlarmClear(_FloatAlarm, "Normal")
End If[/FONT][/SIZE]
Last edited by a moderator:
