NOTE: If you registered NeoBook 5 before February 1st 2008 then you will need to purchase a new registration code in order to use version 5.6 or higher. If you purchased NeoBook 5 after February 1st 2008, then this upgrade is free. Registered users of NeoBook 5.0 through 5.5.4 can purchase a new registration code for $25.

This update contains the following:

Enhancements

-Added an option to Book Properties > Version Info to allow customization of the Vista/Windows 7 manifest included in compiled publications. Most NeoBook authors can safely ignore this feature and simply use the default "As Invoker" setting. Versions of Windows prior to Vista will ignore the manifest. (See the “Book Properties > Global” topic in the help file for more information about this feature.)

-Compiled publications now attempt to detect changes to the default printer made by the Windows Control Panel or other applications. Previously, a change in the default printer would not be recognized until the publication was restarted. (Note to Programmers: Your app should broadcast a WM_SETTINGCHANGE message if you alter the default printer.)

Fixes

-The Archive/Backup command now works correctly. A bizarre glitch in the software we use to “protect” NeoBook from hackers unexpectedly caused this feature to stop working in v5.6.3. Only the English version was affected.

-Corrected two compatibility issues related to Internet Explorer 8. The first caused an error message to appear when closing compiled publications containing embedded HTML content. The second prevented NeoBook from test running ActiveX (PKG) publications (formally known as web browser plug-ins) when IE8 was installed.

-Corrected a problem that prevented NeoBook from running on some Windows 95/98 systems. This was caused by a compatibility issue with the software used to “protect” NeoBook from hackers. This affected NeoBook only and not compiled publications.

-Corrected a problem that prevented Web Browser objects from redrawing properly when snapped to a container.

-The help file’s search feature now works correctly after being inadvertently disabled in the previous update.

Other

-The compiler option “Web Browser Plug-In“ was changed to “ActiveX Control (PKG)” which more accurately reflects the type of application created. Hopefully, this will reduce confusion (and tech support questions) about this feature.

Download here:

http://clickcoders.org/cgi-bin/download.pl?file=nbw.exe

This subroutine decomposes a numeric value into useful parts: [Sign], [Int], and [Fract] such that Math "[Sign]*([Int]+[Fract])" "" "[Value]" recreates the original value.
USAGE

SetVar "[Args]" "Value,Decimals"
Gosub "FractIntSign"

The "Decimals" parameters is optional and defaults to "9". To use the default, the usage is:

USAGE WITH DEFAULT VALUE OF DECIMALS

SetVar "[Args]" "Value"
Gosub "FractIntSign"

CODE

:FractIntSign
StrParse "[Args]" "," "[Arg]" "[Argc]"
If "[Argc]" "=" "1"
SetVar "[Arg2]" "9"
Endif
If "[Arg1]" "<" "0"
SetVar "[Sign]" "-1"
Math "Abs([Arg1])" "9" "[Arg1]"
Else
SetVar "[Sign]" "1"
Endif
Math "[Arg1]-0.499999999999999" "0" "[Int]"
Math "[Arg1]-[Int]" "[Arg2]" "[Fract]"
Return

Given a positive integer numerator and positive integer denominator, the DIVMOD subroutine returns the integer quotient in variable [Div] and the integer remainder in variable [Mod]. The calling syntax is:

SetVar "[Args]" "Numerator,Denominator"
Gosub "DivMod"

Example:

SetVar "[Num]" "2001"
SetVar "[Denom]" "4"
SetVar "[Args]" "[Num],[Denom]" ... or just SetVar "[Args]" "2001,4"
Gosub "DivMod"
AlertBox "DivMod Example" "[Num] Div [Denom] = [Div]|[Num] Mod [Denom] = [Mod]"

Here is the DIVMOD subroutine:

CODE

IVMOD
StrParse "[Args]" "," "[Arg]" "[Argc]"
Math "[Arg1]/[Arg2]" "9" "[DivModTemp]"
Math "[DivModTemp]-0.499999999999999" "0" "[Div]"
Math "[Arg2]*[Div]" "0" "[DivModTemp]"
Math "[Arg1]-[DivModTemp]" "0" "[Mod]"
Return

Let's use the DIVMOD subroutine to write an ISLEAP subroutine (below) to determine whether a four-digit year such as 2001 is a leap year. The answer ("True" or "False") is returned in variable [isLeap]. The calling syntax is:

