Sunday, March 6, 2011

Cognitive Neuroscience

IDEs

Friday, March 4, 2011

Commodities

The latest round of Mideast revolts seem to be influenced by record high food prices.  The FAO has the data on its site.

World Food Index

http://www.fao.org/worldfoodsituation/wfs-home/en/

Market Talk

Terminology index for the market:

http://www.investopedia.com/terms/l/limitup.asp

ClickOnce

ClickOnce deployment solves a number of maintenance and logistics issues, while adding a few new concerns.  No longer does a warm body need to run around updating PCs.

But how do you update and track various versions?  The manifest contains information about a specific version of a ClickOnce application and the various supporting assemblies in a human readable XML format.  The "assemblyIdentity" element specifies the primary assembly for the application while the "dependency" element lists all the prerequisites assemblies.

The manifest is also accompanied by a precompiled manifest named *.CDF-MS.

Walkthrough: http://msdn.microsoft.com/en-us/library/xc3tc5xx(VS.80).aspx


Look into using MSBuild to publish the ClickOnce to the Web.
http://msdn.microsoft.com/en-us/library/ms165431(v=vs.80).aspx

For concurrent deployments, make sure to change the assembly name and product name.

http://robindotnet.wordpress.com/2009/04/22/clickonce-installing-multiple-versions-concurrently/

Stencils

The UML Stencils for Visio: http://www.softwarestencils.com/uml/index.html

Wednesday, February 23, 2011

VB.NET -- Checkerboard in PictureBox

    Private Sub CheckerBoard()
 
        Dim rect As New Rectangle
 
        ' create a Graphics object to draw into it
        Dim pbox As Graphics = PictureBox1.CreateGraphics
        mSquWidth = PictureBox1.Width / CDbl(mCols)
        mSquHeight = PictureBox1.Height / CDbl(mRows)
        rect.Width = mSquWidth
        rect.Height = mSquHeight
 
        Dim r, c
        For r = 0 To mRows - 1
            For c = 0 To mCols - 1
                If ((r + c) Mod 2) = 0 Then
                    ' create a Graphics object to draw into it
                    pbox.FillRectangle(Brushes.Azure, rect)
                    pbox.DrawRectangle(Pens.Pink, rect)
                Else
                    pbox.FillRectangle(Brushes.BlueViolet, rect)
                    pbox.DrawRectangle(Pens.Red, rect)
                End If
                rect.X = c * mSquWidth
                rect.Y = r * mSquHeight
                ' create a Graphics object to draw into it
                pbox.FillRectangle(Brushes.BlueViolet, rect)
                pbox.DrawRectangle(Pens.Red, rect)
            Next
        Next
 
    End Sub