freebasic.net

Richard

There is always a problem searching for the resonant frequency of an LC tank circuit based on amplitude alone because you cannot easily know which way to search. By feeding a signal generator through a resistor into an LC tank you can use a dual channel oscilloscope to digitise the voltage on both s...

Richard

Back in the 1980s when fractals became a fad there was some interest in generating regular patterns randomly. I extracted these from my 1992 TurboBASIC archives, I did not write the original coefficients but I adjusted them. These programs are simple vector convolvers, they evaluate new x and y coor...

Richard

Triangles are boring, go organic, to a rainforest. Data 4 Data 0.85, 0.04, -0.04, 0.85, 0, 1.6, 0.85 Data -0.15, 0.28, 0.26, 0.24, 0, 0.44, 0.07 Data 0.2, -0.26, 0.23, 0.22, 0, 1.6, 0.07 Data 0, 0, 0, 0.16, 0, 0, 0.01 Screen 20 Dim As Integer j, k, m Dim As Double a(4),b(4),c(4),d(4),e(4),f(4),p(4) ...

Richard

Preguntas del poste en español o uso Babel Fish http://world.altavista.com/tr '----------------------------------------------------------------- ' Demonstration of Integer Long Multiplication ' Translation from pre-QB BASIC to FreeBASIC ' Translation of comments from Spanish to English '------------...

Richard

You are the first to use my F77 to FB translator. I would post translator into the forum projects if I was confident that others might benefit without too many problems. You found Tab characters upset it, I found CR terminated lines needed to be replaced with CRLF which is why it uses Binary file re...

Richard

Common is also an FB keyword, check the help. Translator was written to handle most of the work of rewriting a big library that had been translated from FORTRAN4 to F77. It was expanded to handle the original authors restricted style as I cleaned up its output. It was not meant to be more than the f...

Richard

Use Dim As String f = "tcanon"' filename to convert Then look at temp.bas which is the first pass output. Then tcanon.bas should be a pretty good translate. note: 1. Initialise data in F77 arrays is reverse dimension order of FB. 2. FB now has terrible ByRef / ByVal defaults. QB4.5 was ByR...

Richard

Here is a crude text converter that did most of a couple of hundred F77 files for me. If you need an FB.bas from an F77.f then give this a try rather than translating by hand. '====================================================================== ' Convert Fortran77 to FreeBASIC style '============...

Richard

Why fix it if it ain’t broke ? Perhaps the first thing to do is to go through the rtl and fully document it. Only then might it be possible to analyse the costs/benefits of translation. Thorough documentation of the rtl would discover a few undiagnosed bugs. Straight translation without documentatio...

Richard

Labels within FB #Macro and GAS .Macro blocks The FreeBASIC assembler uses GAS = Gnu ASsembler The $ symbol is not supported, it is NOT current address of IP A FreeBASIC #macro is different to a GAS .macro FreeBASIC #macro does not seem to count it's invocations, (expansions) \@ is a counter that co...

Richard

Code: Select all

#Macro NearPwr2(v, r)
Asm
    mov eax, [v]
    cmp eax, 2
    ja  $+7     ' over
    mov eax, 2
    ' over: 
    bsr ecx, eax
    dec ecx
    Shr eax, cl
    dec ecx
    add ecx, eax
    mov eax, 1
    Shl eax, cl
    mov [r], eax
End Asm
#EndMacro

Richard

To quote help: Contents,Tables,Variable types.
“Long and Ulong data types vary with platform. Currently, they are aliases to either Integer or LongInt and their unsigned versions, respectively”

Richard

unless otherwise specified assumed integer, force long integer calc with suffix Cls Dim As LongInt sum Dim as integer i sum = 0 For i = 0 To 4032064 If (i Mod 2008) = Int(i / 2008) Then sum = sum + i Next Print sum print 2009ul*(1004ul * 2007ul) If sum = 2009ul*(1004ul * 2007ul) Then Print "YES...

Richard

Screen 18 Window (0,0)-(500, 400) ' put screen the right way up Dim As Double x2, y2, dx, dy, w, ww, deg Dim As Double Pi = 4 * Atn(1) Dim As Double TwoPi = 8 * Atn(1) Dim As Double RtoD = 180 / Pi ' radians * RtoD = degrees Dim As Double x1 = 200, y1 = 200 Dim As Double r = 80 ' radius For deg = 0...

Richard

OEM = Original Equipment Manufacturer who makes the pack. The assembler buys the pack from the OEM, puts things together, adds a Brand name and Badge, then sells it through distributors to customers.
I do not need pictures. I will lookup SMBus when I have time.

Search found 3056 matches