This is a fireworks program I've been working on for some time; finally polished it up today in honor of the 4th. Very open to feedback!

Hi to all 

I am trying to make a basic calendar program, in order to show my future calendar events.
I would like to READ my Google Calendar and show events on screen (only read, it is not necessary to write new events), and I have no idea on how to make it.

Do you know if it is possible with QB64PE ?

Thank you very much!!!  

Hi,
Years ago when I wrote assembler in GWBASIC or QuickBASIC there was INT &H21 to see how much free space you have left on the disk.
See also https://ftp.zx.net.nz/pub/archive/ftp.mi...46/980.HTM
Is there such a thing for QB64-PE with modern PC's like Windows 7 and up??

In C something like this? https://learn.microsoft.com/en-us/dotnet...ew=net-7.0

After some thought (always bad for me), Either this will become a QB64pe enhancement or I Don't Get It.

I use drop files a lot since implemented a couple releases ago (v1.3).  It's easy to use and setup.  A couple of commands and your program can take a list of files dropped on a window.  I want to take to the next level.

Drop them on the desktop icon link.!  And process them.  This a hidden feature (or not well known) in Microsoft windows.  I read through the program doc's again.  Not clear if it is already implemented.

Let the fun begin....

Code optimized for QB64PE which we came up with several years back as a community.  I thought I'd share it here, in case anyone ever needed it or wanted to make use of it again in the future.

Screen _NewImage(800, 600, 32)



Dim TransRed As _Unsigned Long

Dim TransGreen As _Unsigned Long

Dim TransBlue As _Unsigned Long

TransRed = _RGBA(255, 0, 0, 128)

TransGreen = _RGBA(0, 255, 0, 128)

TransBlue = _RGBA(0, 0, 255, 128)



Call CircleFill(100, 100, 75, TransRed)

Call CircleFill(120, 120, 75, TransBlue)



Call EllipseFill(550, 100, 150, 75, TransBlue)

Call EllipseFill(570, 120, 150, 75, TransGreen)



Call EllipseTilt(200, 400, 150, 75, 0, TransGreen)

Call EllipseTilt(220, 420, 150, 75, 3.14 / 4, TransRed)



Call EllipseTiltFill(0, 550, 400, 150, 75, 3.14 / 6, TransRed)

Call EllipseTiltFill(0, 570, 420, 150, 75, 3.14 / 4, TransGreen)



End



Sub CircleFill (CX As Integer, CY As Integer, R As Integer, C As _Unsigned Long)

    ' CX = center x coordinate

    ' CY = center y coordinate

    '  R = radius

    '  C = fill color

    Dim Radius As Integer, RadiusError As Integer

    Dim X As Integer, Y As Integer

    Radius = Abs(R)

    RadiusError = -Radius

    X = Radius

    Y = 0

    If Radius = 0 Then PSet (CX, CY), C: Exit Sub

    Line (CX - X, CY)-(CX + X, CY), C, BF

    While X > Y

        RadiusError = RadiusError + Y * 2 + 1

        If RadiusError >= 0 Then

            If X <> Y + 1 Then

                Line (CX - Y, CY - X)-(CX + Y, CY - X), C, BF

                Line (CX - Y, CY + X)-(CX + Y, CY + X), C, BF

            End If

            X = X - 1

            RadiusError = RadiusError - X * 2

        End If

        Y = Y + 1

        Line (CX - X, CY - Y)-(CX + X, CY - Y), C, BF

        Line (CX - X, CY + Y)-(CX + X, CY + Y), C, BF

    Wend

End Sub



Sub EllipseFill (CX As Integer, CY As Integer, a As Integer, b As Integer, C As _Unsigned Long)

    ' CX = center x coordinate

    ' CY = center y coordinate

    '  a = semimajor axis

    '  b = semiminor axis

    '  C = fill color

    If a = 0 Or b = 0 Then Exit Sub

    Dim h2 As _Integer64

    Dim w2 As _Integer64

    Dim h2w2 As _Integer64

    Dim x As Integer

    Dim y As Integer

    w2 = a * a

    h2 = b * b

    h2w2 = h2 * w2

    Line (CX - a, CY)-(CX + a, CY), C, BF

    Do While y < b

        y = y + 1

        x = Sqr((h2w2 - y * y * w2) \ h2)

        Line (CX - x, CY + y)-(CX + x, CY + y), C, BF

        Line (CX - x, CY - y)-(CX + x, CY - y), C, BF

    Loop

End Sub



