Abandoned [RELEASE] Trade Computer Extension

eventure · May 1, 2015

seeebek said:
Guys I have exciting news for you. Our fellow CMDR programmed a python script which gets the data the companion app for ios gets. And it's a lot. Full market and outfitting data and so on.
Please read:
https://forums.frontier.co.uk/showthread.php?t=141804

Bye bye OCR

bAdbUd said:
That does look interesting, but as they have restricted how often it polls and mention not to put too much load on the servers it may get pulled, lets see if it gets an official response, but if it is aloud this would be ideal for pulling all the data you could want or need.

We have an offical statement: Thread shutdown!

Andargor · May 1, 2015

Eventure said:
We have an offical statement: Thread shutdown!

The EDCE thread has been closed by the moderators, pending Michael's decision. The thread has not been deleted, I will keep you posted.

I'm pleading with Michael to tolerate it for a while.

eventure · May 1, 2015

Andargor said:
The EDCE thread has been closed by the moderators, pending Michael's decision. The thread has not been deleted, I will keep you posted.

I'm pleading with Michael to tolerate it for a while.

Thanks for the clarification and further update on this.

Bragolatch · May 1, 2015

punkerich said:
i know, and i doesn't want to sound like that. i'm not very good expressing myself in english, you know...

in fact, it wouldn't need to be way faster, cause we have to scroll down and correctly align the page, move the cursor out before taking the new shot. on my machine, it takes approx. 12 secs for tce to do, scan and import one market screenshot.
if that could be reduced to somewhat ~8 secs, i would be more than happy. seeebek measured an astounding 1,2 secs for ocr'ing a screenie with the cmd-version. no way we can get even near that, and no need to.

Maybe this will make you feel a bit better lol

At least yours caused by extra good resolution !
Mine is just due to old hardware.

punkerich · May 1, 2015

Bragolatch said:
Maybe this will make you feel a bit better lol

View attachment 32975

At least yours caused by extra good resolution !
Mine is just due to old hardware.

this is very interesting. the ocr time is exorbitant, but the buffering in comparison is low,
excatly the opposite of my results.
you are using the latest eliteocr, 0.6.0.2, aren't you?

Bragolatch · May 1, 2015

punkerich said:
this is very interesting. the ocr time is exorbitant, but the buffering in comparison is low,
excatly the opposite of my results.
you are using the latest eliteocr, 0.6.0.2, aren't you?

Nope, I was still on 5.4.1, haven't been on much for the last couple of days, thanks for the reminder !
So I just installed 6.0.2, calibrated it and here are the new results :

Impressive ! cut the total down by half !!!

seeebek · May 1, 2015

Bragolatch said:
Nope, I was still on 5.4.1, haven't been on much for the last couple of days, thanks for the reminder !
So I just installed 6.0.2, calibrated it and here are the new results :

Impressive ! cut the total down by half !!!

I'm working on a minimal OCR solution written in c++. Just processing the market, without station name. I'm almost sure I can get it under 1 sec on modern systems and significantly faster in general. This little piece of software will be meant fo TCE but not exclusively.
Expect it lastes end of next week.

Bragolatch · May 1, 2015

Error 13

Did a search in TRADE SCOUT
move to one of the 2 station in the best profit route
opened TRADE SCOUT again and tried to START TRADE ROUTE without searching again.

received Error 13 Type mismatch

Private Sub BTN_Start_Click()

Dim SX As Double, SY As Double, SZ As Double, TX As Double, TY As Double, TZ As Double, ZX As Double, ZY As Double, ZZ As Double, SID As Long, TID As Long, ZID As Long, z As Long, Dist1 As Double, Dist2 As Double