SetVar "[Args]" "FourDigitYear"
Gosub "isLeap"

Example:

SetVar "[SomeYear]" "1946"
SetVar "[Args]" "[SomeYear]" ... or just SetVar "[Args]" "1946"
Gosub "isLeap"
AlertBox "isLeap Example" "Is [SomeYear] a leap year? --- [isleap]"

Recall that in our modern western calendar, a four-digit year is a leap year if it is evenly divisible by 4 unless it also evenly divisible by 100 (turn of the century). But every fourth turn of the century is a leap year, so year 2000 is a leap year but years 1900 and 2100 are not.

Here is the ISLEAP subroutine.

CODE

:ISLEAP
StrParse "[Args]" "," "[Arg]" "[Argc]"
SetVar "[isLeapYYYY]" "[Arg1]"
SetVar "[Args]" "[isLeapYYYY],100"
Gosub "DivMod"
If "[Mod]" "=" "0"
SetVar "[Args]" "[isLeapYYYY],400"
Gosub "DivMod"
Else
SetVar "[Args]" "[isLeapYYYY],4"
Gosub "DivMod"
Endif
If "[Mod]" "=" "0"
SetVar "[isLeap]" "True"
Else
SetVar "[isLeap]" "False"
Endif
Return

Here is a NeoBook ATAN2 subroutine based on a definition found via Google.

DEFINITION FROM GOOGLE

CODE

atan2(y,x) :=
case 1: x > 0
atan(y/x)
case 2: x < 0
sign(y)*(pi - atan(abs(y/x)))
case 3: x = y = 0
0
case 4: x = 0
sign(y)*pi/2

ATAN2 SUBROUTINE USAGE

SetVar "[Args]" "Yvalue,Xvalue"
Gosub "Atan2"
CODE

:ATAN2
..ATAN2 INPUT: [Args] = "Y,X"
..ATAN2 OUTPUT: [Atan2] = angle in radians = atan(y/x) adjusted for quadrant

..uncomment the next line if you haven't defined [pi] elsewhere
..SetVar "[pi]" "3.141592654"

StrParse "[Args]" "," "[Arg]" "[Argc]"
If "[Arg1]" "<" "0"
SetVar "[SignY]" "-1"
Else
SetVar "[SignY]" "1"
Endif
If "[Arg2]" "=" "0"
If "[Arg1]" "=" "0"
..case 3
SetVar "[Atan2]" "0"
Else
..case 4
Math "[SignY]*0.50*[pi]" "9" "[Atan2]"
Endif
Else
If "[Arg2]" ">" "0"
..case 1
Math "Atan([Arg1]/[Arg2])" "9" "[Atan2]"
Else
..case 2
Math "[SignY]*([pi]-Atan(Abs([Arg1]/[Arg2])))" "9" "[Atan2]"
Endif
Endif
Return

With the action commands HideObject and ShowObject, you can select the display effect and speed at run time. Here is the list of effects from which you can select.

SetVar "[Effect0]" "None"
SetVar "[Effect1]" "Wipe Up"
SetVar "[Effect2]" "Wipe Down"
SetVar "[Effect3]" "Wipe Left"
SetVar "[Effect4]" "Wipe Right"
SetVar "[Effect5]" "Dissolve"
SetVar "[Effect6]" "Slide Up"
SetVar "[Effect7]" "Slide Down"
SetVar "[Effect8]" "Slide Left"
SetVar "[Effect9]" "Slide Right"
SetVar "[Effect10]" "Explode"
SetVar "[Effect11]" "Implode"
SetVar "[Effect12]" "Weave Horizontal"
SetVar "[Effect13]" "Weave Vertical"
SetVar "[Effect14]" "Split Horizontal"
SetVar "[Effect15]" "Split Vertical"
SetVar "[Effect16]" "Circle"
SetVar "[Effect17]" "Grow"
SetVar "[Effect18]" "Blocks"
SetVar "[Effect19]" "Checkerboard"
SetVar "[Effect20]" "Block Dissolve"
SetVar "[Effect21]" "Fade"

To select an effect and speed at random, you can use the following code

Random "10" "[RandomSpeed]"
Random "21" "[RandomEffectNumber]"
SetVar "[RandomEffect]" "[Effect[RandomEffectNumber]]"

The [RandomSpeed] and [RandomEffect] variables are be used like this:

HideObject "ObjectName" "[RandomEffect]" "[RandomSpeed]"