
Journal Journal: .NET Assembly vs File version numbers
http://techblog.ranjanbanerji.com/post/2008/06/26/Net-Assembly-Vs-File-Versions.aspx
http://techblog.ranjanbanerji.com/post/2008/06/26/Net-Assembly-Vs-File-Versions.aspx
1991
"Global Climate Change" in Google Scholar (scolar.google.com.au), review the top results.
"Downscaling of global climate change estimates to regional scales: an application to Iberian rainfall in wintertime"
http://coast.hzg.de/staff/storch/pdf/storch_etal_1993.pdf
I read the abstract. The paper assumes climate change is occurring, but their proposed local model doesn't correlate with the general model very well at all.
MY VERDICT: EQUIVOCAL. Dissonance between global and local climate models does not support a global warming hypothesis (though it doesn't necessarily refute it)
"Global climate change and infectious diseases."
http://www.ncbi.nlm.nih.gov/pmc/articles/PMC1568225/
I read the abstract and first section. The article theorises about possible effects on diseases if global warming were to occur.
MY VERDICT: RED HERRING. Not an article on climate science
"Global climate change"
http://www.osti.gov/energycitations/product.biblio.jsp?osti_id=5536275
I read the abstract.
MY VERDICT: OPPOSES GW THESIS. "Currently, there is very limited evidence that man's activity has caused global warming. " in the abstract
"Lay perspectives on global climate change"
http://www.sciencedirect.com/science/article/pii/095937809190042R
I read the abstract.
MY VERDICT: RED HERRING. It's an opinion poll
"Implications of Global Climate Change for Biogeographic Patterns in the Greater Yellowstone Ecosystem"
http://onlinelibrary.wiley.com/doi/10.1111/j.1523-1739.1991.tb00151.x/abstract
I read the abstract.
MY VERDICT: EQUIVOCAL. Assumes climate change and theorises about possible effects on biological diversity. Makes no mention of any observed changes to biodiversity due to climate change.
Suggests "directions for establishing long-term measurements for the early detection of responses to climate change", implying that global warming is not certain and the authors want more
funding.
1992
"Inadvertent Weather Modification in Urban Areas: Lessons for Global Climate Change."
http://adsabs.harvard.edu/abs/1992BAMS...73..619C
I read the abstract
MY VERDICT: SUPPORTS GW THESIS. The paper confirms local anthropomorphic climate change and extrapolates to global climate change. It says "A second lesson relates to the difficulty but
underscores the necessity of providing scientifically credible proof of change within the noise of natural climatic variability" which was prescient.
"Global climate change"
http://www.sciencedirect.com/science/article/pii/0167880992900213
I read the abstract
MY VERDICT: SUPPORTS GW THESIS. States that environmental events have led to "a conviction" that anthropomorphic global climate is real.
"Global climate change and freshwater ecosystems."
http://www.cabdirect.org/abstracts/19931974881.html;jsessionid=E04068BC1178B3A9C40941AFEC8F2EC9?gitCommit=4.13.8-6-g6e31ff9
I read the abstract
MY VERDICT: SUPPORTS GW THESIS. A bit hard to tell, but it seems that the paper measures effect of current global warming on biological systems.
"Global climate change"
http://books.google.com.au/books?hl=en&lr=&id=FhIIdEEW8OQC&oi=fnd&pg=PA75&dq=%22global+climate+change%22&ots=7ar-lNVqyJ&sig=kdcQsttvjaHkqWuPmxBTqbXo8VA#v=onepage&q=%22global%20climate
%20change%22&f=false
I read the first three pages.
MY VERDICT: EQUIVOCAL. Basically says that we can't tell. "Yet we can't easily or precisely determine how the complex climatic system will react to anthropogenic pollutants".
TOTAL ARTICLES REVIEWED: 9
SUPPORT GLOBAL WARMING THESIS: 3
OPPOSES GLOBAL WARMING THESIS: 1
EQUIVOCAL: 3
RED HERRING: 2
Toggle "Enable Application Framework" in project properties, save, toggle back, save again.
My C:\Windows directory (I'm running Vista Business) has 86,874 files in 15,214 folders.
I'm not sure this is a good thing.
Even if someone from Microsoft took one minute for each file to explain its function, it would take sixty days without sleep to hear it all.
For all you City of Heroes players, check out ParagonWiki!
Good blog entry on FileMaker ODBC quirks.
To change the DEBUG constant (for #IF DEBUG THEN" conditional compilation statements):
First, set the DEBUG constant value for the configuration you want to use
1. Project> projectname Properties
2. Compile tab
3. At the top, there is a "Configuration" combobox, select the configuration you wish to edit (e.g. Debug or Release)
4. Click the "Advanced Compile Options..." button
5. check or uncheck the "Define DEBUG constant" checkbox and then click OK
Now activate the configuration
6. Build>Configuration Manager
7. Change the "Active solution configuration" to the configuration you edited
Private mblnUpdating As Boolean
Private Sub CheckedListBox1_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck
Dim clb As CheckedListBox = CType(sender, CheckedListBox)
If e.CurrentValue = CheckState.Unchecked Then
If Not mblnUpdating Then
mblnUpdating = True
For i As Integer = 0 To clb.Items.Count - 1
If i <> e.Index Then
clb.SetItemCheckState(i, CheckState.Unchecked)
End If
Next i
mblnUpdating = False
End If
End If
End Sub
Thanks to http://www.syncfusion.com/faq/windowsforms/faq_c37c.aspx.
Translated from http://www.bobpowell.net/transcontrols.htm
Create a new subclass of Panel which supports transparency:
Public Class PanelTransparent
Inherits Panel
Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
Get
Dim cp As CreateParams = MyBase.CreateParams
cp.ExStyle = &H20 'WS_EX_TRANSPARENT
Return cp
End Get
End Property
Protected Sub InvalidateEx()
If Parent Is Nothing Then Exit Sub
Dim rc As New Rectangle(Me.Location, Me.Size)
Parent.Invalidate(rc, True)
End Sub
Protected Overrides Sub OnPaintBackground(ByVal e As System.Windows.Forms.PaintEventArgs)
'do not allow the background to be painted
End Sub
Private mimg As Image
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
e.Graphics.DrawImage(mimg, 0, 0)
End Sub
Public Sub New(ByVal img As Image)
mimg = img
End Sub
End Class
And in the form...
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim img As Image = Bitmap.FromFile(My.Computer.FileSystem.SpecialDirectories.Desktop & "\pitransgif.gif")
Dim pnlTransparent As New PanelTransparent(img)
Me.Controls.Add(pnlTransparent)
pnlTransparent.BringToFront()
End Sub
I guess I'm number two
At last, W.E.C. Meadows' renowned translation of this classic text on game design, written some time during the fifth century BC in China, is available on the 'net.
Module Module1
Private mintPopulation As Integer 'a1
Private mintArrived As Integer 'a2
Private mintStarved As Integer 'a3
Private mintBushelsStored As Integer 'b1
Private mintRats As Integer 'b2
Private mintBushelsPerAcre As Integer 'b3
Private mintHarvest As Integer 'b4
Private mintAcres As Integer 'c1
Private mintLandPrice As Integer 'c2
Private j As Integer
Sub Main()
Console.WriteLine("Hamurabi: Game of Hamurabi - Version 2.00")
Console.WriteLine()
Console.WriteLine("Original Hamurabi in IMSAI 4K BASIC")
Console.WriteLine("v1.01 by Corona Data Systems, Inc. 11/12/1977")
Console.WriteLine("This version 2.00 by David Streeter 19/09/2007")
Console.WriteLine()
Randomize()
Console.WriteLine("Hamurabi - ")
Console.WriteLine("Where you govern the ancient kingdom of Sumeria.")
Console.WriteLine("The object is to figure out how the game works!!")
Console.WriteLine("(If you want to quit, sell all your land)")
mintPopulation = 100
mintArrived = 5
mintStarved = 0
mintBushelsStored = 2800
mintRats = 200
mintBushelsPerAcre = 3
mintHarvest = 3000
mintAcres = 1000
j = 1
Do
Console.WriteLine()
Console.WriteLine("Hamurabi, I beg to report that last year")
Console.Write(mintStarved.ToString & " people starved and ")
If mintArrived >= 0 Then
Console.WriteLine(mintArrived.ToString & " people came to the city")
Else
Console.WriteLine((-mintArrived).ToString & " people left the city")
End If
If j <= 0 Then
mintPopulation = mintPopulation - CInt(mintPopulation / 2)
Console.WriteLine("The plague killed half the people.")
End If
Console.WriteLine("The population is now " & mintPopulation.ToString)
Console.WriteLine("We harvested " & mintHarvest.ToString & " bushels at " & mintBushelsPerAcre.ToString & " bushels per acre")
Console.WriteLine("Rats destroyed " & mintRats.ToString & " bushels leaving " & mintBushelsStored.ToString & " bushels in the storehouses")
Console.WriteLine("The city owns " & mintAcres.ToString & " acres of land.")
mintLandPrice = 17 + CInt(6 * Rnd())
Console.WriteLine("Land is worth " & mintLandPrice.ToString & " bushels per acre.")
Console.WriteLine()
Console.WriteLine("Hamurabi . ..")
1310: Console.WriteLine()
Console.WriteLine("Buy how many acres?")
Dim strBuy As String = Console.ReadLine()
Dim intBuy As Integer = CInt(Math.Abs(Val(strBuy)))
Console.WriteLine()
If intBuy <> 0 Then
j = intBuy * mintLandPrice
If j > mintBushelsStored Then
Call ErrorMessage()
GoTo 1310 'love the GOTO
End If
mintBushelsStored -= j
mintAcres += intBuy
End If
1510: Console.WriteLine("Sell how many acres?")
Dim strSell As String = Console.ReadLine()
Console.WriteLine()
Dim intSell As Integer = CInt(Math.Abs(Val(strSell)))
Select Case intSell
Case 0
Case Is < mintAcres
mintAcres = mintAcres - intSell
mintBushelsStored += mintLandPrice * intSell
Case mintAcres
Console.WriteLine("Game over. Press any key")
Console.ReadKey()
End
Case Else
Call ErrorMessage()
GoTo 1510
End Select
1710: Console.WriteLine("How many bushels shall we distribute as food?")
Dim strFeed As String = Console.ReadLine
Console.WriteLine()
Dim intFeed As Integer = CInt(Math.Abs(Val(strFeed)))
If intFeed > mintBushelsStored Then
Call ErrorMessage()
GoTo 1710
End If
mintBushelsStored -= intFeed
mintStarved = mintPopulation - CInt(intFeed / 20)
mintArrived = 0
If mintStarved < 0 Then
mintArrived = CInt(-mintStarved / 2)
mintStarved = 0
End If
1910: Console.WriteLine("How many acres shall we plant?")
Dim strPlant As String = Console.ReadLine
Console.WriteLine()
Dim intPlant As Integer = CInt(Math.Abs(Val(strPlant)))
If intPlant > mintAcres Then
Call ErrorMessage()
GoTo 1910
End If
j = CInt(intPlant / 2)
If j > mintBushelsStored Then
Call ErrorMessage()
GoTo 1910
End If
If intPlant > 10 * mintPopulation Then
Call ErrorMessage()
GoTo 1910
End If
mintBushelsStored -= j
mintBushelsPerAcre = CInt(5 * Rnd()) + 1
mintHarvest = mintBushelsPerAcre * intPlant
mintRats = CInt((mintBushelsStored + mintHarvest) * 0.07 * Rnd())
mintBushelsStored = mintBushelsStored - mintRats + mintHarvest
j = CInt(10 * Rnd()) '10% chance of plague
mintArrived = CInt(mintArrived + (5 - mintBushelsPerAcre) * mintBushelsStored / 600 + 1)
If mintArrived > 50 Then mintArrived = 50
mintPopulation = mintPopulation + mintArrived - mintStarved
If mintPopulation < 0 Then mintPopulation = 0
Loop
End Sub
Private Sub ErrorMessage()
Console.WriteLine("Hamurabi, think again - ")
Console.WriteLine("You only have " & mintPopulation & " people, " & mintAcres.ToString & " acres, and " & mintBushelsStored.ToString & " bushels in storehouses")
End Sub
End Module
Apparently they're releasing yet another cut of Blade Runner.
Here's my preferred cast if they ever decide to do a remake:
Keanu Reeves
John Malkovich
Natalie Portman
Gary Oldman
Alicia Silverstone
Steve Buscemi
Ewan McGregor
Christopher Walken
Angelina Jolie
Set HtmlEncode=False or use template
Have you ever wondered how many oxcarts it would take to store all your digital data, if you had to transcribe it to paper? I know I have, and thanks to Steve Jackson Games' handy Gigabyte-to-Oxcart calculator, now I know! Try it yourself!
C++ is the best example of second-system effect since OS/360.