These forums have been archived and are now read-only.
The new forums are live and can be found at https://forums.eveonline.com/
[EveLib] A .NET library for EveXML, CREST, EveCentral, and more
Public Function GetPrice(mat As cMaterial) As Double Dim options As New EveCentralOptions() With {.HourLimit = HourLimit, .MinQuantity = MinQuantity} options.Items.Add(mat.TypeID) 'add the material's type id Dim EveCentral = New EveCentral() Select Case ItemType 'this is an enum value; value is property of this class Case eSystemType.REGION options.Regions.Add(ItemID) Case eSystemType.SOLARSYSTEM options.System = ItemID End Select Dim response As EveCentralModule.Models.MarketStatResponse = EveCentral.GetMarketStat(options) Select Case TypeTransaction ' this is an enum value; value is property of this class Case eTransaction.BUY Select Case TypePrice ' this is an enum value; value is property of this class Case ePrice.AVG Return response.Result.Item(0).BuyOrders.Average Case ePrice.MAX Return response.Result.Item(0).BuyOrders.Max Case ePrice.MIN Return response.Result.Item(0).BuyOrders.Min End Select Case eTransaction.SELL Select Case TypePrice Case ePrice.AVG Return response.Result.Item(0).SellOrders.Average Case ePrice.MAX Return response.Result.Item(0).SellOrders.Max Case ePrice.MIN Return response.Result.Item(0).SellOrders.Min End Select End Select End Function
Developer of EveLib and EveAuthUtility