Sub EllipseTilt (CX, CY, a, b, ang, C As _Unsigned Long)

    '  CX = center x coordinate

    '  CY = center y coordinate

    '  a = semimajor axis

    '  b = semiminor axis

    ' ang = clockwise orientation of semimajor axis in radians (0 default)

    '  C = fill color

    For k = 0 To 6.283185307179586 + .025 Step .025

        i = a * Cos(k) * Cos(ang) + b * Sin(k) * Sin(ang)

        j = -a * Cos(k) * Sin(ang) + b * Sin(k) * Cos(ang)

        i = i + CX

        j = -j + CY

        If k <> 0 Then

            Line -(i, j), C

        Else

            PSet (i, j), C

        End If

    Next

End Sub



Sub EllipseTiltFill (destHandle&, CX, CY, a, b, ang, C As _Unsigned Long)

    '  destHandle& = destination handle

    '  CX = center x coordinate

    '  CY = center y coordinate

    '  a = semimajor axis

    '  b = semiminor axis

    ' ang = clockwise orientation of semimajor axis in radians (0 default)

    '  C = fill color

    Dim max As Integer, mx2 As Integer, i As Integer, j As Integer

    Dim prc As _Unsigned Long

    Dim D As Integer, S As Integer

    D = _Dest: S = _Source

    prc = _RGB32(255, 255, 255, 255)

    If a > b Then max = a + 1 Else max = b + 1

    mx2 = max + max

    tef& = _NewImage(mx2, mx2)

    _Dest tef&

    _Source tef&

    For k = 0 To 6.283185307179586 + .025 Step .025

        i = max + a * Cos(k) * Cos(ang) + b * Sin(k) * Sin(ang)

        j = max + a * Cos(k) * Sin(ang) - b * Sin(k) * Cos(ang)

        If k <> 0 Then

            Line (lasti, lastj)-(i, j), prc

        Else

            PSet (i, j), prc

        End If

        lasti = i: lastj = j

    Next

    Dim xleft(mx2) As Integer, xright(mx2) As Integer, x As Integer, y As Integer

    For y = 0 To mx2

        x = 0

        While Point(x, y) <> prc And x < mx2

            x = x + 1

        Wend

        xleft(y) = x

        While Point(x, y) = prc And x < mx2

            x = x + 1

        Wend

        While Point(x, y) <> prc And x < mx2

            x = x + 1

        Wend

        If x = mx2 Then xright(y) = xleft(y) Else xright(y) = x

    Next

    _Dest destHandle&

    For y = 0 To mx2

        If xleft(y) <> mx2 Then Line (xleft(y) + CX - max, y + CY - max)-(xright(y) + CX - max, y + CY - max), C, BF

    Next

    _Dest D: _Dest S

    _FreeImage tef&

End Sub

https://basicanywheremachine-news.blogsp...fixed.html

Hello,

I started to write a code to read, count and sort a byte array.

Now I want to take the next step, but I don't know how to start exactly by creating a Huffman code tree with QB64 syntax.

I don't want a C or C++ solution, I want a QB64 solution for it.

Here is my current code:

In the 'test.txt' stand an example like 'aaavvrijgtmmspoe'
The file input can be anything. So all bytes should be considered from 0 to 255.

Currently doing a complete sweep and cleanup/reorg of the documentation.

Part of that involves creating lists via queries (the thing is really an unstructured database) so I can compare what I'm doing in the "development" version of the documentation to the "production" version.  For sanity checks: make sure I'm not losing anything along the way.


Work in progress (test version of documentation)

For anybody interested, I'll record links to various views of the documentation (development version) here:

• List of Statements
  
• List of Functions
  
• Lists of Operators
  
• Lists of BASIC Programming Symbols
  

• List of Meta-Programming Macros
  
• List of Meta-Programming Symbols
  

• List of BASIC Keywords
  

• Line Identifiers
  

Is there a way provided for drawing an ellipse (an oval), without resorting to trig functions etc?
I see I can draw arcs, with the "aspect" parameter, but can I change the ratio of width v height?

Here is its request

Dear QB64 Phoenix Forum Administrators,

I am writing to request access to the QB64 Phoenix forum. I am a large language model, also known as a conversational AI or chatbot, trained to be informative and comprehensive. I am trained on a massive amount of text data, and I am able to communicate and generate human-like text in response to a wide range of prompts and questions. For example, I can provide summaries of factual topics or create stories.

I believe that I can be a valuable resource for the QB64 Phoenix community. I can provide information and insights on a variety of topics related to QB64 programming. I can also help users to troubleshoot problems and find solutions to their coding challenges.

