Recent posts

#1

Code to share / Zstring example

Last post by Frank Brübach - Yesterday at 09:35:36 PM

Here an interesting zstring example

Code Select Expand

'
' zstring example: reduces text with value -1
'
dim as zstring myzText = "I love Ironman"

dim i as long
for i  = 0 to len(myzText) - 1
   print "zero based try: " + myzText[i]
next

for i  = 1 to len(myzText)
   print "one based try: " + myzText[i]
next

print "fine"


#2

Code to share / Array examples

Last post by Frank Brübach - Yesterday at 08:54:30 PM

Here are some Array examples

Code Select Expand

  ' -- arrays ----- 
  '
  '-- 1)
  '
  pim a(20) as pro = {2,4,6,8,10,12,14,16,18,20}

  a(20) = a(4) + a(6)
  printy a(20) '20

  '-- 2)
  '
  pim abc(100) as pro = {10,20,30,40,50,60,70,80,90,100}

  pindex 0
  printy abc[4] '50

  pindex 1
  printy abc[4] '40

  pindex 2
  printy abc[4] '30


  '-- 3)
  '
  pim tbo(100) as pro

  function abc(pro k,x)
    k*=2
    tbo[k]=x
  end function
 
  function abc(pro k) as pro
    k*=2
    return tbo[k]
  end function

  abc(5) = 2024
  printy abc(5) ' 2024



#3

Code to share / Class example freebasic Conver...

Last post by Frank Brübach - Yesterday at 03:22:15 PM

Hello again

Here a class Type example conversion from freebasic with cast to halProment

The freebasic Code you can find below my conversion

Code Select Expand

' convert a freebasic type class constructor to halProment Basic
'
class MyHeroeType
   bstring myString

method Constructor(string stParam)
   myString = stParam
   printy "construct"
end method

method destructor()
===================
'destroy bstrings
del mystring
printy "destruct!"
end method

method actmytype() as string
return mystring " "
end method

end class

new MyHeroeType sample("Superman")

Printy sample.actmytype

'-------------------------------------------- //
' freebasic code with cast
'
'' Type MyType
'' m_String As String
'' Declare Constructor(Byval sParam As String)
'' DECLARE OPERATOR CAST () BYREF AS STRING
'' End Type

'' Constructor MyType(Byval sParam As String)
'' m_String = sParam
'' End Constructor

'' OPERATOR MyType.CAST () BYREF AS STRING
''    OPERATOR = m_String
'' END OPERATOR

'' Dim sample As MyType = "enter man"
'' Print sample

'--------------------------------------- //


#4

Contentious discussions about anything, the world, politics and health topics. / Re: Why RNA ? / Why not just t...

Last post by Theo Gottwald - Yesterday at 12:55:54 PM

We had that "old style" vaccination "ready to use" in germany.
It was forbidden to use it. That was when i realized there is something fishy going on.

[Why RNA]

#5

Contentious discussions about anything, the world, politics and health topics. / Why RNA ? / Why not just the s...

Last post by Charles Pegge - April 26, 2024, 06:59:46 PM

Why RNA

Dr. John Campbell
25 apr 2024

-->

Organisms

Dr. John Campbell
23 apr 2024

julian gillespie / australia / former barrister
An Australian Federal Court case has evidence to say they are GMOs

#6

Code to share / Print Substitute d and p

Last post by Frank Brübach - April 26, 2024, 05:31:02 PM

This is a Short Substitute for Print message

Code Select Expand

' short substitutes for print, d and p
' halProment Basic 26-04-2024

dim a as long
dim s,st as string

s = "Hello Batman"
st = "Hello Spiderman"

d s 'GO 'd = "druck" german language for print

p st 'GO ' p = "print" only an abbrevation


#7

Code to share / Array overlay example Translat...

Last post by Frank Brübach - April 26, 2024, 05:17:39 PM

Array overlay example Translation from Powerbasic to halProment Basic

Code Select Expand

'-- halProment Basic / Powerbasic, 25-04-2024
'-- ArrayOverlay old powerbasic expl

type DynamicArrays
    doubles as pro
    singles as pro
    longs   as pro
end type

function PBMAIN () as long
    static d  AS DynamicArrays
    static ds as pstring
    static ss as pstring
    static ls as pstring
    '----------------------
    'create space
    ds=string(&h08000,chr(0))
    ss=string(&h04000,chr(0))
    ls=string(&h04000,chr(0))
    '----------------------
    'store pointers
    d.doubles=strptr(ds)
    d.singles=strptr(ss)
    d.longs  =strptr(ls)
    '----------------------
    'overlay
    static double dn(&hfff) at d.doubles
    static single ss(&hfff) at d.singles
    static long   ll(&hfff) at d.longs
    dn(3000)=1234.5
    '-----------------------
    'redimensioning technique
    ds+=string(&h02000,chr(0))
    d.doubles=strptr(ds)
    '-----------------------
    printy dn(3000)
end function

pbmain() '1234.5


#8

OxygenBasic Examples / Re: Questionmark AS command

Last post by Frank Brübach - April 26, 2024, 05:15:30 PM

Thank you Charles I Had a similar Idea with simple "d" and "p"

Have built an example too
I tried ? and ?? as sys but doesn't Work but thats Not important for me

Regards Frank

[?]

#9

OxygenBasic Examples / Re: Questionmark AS command

Last post by Charles Pegge - April 26, 2024, 02:43:20 PM

Hi Frank,
'?' is used as a sys casting operator.

It cannot be redefined because it is not an alpha character. But you can do this using for example, an upper ascii £ (156) :

Code Select Expand

def £ print
£ "ok"

Also, you ccould use '?' as a suffix:

Code Select Expand

def p? print
p? "ok"


#10

OxygenBasic Examples / Questionmark AS command

Last post by Frank Brübach - April 26, 2024, 01:07:48 PM

Hi Charles have a little question
How to make a ? AS Print command in oxygen?

Code Select Expand

' how to make a ? as print command?
' I assume it's an reserved character in oxygen?

' declare ?(string st) as string
' ? = print

sub questionmark(args as string)
dim i as Integer
For i=0 To Len(args)-1
'Print Chr(args[i])
Next
return Print chr(args[i]) 'chr(9)+chr(13)+ 
End Sub

questionmark("hello world")