Search found 89 matches

by I3I2UI/I0
Dec 15, 2012 9:59
Forum: Game Dev
Topic: JASC Soccer
Replies: 78
Views: 28343

Re: JASC Soccer

Hi, some little improvements: GFX INIT--------------------------------------------------------- ScreenRes SCREEN_W,SCREEN_H,24,2,0 ' Sets the graphic mode ScreenSet 1, 0 Cls WindowTitle GAME_NAME + " " + Str(GAME_VERSION)'<-- WindowTitle .. .. If InKey = Chr(255,107) Then Exit Do '<-- clos...
by I3I2UI/I0
Nov 17, 2012 0:26
Forum: Tips and Tricks
Topic: 24bit to 16bit
Replies: 15
Views: 7665

Re: 24bit to 16bit

Hi 1000101
Yes, you are absolutely right!
by I3I2UI/I0
Nov 16, 2012 23:40
Forum: Tips and Tricks
Topic: 24bit to 16bit
Replies: 15
Views: 7665

Re: 24bit to 16bit

Oh,

Code: Select all

hrgb_(r,g,b,rgb16)          0.6107652472974487
_hrgb_(r,g,b,rgb16)         0.6577056870029688
_hrgb_x(r,g,b,rgb16)        0.6453796180415029
Hrgb(r,g,b)                 0.9810234092454984

on ATOM 1,66GHz
by I3I2UI/I0
Nov 15, 2012 22:56
Forum: Tips and Tricks
Topic: 24bit to 16bit
Replies: 15
Views: 7665

Re: 24bit to 16bit

The asm macro (hrgb_) is the fastest. Test: #Macro hrgb_(red,green,blue,rgb16) Asm mov al, [red] ' RRRRRRRR Shl eax, 5 ' RRRRRRRR00000 mov al, [green] ' RRRRRGGGGGGGG Shl eax, 6 'RRRRRGGGGGGGG000000 mov al, [blue] 'RRRRRGGGGGGBBBBBBBB Shr eax, 3 '000RRRRRGGGGGGBBBBB mov [rgb16], eax' RRRRRGGGGGGBBBB...
by I3I2UI/I0
Oct 23, 2012 11:03
Forum: Windows
Topic: Windows Taskbar access
Replies: 4
Views: 872

Re: Windows Taskbar access

with autohide, only xp and higher #Include Once "windows.bi" #Include Once "win/shellapi.bi" Const ABM_SETSTATE As Integer = &HA Declare Sub showtaskbar Declare Sub hidetaskbar Declare Function IsTaskbarAutoHideOn As Integer hidetaskbar ? IsTaskbarAutoHideOn Sleep 4000 showta...
by I3I2UI/I0
Sep 17, 2012 8:27
Forum: Libraries
Topic: FBGUI library for Windows 2
Replies: 800
Views: 161005

Highlighting window9 keywords

For highlighting in FbEdit (FbEdit.ini, C16 -> 'Custom1') C16="AddComboBoxImageItem AddComboBoxItem AddKeyboardShortcut AddListBoxItem AddListViewColumn AddListViewItem AddPanelGadgetItem AddRebarTab AddSysTrayIcon AddTreeViewItem AESDecoder AESEncoder ArcDrawA ASCIITOUTF BezierDrawA BoxDraw Bo...
by I3I2UI/I0
Apr 27, 2012 20:19
Forum: Windows
Topic: reading big-endian binary files
Replies: 20
Views: 3150

Re: reading big-endian binary files

a fast method:

Code: Select all

Dim As Single a = 1.234567e-13

#Macro endian(c)
  Asm  mov eax,[c]
  Asm  bswap eax
  Asm  mov [c],eax
#EndMacro


Print a
endian(a)
Print a
endian(a)
Print a
Sleep
by I3I2UI/I0
Feb 03, 2012 13:33
Forum: Tips and Tricks
Topic: Sort Array
Replies: 62
Views: 12522

Re: Sort Array

I have the same Error as @fxm Only the 'naked' with '-exx' option makes the mistake. System: FBEdit: 1.0.7.6c fbc: FreeBASIC Compiler - Version 0.23.0 (08-14-2011) for win32 (target:win32) OS: Windows 7 (Service Pack 1) edit: _Qsort 0.490 ASM_QSort 0.377 RapidSort 0.235 C qsort 0.717
by I3I2UI/I0
Feb 02, 2012 22:18
Forum: Tips and Tricks
Topic: Sort Array
Replies: 62
Views: 12522

Re: Sort Array

yes @Richard

Function compare naked Cdecl(..) is incompatible with the option -exx
why? I do'nt knows.
by I3I2UI/I0
Feb 02, 2012 19:37
Forum: Tips and Tricks
Topic: Sort Array
Replies: 62
Views: 12522

Re: Sort Array

@MichaelW 'qsort' is not faster (is a fake :)) ''============================================================================= #Include "crt.bi" ''============================================================================= Dim As UInteger MaxSize = 1000000 Dim Shared NumArray(MaxSize) As...
by I3I2UI/I0
Jan 16, 2012 16:39
Forum: Tips and Tricks
Topic: Sort Array
Replies: 62
Views: 12522

Re: Sort Array

Someone can offer a faster version? Yes! Dim As UInteger MaxSize = 2000000 Dim Shared NumArray(MaxSize) As UInteger Randomize Timer Sub Qsort(start As Integer,Finish As UInteger) Dim As UInteger I=start,J=Finish,X=NumArray(Int((I+J)/2)),A While I <= J While NumArray(I) < X I+=1 Wend While NumArray(...
by I3I2UI/I0
Dec 02, 2011 22:01
Forum: Libraries
Topic: FBGUI library for Windows 2
Replies: 800
Views: 161005

Hi rolliebollocks, try

Code: Select all

...
AddListBoxItem (3, "context.words(i).txt")
...
by I3I2UI/I0
Oct 14, 2011 20:56
Forum: Libraries
Topic: FBGUI library for Windows 2
Replies: 800
Views: 161005

Hi VANYA, small correction for GetLineEditor.bas Function GetLineTextEditor(... ... SendMessage(GadgetID( 1 ),em_GetLine,Number,Cast(LPARAM,pTmp)) .... .... SendMessage(GadgetID( Gadget ),EM_GETLINE,Number,Cast(LPARAM,pTmp)) .... Test: #Include "window9.bi" Var hWnd = OpenWindow("...
by I3I2UI/I0
Oct 13, 2011 8:57
Forum: Windows
Topic: Trying to make my first tabbed control (Win GUI)
Replies: 3
Views: 744

with window9 :) #Include "window9.bi" Dim text As ZString*250 Var hWnd = OpenWindow("PanelGadget",0,0,380,230,WS_OVERLAPPEDWINDOW Or WS_VISIBLE) CenterWindow(hWnd) Var Edit = EditorGadget(5,250,20,100,25) Var hTab = PanelGadget(1,0,0,230,150,,WS_CHILD ...
by I3I2UI/I0
Sep 06, 2011 15:43
Forum: Libraries
Topic: FBGUI library for Windows 2
Replies: 800
Views: 161005

only with XP-Manifest http://img.wyday.com/blog/images/2009/windows-7-progress-bars/states.png 'http://msdn.microsoft.com/en-us/library/bb760850%28VS.85%29.aspx #define PBM_SETSTATE &h410 'WM_USER+16 #define PBST_NORMAL 1 #define PBST_ERROR 2 #define PBST_PAUSED 3 'only Vista Style; green 1, re...

Go to advanced search