Search found 211 matches

by hhr
Apr 26, 2024 19:25
Forum: Community Discussion
Topic: Deleting .exe file when compiling.
Replies: 5
Views: 214

Re: Deleting .exe file when compiling.

I have tried to reproduce the problem I had with FBEdit, but have not succeeded.
At the moment FBIde and FBEdit are working fine on my computer.
I am also using Windows 7.
by hhr
Apr 26, 2024 16:49
Forum: Community Discussion
Topic: Deleting .exe file when compiling.
Replies: 5
Views: 214

Re: Deleting .exe file when compiling.

I have this problem with FBEdit. That's why I don't use FBEdit. I get along wonderfully with FBIde. FBIde does not have this problem for me.
by hhr
Apr 20, 2024 22:15
Forum: Community Discussion
Topic: free Basic - just curious?
Replies: 14
Views: 898

Re: free Basic - just curious?

-
by hhr
Apr 12, 2024 19:42
Forum: Sources, Examples, Tips and Tricks
Topic: OpenB3D ASCII Art
Replies: 2
Views: 254

Re: OpenB3D ASCII Art

Where can I get OpenB3D?
A good library archive would be helpful.
by hhr
Apr 12, 2024 16:45
Forum: Sources, Examples, Tips and Tricks
Topic: Simple 2D Ball Collision Demo
Replies: 10
Views: 778

Re: Simple 2D Ball Collision Demo

@ UEZ
My screen is too small.
Instead of

Code: Select all

Const w = 1920
Const h = Int(w * 9 / 16)
Const h2 = h Shr 1
I tried

Code: Select all

Dim As Long w, h, h2
Screeninfo w, h
h2 = h Shr 1
by hhr
Mar 28, 2024 17:34
Forum: Sources, Examples, Tips and Tricks
Topic: Cairo animated spiral
Replies: 11
Views: 672

Re: Cairo animated spiral

Interesting example. I wanted to know what Cairo was needed for and simply removed Cairo. Without Cairo the points are shaking, with Cairo the points are calm. This is achieved by transparency (or grayscale) in the outer pixels, which is why the dots appear smaller when Cairo is used. But it's a mys...
by hhr
Mar 03, 2024 21:12
Forum: Sources, Examples, Tips and Tricks
Topic: my newest bits read / write
Replies: 2
Views: 329

Re: my newest bits read / write

A suggestion for an example: dim as udecimal a,b,c,d a = cudeci("123456789.123230000023000001") b = cudeci("545676666.997555555559999999") c = a + b d = b - a print udeci_str(c),udeci_str(d) c = c + d print udeci_str(c) d = b + b print udeci_str(d) print c = d, c > d, c >= d, c <...
by hhr
Mar 03, 2024 20:04
Forum: Beginners
Topic: Picture doesn't show until I click outside the graphics window
Replies: 3
Views: 408

Re: Picture doesn't show until I click outside the graphics window

I can confirm that. I have used tire.jpg from FBImage and the following example. Compile example, select exe file, press enter repeatedly. It seems to work reliably with put, but only sometimes with MultiPut. In the command prompt it does not seem to work at all with MultiPut. #include "FBImage...
by hhr
Feb 21, 2024 10:11
Forum: Sources, Examples, Tips and Tricks
Topic: Connected balls
Replies: 1
Views: 218

Connected balls

#cmdline "-s gui" Open Scrn As #1 : Close #1 ' Wait until console is active, useful in Linux with QTerminal Dim As Long w = 800,h = 600 Screenres w,h Window (0,0)-(1,1) Dim Shared As Single r,dt,c,d r = 0.01 ' radius dt = 0.02 ' interval c = 0.02 Type ball Dim As Single x,y,vx,vy End Type...
by hhr
Feb 17, 2024 8:35
Forum: General
Topic: Console window during graphics
Replies: 4
Views: 359

Re: Console window during graphics

You can try this line. The system waits until the console is active. If you then start a graphics window, the console window remains in the background. Open Scrn As #1 : Close #1 ' Wait until console is active In Linux, the line is useful when using QTerminal because QTerminal starts slowly. In othe...
by hhr
Feb 12, 2024 22:40
Forum: Sources, Examples, Tips and Tricks
Topic: Rounding numbers
Replies: 48
Views: 4942

Re: Rounding numbers

@ badidea, caseih, neil
Thanks for the helpful comments.
by hhr
Feb 11, 2024 18:18
Forum: Sources, Examples, Tips and Tricks
Topic: Rounding numbers
Replies: 48
Views: 4942

Re: Rounding numbers

This also works with sprintf: #Include "crt.bi" Dim As Double n,a(1 To ...) = {997.931, 997.932, 997.933, 997.934, 997.935, 997.936, 997.937, 997.938, 997.939} Dim As Zstring*20 zs Dim As Integer DecimalPlaces For i As Long = Lbound(a) To Ubound(a) n = a(i) Print "Original number &quo...
by hhr
Feb 10, 2024 18:03
Forum: Sources, Examples, Tips and Tricks
Topic: Rounding numbers
Replies: 48
Views: 4942

Re: Rounding numbers

Unfortunately, your suggestion does not work if the last digit is 1 or 3. Line 10 in the following suggestion seems to work. The disadvantage is that DecimalPlaces must be equal to the number of decimal places required in Print Using. Dim As Double n,a(1 To ...) = {997.931, 997.932, 997.933, 997.934...
by hhr
Feb 09, 2024 22:13
Forum: Sources, Examples, Tips and Tricks
Topic: Rounding numbers
Replies: 48
Views: 4942

Re: Rounding numbers

What should I say to that?