If Me.BTN_Start_Label.Caption = "START TRADE ROUTE" Then
If Saving = False And Panel_Scout_BD.Visible = True Then
TR_ID = Worksheets("Data").Cells(115, 2).Value
If POS_StationID = Worksheets("TR_Route").Cells(TR_ID + 1, 1).Value Then
TLocked = True
TLocked_Star1 = Worksheets("Data").Cells(118, 2).Value
TLocked_Station1 = Worksheets("Data").Cells(116, 2).Value
TGood1 = Worksheets("Data").Cells(124, 2).Value
TGood1ID = Worksheets("Data").Cells(126, 2).Value
TLocked_Star2 = Worksheets("Data").Cells(121, 2).Value
TLocked_Station2 = Worksheets("Data").Cells(119, 2).Value
TGood2 = Worksheets("Data").Cells(125, 2).Value
TGood2ID = Worksheets("Data").Cells(127, 2).Value
TGood1B = ArData_Buy(TGood1ID + 2, TLocked_Station1 + 2)
TGood1S = ArData_Sell(TGood1ID + 2, TLocked_Station2 + 2)
TGood2B = ArData_Buy(TGood2ID + 2, TLocked_Station2 + 2)
TGood2S = ArData_Sell(TGood2ID + 2, TLocked_Station1 + 2)
If Menu_Mode = "CLASSIC" Then
If Main_Panel = "TOP" Then
Panel_Menu_top.TLocked_line1.Visible = True
Panel_Menu_top.TLocked_line2.Visible = True
Panel_Menu_top.BTN_Locked.Visible = True
Panel_Menu_top.POS_Eco.Caption = TGood1
Panel_Menu_top.POS_Good_Buy.Caption = "BUY: " & TGood1B & " CR."
Panel_Menu_top.POS_Good_Sell.Caption = "SELL: " & TGood1S & " CR."
Panel_Menu_top.DES_Eco.Caption = TGood2
Panel_Menu_top.DES_Good_Buy.Caption = "BUY: " & TGood2B & " CR."
Panel_Menu_top.DES_Good_Sell.Caption = "SELL: " & TGood2S & " CR."
Else
Panel_Menu_bottom.TLocked_line1.Visible = True
Panel_Menu_bottom.TLocked_line2.Visible = True
Panel_Menu_bottom.BTN_Locked.Visible = True
Panel_Menu_bottom.POS_Eco.Caption = TGood1
Panel_Menu_bottom.POS_Good_Buy.Caption = "BUY: " & TGood1B & " CR."
Panel_Menu_bottom.POS_Good_Sell.Caption = "SELL: " & TGood1S & " CR."
Panel_Menu_bottom.DES_Eco.Caption = TGood2
Panel_Menu_bottom.DES_Good_Buy.Caption = "BUY: " & TGood2B & " CR."
Panel_Menu_bottom.DES_Good_Sell.Caption = "SELL: " & TGood2S & " CR."
End If
Else
Panel_Displays.TLocked_line.Visible = True
Panel_Displays.BTN_Locked.Visible = True
Panel_Displays.POS_Eco.Caption = TGood1
Panel_Displays.POS_Good_Buy.Caption = "BUY: " & TGood1B & " CR."
Panel_Displays.POS_Good_Sell.Caption = "SELL: " & TGood1S & " CR."
Panel_Displays.DES_Eco.Caption = TGood2
Panel_Displays.DES_Good_Buy.Caption = "BUY: " & TGood2B & " CR."
Panel_Displays.DES_Good_Sell.Caption = "SELL: " & TGood2S & " CR."
End If
NoTarget = False
DES_Selected = True
DES_StarID = TLocked_Star2
DES_StationID = TLocked_Station2
Worksheets("Werte").Cells(12, 2).Value = TLocked_Star2
Worksheets("Werte").Cells(13, 2).Value = TLocked_Station2
Me.BTN_Start_Label.Caption = "STOP TRADE ROUTE"
DoEvents
End If
If POS_StationID = Worksheets("TR_Route").Cells(TR_ID + 1, 3).Value And TLocked = False Then
TLocked = True
TLocked_Star1 = Worksheets("Data").Cells(121, 2).Value
TLocked_Station1 = Worksheets("Data").Cells(119, 2).Value
TGood1 = Worksheets("Data").Cells(125, 2).Value
TGood1ID = Worksheets("Data").Cells(127, 2).Value
TLocked_Star2 = Worksheets("Data").Cells(118, 2).Value
TLocked_Station2 = Worksheets("Data").Cells(116, 2).Value
TGood2 = Worksheets("Data").Cells(124, 2).Value
TGood2ID = Worksheets("Data").Cells(126, 2).Value
TGood1B = ArData_Buy(TGood1ID + 2, TLocked_Station1 + 2)
TGood1S = ArData_Sell(TGood1ID + 2, TLocked_Station2 + 2)
TGood2B = ArData_Buy(TGood2ID + 2, TLocked_Station2 + 2)
TGood2S = ArData_Sell(TGood2ID + 2, TLocked_Station1 + 2)
If Menu_Mode = "CLASSIC" Then
If Main_Panel = "TOP" Then
Panel_Menu_top.TLocked_line1.Visible = True
Panel_Menu_top.TLocked_line2.Visible = True
Panel_Menu_top.BTN_Locked.Visible = True
Panel_Menu_top.POS_Eco.Caption = TGood1
Panel_Menu_top.POS_Good_Buy.Caption = "BUY: " & TGood1B & " CR."
Panel_Menu_top.POS_Good_Sell.Caption = "SELL: " & TGood1S & " CR."
Panel_Menu_top.DES_Eco.Caption = TGood2
Panel_Menu_top.DES_Good_Buy.Caption = "BUY: " & TGood2B & " CR."
Panel_Menu_top.DES_Good_Sell.Caption = "SELL: " & TGood2S & " CR."
Else
Panel_Menu_bottom.TLocked_line1.Visible = True
Panel_Menu_bottom.TLocked_line2.Visible = True
Panel_Menu_bottom.BTN_Locked.Visible = True
Panel_Menu_bottom.POS_Eco.Caption = TGood1
Panel_Menu_bottom.POS_Good_Buy.Caption = "BUY: " & TGood1B & " CR."
Panel_Menu_bottom.POS_Good_Sell.Caption = "SELL: " & TGood1S & " CR."
Panel_Menu_bottom.DES_Eco.Caption = TGood2
Panel_Menu_bottom.DES_Good_Buy.Caption = "BUY: " & TGood2B & " CR."
Panel_Menu_bottom.DES_Good_Sell.Caption = "SELL: " & TGood2S & " CR."
End If
Else
Panel_Displays.TLocked_line.Visible = True
Panel_Displays.BTN_Locked.Visible = True
Panel_Displays.POS_Eco.Caption = TGood1
Panel_Displays.POS_Good_Buy.Caption = "BUY: " & TGood1B & " CR."
Panel_Displays.POS_Good_Sell.Caption = "SELL: " & TGood1S & " CR."
Panel_Displays.DES_Eco.Caption = TGood2
Panel_Displays.DES_Good_Buy.Caption = "BUY: " & TGood2B & " CR."
Panel_Displays.DES_Good_Sell.Caption = "SELL: " & TGood2S & " CR."
End If
NoTarget = False
DES_Selected = True
DES_StarID = TLocked_Star2
DES_StationID = TLocked_Station2
Worksheets("Werte").Cells(12, 2).Value = TLocked_Star2
Worksheets("Werte").Cells(13, 2).Value = TLocked_Station2
Me.BTN_Start_Label.Caption = "STOP TRADE ROUTE"
DoEvents
End If
If TLocked = False Then
SID = Worksheets("Data").Cells(118, 2).Value
TID = ActualStarID
ZID = Worksheets("Data").Cells(121, 2).Value
SX = Ar_DBStars(SID, 3)
SY = Ar_DBStars(SID, 4)
SZ = Ar_DBStars(SID, 5)
TX = Ar_DBStars(TID, 3)
TY = Ar_DBStars(TID, 4)
TZ = Ar_DBStars(TID, 5)
ZX = Ar_DBStars(ZID, 3)
ZY = Ar_DBStars(ZID, 4)
ZZ = Ar_DBStars(ZID, 5)
Dist1 = Round(Sqr(WorksheetFunction.Power((SX - TX), 2) + WorksheetFunction.Power((SY - TY), 2) + WorksheetFunction.Power((SZ - TZ), 2)) + 0.000001, 2)
Dist2 = Round(Sqr(WorksheetFunction.Power((TX - ZX), 2) + WorksheetFunction.Power((TY - ZY), 2) + WorksheetFunction.Power((TZ - ZZ), 2)) + 0.000001, 2)
If Dist1 < Dist2 Then
TLocked_Star1 = Worksheets("Data").Cells(118, 2).Value
TLocked_Station1 = Worksheets("Data").Cells(116, 2).Value
TGood1 = Worksheets("Data").Cells(124, 2).Value
TGood1ID = Worksheets("Data").Cells(126, 2).Value
TLocked_Star2 = Worksheets("Data").Cells(121, 2).Value
TLocked_Station2 = Worksheets("Data").Cells(119, 2).Value
TGood2 = Worksheets("Data").Cells(125, 2).Value
TGood2ID = Worksheets("Data").Cells(127, 2).Value
TGood1B = ArData_Buy(TGood1ID + 2, TLocked_Station1 + 2)
TGood1S = ArData_Sell(TGood1ID + 2, TLocked_Station2 + 2)
TGood2B = ArData_Buy(TGood2ID + 2, TLocked_Station2 + 2)
TGood2S = ArData_Sell(TGood2ID + 2, TLocked_Station1 + 2)
Else
TLocked_Star1 = Worksheets("Data").Cells(121, 2).Value
TLocked_Station1 = Worksheets("Data").Cells(119, 2).Value
TGood1 = Worksheets("Data").Cells(125, 2).Value
TGood1ID = Worksheets("Data").Cells(127, 2).Value
TLocked_Star2 = Worksheets("Data").Cells(118, 2).Value
TLocked_Station2 = Worksheets("Data").Cells(116, 2).Value
TGood2 = Worksheets("Data").Cells(124, 2).Value
TGood2ID = Worksheets("Data").Cells(126, 2).Value
TGood1B = ArData_Buy(TGood1ID + 2, TLocked_Station1 + 2)
TGood1S = ArData_Sell(TGood1ID + 2, TLocked_Station2 + 2)
TGood2B = ArData_Buy(TGood2ID + 2, TLocked_Station2 + 2)
TGood2S = ArData_Sell(TGood2ID + 2, TLocked_Station1 + 2)
End If
NoTarget = False
DES_Selected = True
DES_StarID = TLocked_Star1
DES_StationID = TLocked_Station1
Worksheets("Werte").Cells(12, 2).Value = TLocked_Star1
Worksheets("Werte").Cells(13, 2).Value = TLocked_Station1
Me.BTN_Start_Label.Caption = "STOP TRADE ROUTE"
DoEvents
End If
Call DES_Commodities
Call Panel_Trade.DES_Display
Panel_Trade.CB_Route.ListIndex = Worksheets("Werte").Cells(53, 5).Value - 1
Call Destination_Panel
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
Panel_Menu_top.BTN_TradeScout_Layer.BackColor = 0
Panel_Menu_top.BTN_TradeScout.ForeColor = &HFFFFFF
Else
Panel_Menu_bottom.BTN_Trade_Layer.BackColor = TCE_Color
Panel_Menu_bottom.BTN_Trade_Label.ForeColor = 0
Panel_Menu_bottom.BTN_TradeScout_Layer.BackColor = 0
Panel_Menu_bottom.BTN_TradeScout.ForeColor = &HFFFFFF
End If
Else
Panel_Picto.BTN_Scout.BorderStyle = fmBorderStyleNone
Panel_Picto.BTN_Trade.BorderStyle = fmBorderStyleSingle
End If
Panel_Trade.DES_Label.Caption = "SELECTED DESTINATION"
Call Selected_Row(Worksheets("Data").Cells(115, 2).Value - Me.TR_Scrollbar.Value)
Me.TR_Scrollbar.Enabled = False
Panel_Trade.Show
DoEvents
Me.Hide
End If
Else
TLocked = False
TLocked_Star1 = 0
TLocked_Star2 = 0
TLocked_Station1 = 0
TLocked_Station2 = 0
TGood1 = ""
TGood2 = ""
TGood1ID = 0
TGood2ID = 0
TGood1B = 0
TGood1S = 0
DES_StarID = 0
DES_StationID = 0
DES_Selected = False
NoTarget = True
Me.BTN_Start_Label.Caption = "START TRADE ROUTE"
Call Selected_Row(0)
If Menu_Mode = "CLASSIC" Then
If Main_Panel = "TOP" Then
Panel_Menu_top.TLocked_line1.Visible = False
Panel_Menu_top.TLocked_line2.Visible = False
Panel_Menu_top.BTN_Locked.Visible = False
Panel_Menu_top.POS_Good_Buy.Caption = ""
Panel_Menu_top.POS_Good_Sell.Caption = ""
Panel_Menu_top.DES_Good_Buy.Caption = ""
Panel_Menu_top.DES_Good_Sell.Caption = ""
Else
Panel_Menu_bottom.TLocked_line1.Visible = False
Panel_Menu_bottom.TLocked_line2.Visible = False
Panel_Menu_bottom.BTN_Locked.Visible = False
Panel_Menu_bottom.POS_Good_Buy.Caption = ""
Panel_Menu_bottom.POS_Good_Sell.Caption = ""
Panel_Menu_bottom.DES_Good_Buy.Caption = ""
Panel_Menu_bottom.DES_Good_Sell.Caption = ""
End If
Else
Panel_Displays.TLocked_line.Visible = False
Panel_Displays.BTN_Locked.Visible = False
Panel_Displays.POS_Good_Buy.Caption = ""
Panel_Displays.POS_Good_Sell.Caption = ""
Panel_Displays.DES_Good_Buy.Caption = ""
Panel_Displays.DES_Good_Sell.Caption = ""
End If
Me.TR_Scrollbar.Enabled = True
Call Position_Panel
DES_Selected = False
NoTarget = True
If Auto_DES = True Then
Call Auto_Destination
Call DES_Commodities
Call Check_Size_DES
Call Panel_Trade.DES_Display
End If
Call Destination_Panel
End If

