Abandoned [RELEASE] Trade Computer Extension

Bragolatch · Apr 5, 2015

Eventure said:
Sorry, but with this new routine, F11 and F12 are no longer possible to be a hotkey.

Update V1.39 beta 3 released:
- Bugfix in start routine
- Station template rewritten
- New checkbox at the Destination panel to highlight large stations only
- Changed "BODY ID" to "SECTOR"
- Bugfix at Trade, Star System Database and Station Database panel
- X/Y/Z Display position now saved correctly
- Colored red to wrong (50% over or under the min/max price of the good) OCR data at Commodity panel now

Working perfectly so far and I really like the new MARK LARGE check box !

Greyheart · Apr 5, 2015

Distance said:
Does tce make use of the clipboard then? tbh it would only affect chat so it's not that big of a deal.

I just need a key close to F12 due to how my set up is and muscle memory. I did use backspace first but as you can imagine that wasn't my best idea

I use scroll lock, that is close to F11 and F12.

punkerich · Apr 5, 2015

have some issue with last version, see:

View attachment 27125

nevermind, semmed to be an, uhm, easter egg. moved on, no more errors.

punkerich · Apr 5, 2015

got a runtime 9 clicking on dest. panel:

View attachment 27132

after closing and restarting got it again while clicking on 'mark large stations'

eventure · Apr 5, 2015

punkerich said:
got a runtime 9 clicking on dest. panel:

View attachment 27132

after closing and restarting got it again while clicking on 'mark large stations'

Found, fix is here:

Update V1.39 beta 4 released:
- Bugfix in Destination panel and coloration adjusted (registered stations - white, unregistered stations - grey, non large stations - dark grey)

Bragolatch · Apr 5, 2015

Got a Run Time Error 9 in the DESTINATION PANEL either on selecting MARK LARGE or on sorting by STAR SYSTEM.
I rather think the sorting did it because non of the stations were grayed out when if froze.

Private Sub Color_Station()

Dim iTxt1 As String, iTxt2 As String, iTxt3 As String, itxt4 As String, itxt5 As String, itxt6 As String, itxt7 As String, itxt8 As String, itxt9 As String, iTxt10 As String
Dim iName1 As Variant, iName2 As Variant, iName3 As Variant, iName4 As Variant, iName5 As Variant, iName6 As Variant, iName7 As Variant, iName8 As Variant, iName9 As Variant, iName10 As Variant
Dim anzahl As Long, a As Long

