Главная
Новый форум
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Массив ain и функция rotateandreader

 
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4
View previous topic :: View next topic  
Author Message
Behemoth



Joined: 15 Mar 2002
Posts: 155
Location: Новиков Алексей Юрьевич
Occupation: ПБОЮЛ
Interests: Пермь

PostPosted: 09 Oct 2005 15:29    Post subject: Массив ain и функция rotateandreader Reply with quote

Добрый день.

В программе типа:

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...?
_________________
С уважением, Новиков Алексей.
Back to top
View user's profile Send private message Send e-mail
VBE



Joined: 09 Jan 2002
Posts: 31
Location: Белорусцев Валерий
Occupation: 4+

PostPosted: 09 Oct 2005 19:55    Post subject: Reply with quote

Алексей,можно так попробовать ....
.......
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
Back to top
View user's profile Send private message Visit poster's website
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 10 Oct 2005 10:53    Post subject: Reply with quote

Вообще это тема следующего занятия - которую просил Itman.
Начало запланировано на вторник
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4 All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
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


Powered by phpBB © phpBB Group

Rambler
Rambler's Top100 Рейтинг@Mail.ru