End Sub

BennyBoyW · May 1, 2015

Slight update on my issues with TCE & EOCR

I am still running with 2 monitors and no Firefox.
I have re-introduced loads of other programs that I use (Skype etc)
Still no issues with EOCR in days !
So it looks like it's the third monitor or Firefox that causes it
I WILL get to the bottom of this one

Bragolatch · May 1, 2015

BennyBoyW said:
Slight update on my issues with TCE & EOCR

I am still running with 2 monitors and no Firefox.
I have re-introduced loads of other programs that I use (Skype etc)
Still no issues with EOCR in days !
So it looks like it's the third monitor or Firefox that causes it
I WILL get to the bottom of this one

Almost there ! keep it up !!!

My bet is on Firefox itself or a FireFox Macro/add-on/extension !

eventure · May 1, 2015

Bragolatch said:
Did a search in TRADE SCOUT
move to one of the 2 station in the best profit route
opened TRADE SCOUT again and tried to START TRADE ROUTE without searching again.

received Error 13 Type mismatch

Private Sub BTN_Start_Click()

Dim SX As Double, SY As Double, SZ As Double, TX As Double, TY As Double, TZ As Double, ZX As Double, ZY As Double, ZZ As Double, SID As Long, TID As Long, ZID As Long, z As Long, Dist1 As Double, Dist2 As Double