iTxt1 = "Select"
iTxt2 = "System"
iTxt3 = "Station"
itxt4 = "Eco"
itxt5 = "Back_"
itxt8 = "Distance"
itxt9 = "Profit"
iTxt10 = "Update"
' Anzahl = AzDES
anzahl = Worksheets("Data").Cells(2, 5).Value
If anzahl > 23 Then
anzahl = 23
End If
For a = 1 + Me.ScrollBar1.Value To anzahl + Me.ScrollBar1.Value
iName5 = itxt5 & a - Me.ScrollBar1.Value
If Me.Chk_Large.Value Then
If Ar_DBType(Worksheets("DES_Systemdata").Cells(1 + a, 10).Value, 3) = "L" Then
'------> System
iName2 = iTxt2 & a - Me.ScrollBar1.Value
Me.Controls(iName2).ForeColor = &HFFFFFF
'------> Station
iName3 = iTxt3 & a - Me.ScrollBar1.Value
Me.Controls(iName3).ForeColor = &HFFFFFF
'------> Economy
iName4 = itxt4 & a - Me.ScrollBar1.Value
Me.Controls(iName5).ForeColor = &HFFFFFF
'------> Distance
iName8 = itxt8 & a - Me.ScrollBar1.Value
Me.Controls(iName8).ForeColor = &HFFFFFF
'------> Discount
iName9 = itxt9 & a - Me.ScrollBar1.Value
Me.Controls(iName9).ForeColor = &HFFFFFF
'------> Update
iName10 = iTxt10 & a - Me.ScrollBar1.Value
Me.Controls(iName10).ForeColor = &HFFFFFF
If Worksheets("DES_Systemdata").Cells(1 + a, 1).Value = DES_StationID Then
Me.Controls(iName5).BackColor = TCE_Color
Me.Controls(iName2).ForeColor = &H0&
Me.Controls(iName3).ForeColor = &H0&
Me.Controls(iName4).ForeColor = &H0&
Me.Controls(iName8).ForeColor = &H0&
Me.Controls(iName9).ForeColor = &H0&
Me.Controls(iName10).ForeColor = &H0&
End If
Else
'------> System
iName2 = iTxt2 & a - Me.ScrollBar1.Value
Me.Controls(iName2).ForeColor = &H505050
'------> Station
iName3 = iTxt3 & a - Me.ScrollBar1.Value
Me.Controls(iName3).ForeColor = &H505050
'------> Economy
iName4 = itxt4 & a - Me.ScrollBar1.Value
Me.Controls(iName4).ForeColor = &H505050
'------> Distance
iName8 = itxt8 & a - Me.ScrollBar1.Value
Me.Controls(iName8).ForeColor = &H505050
'------> Discount
iName9 = itxt9 & a - Me.ScrollBar1.Value
Me.Controls(iName9).ForeColor = &H505050
'------> Update
iName10 = iTxt10 & a - Me.ScrollBar1.Value
Me.Controls(iName10).ForeColor = &H505050
If Worksheets("DES_Systemdata").Cells(1 + a, 1).Value = DES_StationID Then
Me.Controls(iName5).BackColor = TCE_Color
Me.Controls(iName2).ForeColor = &H0&
Me.Controls(iName3).ForeColor = &H0&
Me.Controls(iName4).ForeColor = &H0&
Me.Controls(iName8).ForeColor = &H0&
Me.Controls(iName9).ForeColor = &H0&
Me.Controls(iName10).ForeColor = &H0&
End If
End If
Else
'------> System
iName2 = iTxt2 & a - Me.ScrollBar1.Value
Me.Controls(iName2).ForeColor = &HFFFFFF
'------> Station
iName3 = iTxt3 & a - Me.ScrollBar1.Value
Me.Controls(iName3).ForeColor = &HFFFFFF
'------> Economy
iName4 = itxt4 & a - Me.ScrollBar1.Value
Me.Controls(iName4).ForeColor = &HFFFFFF
'------> Distance
iName8 = itxt8 & a - Me.ScrollBar1.Value
Me.Controls(iName8).ForeColor = &HFFFFFF
'------> Discount
iName9 = itxt9 & a - Me.ScrollBar1.Value
Me.Controls(iName9).ForeColor = &HFFFFFF
'------> Update
iName10 = iTxt10 & a - Me.ScrollBar1.Value
Me.Controls(iName10).ForeColor = &HFFFFFF
If Worksheets("DES_Systemdata").Cells(1 + a, 1).Value = DES_StationID Then
Me.Controls(iName5).BackColor = TCE_Color
Me.Controls(iName2).ForeColor = &H0&
Me.Controls(iName3).ForeColor = &H0&
Me.Controls(iName4).ForeColor = &H0&
Me.Controls(iName8).ForeColor = &H0&
Me.Controls(iName9).ForeColor = &H0&
Me.Controls(iName10).ForeColor = &H0&
End If
End If
Next a

End Sub

Same error as above, now downloading new version !
You are, as always, really on the ball Eventure, Thanks.

Repeated the same actions with the new version without error !

punkerich · Apr 5, 2015

while jumping, i had this pop up:

View attachment 27153

eventure · Apr 5, 2015

punkerich said:
while jumping, i had this pop up:

View attachment 27153

Did you jumped from an unknown star system?

punkerich · Apr 5, 2015

nope. been there, done that. cd-46 14401 or something. operating around gliese 868. wait. in between could've been a col-sector-something, that surely isn't registered.
had never seen this error before, though.

eventure · Apr 5, 2015

punkerich said:
nope. been there, done that. cd-46 14401 or something. operating around gliese 868. wait. in between could've been a col-sector-something, that surely isn't registered.
had never seen this error before, though.

It has to do with new content. Will be fixed.

Bragolatch · Apr 5, 2015

Run-time Error 13 Type mismatch

I just got Run-time Error 13 Type mismatch on PREVIEW TRADE ROUTE SELECTION
Might help you to know that the selected stations are far away from my current position
and were entered many versions ago.

Private Sub BTN_Preview_Click()

