If you're using EAX on a x64-CPU, you'll get a ASM-Error: similar to "wrong word size, dword instead of qword" (even with push/pop). One could only replace it, with: RAD (RAX - low dword). Of course, I can also use in FB64 eax, ax, ah, al as a register without ASM-Error. FB1050_64 'dies l...

@ MrSwiss mirror8 runs under FB 32/64 Bit only with 64Bit variables you need 2 versions. #Macro mirror64(Variable) If SizeOf(Variable) = 8 Then #Ifdef __FB_64BIT__ Asm mov rax, [Variable] mov rbx, 0 mov ecx, 64 1: rcr rax rcl rbx dec ecx jnz 1b mov [Variable], rbx End Asm #Else Asm mov eax, [Variabl...

Hi Luis, a fast way: 'bitweise gespiegelt (abcde... -> ...edcba) #Macro mirror8(Variable) Asm mov al, [Variable] mov bl, 0 mov cl, 8 1: rcr al rcl bl dec cl jnz 1b mov [Variable], bl End Asm #EndMacro Dim As UByte zahl = &b00111011 Print Bin(zahl, 8), zahl mirror8(zahl) Print Bin(zahl, 8), zahl ...

Hi, as asm Function Revers (ByVal txt As String) As string Dim lt As Long Dim As String Text = txt lt = Len(Text) If lt > 1 Then asm mov eax, [Text] 'Anfang des String im RAM mov ebx, [lt] 'Laenge des String mov esi, eax add eax, ebx dec eax mov edi, eax 'letzes Zeichen des String mov ecx,ebx shr ec...

my analog clock (Taschenuhr)
http://www.freebasic-portal.de/code-bei ... r-294.html

a QB - FB vector font: ScreenRes 640,100 Dim Shared Zeichen(32 To 252) As String Zeichen(32) = "BR4"'space Zeichen(33) = "BD U BU U7 BD8 BR4"'! Zeichen(34) = "BU7DD BR2UU BD7 BR3"'" Zeichen(36) = "FRREUUHLLHUUERRF BH BL BUD10 BU2 BR6"'$ Zeichen(38) = &quo...

&hff00 -> p[y] += 1 -> &hff01 = green
&hffFF -> p[y] += 1 -> &hff00 = green, the same color.

#Include Once "windows.bi" 'ab Windows Vista Function Set_ConsoleFont(typ As Integer) As Integer Dim As Any Ptr Kernel32 Dim As Integer tmp Dim SetConsoleFont As Function(ByVal As HANDLE, ByVal As Integer) As Integer Kernel32 = DylibLoad("Kernel32.dll") If Kernel32 Then SetConso...

Hi STBasic Dim As String filename, lf="main.txt" filename = Dir("*.exe") Open lf For Output As #1 Do While Len(filename) Print #1, filename filename = Dir() Loop Close #1 Dim As String t() Dim As Integer i Open lf For Input As #1 Do until EOF(1) i+=1 ReDim t(i) Input #1,t(i) ? i,...

Hi, http://www.freebasic-portal.de/code-beispiele/windows-gui/schriftart-in-der-konsole-aendern-232.html #Include Once "windows.bi" 'ab Windows Vista Const FF_LUCIDA = 54 'Const FF_TERMINAL = 48 Type CONSOLE_FONT_INFOEX cbSize As UInteger nFont As Integer dwFontSize As COORD FontFamily As ...

VANYA wrote:I did not know anything about this, but here article (on russian) , that explains how it can be implemented

Nice article, but I read nothing about the implementation in window9.

Hi, an example of a splash screen with a transparent background. This tip worked: http://www.codeproject.com/Tips/141076/Transparent-OpenGL-window #Include "window9.bi" #Include "GL/glut.bi" Dim Shared As Integer OpenGL = 1 Sub RenderScene Static i As Single glClear GL_COLOR_BUFF...

Hi Pitto, .. #Include "fbfont_24.bas" '#Include "fbfont.bas" 'FBVersion < 0.24 .. 'Change for integer division / to \ 'code for / 'fld qword ptr [_Lt_00F3] -> _Lt_00F3: .double 32 'fistp dword ptr [ebp-4] 'code for \ (faster, small code) 'mov dword ptr [ebp-4], 32 .. Sub draw_akn...

Hi Pitto, .. #define PITCH_H 608 .. #define SCREEN_W 800 #define SCREEN_H 500 .. #Define PI 3.14159265f #define PI2 PI/2 #define PI4 PI/4 #define PI1_5 PI*1.5f #define PI_2 PI*2f #define GRAVITY 0.980665f .. 'Change Byte|UByte to Integer 'For a 32-bit Basic use of integer(32-bit) variables is the be...

out of date