If Me.BTN_Start_Label.Caption = "START TRADE ROUTE" Then
If Saving = False And Panel_Scout_BD.Visible = True Then
TR_ID = Worksheets("Data").Cells(115, 2).Value
If POS_StationID = Worksheets("TR_Route").Cells(TR_ID + 1, 1).Value Then
TLocked = True
TLocked_Star1 = Worksheets("Data").Cells(118, 2).Value
TLocked_Station1 = Worksheets("Data").Cells(116, 2).Value
TGood1 = Worksheets("Data").Cells(124, 2).Value
TGood1ID = Worksheets("Data").Cells(126, 2).Value
TLocked_Star2 = Worksheets("Data").Cells(121, 2).Value
TLocked_Station2 = Worksheets("Data").Cells(119, 2).Value
TGood2 = Worksheets("Data").Cells(125, 2).Value
TGood2ID = Worksheets("Data").Cells(127, 2).Value
TGood1B = ArData_Buy(TGood1ID + 2, TLocked_Station1 + 2)
TGood1S = ArData_Sell(TGood1ID + 2, TLocked_Station2 + 2)
TGood2B = ArData_Buy(TGood2ID + 2, TLocked_Station2 + 2)
TGood2S = ArData_Sell(TGood2ID + 2, TLocked_Station1 + 2)
If Menu_Mode = "CLASSIC" Then
If Main_Panel = "TOP" Then
Panel_Menu_top.TLocked_line1.Visible = True
Panel_Menu_top.TLocked_line2.Visible = True
Panel_Menu_top.BTN_Locked.Visible = True
Panel_Menu_top.POS_Eco.Caption = TGood1
Panel_Menu_top.POS_Good_Buy.Caption = "BUY: " & TGood1B & " CR."
Panel_Menu_top.POS_Good_Sell.Caption = "SELL: " & TGood1S & " CR."
Panel_Menu_top.DES_Eco.Caption = TGood2
Panel_Menu_top.DES_Good_Buy.Caption = "BUY: " & TGood2B & " CR."
Panel_Menu_top.DES_Good_Sell.Caption = "SELL: " & TGood2S & " CR."
Else
Panel_Menu_bottom.TLocked_line1.Visible = True
Panel_Menu_bottom.TLocked_line2.Visible = True
Panel_Menu_bottom.BTN_Locked.Visible = True
Panel_Menu_bottom.POS_Eco.Caption = TGood1
Panel_Menu_bottom.POS_Good_Buy.Caption = "BUY: " & TGood1B & " CR."
Panel_Menu_bottom.POS_Good_Sell.Caption = "SELL: " & TGood1S & " CR."
Panel_Menu_bottom.DES_Eco.Caption = TGood2
Panel_Menu_bottom.DES_Good_Buy.Caption = "BUY: " & TGood2B & " CR."
Panel_Menu_bottom.DES_Good_Sell.Caption = "SELL: " & TGood2S & " CR."
End If
Else
Panel_Displays.TLocked_line.Visible = True
Panel_Displays.BTN_Locked.Visible = True
Panel_Displays.POS_Eco.Caption = TGood1
Panel_Displays.POS_Good_Buy.Caption = "BUY: " & TGood1B & " CR."
Panel_Displays.POS_Good_Sell.Caption = "SELL: " & TGood1S & " CR."
Panel_Displays.DES_Eco.Caption = TGood2
Panel_Displays.DES_Good_Buy.Caption = "BUY: " & TGood2B & " CR."
Panel_Displays.DES_Good_Sell.Caption = "SELL: " & TGood2S & " CR."
End If
NoTarget = False
DES_Selected = True
DES_StarID = TLocked_Star2
DES_StationID = TLocked_Station2
Worksheets("Werte").Cells(12, 2).Value = TLocked_Star2
Worksheets("Werte").Cells(13, 2).Value = TLocked_Station2
Me.BTN_Start_Label.Caption = "STOP TRADE ROUTE"
DoEvents
End If
If POS_StationID = Worksheets("TR_Route").Cells(TR_ID + 1, 3).Value And TLocked = False Then
TLocked = True
TLocked_Star1 = Worksheets("Data").Cells(121, 2).Value
TLocked_Station1 = Worksheets("Data").Cells(119, 2).Value
TGood1 = Worksheets("Data").Cells(125, 2).Value
TGood1ID = Worksheets("Data").Cells(127, 2).Value
TLocked_Star2 = Worksheets("Data").Cells(118, 2).Value
TLocked_Station2 = Worksheets("Data").Cells(116, 2).Value
TGood2 = Worksheets("Data").Cells(124, 2).Value
TGood2ID = Worksheets("Data").Cells(126, 2).Value
TGood1B = ArData_Buy(TGood1ID + 2, TLocked_Station1 + 2)
TGood1S = ArData_Sell(TGood1ID + 2, TLocked_Station2 + 2)
TGood2B = ArData_Buy(TGood2ID + 2, TLocked_Station2 + 2)
TGood2S = ArData_Sell(TGood2ID + 2, TLocked_Station1 + 2)
If Menu_Mode = "CLASSIC" Then
If Main_Panel = "TOP" Then
Panel_Menu_top.TLocked_line1.Visible = True
Panel_Menu_top.TLocked_line2.Visible = True
Panel_Menu_top.BTN_Locked.Visible = True
Panel_Menu_top.POS_Eco.Caption = TGood1
Panel_Menu_top.POS_Good_Buy.Caption = "BUY: " & TGood1B & " CR."
Panel_Menu_top.POS_Good_Sell.Caption = "SELL: " & TGood1S & " CR."
Panel_Menu_top.DES_Eco.Caption = TGood2
Panel_Menu_top.DES_Good_Buy.Caption = "BUY: " & TGood2B & " CR."
Panel_Menu_top.DES_Good_Sell.Caption = "SELL: " & TGood2S & " CR."
Else
Panel_Menu_bottom.TLocked_line1.Visible = True
Panel_Menu_bottom.TLocked_line2.Visible = True
Panel_Menu_bottom.BTN_Locked.Visible = True
Panel_Menu_bottom.POS_Eco.Caption = TGood1
Panel_Menu_bottom.POS_Good_Buy.Caption = "BUY: " & TGood1B & " CR."
Panel_Menu_bottom.POS_Good_Sell.Caption = "SELL: " & TGood1S & " CR."
Panel_Menu_bottom.DES_Eco.Caption = TGood2
Panel_Menu_bottom.DES_Good_Buy.Caption = "BUY: " & TGood2B & " CR."
Panel_Menu_bottom.DES_Good_Sell.Caption = "SELL: " & TGood2S & " CR."
End If
Else
Panel_Displays.TLocked_line.Visible = True
Panel_Displays.BTN_Locked.Visible = True
Panel_Displays.POS_Eco.Caption = TGood1
Panel_Displays.POS_Good_Buy.Caption = "BUY: " & TGood1B & " CR."
Panel_Displays.POS_Good_Sell.Caption = "SELL: " & TGood1S & " CR."
Panel_Displays.DES_Eco.Caption = TGood2
Panel_Displays.DES_Good_Buy.Caption = "BUY: " & TGood2B & " CR."
Panel_Displays.DES_Good_Sell.Caption = "SELL: " & TGood2S & " CR."
End If
NoTarget = False
DES_Selected = True
DES_StarID = TLocked_Star2
DES_StationID = TLocked_Station2
Worksheets("Werte").Cells(12, 2).Value = TLocked_Star2
Worksheets("Werte").Cells(13, 2).Value = TLocked_Station2
Me.BTN_Start_Label.Caption = "STOP TRADE ROUTE"
DoEvents
End If
If TLocked = False Then
SID = Worksheets("Data").Cells(118, 2).Value
TID = ActualStarID
ZID = Worksheets("Data").Cells(121, 2).Value
SX = Ar_DBStars(SID, 3)
SY = Ar_DBStars(SID, 4)
SZ = Ar_DBStars(SID, 5)
TX = Ar_DBStars(TID, 3)
TY = Ar_DBStars(TID, 4)
TZ = Ar_DBStars(TID, 5)
ZX = Ar_DBStars(ZID, 3)
ZY = Ar_DBStars(ZID, 4)
ZZ = Ar_DBStars(ZID, 5)
Dist1 = Round(Sqr(WorksheetFunction.Power((SX - TX), 2) + WorksheetFunction.Power((SY - TY), 2) + WorksheetFunction.Power((SZ - TZ), 2)) + 0.000001, 2)
Dist2 = Round(Sqr(WorksheetFunction.Power((TX - ZX), 2) + WorksheetFunction.Power((TY - ZY), 2) + WorksheetFunction.Power((TZ - ZZ), 2)) + 0.000001, 2)
If Dist1 < Dist2 Then
TLocked_Star1 = Worksheets("Data").Cells(118, 2).Value
TLocked_Station1 = Worksheets("Data").Cells(116, 2).Value
TGood1 = Worksheets("Data").Cells(124, 2).Value
TGood1ID = Worksheets("Data").Cells(126, 2).Value
TLocked_Star2 = Worksheets("Data").Cells(121, 2).Value
TLocked_Station2 = Worksheets("Data").Cells(119, 2).Value
TGood2 = Worksheets("Data").Cells(125, 2).Value
TGood2ID = Worksheets("Data").Cells(127, 2).Value
TGood1B = ArData_Buy(TGood1ID + 2, TLocked_Station1 + 2)
TGood1S = ArData_Sell(TGood1ID + 2, TLocked_Station2 + 2)
TGood2B = ArData_Buy(TGood2ID + 2, TLocked_Station2 + 2)
TGood2S = ArData_Sell(TGood2ID + 2, TLocked_Station1 + 2)
Else
TLocked_Star1 = Worksheets("Data").Cells(121, 2).Value
TLocked_Station1 = Worksheets("Data").Cells(119, 2).Value
TGood1 = Worksheets("Data").Cells(125, 2).Value
TGood1ID = Worksheets("Data").Cells(127, 2).Value
TLocked_Star2 = Worksheets("Data").Cells(118, 2).Value
TLocked_Station2 = Worksheets("Data").Cells(116, 2).Value
TGood2 = Worksheets("Data").Cells(124, 2).Value
TGood2ID = Worksheets("Data").Cells(126, 2).Value
TGood1B = ArData_Buy(TGood1ID + 2, TLocked_Station1 + 2)
TGood1S = ArData_Sell(TGood1ID + 2, TLocked_Station2 + 2)
TGood2B = ArData_Buy(TGood2ID + 2, TLocked_Station2 + 2)
TGood2S = ArData_Sell(TGood2ID + 2, TLocked_Station1 + 2)
End If
NoTarget = False
DES_Selected = True
DES_StarID = TLocked_Star1
DES_StationID = TLocked_Station1
Worksheets("Werte").Cells(12, 2).Value = TLocked_Star1
Worksheets("Werte").Cells(13, 2).Value = TLocked_Station1
Me.BTN_Start_Label.Caption = "STOP TRADE ROUTE"
DoEvents
End If
Call DES_Commodities
Call Panel_Trade.DES_Display
Panel_Trade.CB_Route.ListIndex = Worksheets("Werte").Cells(53, 5).Value - 1
Call Destination_Panel
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
Panel_Menu_top.BTN_TradeScout_Layer.BackColor = 0
Panel_Menu_top.BTN_TradeScout.ForeColor = &HFFFFFF
Else
Panel_Menu_bottom.BTN_Trade_Layer.BackColor = TCE_Color
Panel_Menu_bottom.BTN_Trade_Label.ForeColor = 0
Panel_Menu_bottom.BTN_TradeScout_Layer.BackColor = 0
Panel_Menu_bottom.BTN_TradeScout.ForeColor = &HFFFFFF
End If
Else
Panel_Picto.BTN_Scout.BorderStyle = fmBorderStyleNone
Panel_Picto.BTN_Trade.BorderStyle = fmBorderStyleSingle
End If
Panel_Trade.DES_Label.Caption = "SELECTED DESTINATION"
Call Selected_Row(Worksheets("Data").Cells(115, 2).Value - Me.TR_Scrollbar.Value)
Me.TR_Scrollbar.Enabled = False
Panel_Trade.Show
DoEvents
Me.Hide
End If
Else
TLocked = False
TLocked_Star1 = 0
TLocked_Star2 = 0
TLocked_Station1 = 0
TLocked_Station2 = 0
TGood1 = ""
TGood2 = ""
TGood1ID = 0
TGood2ID = 0
TGood1B = 0
TGood1S = 0
DES_StarID = 0
DES_StationID = 0
DES_Selected = False
NoTarget = True
Me.BTN_Start_Label.Caption = "START TRADE ROUTE"
Call Selected_Row(0)
If Menu_Mode = "CLASSIC" Then
If Main_Panel = "TOP" Then
Panel_Menu_top.TLocked_line1.Visible = False
Panel_Menu_top.TLocked_line2.Visible = False
Panel_Menu_top.BTN_Locked.Visible = False
Panel_Menu_top.POS_Good_Buy.Caption = ""
Panel_Menu_top.POS_Good_Sell.Caption = ""
Panel_Menu_top.DES_Good_Buy.Caption = ""
Panel_Menu_top.DES_Good_Sell.Caption = ""
Else
Panel_Menu_bottom.TLocked_line1.Visible = False
Panel_Menu_bottom.TLocked_line2.Visible = False
Panel_Menu_bottom.BTN_Locked.Visible = False
Panel_Menu_bottom.POS_Good_Buy.Caption = ""
Panel_Menu_bottom.POS_Good_Sell.Caption = ""
Panel_Menu_bottom.DES_Good_Buy.Caption = ""
Panel_Menu_bottom.DES_Good_Sell.Caption = ""
End If
Else
Panel_Displays.TLocked_line.Visible = False
Panel_Displays.BTN_Locked.Visible = False
Panel_Displays.POS_Good_Buy.Caption = ""
Panel_Displays.POS_Good_Sell.Caption = ""
Panel_Displays.DES_Good_Buy.Caption = ""
Panel_Displays.DES_Good_Sell.Caption = ""
End If
Me.TR_Scrollbar.Enabled = True
Call Position_Panel
DES_Selected = False
NoTarget = True
If Auto_DES = True Then
Call Auto_Destination
Call DES_Commodities
Call Check_Size_DES
Call Panel_Trade.DES_Display
End If
Call Destination_Panel
End If

