Welcome, Guest
You have to register before you can post on our site.

Username
  

Password
  





Search Forums

(Advanced Search)

Forum Statistics
» Members: 104
» Latest member: Robert Alvarez
» Forum threads: 64
» Forum posts: 436

Full Statistics

Latest Threads
Very Fast WString /Object...
Forum: Programming
Last Post: Stanley Durham
4 hours ago
» Replies: 5
» Views: 90
The Future
Forum: Suggestions and discussion about PUMP
Last Post: Dale Yarker
5 hours ago
» Replies: 18
» Views: 373
Very Fast WString /Object...
Forum: Source Code Library
Last Post: Stanley Durham
Today, 01:29 AM
» Replies: 0
» Views: 37
gbNotes (Discussion)
Forum: PowerBASIC for Windows
Last Post: Stuart McLachlan
Yesterday, 05:25 AM
» Replies: 6
» Views: 138
gbThreads
Forum: PowerBASIC for Windows
Last Post: Gary Beene
Yesterday, 05:14 AM
» Replies: 14
» Views: 310
gbNotes
Forum: Source Code Library
Last Post: Gary Beene
09-03-2025, 08:54 PM
» Replies: 0
» Views: 65
gbLocator
Forum: Source Code Library
Last Post: Mike Doty
09-03-2025, 07:28 AM
» Replies: 4
» Views: 105
Getting Current UTC
Forum: PowerBASIC for Windows
Last Post: Stuart McLachlan
09-03-2025, 06:05 AM
» Replies: 14
» Views: 1,516
Clockwise sort of coordin...
Forum: Programming
Last Post: Torkel M. Jodalen
09-02-2025, 09:14 AM
» Replies: 3
» Views: 160
Pac-Man maze
Forum: Programming
Last Post: Jules Marchildon
09-01-2025, 11:01 PM
» Replies: 9
» Views: 314

 
  Test posting
Posted by: Albert Richheimer - 05-14-2024, 07:23 AM - Forum: Test forum - Replies (11)

this is a posting to test the BB codes.


Code:
    gThreadAlive=%TRUE
    thread create ttdsPing(0) to gThread
    SetThreadPriority gThread,%thread_priority_idle

    gMainALoX  = val(GetRegValue(%HKEY_CURRENT_USER,$REGISTRY,$MAINALOX))
    gMainALoY  = val(GetRegValue(%HKEY_CURRENT_USER,$REGISTRY,$MAINALOY))
    gMutaALoX  = val(GetRegValue(%HKEY_CURRENT_USER,$REGISTRY,$MUTAALOX))
    gMutaALoY  = val(GetRegValue(%HKEY_CURRENT_USER,$REGISTRY,$MUTAALOY))


    '  Connect to ttds
    '  ---------------
    '
    gDSConn=trm_Connect(gServerURL,gttdsPort,gttdsData,gttdsUser,gttdsPass,0)
    if gDSConn < 0 then
      gErrorText="Unable to connect user "+gttdsUser+" to database "+ _
                  gttdsData+":"+$cr+"Error "+format$(abs(gDSConn))+" - "+ _
                  trm_ErrorMessage(gDSConn)
      msgbox gErrorText,%mb_iconerror or %mb_taskmodal,$ERR_CAPTION
      exit function
    end if

'  Open ttds files
'  ---------------
'
    gDLDAT = trm_Open(gDSConn,gDLDAT_File,1)
    if gDLDAT < 0 then
      gErrorText="ERR#001 Cannot open "+gDLDAT_File+". Code "+format$(gDLDAT)
      msgbox gErrorText,%mb_iconerror or %mb_taskmodal,$ERR_CAPTION
      goto closedown
    end if
    dim abg(0) as global DLGES at varptr(dld)



Code tags obviously works fine - important for us programmers.

Print this item

  How to register with PUMP / become a PUMP member
Posted by: Albert Richheimer - 05-14-2024, 06:01 AM - Forum: Welcome to PUMP - PowerBASIC Users Meeting Point - No Replies

You are welcome to join PUMP (PowerBasic Users Meeting Point) by registering. PUMP is reserved for active (=contributing) users already registered at PowerBASIC. You are required to use your real name, in the exact spelling you are registered with PowerBASIC.com. After you have submitted the registering form I will check the name with the PowerBASIC forum and activate your account, if the above requirements are met. Otherwise the application for membership will be deleted without notification.

Please note that there is no formal right for getting access to PUMP.

Your admin: Albert



 PUMP is not affiliated with PowerBASIC Inc., PowerBASIC Tools LLC, or their successors.

Print this item

  About PUMP
Posted by: Albert Richheimer - 05-13-2024, 08:12 PM - Forum: Welcome to PUMP - PowerBASIC Users Meeting Point - No Replies

Dear visitor

This is a test setup for creating an alternative forum. Just in case the forum at PowerBasic.com should be shut down, we will have here a place to meet up and share techniques and ideas.



PUMP is not affiliated with PowerBASIC Inc., PowerBASIC Tools LLC, or their successors.

Print this item