page.ebizcomponent.com | ||
ASP.NET Web PDF Document Viewer/Editor Control Library{ // display LEGO during 5 sweeps for (int i=0; i<5; i++) { WaitTouch(); // wait a little to center display in linear part of sweep Wait(20); DispLetter(L_); DispLetter(E_); DispLetter(G_); DispLetter(O_); } // Display NXT for (int i=0; i<5; i++) { WaitTouch(); Wait(20); DispLetter(N_); DispLetter(X_); DispLetter(T_); } } } Listing C-5. keypad.nxc #define I2Cport S4 // keypad connected to port 4 #define I2CAddr8574 0x70 // 0x40 for 8574 or 0x70 for 8574A byte WriteBuf[] = {I2CAddr8574, 0x00}; // write buffer byte ReadBuf[]; // read buffer int RdCnt=1; // read one byte long GetKey() {// returns the key value or -1 if no key WriteBuf[1]=0xEF; // Col 1 I2CBytes(I2Cport, WriteBuf, RdCnt, ReadBuf); if(ReadBuf[0]==0xEE) return(1); // Row 1 if(ReadBuf[0]==0xED) return(4); // Row 2 if(ReadBuf[0]==0xEB) return(7); // Row 3 if(ReadBuf[0]==0xE7) return(14);// Row 4 WriteBuf[1]=0xDF; // Col 2 I2CBytes(I2Cport, WriteBuf, RdCnt, ReadBuf); if(ReadBuf[0]==0xDE) return(2); // Row 1 if(ReadBuf[0]==0xDD) return(5); // Row 2 if(ReadBuf[0]==0xDB) return(8); // Row 3 if(ReadBuf[0]==0xD7) return(0); // Row 4 WriteBuf[1]=0xBF; // Col 3 I2CBytes(I2Cport, WriteBuf, RdCnt, ReadBuf); if(ReadBuf[0]==0xBE) return(3); // Row 1 if(ReadBuf[0]==0xBD) return(6); // Row 2 if(ReadBuf[0]==0xBB) return(9); // Row 3 if(ReadBuf[0]==0xB7) return(15);// Row 4 microsoft excel barcode generator software, barcode fonts for excel 2010, barcode font excel 2007 download, excel 2003 barcode add in, barcode addin excel 2013, free barcode generator software excel, creare barcode con excel 2013, microsoft excel 2010 barcode add in, free download barcode font excel, how to convert to barcode in excel 2010,FSLib contains all the classes that you need to make the compiler work, such as the definition of the type into which F# s list literal compiles. I ll cover the following modules: Microsoft.FSharp.Core.Operators: A module containing functions similar to useful C# constructs such as using and lock. Microsoft.FSharp.Reflection: A module containing functions that supplement the .NET Framework s reflection classes to give a more accurate view of F# types and values. Microsoft.FSharp.Collections.Seq: A module containing functions for any type that supports the IEnumerable interface. Microsoft.FSharp.Core.Enum: A module containing functions for .NET enumeration types. Microsoft.FSharp.Text.Printf: A module for formatting strings. Microsoft.FSharp.Control.IEvent: A module for working with events in F#. Microsoft.FSharp.Math: A namespace that contains several modules related to mathematics. These include arbitrary precision integers and rationales, vectors, matrices, and complex numbers. Listing 3-1. innerHTML.html <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <title>Using responseText with innerHTML</title> <script type="text/javascript"> var xmlHttp; function createXMLHttpRequest() { if (window.ActiveXObject) { xmlHttp = new ActiveXObject("Microsoft.XMLHTTP"); } else if (window.XMLHttpRequest) { xmlHttp = new XMLHttpRequest(); } } function startRequest() { createXMLHttpRequest(); xmlHttp.onreadystatechange = handleStateChange; xmlHttp.open("GET", "innerHTML.xml", true); xmlHttp.send(null); } function handleStateChange() { if(xmlHttp.readyState == 4) { if(xmlHttp.status == 200) { document.getElementById("results").innerHTML = xmlHttp.responseText; } } } </script> </head> <body> <form action="#"> <input type="button" value="Search for Today's Activities" onclick="startRequest();"/> </form> <div id="results"></div> </body> </html> WriteBuf[1]=0x7F; // Col 4 I2CBytes(I2Cport, WriteBuf, RdCnt, ReadBuf); if(ReadBuf[0]==0x7E) return(10); // Row 1 if(ReadBuf[0]==0x7D) return(11); // Row 2 if(ReadBuf[0]==0x7B) return(12); // Row 3 if(ReadBuf[0]==0x77) return(13); // Row 4 return(-1); // no keys pressed } task main () { long Value = 0, Key; string TextValue, FileName="X.TXT"; char FileHandle, Count; SetSensorLowspeed (I2Cport); // config I2C Port NumOut(0,0,Value,true); // show inital value while (true) { // loop forever while(GetKey()<0); // wait for key to be pressed Key=GetKey(); // get key value PlayTone(1000,5); // make key pressed sound switch(Key) { // case based on key value case -1: // no key = do nothing break; case 15: // # = negate value Value = -Value; break; case 14: // * = clear value Value = 0; break; case 13: // 10-13 write value to file and quit case 12: case 11: case 10: FileName[0] = Key + 55; // fix name to A, B, C, or D DeleteFile(FileName); // delete any old file CreateFile(FileName,16,FileHandle); // open file TextValue=NumToStr(Value); // convert value to string WriteLnString(FileHandle,TextValue,Count);// write it CloseFile(FileHandle); // close file Stop(true); // done break; default: // 0-9 = just build up value if(Value>=0) Value=Value*10+Key; else Value=Value*10-Key; break; } NumOut(0,0,Value,true); // show current value while(GetKey()>=0); // wait for key to be unpressed } } In F#, operators are defined by libraries rather than built into the language; this module contains some of the language s operators. It also contains some useful operators such as functions, and it is these that I ll be covering here. The module is open by default, which means the user can use these functions with no prefix. Specifically, I will cover the following functions: The using function: A function that helps you ensure that unmanaged or limited resources are disposed of in a timely manner The lock function: A function that helps you ensure that any resources that need to be shared between threads are dealt with correctly Tuple functions: Functions on tuples
| ||