End Sub

Thanks for finding. I have to clear the list on system change.

seeebek said:
I'm working on a minimal OCR solution written in c++. Just processing the market, without station name. I'm almost sure I can get it under 1 sec on modern systems and significantly faster in general. This little piece of software will be meant fo TCE but not exclusively.
Expect it lastes end of next week.

Great news. Thanks in advance.

Nilt · May 2, 2015

Bragolatch said:
My bet is on Firefox itself or a FireFox Macro/add-on/extension !

I'd put money on it being a wonky extension, or a combination of extensions. Troubleshooting such things can be a real pain, I know. I do it a fair bit for my clients.

slappywack · May 2, 2015

Hi - I'm new to elite and this tool seems to be exactly what I was looking for after getting annoyed with the crowd sourced apps, so thanks for the hard work.

Getting started with this by using one of my regular trade routes and I wasn't getting commodity data in the destination side of the trade window (despite having scanned both target/destination)
Destination station didn't have a timestamp in the last updated field, so I assumed I had missed something.
When I docked @the destination, I see "update required" for the current station.

Clicking on current station to view that results in a crash - array Index exception.

runtime error 381
Could not set the list property, invalid property array index

Windows 8 + excel 2010

I tried to read through the thread to see if this was already reported, but it's a little big so I may have missed it.

