:: View topic - �� ain � �� rotateandreader

��
��

FAQ

Memberlist

Usergroups

Profile

�� ain � �� rotateandreader

Forum Index -> �� -4

View previous topic :: View next topic

Author

Message

Behemoth

Joined: 15 Mar 2002
Posts: 155
Location: ��
Occupation: ��
Interests: ��

Posted: 09 Oct 2005 15:29 Post subject: �� ain � �� rotateandreader

�� .

� �� :

Code:

private prtype := {{'0', "��1"},{'1', "��2"}}
ain:={}
aadd(ain,'0')
getlist:=array(0)
@ 6,12 SAY "��......:" COLOR "N/BG" GET ain[1] PICTURE replicate('X',6) COLOR "N/W,GR+/N"

getlist[1]:reader:={|oget| RotateAndReader(oGet, prtype)}
getlist[1]:block:={|x| RotateBlock(x, prtype, "ain[1]")}
getlist[1]:display()

read

�� . � ��, �� , �� . �� - �� prtype. �� ain. �� ain[5] - �� 5 ��. �� ain[1] �� , �� p1, �� "�� ".
�� ain �� rotate...?
_________________
� ��, �� .

VBE

Joined: 09 Jan 2002
Posts: 31
Location: ��
Occupation: 4+

Posted: 09 Oct 2005 19:55 Post subject:

��,�� ....
.......

Code:

Local oGet
Local GetList := {}
Local prType := {{'0', "�� 1"},{'1', "�� 2"}}

ain := {'0'}

DispOutAt(6,12,"��......: ","N/BG")
oGet := GetNew(6,24,{|x| if( x == NIL,ain[1],aIn[1] := prType[1]) })
oGet:block := {|x| RotateBlock(x,prType,'aIn[1]') }
oGet:reader := {|x| RotateAndReader(x,prType) }
oGet:ColorSpec := "N/W,GR+/N"
aAdd(GetList, oGet)

aEval( GetList, {|x| x:Display() } )
SetCursor(1)
Read

nordk

Joined: 27 Jun 2005
Posts: 1000
Location: ��
Occupation: ��-��
Interests: ��

Posted: 10 Oct 2005 10:53 Post subject:

�� - �� Itman. ��

Display posts from previous:

	Forum Index -> �� -4	All times are GMT + 4 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum