I've been out of pocket for 2 weeks hence the tardy reply.
1. Can I use a stand alone version of Basic ? 2. If VB Net is absolutely required, how do I access it and what does it cost to use? Thanks Lionel _____ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of nduroman Sent: Monday, June 12, 2006 12:31 PM To: [email protected] Subject: [quotes-plus] Example using QP COM with VB.Net 2003 Hi all, I posted a file by "nduroman" in the File section of the QP user group. I wrote my example in VB.Net as more people are probably familiar with it though I use C++ these days. My code is in the 2003 version. I have mentioned problems I have had with 2005. To make the code run follow the instructions I have posted. This sample program goes steps (iterates) through the database and prints to the console those common stocks with a closing price of > $10. Note that the last stock will not be evaluated in the "while" loop. This isn't a major problem for me '1 out of 8000+ but could be solved if Quotes Plus would add either a COUNT property to the Symbols class or a MOVENEXT method to the Symbols class. My code is commented using "'" as is done in VB. Comments are not actually part of the code. If you really want to learn this stuff I once again recommend "Modeling Financial Markets" by Van Vliet and Hendry both financial markets professors at IIT Chicago. VB.Net is the language used and there is not a better source. It gets you up to speed on classes and objects in .Net, databases and ADO.Net, and the very important collection classes in .Net like a hashtable. Hope this helps. John ***************************** 'IN VB.NET 2003 '1. Open a CLR Console Application in Visual Studio VB 2003. Choose "File" , "New", "Project" , ".NET", "Console Application". You will probably later use a Windows Form Application to create a GUI (Graphical User Interface) but the principles are the same. '2. Go to "Project" in the menu '3. Choose "Add Reference" '4. Click on the COM tab and find "Quotes Plus 1.1 Type Library. Highlight this and press "Select" then OK. 'Until you follow the steps above the code below will not compile!!!!!! Imports QuotesPlus Module Module1 Sub Main() Dim mySymbols As New QuotesPlus.SymbolsClass 'create an instance of the Symbols class mySymbols.LISTBY = LISTBY.QPLB_STOCKS 'we want to list only stocks mySymbols.SORTORDER = SORTORDER.QPSO_ASCEND 'we want to sort in A-Z order Dim myPrices As New QuotesPlus.Price2Class 'create an instance of the Price2 class Dim myCompanyInfo As New QuotesPlus.CompanyInfoClass 'create an instance of the CompanyInfo class mySymbols.Last() 'set the interator at the last symbol in the list Dim str_LastSymbol$ = mySymbols.Symbol 'set the string variable to the value of the last symbol mySymbols.First() 'set the iterator at the first symbol in the list Dim str_CurrentSymbol$ = mySymbols.Symbol 'set the string variable to the value of the first symbol 'This while loop goes through all symbols but the last one in the list. There is no Count method 'in the QP database so we miss the last symbol unless we run all our methods specifically on it 'as well. I choose to live with missing the last symbol. While (Not (str_LastSymbol = str_CurrentSymbol)) myPrices.Symbol = mySymbols.Symbol 'you must link the instance of the Price2 class 'to the Symbols class by Symbol myCompanyInfo.Symbol = mySymbols.Symbol 'you must link the of the CompanyInfo class 'to the Symbols class by Symbol Dim dbl_IssueStatusCode# = myCompanyInfo.IssueStatus_Code ' I am creating a double variable 'so that I can further filter on common stocks (Issue Status Code in database is 48) Dim dbl_CloseBack1 = myPrices.Close(-1) 'Get closing price 1 day back (use negatives); 'Close(0) is the most recent close 'if common stock and close > 10 then write to console If ((dbl_IssueStatusCode = 48) And (dbl_CloseBack1 > 10)) Then Console.WriteLine(str_CurrentSymbol & vbTab & dbl_CloseBack1) 'print out symbol and closing price 1 back to console End If mySymbols.Next() 'set iterator to next symbol str_CurrentSymbol = mySymbols.Symbol() 'set current symbol to next symbol End While End Sub End Module [Non-text portions of this message have been removed] ------------------------ Yahoo! Groups Sponsor --------------------~--> See what's inside the new Yahoo! Groups email. http://us.click.yahoo.com/2pRQfA/bOaOAA/yQLSAA/GHeqlB/TM --------------------------------------------------------------------~-> Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/quotes-plus/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
