MyTutorial

[Permalink]
Tutorial: Barcode in REALbasic
Cooking Portable Delphi In Hell
SkinCrafter Made Easy….Skinning VB6 Application

Tutorial: Barcode in REALbasic
Officially, REALbasic is not supported by BarCodewiz, but guess what?? it took one minute to make it works in REALbasic…download my source code here, then you can further modify it to suit your needs

Requirement:
Barcodewiz ActiveX (i’m using ver 2.56)
REALbasic IDE (i’m using REALbasic 2008r2 Pro)

// the code

Window1.Open:
// similar to sub form_load() in VB
Sub Open()
editfield1.setfocus
MyBarcode
End Sub

Window1 Control popsim: //popupmenu control
Sub Change()
MyBarcode
End Sub

Window1 Control EditField1: //editfield control
Sub TextChange()
MyBarcode
End Sub

Window1.MyBarcode:
//this is method
Sub MyBarcode()
//////////////////////////////////////////////////////////////////////
‘Brought to you by Andra
‘Coderockstar Inc
‘Indonesia
‘I’m using BarCodeWiz ActiveX 2.56
‘pokel.wordpress.com
‘andralance at gmail dot com
/////////////////////////////////////////////////////////////////////
dim simbol,simbol2 as string
dim simbol_conv_to_numeric as integer

simbol=left(popsim.text,2)
simbol2=trim(simbol)
simbol_conv_to_numeric=val(simbol2)
barcodewiz1.symbology=simbol_conv_to_numeric
barcodewiz1.barcode=editfield1.text
End Sub

WARNING
barcodewiz.dll is required and must be correctly registered. See error pic below.
use this command to register: REGSVR32 barcodewiz.dll

Cooking Portable Delphi In Hell
Care for yet another mischief anyone???? here we go

1. grab andy’s portable turbo delphi lite here (88 MB), The portable, lite and free version of Turbo Delphi, which designed to run on any computers and USB disks without installation.
2. extract the files (final size=178 MB)
3. navigate to /help folder and delete the delphi.chm help files (61 MB, what a massive help!), 178 MB – 61 MB = 117 MB
4. Compress it (rar, isz, 7z, zip; final size, approx 30 MB)

so what’s the point anyway??? hehehehe……well….we will squezze turbodelphi hard like there’s no tomorrow

5. grab winmount archive mounter here

6. mount the compressed files

7. congrats…please welcome your new small, fully functioning portable turbo delphi IDE (final size, approx 30 MB)

plus: .net free

disclaimer: use it at your own risk

SkinCrafter Made Easy….Skinning VB6 Application
Kalo kalian pake SkinCrafter di VB6, sampel kode di help filenya kan posisi skin filenya di hard-coding gitu yak, kayak gini:

Private SkinOb As New SKINCRAFTERLib.SCSkin3
Private Sub Form_Initialize()
SkinOb.InitLicenKeys “SKINCRAFTER”, “SKINCRAFTER.COM”, “support@skincrafter.com”, “DEMOSKINCRAFTERLICENCE”
SkinOb.DefineLanguage 2
SkinOb.InitDecoration 1
SkinOb.LoadSkinFromFile “D:\\Skin.skf”
SkinOb.ApplySkin
End Sub

Untuk ngatasin ini pake App.Path aja gw yakin kebanyakan ente dah pada tau yak, ni sampel kode gw

Private SkinOb As New SKINCRAFTERLib.SCSkin3
Private Sub Form_Initialize()
Dim Lokasi As String
SkinOb.InitLicenKeys “SKINCRAFTER”, “SKINCRAFTER.COM”, “support@skincrafter.com”, “DEMOSKINCRAFTERLICENCE”
SkinOb.DefineLanguage 2
SkinOb.InitDecoration 1
Lokasi = App.Path & “\skin.skf”
SkinOb.LoadSkinFromFile Lokasi
SkinOb.ApplySkin
End Sub

Plus supaya bisa jalan dengan baik pastikan file berikut elo sertakan
GDIPLUS.DLL
MFC80.DLL
Microsoft Visual C++ 2005 SP1 Redistributable Package
SkinCrafter3.dll

dan SkinCrafter3.dll harus di register di sistem, kalo mo manual sih kayak gini caranya

REGSVR32.EXE SkinCrafter3.dll

lebih oke kalo installermaker/setupcreator/apapun package creator pilihan elo mendukung registrasi otomatis. kalo gak yah manual aja ataw pake bat file…gampang kan

happy coding folks….