Preparation Examen Passage 1er Année TDI

Code:


public class point

  private x,y as integer

public property ix() as integer
get
return x
end get
set(byval value as integer)
Me.x = value
end set
end property

public property iy() as integer
get
return y
end get
set(byval value as integer)
Me.y = value
end set
end property

public sub new(byval x as integer,byval y as integer)
Me.x = x
Me.y = y
end sub

public sub afficher()
  msgbox("Le point est :"  & x & y)
end sub

public sub deplacer(byval dx as integer , byval dy as integer)
  x+=dx
  y+=dy
end sub
end class



azerty00 a écrit:la definition du classe Point :

Code:


public class point

  private x,y as integer

public property ix() as integer
get
return x
end get
set(byval value as integer)
Me.x = value
end set
end property

public property iy() as integer
get
return y
end get
set(byval value as integer)
Me.y = value
end set
end property

public sub new(byval x as integer,byval y as integer)
Me.x = x
Me.y = y
end sub

public sub afficher()
  msgbox("Le point est :"  & x & y)
end sub

public sub deplacer(byval dx as integer , byval dy as integer)
  x+=dx
  y+=dy
end sub
end class



azerty00 a écrit:salam 3alikom...