Any known workarounds or suggestions? (or any additional info I can provide?)
Cheers

eventure · May 2, 2015

Update (V1.39f) released:

Full-Version 1.39 installer: http://bit.ly/1yHRI4w
Full-Version 1.39 non-installer: http://bit.ly/1OZcmAU
Update 1.39f: http://bit.ly/1zlZnFU (Full-Version V1.39 required)

Changelog:
- Optimized OCR data buffering
- Bugfix in Trade Scout panel
- Small UI optimizations in Trade panel.

Bragolatch · May 2, 2015

Eventure said:
Update (V1.39f) released:

Full-Version 1.39 installer: http://bit.ly/1yHRI4w

Full-Version 1.39 non-installer: http://bit.ly/1OZcmAU

Update 1.39f: http://bit.ly/1zlZnFU (Full-Version V1.39 required)

Changelog:
- Optimized OCR data buffering
- Bugfix in Trade Scout panel
- Small UI optimizations in Trade panel.

V1.39f cut my scan time by half again !
Another Great job by Eventure !!!

greenlantern · May 2, 2015

Eventure said:
Update (V1.39f) released:

Full-Version 1.39 installer: http://bit.ly/1yHRI4w

Full-Version 1.39 non-installer: http://bit.ly/1OZcmAU

Update 1.39f: http://bit.ly/1zlZnFU (Full-Version V1.39 required)

