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

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

  1. Экзешник? Никак. Турбо паскаль в помощь или Дельфи
  2. На пример 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);

Write a Reply or Comment

Ваш e-mail не будет опубликован. Обязательные поля помечены *