Recent posts

#81

Deutsches Board (IT-Themen) / Der Neue

Last post by Peter Salomon - July 10, 2025, 09:45:43 AM

Hallo zusammen!

Ich bin neu hier und ein Fan von PowerBASIC für Windows.
Für die Vorgeschichte müsste ich etwas ausholen, weil es "um 1000 Ecken" geht.
Der Einfachheit halber kann das hier nachgelesen werden: ->
https://www.mikrocontroller.net/topic/574459#new

Es ist ein ellenlanger Thread, wo ich mit meinem TO nur niedergemacht wurde und fast niemand sich die Mühe gemacht hat auch nur ansatzweise mal in die über 2000 Seiten Doku zu schauen.

Wie ich dort schon schrieb, hat die 10er Version von PBWin nur noch sehr wenig mit BASIC zu tun und umso mehr ich mich durch die Doku übersetzenderweise gequält habe, umso mehr bin ich von diesem einzigartigen Programmierwerkzeug überzeugt.

In meinen weiteren Postings im o.g. Thread hatte ich dann erklärt, warum und wieso ich eigentlich auf PowerBASIC gekommen bin.
Einige ganz kleine, aber grundlegende Versuche habe ich schon machen können, aber das eigentliche Vorhaben - die COM-Schnittstelle von TurboCAD bedienen zu können, steht noch aus.

Zwischenzeitlich hatte ich versucht mich im Original PowerBASIC-Forum anzumelden, aber das ist bis heute in der Schwebe, d.h. die Authetifizierung durch den Admin ist immer noch nicht erfolgt.
Auch der direkte Kontakt zu Gary Beene war letztendlich nicht erfolgreich.

So bin ich sehr froh nun hier gelandet zu sein - und auch noch in deutsch schreiben zu können!


So viel für heute.

Grüsse aus Ahrensfelde (bei Berlin)


Peter Salomon
www.ps-blnkd.de

#82

Windows API Headers / Re: StrCSpnIW

Last post by José Roca - June 27, 2025, 10:36:15 PM

Thanks very much, Pierre.

#83

Windows API Headers / StrCSpnIW

Last post by Pierre Bellisle - June 27, 2025, 10:45:24 AM

Hi José,

in Shlwapi.inc
DECLARE FUNCTION StrCSpnIW IMPORT "SHLWAPI.DLL" ALIAS "StrSpnIW"( _
should be
DECLARE FUNCTION StrCSpnIW IMPORT "SHLWAPI.DLL" ALIAS "StrCSpnIW" ( _

Take care...

#84

OxygenBasic Examples / Re: Console troubles

Last post by Zlatko Vid - June 19, 2025, 08:13:50 AM

Hi Charles

Aha i see then ok 

[input]

#85

OxygenBasic Examples / Re: Console troubles

Last post by Charles Pegge - June 16, 2025, 12:35:33 PM

Hi Aurel.

O2's input is unprocessed, so it captures the crlf. rtrim removes all trailing white-space.

Code Select Expand

uses console
string ans
DO
ans = rtrim INPUT
if lcase(ans) = "y" : goto ExitDo : end if
print ans
END DO

ExitDo:
waitkey
CLS


[Max. users today 70]

#86

Meta Forum / Why so many invisible users?

Last post by Theo Gottwald - June 15, 2025, 08:58:26 PM

My provider tells me sometimes that we use so much datatransfer that the forum is sometimes blanking out.
If i look down there it says "Max. users today 70". I wonder what this could be.
The only answer i may have is that AI-Bots search our forum in large numbers to find code for people.
If anybody has a better idea, please tell me.

PS: Currently i do not plan to buy a higher bandwith rate from my provider for these bots to suck faster.
The have to be happy with what we have.

#87

OxygenBasic Examples / Re: Console troubles

Last post by Zlatko Vid - June 15, 2025, 08:01:02 PM

does really need to be trimmed?

ans = ltrim rtrim(input())

?

[ExitDo]

#88

OxygenBasic Examples / Console troubles

Last post by Zlatko Vid - June 15, 2025, 07:54:09 PM

Hi to all..
I must say that i hate console but
i am kind a forced to use it for QB translation to o2 code
so why goto ExitDo or just Exit Do not jump from DO/END DO loop ?
or what i am doing wrong 

Code Select Expand

DO
ans = INPUT
if lcase(ans) = "y" : goto ExitDo : end if
print ans
END DO

ExitDo:
waitkey
CLS
 

#89

OxygenBasic Examples / Re: get o2 version

Last post by Zlatko Vid - June 12, 2025, 07:54:48 AM

OK then this is similar problem i have with BIND with
SendMessage() function in my awinh.inc file
all fine   

#90

OxygenBasic Examples / Re: get o2 version

Last post by Pierre Bellisle - June 12, 2025, 05:42:35 AM

I found it!
Problem is a conflict between bind and UnmapViewOfFile(pBuf)
if I replace Bind by CopyMemory then UnmapViewOfFile(pBuf) does not gpf anymore.
Bind might prevent UnmapViewOfFile(pBuf) to access memory for desalloating.
 

Code Select Expand

'in server code
declare sub CopyMemory lib "kernel32" alias "RtlMoveMemory" _
(byval Destination as sys, byval Source as sys, byval Length as long)
...
'bind pBuf
  sys p
  int i1, i2
  float f1, f2
  char c1[0x100]
'end bind

i1 = 123
i2 = 456
f1 = pi()
c1 = szMsg

sys pBuf2
CopyMemory pBuf,  @p, sizeof(sys)    : pBuf2 = pBuf + sizeof(sys)
CopyMemory pBuf2, @i1, sizeof(int)   : pBuf2 += sizeof(sys) '123
CopyMemory pBuf2, @i2, sizeof(int)   : pBuf2 += sizeof(sys) '456
CopyMemory pBuf2, @f1, sizeof(float) : pBuf2 += sizeof(sys)
CopyMemory pBuf2, @f2, sizeof(float) : pBuf2 += sizeof(sys)
CopyMemory pBuf2, @c1, len(szMsg)
'