youtube video about qb64 [youtube]https://youtu.be/4TyaM4XqHuI[/youtube]

 

Views: 2 | Added by: Zlatko | Date: 2021-11-17 | Comments (0)

Simply use SIN & COS functions .. make a loop with A from 0 to 2*PI and PLOT CX + R * COS(A), CY + R * SIN(A)

while a < 6.28

cx 

r

cy

Views: 7 | Added by: Zlatko | Date: 2021-11-03 | Comments (0)

best from Russian site 

Views: 33 | Added by: Zlatko | Date: 2021-08-02 | Comments (0)

so far it looks that work :

Views: 31 | Added by: Zlatko | Date: 2021-06-09 | Comments (0)

function stack ...option

// function or subroutine call
inside curly baraces is internal interpreter code


myFunc()
{ fnStack[index] : fst = index }
...
label CONTINUE
..
.|.
.V.
...................
func myFunc()
....................
label HERE:
{ fst = fst - 1 }

// recursive call from inside //

if TRUE
..............
myFunc()
..............
{ fst = fst + 1 }
{ index = fst }
{ pos = fnStack[index] } -> return to label HERE
end if

.........
endFn
.........
{ fst = fst + 1 }
{ pc = fnStack[fst] } -> return to label CONTINUE
Views: 46 | Added by: Zlatko | Date: 2021-03-21 | Comments (0)

primitive game in microA with Johnno help 
var r,g,b , mx , my, ax,ay, wp ,p,score
var bf, bx, by ,bs, ex,ey
ptr wmKeyDown, wmTimer
 ay = 175 : ax = 120 : ex = 5 : ey = 10
wcolor 0,0,0 : fcolor 140,180,200
print 20,410,"primitive game in micro(A)"
print 20,430,"move 'A' with LEFT<->RIGHT arrow keys"
print 20,450,"Shoot with SPACE bar"
print 20,470,"Pause with ESC key"
print 456,10,"player" : print 456,40,"bullet" : print 456,70,"enemy"
print 456,100,"score"
updateScreen() : fcolor 220,10,10 : print ax,ay,"A" 


WinMsg wmKEYDOWN

hWparam wp
'vkLEFT ?-----------------------------------
if wp = 37 
   if ax > 11 : ax = ax - 5 :endif 
endif

'vkRIGHT ?---------------------------- ... Read more »

Views: 44 | Added by: Zlatko | Date: 2021-03-16 | Comments (0)

Decimal    Key
8    BACKSPACE key
9    TAB key
12    CLEAR key
13    ENTER key
16    SHIFT key
17    CTRL key
18    ALT key
19    PAUSE key
20    CAPS LOCK key
27    ESC key
32    SPACEBAR
33    PAGE UP key
34    PAGE DOWN key
35    END key
36    HOME key
37    LEFT ARROW key
38    UP ARROW key
39    RIGHT ARROW key
40    DOWN ARROW key
41    SELECT key
42    PRINT key
43    EXECUTE key
44    PRINT SCREEN key
45    INS key
46    DEL key
47 &n ... Read more »

Views: 49 | Added by: Zlatko | Date: 2021-03-11 | Comments (0)

Very good SW Regen

Views: 141 | Added by: Zlatko | Date: 2020-12-30 | Comments (0)

3 V FM SuperRegen build on universal PCB

Attachments: Image 1
Views: 77 | Added by: Zlatko | Date: 2020-12-02 | Comments (0)

Here is image of amp 40W which makes 1500 likes on facebook.

 

Views: 63 | Added by: Zlatko | Date: 2020-10-19 | Comments (0)

1 2 3 4 »