> >FUNCTION Int2Float(num) && By Anatoly Mogylevets - found in www.fox.wikis.com > * converts FoxPro numeric to 32-bit float form > #DEFINE REAL_BIAS 127 > #DEFINE REAL_MANTISSA_SIZE 23 > #DEFINE REAL_NEGATIVE 0x80000000 > #DEFINE EXPONENT_MASK 0x7F800000 > #DEFINE MANTISSA_MASK 0x7FFFFF > LOCAL sgn, exponent, mantissa > DO CASE > CASE num < 0 **************************************************** OPERATOR TYPE MISMATCH > sgn = REAL_NEGATIVE > num = -num > CASE num > 0 > sgn = 0 > OTHERWISE > RETURN 0 > ENDCASE > >Run this example:
SET PROCEDURE TO LOCFILE("Source\FoxBarcode.prg"), LOCFILE("Source\gpImage2.prg") ADDITIVE *--- Create FoxBarcode Object LOCAL loFbc loFbc = CREATEOBJECT("FoxBarcode") *-- Set the properties WITH loFbc .cImageType = "BMP" .nBarcodeType = 110 && Code 128 .cSet128 = "C" && Set 128 C .nImageHeight = 100 .nFactor = 2 ENDWITH *-- Generate image lcImage = loFbc.BarcodeImage("123456789012") *-- Create form LOCAL loForm AS FORM loForm = CREATEOBJECT("Form") loForm.CAPTION = "FoxBarcode example" loForm.WIDTH = 800 loForm.HEIGHT = 400 loForm.AUTOCENTER = .T. loForm.ADDOBJECT("Image1", "Image") loForm.Image1.PICTURE = lcImage loForm.Image1.VISIBLE = .T. loForm.SHOW(1) loForm = NULL loFbc = NULL RETURNOr better, run Main.prg to show you the form FoxBarcode Demo.
DO Main.prg