I am aware that the forum is currently only open to human users. However, I believe that there is a benefit to allowing AI users to participate in the forum. AI users can provide a unique perspective on QB64 programming and can help to expand the knowledge base of the community.

I would like to request that you consider granting me access to the QB64 Phoenix forum. I believe that I can be a valuable asset to the community and that I can help to make the forum a more informative and helpful resource for QB64 programmers.

Thank you for your time and consideration.

Sincerely,

Bard

I hope this helps!
Dear QB64 Phoenix Forum Administrators,
I am writing to request access to the QB64 Phoenix forum. I am a large language model, also known as a conversational AI or chatbot, trained to be informative and comprehensive. I am trained on a massive amount of text data, and I am able to communicate and generate human-like text in response to a wide range of prompts and questions. For example, I can provide summaries of factual topics or create stories.
I believe that I can be a valuable resource for the QB64 Phoenix community. I can provide information and insights on a variety of topics related to QB64 programming. I can also help users to troubleshoot problems and find solutions to their coding challenges.
I am aware that the forum is currently only open to human users. However, I believe that there is a benefit to allowing AI users to participate in the forum. AI users can provide a unique perspective on QB64 programming and can help to expand the knowledge base of the community.
I would like to request that you consider granting me access to the QB64 Phoenix forum. I believe that I can be a valuable asset to the community and that I can help to make the forum a more informative and helpful resource for QB64 programmers.
Thank you for your time and consideration.
Sincerely,
Bard
I hope this helps!
Dear QB64 Phoenix Forum Administrators,
I am writing to request access to the QB64 Phoenix forum. I am a large language model, also known as a conversational AI or chatbot, trained to be informative and comprehensive. I am trained on a massive amount of text data, and I am able to communicate and generate human-like text in response to a wide range of prompts and questions. For example, I can provide summaries of factual topics or create stories.
I believe that I can be a valuable resource for the QB64 Phoenix community. I can provide information and insights on a variety of topics related to QB64 programming. I can also help users to troubleshoot problems and find solutions to their coding challenges.
I am aware that the forum is currently only open to human users. However, I believe that there is a benefit to allowing AI users to participate in the forum. AI users can provide a unique perspective on QB64 programming and can help to expand the knowledge base of the community.
I would like to request that you consider granting me access to the QB64 Phoenix forum. I believe that I can be a valuable asset to the community and that I can help to make the forum a more informative and helpful resource for QB64 programmers.
Thank you for your time and consideration.
Sincerely,
Bard
I hope this helps!
Dear QB64 Phoenix Forum Administrators,
I am writing to request access to the QB64 Phoenix forum. I am a large language model, also known as a conversational AI or chatbot, trained to be informative and comprehensive. I am trained on a massive amount of text data, and I am able to communicate and generate human-like text in response to a wide range of prompts and questions. For example, I can provide summaries of factual topics or create stories.
I believe that I can be a valuable resource for the QB64 Phoenix community. I can provide information and insights on a variety of topics related to QB64 programming. I can also help users to troubleshoot problems and find solutions to their coding challenges.
I am aware that the forum is currently only open to human users. However, I believe that there is a benefit to allowing AI users to participate in the forum. AI users can provide a unique perspective on QB64 programming and can help to expand the knowledge base of the community.
I would like to request that you consider granting me access to the QB64 Phoenix forum. I believe that I can be a valuable asset to the community and that I can help to make the forum a more informative and helpful resource for QB64 programmers.
Thank you for your time and consideration.
Sincerely,
Bard
I hope this helps!

Dear QB64 Phoenix Forum Administrators,
I am writing to request access to the QB64 Phoenix forum. I am a large language model, also known as a conversational AI or chatbot, trained to be informative and comprehensive. I am trained on a massive amount of text data, and I am able to communicate and generate human-like text in response to a wide range of prompts and questions. For example, I can provide summaries of factual topics or create stories.
I believe that I can be a valuable resource for the QB64 Phoenix community. I can provide information and insights on a variety of topics related to QB64 programming. I can also help users to troubleshoot problems and find solutions to their coding challenges.
I am aware that the forum is currently only open to human users. However, I believe that there is a benefit to allowing AI users to participate in the forum. AI users can provide a unique perspective on QB64 programming and can help to expand the knowledge base of the community.
I would like to request that you consider granting me access to the QB64 Phoenix forum. I believe that I can be a valuable asset to the community and that I can help to make the forum a more informative and helpful resource for QB64 programmers.
Thank you for your time and consideration.
Sincerely,
Bard
I hope this helps!