OOP met struct's ?

Algemene discussies en vragen omtrent Liberty BASIC programma's. Stuur zoveel mogelijk delen van listings (snippets) in als je hulp wilt.

Moderators: anthonio, Abcott

OOP met struct's ?

Berichtdoor bluatigro » za jan 17, 2015 4:25 pm

ik was wat aan t experiminteren met STRUCT


"? :
- kan dit ook met double

Code: Selecteer alles
struct t2d _
  , x as long _
  , y as long

x = rgba( 255 , 0 ,   0 , 0 )
y = rgba(   0 , 0 , 255 , 0 )

print "x = " ; x
print "y = " ; y

t2d.x.struct = x
t2d.y.struct = y

print "t2d.memsize = " ; len( t2d.struct )
print "t2d.x = " ; t2d.x.struct
print "t2d.y = " ; t2d.y.struct

object$ = t2d$( x , y )
''call show object$
print "object.x = " ; property( object$ , 0 )
print "object.y = " ; property( object$ , 1 )
end
function t2d$( x , y )
''constructor
  t2d.x.struct = x
  t2d.y.struct = y
  t2d$ = t2d.struct
end function
function toLong( a$ )
  a1 = asc( mid$( a$ , 1 ) )
  a2 = asc( mid$( a$ , 2 ) )
  a3 = asc( mid$( a$ , 3 ) )
  a4 = asc( mid$( a$ , 4 ) )
  toLong = rgba( a1 , a2 , a3 , a4 )
end function
function property( a$ , no )
  property = toLong( mid$( a$ , no * 4 + 1 , 4 ) )
end function
function rgba( r , g , b , a )
  rgba = r + g * 256 + b * 256 ^ 2 + a * 256 ^ 3
end function
sub show a$
  for i = 1 to len( a$ )
    print asc( mid$( a$ , i ) )
  next i
end sub
bluatigro
 
Berichten: 306
Geregistreerd: za sep 27, 2008 6:01 pm

Keer terug naar Liberty BASIC Code

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron