Hello Everyone,

Here is my take on the 2 player abstract strategy board game Stonehenge where players a racing to be the first player to claim 8 separate lines.

Hope you enjoy playing

Donald

https://youtu.be/4_hu9PpVbfU










  Stone Henge Description.pdf (Size: 49.57 KB / Downloads: 81)
  Stonehenge_English_Rules.pdf (Size: 53.45 KB / Downloads: 95)

https://ipnp.cz/~kvasil/
Seems to be owned by a Professor of Mathematics and Physics at Charles University in Prague, lots of cool stuff in here, even if I understand close to zero!.

^ was shared by a friend, with me, so I thought I'd pass along the resources for anyone interested.  Seems to b tons of scanned in pages of hand written notes, lectures, projects, and all look like fancy scribbles to me!  

Just a quick idea/suggestion that maybe could be incorporated into the IDE at a later date.

It would be great if when viewing the SUBs in the IDE (View-->SUBs...  F2) the subroutines and functions from included libraries would also be listed. If one of the included subs or functions is chosen from the list a second IDE appears with that library's code scrolled down to that sub/function.

Within the SUBs listing box that appears showing Program Items perhaps the subroutines and functions contained in library files could be a different color to delineate them from the local subroutines and functions.

As a bonus pressing F1 within the code on an external library subroutine/function would act the same as pressing F1 on a local one.

Just a thought. Since the introduction of $INCLUDEONCE I have been breaking my libraries up into smaller library files making it easier to add just the routines I need to new projects. I often include the usage documentation directly into the include file within the subroutines and functions. It would be great if I could use F2 to select and view these include files at will in a secondary IDE.

I use RhoSigma's modified Notepad++ to do this now but sometimes I'll have 30+ documents open at a time and finding the right one for a quick peek at documentation takes a bit of time.

Moving ever backwards in our list of "new" QB64PE-releases, we count down to v3.10 and the following two commands which work together:
https://qb64phoenix.com/qb64wiki/index.php/$EMBED
https://qb64phoenix.com/qb64wiki/index.php/EMBEDDED$

Now let me say two very important things about these commands:
1) These are probably in my top 10 of new commands, and are some of the most useful commands we've ever added into the language.
2) These are utterly useless commands for many people, in most use cases.

Now take a moment to let those two statements sink in.  In fact, go back and reread them once again.  And then ask yourselves, "Whuuttt??  Is Steve drunk again??"

Hello all,

I've been revisiting my earlier attempt at threading in QB64pe. You can look at the old thread at https://qb64forum.alephc.xyz/index.php?topic=3865.0 Thanks to guys that responded to that thread and helped me. 

I'm happy to say I made a bit of progress. I managed to get two separate free running threads to run concurrent with my main QB64 program. They don't do much, but they show its possible.

In order to get it working I had to cheat and use a c header file to make a wrapper for pthreads. This makes the declarations easier.

'***********************************************************************************

' Proof of concept threading in QB64pe.

' by justsomeguy

'***********************************************************************************



' Thread Library Declaration

DECLARE LIBRARY "./pthreadGFXTest"

  SUB invokeLines ' start Lines thread

  SUB invokeCircles ' start Circles thread

  SUB joinThread0 ' wait til thread is finished

  SUB joinThread1 ' wait til thread is finished

  SUB exitThread ' must be called as thread exits

  SUB killThread0 ' kill the thread

  SUB killThread1 ' kill the thread

  SUB lockThread0 ' mutex lock

  SUB unlockThread0 ' mutex unlock

  SUB lockThread1 ' mutex lock

  SUB unlockThread1 ' mutex unlock

END DECLARE



' Global variables

DIM SHARED AS INTEGER q0, q1 ' quit signals

DIM AS STRING ky



' Setup screen

_TITLE "Thread test"

SCREEN _NEWIMAGE(1024, 768, 32)

_FONT 8

CLS



