Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Новые рефераты » Використання графічніх Операторів в програмуванні

Реферат Використання графічніх Операторів в програмуванні





#39;Час гри:' + m + ':' + s ;. Text: = IntToStr (UpDown1.Position);. Text: = IntToStr (0);. Text: = IntToStr (0);. Text: ='';. Text: ='';; TForm1.Panel2Click (Sender : TObject);. Caption: =''; (f = True) and (v.Color = clLime) and

((v.Caption <= Edit4.Text) or (Edit4.Text ='')) then: = t + 1;. Panels.Items [1]. Text: = 'Кількість -во кроків: '+ IntToStr (t); (v);. Text: = IntToStr (StrToInt (Edit1.Text) + 1); (v, Panel5, Edit1);. Text: = v.Caption; (p, Panel3, Edit5, Edit2); (p, Panel4, Edit6, Edit3);;. Color: = clBlue;. Caption: = 'Виберіть диск для переміщення';. Caption: = 'Невірний хід';; TForm1.Panel3Click (Sender : TObject);. Caption: =''; (f = True) and (v.Color = clLime) and

((v.Caption <= Edit5.Text) or (Edit5.Text ='')) then: = t + 1,. Panels.Items [1]. Text: = 'Кількість -во кроків: '+ IntToStr (t); (v);. Text: = IntToStr (StrToInt (Edit2.Text) + 1); (v, Panel7, Edit2);. Text: = v.Caption; (p, Panel2, Edit4, Edit1); (p, Panel4, Edit6, Edit3);;. Color: = clBlue;. Caption: = 'Виберіть диск для переміщення';. Caption: = 'Хід невірний';; TForm1.Panel4Click ( Sender: TObject);. Caption: =''; (f = True) and (v.Color = clLime) and

((v.Caption <= Edit6.Text) or (Edit6.Text ='')) then: = t + 1;. Panels.Items [1]. Text: = 'Кількість -во шагов: '+ IntToStr (t), (v),. Text: = IntToStr (StrToInt (Edit3.Text) + 1); (v, Panel6, Edit3),. Text: = v.Caption, (p, Panel2, Edit4, Edit1); (p, Panel3, Edit5, Edit2);;. Color: = clBlue;. Caption: = 'Виберіть диск для переміщення';. Caption: = 'Хід невірний';; TForm1.Pos ( Panel: TPanel); (Panel.Left = StrToInt (FloatToStr (90 - Panel.Width/2))) then.Text: = IntToStr (StrToInt (Edit1.Text) - 1); (Panel.Left = StrToInt (FloatToStr ( 300 - Panel.Width/2))) then.Text: = IntToStr (StrToInt (Edit2.Text) - 1); (Panel.Left = StrToInt (FloatToStr (510 - Panel.Width/2))) then.Text: = IntToStr (StrToInt (Edit3.Text) - 1);; TForm1.Sel (Pan1: TObject; Pan: Pin; Ed1, Ed2, Ed3: TEdit); ((Pan1 as TPanel). Caption = Ed1.Text) or

((Pan1 as TPanel). Caption = Ed2.Text) or

((Pan1 as TPanel). Caption = Ed3.Text) theni: = 1 to UpDown1.Position do [i]. Color: = clBlue; (Pan1 as TPanel)

. Color: = clLime;. Caption: = 'Перемістіть диск';;; TForm1.EndOfGame; (Edit2.Text = IntToStr (UpDown1.Position)) or

(Edit3.Text = IntToStr (UpDown1.Position)) then.Enabled: = False;. Visible: = True;. Visible: = False;. Enabled: = False;;; TForm1.Hig (Pan: Pin; Tow: TPanel; Ed1, Ed2: TEdit); StrToInt (Ed2.Text) = 1 theni: = 1 to UpDown1.Position do (Tow.Left = Pan [i]. Left + Pan [i]. Width/2 - 5) then.Text: = Pan [i]. Caption; StrToInt (Ed2.Text)> 1 theni: = UpDown1.Position downto 2 doj: = UpDown1.Position - 1...


Назад | сторінка 5 з 7 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Phonetic peculiarities of the popular science text
  • Реферат на тему: Grammar of the Text: its Basic Units and Main Features (based on the novel ...
  • Реферат на тему: Технології аналізу даних (Text Mining, Data Mining)
  • Реферат на тему: Прикладне додаток &Розробка проекту для створення нового класу Auto і елеме ...
  • Реферат на тему: Основні показники використання ресурсів і собівартість послуг операторів зв ...