Как сделать оболочку в pascal ABC ?

01.01.2001

Как сделать оболочку в pascal ABC ?

  • Экзешник? Никак. Турбо паскаль в помощь или Дельфи
  • На пример abc паскаль
    #apptype windows
    #reference 'System.Windows.Forms.dll'
    #reference 'System.Drawing.dll'

    uses
    system, System.Windows.Forms;

    var
    pr:=0;
    otv:System.Windows.Forms.Button;
    st: System.Windows.Forms.Button;
    MyForm: System.Windows.Forms.Form;
    But: System.Windows.Forms.Button;
    Lab: System.Windows.Forms.Label;
    Lab2: System.Windows.Forms.Label;
    Rad1: System.Windows.Forms.RadioButton; \\Описание переключателей
    Rad2: System.Windows.Forms.RadioButton; \\Описание переключателей
    Rad3: System.Windows.Forms.RadioButton; \\Описание переключателей
    Rad4: System.Windows.Forms.RadioButton; \\Описание переключателей

    \\ Процедура создания второго вопроса
    Procedure ButtonClick2(sender: object; e: EventArgs);
    begin
    Lab2.Show;
    Lab2.Text:=IntToStr(pr); \\ Должен вывести переменную (pr), но не зависимо от выбора ответа, записывает 0.
    lab.Text:='Вопрос 2';
    Rad1.Text:='1';
    Rad2.Text:='2';
    Rad3.Text:='3';
    Rad4.Text:='4';
    end;
    \\ Процедура создания первого вопроса
    Procedure ButtonClick(sender: object; e: EventArgs);
    begin
    But.Show;
    st.Hide;
    otv.Hide;
    Lab.Show;
    Rad1.Show;
    Rad2.Show;
    Rad3.Show;
    Rad4.Show;
    Lab.Text:='Вопрос 1';
    Rad1.Text:='1';
    Rad2.Text:='2';
    Rad3.Text:='3';
    Rad4.Text:='4';
    If Rad2.Checked=true then \\Если выбран второй переклчатель, то
    pr:=pr+1; \\Присвоить переменной +1
    But.Click+=ButtonClick2 \\Переходим к процедуре второго вопроса
    end;

    begin \\Тело создания формы
    begin
    pr:=0; \\Присваиваем pr значение 0
    MyForm := System.Windows.Forms.Form.Create;
    MyForm.text := 'Форма';
    MyForm.Height := 400;
    MyForm.Width := 600;
    St:=new Button;
    St.Text:= 'Начать тест';
    St.Width:=200;
    St.Height:=100;
    St.Left:=200;
    St.Top:=100;
    MyForm.Controls.Add(St);
    But := new Button;
    But.Text := 'Далее';
    But.Width:=100;
    But.Left := 450;
    But.Top := 300;
    But.Hide;
    MyForm.Controls.Add(But);
    Lab:=System.Windows.Forms.Label.Create;
    Lab.text:='11111';
    Lab.Left:=50;
    Lab.Top:=20;
    Lab.Width:=500;
    Lab.Height:=50;
    Lab.Hide;
    MyForm.Controls.Add(Lab);
    \\Создание переключателя №1
    Rad1:=System.Windows.Forms.RadioButton.Create;
    Rad1.Width:=200;
    Rad1.Text:='1 ответ//////////////////';
    Rad1.Left:=100;
    Rad1.Top:=70;
    Rad1.Hide;
    MyForm.Controls.Add(Rad1);
    \\Создание переключателя №2
    Rad2:=System.Windows.Forms.RadioButton.Create;
    Rad2.Width:=200;
    Rad2.Text:='1 ответ//////////////////';
    Rad2.Left:=100;
    Rad2.Top:=100;
    Rad2.Hide;
    MyForm.Controls.Add(Rad2);

Вас заинтересует