' Fire up freerunning threads

invokeCircles

invokeLines



' Campout in an infinite loop

DO

  ky = INKEY$

  LOCATE 1, 1

  PRINT "Lines are drawn on one thread, Circles are drawn in a second thread."

  PRINT "Press '1' to toggle the Line drawing thread. "

  PRINT "Press '2' to toggle the Circle drawing thread."

  PRINT "Press 'ESC' to exit."



  IF ky = "1" THEN

    q0 = NOT q0

    IF q0 THEN

      joinThread0

    ELSE

      invokeLines

    END IF

  END IF



  IF ky = "2" THEN

    q1 = NOT q1

    IF q1 THEN

      joinThread1

    ELSE

      invokeCircles

    END IF

  END IF



  ' Quit the whole program

  IF ky = CHR$(27) THEN q0 = -1: q1 = -1: joinThread0: joinThread1: SYSTEM

LOOP





'***********************************************************************************

' Threaded

'***********************************************************************************



SUB lines ()

  ' Free running loop

  DO

    ' lock a mutex, just to be safe

    lockThread0

    ' Do something

    LINE (RND * _WIDTH, RND * _HEIGHT)-(RND * _WIDTH, RND * _HEIGHT), _RGB32(RND * 255, RND * 255, RND * 255)

    ' unlock mutex

    unlockThread0

    ' do I need to jump out?

  LOOP UNTIL q0 = -1

  ' Must call exitThread when leaving, so that joinThread works.

  exitThread

END SUB



SUB circles ()

  ' Free running loop

  DO

    ' lock a mutex, just to be safe

    lockThread1

    ' Do something

    CIRCLE (RND * _WIDTH, RND * _HEIGHT), RND * 50, _RGB32(RND * 255, RND * 255, RND * 255)

    ' unlock mutex

    unlockThread1

    ' do I need to jump out?

  LOOP UNTIL q1 = -1

  ' Must call exitThread when leaving, so that joinThread works.

  exitThread

END SUB

Hi Everyone,
my name is Marco from Italy, I'm 49 and I am a teacher (History/Philosophy). I also like programming as an hobby, I like playing games on the PC. I have a MacBook with M2 processor and Sonoma as an OS. I'm following Terry's tutorial on how to learn QB64 and I'm really enjoying it. I registered yesterday to be more connected to the community of people who work at developing QB64PE in case of issues, questions and similar things. Up to now I downloaded two excellent games with which I played a little bit lately: Galaga, which brought so many memories of playing arcade games, and Tic Tac Toe Rings, which is in many respects a peculiar and beautiful game. I'll stay tuned and I hope I'll be making some progress with my QBasic and QB64 proficiency.
Thanks a lot for now,
Marco

The example is a random file that is connected to an index file. A kind of ISAM file management. The practical sense should be:
One cannot simply delete a record from a random file; For example, the data record with the item number (key) 2345 should be deleted.

To make this possible, entry 2345 in the index file must first be deleted, but the data record number, which is also saved and refers to the random file, remains intact. By deleting entry 2345 in the index file, all occupied entries in the index file move down, while the "deleted" entry with the data record number is stored as the first free field above it. The effect is that if a new data record is written, then the "deleted" data record is overwritten. In this respect, a random data record has been deleted after all. - So much for the theory.

The template for the example is from a book. There is no error message, but the result is not convincing!    I can't figure out why nothing useful is displayed. But there must be a logical error somewhere.

Maybe someone could look at the whole thing and find the error. Thanks!

Create random file:

'Randomdatei mit Index, Hueckstaedt S. 321 - 13. Mai 2024



$Console:Only



Option _Explicit



Type Warenposten

  nummer As String * 4

  artikel As String * 10

  preis As Double

End Type



'Variable von Warenposten

Dim datensatz As Warenposten



Declare Sub AddiereSchluessel(i As Integer, nummer As String, index() As String)



