Abandoned [RELEASE] Trade Computer Extension

Status
Thread Closed: Not open for further replies.
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 !
 
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.
 
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)
 
Last edited:
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 ! :)
 
Last edited:
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.
 
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.
 
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
 
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

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.
 
Last edited:
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 :)
 
Got it working - Awesome :D

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!)
 
Can this (amazing) add-on be somehow used during exploration?
Like, which astronomical objects have been scanned, what type, et cetera?
 
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? :)
 
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 :)
 
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 !
 
Status
Thread Closed: Not open for further replies.
Back
Top Bottom