Temp_POS_StarID = Worksheets("Werte").Cells(2, 2).Value
Temp_POS_StationID = Worksheets("Werte").Cells(3, 2).Value
Temp_DES_StarID = Worksheets("Werte").Cells(12, 2).Value
Temp_DES_StationID = Worksheets("Werte").Cells(13, 2).Value
POS_StarID = Worksheets("Data").Cells(118, 2).Value
POS_StationID = Worksheets("Data").Cells(116, 2).Value
DES_StarID = Worksheets("Data").Cells(121, 2).Value
DES_StationID = Worksheets("Data").Cells(119, 2).Value
Call POS_Commodities
Call DES_Commodities
Me.Hide
TS_Preview = True
If Menu_Mode = "CLASSIC" Then
If Main_Panel = "TOP" Then
Panel_Menu_top.BTN_Trade_Layer.BackColor = TCE_Color
Panel_Menu_top.BTN_Trade_Label.ForeColor = 0
Else
Panel_Menu_bottom.BTN_Trade_Layer.BackColor = TCE_Color
Panel_Menu_bottom.BTN_Trade_Label.ForeColor = 0
End If
End If
Panel_Trade.Show
DoEvents

End Sub

eventure · Apr 5, 2015

Bragolatch said:
I just got Run-time Error 13 Type mismatch on PREVIEW TRADE ROUTE SELECTION
Might help you to know that the selected stations are far away from my current position
and were entered many versions ago.

Private Sub BTN_Preview_Click()

Temp_POS_StarID = Worksheets("Werte").Cells(2, 2).Value
Temp_POS_StationID = Worksheets("Werte").Cells(3, 2).Value
Temp_DES_StarID = Worksheets("Werte").Cells(12, 2).Value
Temp_DES_StationID = Worksheets("Werte").Cells(13, 2).Value
POS_StarID = Worksheets("Data").Cells(118, 2).Value
POS_StationID = Worksheets("Data").Cells(116, 2).Value
DES_StarID = Worksheets("Data").Cells(121, 2).Value
DES_StationID = Worksheets("Data").Cells(119, 2).Value
Call POS_Commodities
Call DES_Commodities
Me.Hide
TS_Preview = True
If Menu_Mode = "CLASSIC" Then
If Main_Panel = "TOP" Then
Panel_Menu_top.BTN_Trade_Layer.BackColor = TCE_Color
Panel_Menu_top.BTN_Trade_Label.ForeColor = 0
Else
Panel_Menu_bottom.BTN_Trade_Layer.BackColor = TCE_Color
Panel_Menu_bottom.BTN_Trade_Label.ForeColor = 0
End If
End If
Panel_Trade.Show
DoEvents

End Sub

punkerich said:
have some issue with last version, see:

View attachment 27125

nevermind, semmed to be an, uhm, easter egg. moved on, no more errors.

Found it and will be fixed next release.

Maedhros · Apr 6, 2015

Minor glitch

Just a minor point with 1.39b4 - although the option 'show star system panel after detection of unknown star' is ticked the panel is not showing upon entering an unknown system, I have to show it manually.

Other than that 1.39b4 is running fine

Captain Fizz · Apr 6, 2015

Got it working - Awesome

Loving it, taking a while to populate but nice seeing when other items will make more pennies than the ones currently running etc.

Might actually get a Vulture again, then do the population using it whilst doing missions.

Well done tho

For some reason, with the latest one, I still have to close the "new star" thing every time it pops up even though it's disabled but I'm assuming that'll be fixed in an update.
(Even though it says it has!)

Mythocast · Apr 6, 2015

Wish I could justify buying Excel for this. But I cannot, off to other options!

Dreamcaster · Apr 6, 2015

Can this (amazing) add-on be somehow used during exploration?
Like, which astronomical objects have been scanned, what type, et cetera?

Greyheart · Apr 6, 2015

I was using the new menu layout on Friday/Saturday but had to reinstall Elite and TCE as Elite kept crashing. I have just downloaded 1.39 beta 1, copied beta 4 over the top and run it and it has the old menu layout - did I miss something?

Bragolatch · Apr 7, 2015

Dreamcaster said:
Can this (amazing) add-on be somehow used during exploration?
Like, which astronomical objects have been scanned, what type, et cetera?

As is, CARTOGRAPHY marks each sectors you go to at least once as VISITED.
You can then mark them manually as PARTIAL or COMPLETE.
And you can add a separate note to each sector of space.

Eventure is now working on a new and improved log book and as asked for suggestion as to what features we'd like.

So now is the right time to express your wishes in details

Bragolatch · Apr 7, 2015

Eventure said:
You will have a big textbox to fill infos like this, i think a listbox should do it, where you can select all ship types of a shipyard.

Not sure exactly what you meant, but having tried for a while now to note down some of the ships available at stations I can confirm that a quick an easy already made list with check boxes would be greatly appreciated because it is very time consuming to do it by hand especially considering the limited time the info will be used !

Greyheart · Apr 7, 2015

CMDR Ross said:
if its the new interface its in options half way down, compact button

So it is, cheers! I like the fact we can choose between the two.