Recent posts

#1

OxygenBasic Examples / Re: Oxygen and c++ expl

Last post by Frank Brübach - Today at 08:24:33 PM

Hi Charles again

short question "namespace" in oxygen its Not Like a a) macro or more Like a b) class behind IT?

[<<]

#2

OxygenBasic Examples / Re: Oxygen and c++ expl

Last post by Charles Pegge - Today at 07:37:25 PM

<< and >> are left-shift and right shift operators. They cannot be redefined though they can be overloaded for UDTs.

namespace symbols are expressed using double dot instead of double colon.

Code Select Expand

int i=1
namespace nn
int i=2
end namespace
print i "  " nn..i '1  2


#3

OxygenBasic Examples / Oxygen and c++ expl

Last post by Frank Brübach - Today at 02:50:51 PM

Hi Charles

I played around with c++ and oxygen and tested this example  and its running Well
I have changed Oxygen.dll for this translation you can find in ZIP folder

Oxygen basic

Code Select Expand

' oxygen basic c++ translation, 28-04-2024, frank bruebach
'
' a) only "<<" and ">>" doesnt work (double quotation mark)
' b) and "namespace" doesnt know how to use, as function ?

' include <iostream>
' using namespace std;

int main {
const int myAge = 35;
'cout << "I am " << myAge <<

cout "I am "; '\n
cout myAge " years old ";
'cout str(myAge) " years old "; ' this line works too
return 0
}
' output 35 ' ok :-)

' changed oxygen.dll for it, see zip folder


#4

Contentious discussions about anything, the world, politics and health topics. / FAA reports UFO epidemic!! PLU...

Last post by Zlatko Vid - Today at 09:59:09 AM

#5

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"


#6

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



#7

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

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


#8

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]

#9

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

#10

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