Changelog:
- Optimized OCR data buffering
- Bugfix in Trade Scout panel
- Small UI optimizations in Trade panel.

Has FD not picked you up? if not that's absurd.

A glaring gap in ED content is the database retention & presentation.

Why excel*? I'm no computer scientist, but understand it is possible for the game servers to "make available" certain game data specifically for this kind of (very awesome) 3rd party apps. When I played WoW there was a TON of player developed interface apps and kept up to date (working). I wanna see pages of ED stuff on curse please!! :smile:

It's perfect that the game controls are so customizable, being able to do the same with the interface (and data of course) would be just as perfect.

Does FD not do this? If not WOW!!! I'd think for a crowed funded project it'd be a stipulation lol

*omg I'm very impressed with your excel skills! you could make my entire job but a few mouse clicks (don't tell my employer! lol ) Do you destroy "data handling" jobs? ahahaha

Bragolatch · May 2, 2015

Eventure said:
Update (V1.39f) released:

Full-Version 1.39 installer: http://bit.ly/1yHRI4w

Full-Version 1.39 non-installer: http://bit.ly/1OZcmAU

Update 1.39f: http://bit.ly/1zlZnFU (Full-Version V1.39 required)

Changelog:
- Optimized OCR data buffering
- Bugfix in Trade Scout panel
- Small UI optimizations in Trade panel.

