Changeset 1305

Show
Ignore:
Timestamp:
2/8/2010 3:17:46 PM (5 weeks ago)
Author:
vessper
Message:

08/02/2010

- Core: Respecified some properties in the SortedQueueItem? class to be a better representation of the data they hold

Location:
branches/EveHQv2
Files:
4 modified

Legend:

Unmodified
Added
Removed

  • branches/EveHQv2/EveHQ.Core/Reports.vb

    r1304 r1305  
    10331033            Dim qItem As EveHQ.Core.SortedQueueItem = CType(arrQueue(skill), EveHQ.Core.SortedQueueItem) 
    10341034            Dim skillName As String = qItem.Name 
    1035             Dim curLevel As String = qItem.CurLevel 
    1036             Dim startLevel As String = qItem.FromLevel 
    1037             Dim endLevel As String = qItem.ToLevel 
    1038             Dim percent As String = qItem.Percent 
     1035            Dim curLevel As Integer = qItem.CurLevel 
     1036            Dim startLevel As Integer = qItem.FromLevel 
     1037            Dim endLevel As Integer = qItem.ToLevel 
     1038            Dim percent As Double = qItem.Percent 
    10391039            Dim timeToEnd As String = EveHQ.Core.SkillFunctions.TimeToString(CDbl(qItem.TrainTime)) 
    10401040            Dim endTime As String = Format(qItem.DateFinished, "ddd") & " " & FormatDateTime(qItem.DateFinished, DateFormat.GeneralDate) 
    … …  
    10421042            strHTML &= "<tr height=20px>" 
    10431043            strHTML &= "<td>" & skillName & "</td>" 
    1044             strHTML &= "<td align=center>" & curLevel & "</td>" 
    1045             strHTML &= "<td align=center>" & startLevel & "</td>" 
    1046             strHTML &= "<td align=center>" & endLevel & "</td>" 
    1047             strHTML &= "<td align=center>" & percent & "</td>" 
     1044            strHTML &= "<td align=center>" & curLevel.ToString & "</td>" 
     1045            strHTML &= "<td align=center>" & startLevel.ToString & "</td>" 
     1046            strHTML &= "<td align=center>" & endLevel.ToString & "</td>" 
     1047            strHTML &= "<td align=center>" & FormatNumber(percent, 0) & "</td>" 
    10481048            strHTML &= "<td>" & timeToEnd & "</td>" 
    10491049            strHTML &= "<td>" & endTime & "</td>" 
    … …  
    28952895            Dim qItem As EveHQ.Core.SortedQueueItem = CType(arrQueue(skill), SortedQueueItem) 
    28962896            Dim skillName As String = qItem.Name 
    2897             Dim curLevel As String = qItem.CurLevel 
    2898             Dim startLevel As String = qItem.FromLevel 
    2899             Dim endLevel As String = qItem.ToLevel 
    2900             Dim percent As String = qItem.Percent 
     2897            Dim curLevel As Integer = qItem.CurLevel 
     2898            Dim startLevel As Integer = qItem.FromLevel 
     2899            Dim endLevel As Integer = qItem.ToLevel 
     2900            Dim percent As Double = qItem.Percent 
    29012901            Dim timeToEnd As String = EveHQ.Core.SkillFunctions.TimeToString(CDbl(qItem.TrainTime)) 
    29022902            Dim endTime As String = Format(qItem.DateFinished, "ddd") & " " & FormatDateTime(qItem.DateFinished, DateFormat.GeneralDate) 
    29032903 
    29042904            txtData(0) = skillName 
    2905             txtData(1) = curLevel 
    2906             txtData(2) = startLevel 
    2907             txtData(3) = endLevel 
    2908             txtData(4) = percent 
     2905            txtData(1) = curLevel.ToString 
     2906            txtData(2) = startLevel.ToString 
     2907            txtData(3) = endLevel.ToString 
     2908            txtData(4) = FormatNumber(percent, 0) 
    29092909            txtData(5) = timeToEnd 
    29102910            txtData(6) = endTime 

  • branches/EveHQv2/EveHQ.Core/SkillQueueFunctions.vb

    r1304 r1305  
    8585                Dim mySkill As EveHQ.Core.EveSkill = EveHQ.Core.HQ.SkillListID(qPilot.TrainingSkillID) 
    8686                Dim clevel As Integer = qPilot.TrainingSkillLevel 
    87                 Dim cTime As Double = qPilot.TrainingCurrentTime 
     87                Dim cTime As Long = qPilot.TrainingCurrentTime 
    8888                Dim strTime As String = EveHQ.Core.SkillFunctions.TimeToString(cTime) 
    8989                endtime = EveHQ.Core.SkillFunctions.ConvertEveTimeToLocal(qPilot.TrainingEndTime) 
    … …  
    104104                qItem.ID = mySkill.ID 
    105105                qItem.Name = mySkill.Name 
    106                 qItem.CurLevel = CStr(curLevel) 
    107                 qItem.FromLevel = CStr(curLevel) 
    108                 qItem.ToLevel = CStr(clevel) 
    109                 qItem.Percent = CStr(percent) 
    110                 qItem.TrainTime = CStr(cTime) 
     106                qItem.CurLevel = curLevel 
     107                qItem.FromLevel = curLevel 
     108                qItem.ToLevel = clevel 
     109                qItem.Percent = percent 
     110                qItem.TrainTime = cTime 
    111111                qItem.DateFinished = EveHQ.Core.SkillFunctions.ConvertEveTimeToLocal(qPilot.TrainingEndTime) 
    112                 qItem.Rank = CStr(mySkill.Rank) 
     112                qItem.Rank = mySkill.Rank 
    113113                qItem.PAtt = mySkill.PA 
    114114                qItem.SAtt = mySkill.SA 
    115                 qItem.SPTrained = CStr(qPilot.TrainingEndSP - qPilot.TrainingStartSP) 
     115                qItem.SPTrained = qPilot.TrainingEndSP - qPilot.TrainingStartSP 
    116116 
    117117                If (totalSP + CDbl(qItem.SPTrained)) < trainingBonusLimit Then 
    … …  
    128128                End If 
    129129 
    130                 qItem.SPRate = CStr(EveHQ.Core.SkillFunctions.CalculateSPRate(qPilot, mySkill, , currentBonus)) 
     130                qItem.SPRate = EveHQ.Core.SkillFunctions.CalculateSPRate(qPilot, mySkill, , currentBonus) 
    131131                totalSP += CLng(qItem.SPTrained) 
    132132                arrQueue.Add(qItem) 
    … …  
    364364                        qItem.Notes = notes 
    365365                        qItem.Priority = priority 
    366                         qItem.CurLevel = CStr(curLevel) 
    367                         qItem.FromLevel = CStr(fromLevel) 
    368                         qItem.ToLevel = CStr(toLevel) 
    369                         qItem.Percent = CStr(Int(percent)) 
     366                        qItem.CurLevel = curLevel 
     367                        qItem.FromLevel = fromLevel 
     368                        qItem.ToLevel = toLevel 
     369                        qItem.Percent = Int(percent) 
    370370                        If percent > 0 And percent < 100 Then 
    371371                            qItem.PartTrained = True 
    … …  
    373373                            qItem.PartTrained = False 
    374374                        End If 
    375                         qItem.TrainTime = CStr(cTime) 
     375                        qItem.TrainTime = cTime 
    376376                        qItem.DateFinished = endtime 
    377                         qItem.Rank = CStr(myskill.Rank) 
     377                        qItem.Rank = myskill.Rank 
    378378                        qItem.PAtt = myskill.PA 
    379379                        qItem.SAtt = myskill.SA 
    … …  
    381381                        If qItem.Done = False Then 
    382382                            If curLevel < fromLevel Then 
    383                                 qItem.SPTrained = CStr(EveHQ.Core.SkillFunctions.CalculateSP(qPilot, myskill, toLevel, fromLevel)) 
     383                                qItem.SPTrained = EveHQ.Core.SkillFunctions.CalculateSP(qPilot, myskill, toLevel, fromLevel) 
    384384                            Else 
    385                                 qItem.SPTrained = CStr(EveHQ.Core.SkillFunctions.CalculateSP(qPilot, myskill, toLevel, -1)) 
     385                                qItem.SPTrained = EveHQ.Core.SkillFunctions.CalculateSP(qPilot, myskill, toLevel, -1) 
    386386                            End If 
    387387                        Else 
    388                             qItem.SPTrained = "0" 
     388                            qItem.SPTrained = 0 
    389389                        End If 
    390390 
    … …  
    392392                        If (totalSP + CDbl(qItem.SPTrained)) < trainingBonusLimit Then 
    393393                            currentBonus = trainingBonus 
    394                             qItem.SPRate = CStr(EveHQ.Core.SkillFunctions.CalculateSPRate(qPilot, myskill, attModifiers, currentBonus)) 
     394                            qItem.SPRate = EveHQ.Core.SkillFunctions.CalculateSPRate(qPilot, myskill, attModifiers, currentBonus) 
    395395                        Else 
    396396                            If toLevel - fromLevel = 1 Then 
    397397                                ' If just a single level 
    398398                                currentBonus = 1 
    399                                 qItem.SPRate = CStr(EveHQ.Core.SkillFunctions.CalculateSPRate(qPilot, myskill, attModifiers, currentBonus)) 
     399                                qItem.SPRate = EveHQ.Core.SkillFunctions.CalculateSPRate(qPilot, myskill, attModifiers, currentBonus) 
    400400                            Else 
    401401                                ' If multiple levels, need to work out the correct bonus 
    402402                                currentBonus = EveHQ.Core.SkillQueueFunctions.CalculateTrainingBonus(qPilot, myskill, fromLevel, toLevel, totalSP, trainingBonusLimit, trainingBonus) 
    403                                 qItem.SPRate = CStr(Math.Round(CDbl(qItem.SPTrained) / CDbl(qItem.TrainTime) * 3600, 0)) 
     403                                qItem.SPRate = CInt(Math.Round(qItem.SPTrained / qItem.TrainTime * 3600, 0)) 
    404404                            End If 
    405405                        End If 

  • branches/EveHQv2/EveHQ.Core/SortedQueueItem.vb

    r1304 r1305  
    3030    Dim mID As String 
    3131    Dim mName As String 
    32     Dim mCurLevel As String 
    33     Dim mFromLevel As String 
    34     Dim mToLevel As String 
     32    Dim mCurLevel As Integer 
     33    Dim mFromLevel As Integer 
     34    Dim mToLevel As Integer 
    3535    Dim mPartTrained As Boolean 
    3636    Dim mIsInjected As Boolean 
    37     Dim mPercent As String 
    38     Dim mTrainTime As String 
     37    Dim mPercent As Double 
     38    Dim mTrainTime As Long 
    3939    Dim mDateFinished As Date 
    40     Dim mRank As String 
     40    Dim mRank As Integer 
    4141    Dim mPAtt As String 
    4242    Dim mSAtt As String 
    43     Dim mSPRate As String 
    44     Dim mSPTrained As String 
     43    Dim mSPRate As Integer 
     44    Dim mSPTrained As Long 
    4545    Dim mIsTraining As Boolean 
    4646    Dim mIsPrereq As Boolean 
    … …  
    116116    ''' <value>The level of the skill that has currently been trained</value> 
    117117    ''' <remarks></remarks> 
    118     Public Property CurLevel() As String 
     118    Public Property CurLevel() As Integer 
    119119        Get 
    120120            Return mCurLevel 
    121121        End Get 
    122         Set(ByVal value As String) 
     122        Set(ByVal value As Integer) 
    123123            mCurLevel = value 
    124124        End Set 
    … …  
    130130    ''' <value>The level from which the training queue item starts</value> 
    131131    ''' <remarks></remarks> 
    132     Public Property FromLevel() As String 
     132    Public Property FromLevel() As Integer 
    133133        Get 
    134134            Return mFromLevel 
    135135        End Get 
    136         Set(ByVal value As String) 
     136        Set(ByVal value As Integer) 
    137137            mFromLevel = value 
    138138        End Set 
    … …  
    144144    ''' <value>The level at which the training queue item ends</value> 
    145145    ''' <remarks></remarks> 
    146     Public Property ToLevel() As String 
     146    Public Property ToLevel() As Integer 
    147147        Get 
    148148            Return mToLevel 
    149149        End Get 
    150         Set(ByVal value As String) 
     150        Set(ByVal value As Integer) 
    151151            mToLevel = value 
    152152        End Set 
    … …  
    188188    ''' <value>Shows the percentage trained of the skill queue item</value> 
    189189    ''' <remarks></remarks> 
    190     Public Property Percent() As String 
     190    Public Property Percent() As Double 
    191191        Get 
    192192            Return mPercent 
    193193        End Get 
    194         Set(ByVal value As String) 
     194        Set(ByVal value As Double) 
    195195            mPercent = value 
    196196        End Set 
    … …  
    202202    ''' <value>Shows the length of time (in seconds) to train the skill queue item</value> 
    203203    ''' <remarks></remarks> 
    204     Public Property TrainTime() As String 
     204    Public Property TrainTime() As Long 
    205205        Get 
    206206            Return mTrainTime 
    207207        End Get 
    208         Set(ByVal value As String) 
     208        Set(ByVal value As Long) 
    209209            mTrainTime = value 
    210210        End Set 
    … …  
    230230    ''' <value>Indicates the rank of the skill</value> 
    231231    ''' <remarks></remarks> 
    232     Public Property Rank() As String 
     232    Public Property Rank() As Integer 
    233233        Get 
    234234            Return mRank 
    235235        End Get 
    236         Set(ByVal value As String) 
     236        Set(ByVal value As Integer) 
    237237            mRank = value 
    238238        End Set 
    … …  
    272272    ''' <value>Gives the rate of training in Skillpoints/hour</value> 
    273273    ''' <remarks></remarks> 
    274     Public Property SPRate() As String 
     274    Public Property SPRate() As Integer 
    275275        Get 
    276276            Return mSPRate 
    277277        End Get 
    278         Set(ByVal value As String) 
     278        Set(ByVal value As Integer) 
    279279            mSPRate = value 
    280280        End Set 
    … …  
    286286    ''' <value>Shows the number of skill points trained from the skill queue item</value> 
    287287    ''' <remarks></remarks> 
    288     Public Property SPTrained() As String 
     288    Public Property SPTrained() As Long 
    289289        Get 
    290290            Return mSPTrained 
    291291        End Get 
    292         Set(ByVal value As String) 
     292        Set(ByVal value As Long) 
    293293            mSPTrained = value 
    294294        End Set 

  • branches/EveHQv2/EveHQ/Forms/frmTraining.vb

    r1304 r1305  
    592592        End If 
    593593 
     594        startTime = Now 
    594595        Dim tq As TrainingQueue = CType(Me.tabQueues.TabPages(QueueName).Controls("TQ" & QueueName), TrainingQueue) 
    595596        Dim lvwQueue As EveHQ.DragAndDropListView = tq.lvQueue 
    … …  
    673674            Call EveHQ.Core.SkillQueueFunctions.TidyQueue(displayPilot, aq, arrQueue) 
    674675            Call Me.RedrawOptions() 
     676            endTime = Now 
     677            Dim timeTaken As TimeSpan = endTime - startTime 
     678            MessageBox.Show("Time taken: " & timeTaken.TotalMilliseconds.ToString & "ms", "Refresh Training Complete!", MessageBoxButtons.OK, MessageBoxIcon.Information) 
    675679 
    676680            ' Get a suggestion for a quicker skill queue 
    … …  
    689693                    Case "Current" 
    690694                        If (qitem.IsInjected) Then 
    691                             newSI.Name = qitem.CurLevel 
    692                             newSI.Text = qitem.CurLevel 
     695                            newSI.Name = qitem.CurLevel.ToString 
     696                            newSI.Text = qitem.CurLevel.ToString 
    693697                        Else 
    694698                            newSI.Name = "" 
    … …  
    696700                        End If 
    697701                    Case "From" 
    698                         newSI.Name = qitem.FromLevel 
    699                         newSI.Text = qitem.FromLevel 
     702                        newSI.Name = qitem.FromLevel.ToString 
     703                        newSI.Text = qitem.FromLevel.ToString 
    700704                    Case "To" 
    701                         newSI.Name = qitem.ToLevel 
    702                         newSI.Text = qitem.ToLevel 
     705                        newSI.Name = qitem.ToLevel.ToString 
     706                        newSI.Text = qitem.ToLevel.ToString 
    703707                    Case "Percent" 
    704708                        Dim skillPct As Double 
    … …  
    734738                        newSI.Text = Format(qitem.DateFinished, "ddd") & " " & FormatDateTime(qitem.DateFinished, DateFormat.GeneralDate) 
    735739                    Case "Rank" 
    736                         newSI.Name = qitem.Rank 
    737                         newSI.Text = qitem.Rank 
     740                        newSI.Name = qitem.Rank.ToString 
     741                        newSI.Text = qitem.Rank.ToString 
    738742                    Case "PAtt" 
    739743                        newSI.Name = qitem.PAtt 
    … …  
    743747                        newSI.Text = qitem.SAtt 
    744748                    Case "SPHour" 
    745                         newSI.Name = qitem.SPRate 
     749                        newSI.Name = qitem.SPRate.ToString 
    746750                        newSI.Text = FormatNumber(qitem.SPRate, 0, , , TriState.True) 
    747751                    Case "SPDay" 
    … …  
    758762                        newSI.Text = FormatNumber(CDbl(qitem.SPRate) * 24 * 365, 0, , , TriState.True) 
    759763                    Case "SPAdded" 
    760                         newSI.Name = qitem.SPTrained 
     764                        newSI.Name = qitem.SPTrained.ToString 
    761765                        newSI.Text = FormatNumber(qitem.SPTrained, 0, , , TriState.True) 
    762766                    Case "SPTotal" 
    … …  
    30293033 
    30303034                    EMPAtt = EMPXML.CreateAttribute("level") 
    3031                     EMPAtt.Value = qItem.ToLevel 
     3035                    EMPAtt.Value = qItem.ToLevel.ToString 
    30323036                    EMPEntry.Attributes.Append(EMPAtt) 
    30333037