Dim As Integer maxAnzahl, i, k



'Indexdatei fuer maximal 20 Datensaetze anlegen

maxAnzahl = 10

Dim As String index(maxAnzahl)

For i = 1 To maxAnzahl

  index(i) = "9999":

Next i



'Randomdatei anlegen bzw. oeffnen.

'Len muss dem laengsten Datensatz entsprechen

Open "RandomIndex.dat" For Random As #5 Len = Len(datensatz)



i = 1

Do

  'Daten aus Datazeile einlesen

  Read datensatz.nummer

  Read datensatz.artikel

  Read datensatz.preis



  'Datensatz in Datei schreiben

  Put #5, i, datensatz



  'Index aktuallisiren

  Call AddiereSchluessel(i, datensatz.nummer, index())



  'Zeiger erhoehen

  i = i + 1



Loop Until datensatz.nummer = "9999"



'Datenbank schliesen

Close #5



'Indexdatei schreiben

Open "RandomIndex.ind" For Output As #3

For k = 1 To maxAnzahl

  Print #3, index(k)

Next k



Close #3

End

:



Data 1233,Lenker,245.99

Data 0891,Lampe,188.90

Data 1122,Telegabel,499.95

Data 2301,Tank,377.50

Data 1755,Sitzbank,321.00

Data 9999,"",0



Sub AddiereSchluessel (i As Integer, nummer As String, index() As String)



  Dim As String zahl, einfuegen

  Dim As Integer k



  zahl = " ": RSet zahl = Str$(i)



  k = 1: einfuegen = nummer + zahl



  Do While einfuegen > index(k) And k <= i

    k = k + 1

  Loop



  Do While k <= i

    Swap einfuegen, index(k)

    k = k + 1

  Loop



  index(k) = einfuegen

End Sub

'Die erstellte Randomsatei mit Index lesen - Hueck S.324 - 26. Mai 2024



Cls



Option _Explicit



Type Warenposten

  nummer As String * 4

  artikel As String * 10

  preis As Double

End Type



'Variable von Warenposten

Dim datensatz As Warenposten



Dim As Integer maxAnzahl, i, k, z



'Indexdatei einlesen

maxAnzahl = 10

Dim As String index(maxAnzahl)



i = 0

Open "RandomIndex.ind" For Input As #3

Do While Not EOF(3) And index(i) <> "9999"

  i = i + 1

  Input #3, index(i)

Loop

Close #3



k = i - 1



'Randomdatei oeffnen

Open "RandomIndex.dat" For Random As #5 Len = Len(datensatz)

Print "Nr.    Artikel              Preis"

Print



i = 1

Do While Not i > k

  z = Val(Right$(index(i), 4))



  'Datensatz lesen

  Get #5, z, datensatz



  'Dateiende Kennzeichnung

  If datensatz.nummer = "9999" Then Exit Do



  'Datensatz ausgeben

  Print Using "\  \"; datensatz.nummer;

  Print "    ";

  Print Using "\              \"; datensatz.artikel;

  Print "    ";

  Print Using "####.##"; datensatz.preis



  'Zeiger erhoehen

  i = i + 1

Loop



Close #5



End 'Hauptprogramm

I think I read somewhere that it is possible to use C++ code within a QB program. But unfortunately I can't find any information about it.
Is it possible, and if so, how?

Finally, a KotD that doesn't require a lot of writing about from me, nor a lot of reading about for you guys.  This one is extremely simple to learn, use, and implement -- https://qb64phoenix.com/qb64wiki/index.php/FULLPATH$

FullPath$, quite simply, returns the full path of whatever file you give it.   For example:

Print _CWD$

Print _FullPath$("../../")

The program "readmicesub35.bas" in the code listing below is giving a "c++ compilation failed" error. 

"compilelog.txt":

Attached Files

  readmicesub35.zip (Size: 46.04 KB / Downloads: 26)