It's a lot faster but Unfortunately there seems to be a glitch with the way prices are bien processed or saved or ???

I've RESET ALL PRICES AND SCANNED the same market twice with v1.39e:

and twice with v1.39f

So I've checked the COMMODITY PANEL
And the problem (prices) seems random but always on the same commodities ! ???

eventure · May 2, 2015

Bragolatch said:
Weird as soon as I ran 1 UPDATE PRICES ONLY SCAN
the problem disappeared and I can't reproduce it anymore !!!

As i saw, the price for Induim was wrong scanned. 3000 bucks profit speaks for it. Did you check every category of commodities after scanning/before saving? Incorrect scan results are detected by TCE (if more than 50% off the min/max price) and show the value in red.

Bragolatch · May 2, 2015

Eventure said:
As i saw, the price for Induim was wrong scanned. 3000 bucks profit speaks for it. Did you check every category of commodities after scanning/before saving? Incorrect scan results are detected by TCE (if more than 50% off the min/max price) and show the value in red.

Yeah and it's not Red :

Just went back to v1.39e and it is doing the same thing now !
Must have just been lucky on the previous 2 attempts with it lol

Must be a problem with the new version of EliteOCR.
The training told me I was almost 100% accurate.
I'll try to do it again and if that doesn't work I'll go back to the previous EliteOcr version and report back here afterwards.

Definitely EliteOCR Errors !!!

seeebek · May 2, 2015

Bragolatch said:
Yeah and it's not Red :

Just went back to v1.39e and it is doing the same thing now !
Must have just been lucky on the previous 2 attempts with it lol

Must be a problem with the new version of EliteOCR.
The training told me I was almost 100% accurate.
I'll try to do it again and if that doesn't work I'll go back to the previous EliteOcr version and report back here afterwards.

The calibration told you, you were almost 100% accurate not the training. But it cannot guarantee you anything. If you really spent 20 min on training it, you wouldn't have the problem. The new version of EliteOCR is not worse. It's more flexible but this requires the user to make some effort. Invest few minutes in training and you will really get 99.999% accuracy.