Создать форму для ввода значений

@Velvet111 · Регистрация: 13.11.2013

Студворк — интернет-сервис помощи студентам

в общем, написал я код для лабораторной.
но надо, что бы все данные из формы (окна) вводились. и в нее туда же все выводилось + в туда же график добавить.

и вообще еще требуется, что бы можно все это без компилятора запустить. это реально сделать?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var
  a, b, v, q, m, t, r, h, n: real;
 
const
  pi = 3.14159265359;
 
 
begin
writeln ('начальная скорость');
readln(v);
writeln ('угол');
readln(a);
writeln ('заряд');
readln(q);
writeln ('масса');
readln(m);
writeln ('индукция');
readln(b);
 
  t := (2 * pi * m) / (b * abs(q));
  r := (m * v * sin(a)) / (b * abs(q));
  h := (2 * pi * m * v * cos(a)) / (b * abs(q));
  n:= 1/t;
  writeln ('радиус= ', r:5, ' шаг винта ', h:5, ' период= ', t:5, ' количество оборотов в секунду ', n:5 );
 
end.

график:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
uses
  GraphABC;
 
var
  q: real;
 
procedure krest ;
var
  i, j, x1, y1: integer;
begin
  x1 := 20; y1 := 20; 
  for i := 1 to 6 do
  begin
    for j := 1 to 6 do
    begin
      line(x1 - 3, y1 - 3, x1 + 3, y1 + 3);
      line(x1 - 3, y1 + 3, x1 + 3, y1 - 3);
      x1 := x1 + 80;
    end;
    x1 := 20;
    y1 := y1 + 80;
  end;
textout (17,30,'B');
line (17, 30, 24, 30);
end;
 
procedure okr(x0, y0, r1, r2, f1, f2, flag: integer);
begin
  arc(x0, y0, r1, 0, 360);
  circle(x0, y0 - r1, 7);
  FillPie(x0, y0 - r1, 7, 0, 360);
  setpencolor(clblack);
  arc(x0, y0, r2, f1, f2);          //90, 180
  line(x0 - r2 * flag, y0, x0 - r2 * flag - 5, y0 - 14);
  line(x0 - r2 * flag, y0, x0 - r2 * flag + 5, y0 - 14);
  arc(x0, y0, 2, 0, 360);
  line(x0+r1,y0,x0+r1-14,y0-5);
  line(x0+r1,y0,x0+r1-14,y0+5);
  line(x0,y0,x0+r1,y0);
  SetBrushColor(clwhite);
  textout (310,225,'R');
  
end;
 
begin
  q := -0.001; //при объединении программ будет вводиться с клавиатуры
  
  setwindowsize(440, 440);
  setwindowtitle ('движение заряженной частицы в магнитном поле');
  krest;
  
  if q > 0 then 
  begin
    setpencolor(clred); 
    SetBrushColor(clred); 
    okr(220, 220, 150, 180, 90, 180, 1);
  end 
  else 
  begin
    setpencolor(clblue); 
    SetBrushColor(clblue); 
    okr(220, 220, 150, 180, 90, 0, -1);
  end;
  
end.

@Puporev · 13.11.2013, 13:06

Сообщение от Velvet111

конечно же windows forms.

Так и писал бы в раздел Паскаль АВС.net
Посмотри пока это
Полезные коды для PascalABC.NET

@Velvet111 · 13.11.2013, 13:15 **[ТС]**

Сообщение от Puporev

Так и писал бы в раздел Паскаль АВС.net
Посмотри пока это
Полезные коды для PascalABC.NET

тогда, прошу прощения...

Добавлено через 1 минуту
тогда и сразу вопрос - PascalABC.NET сумеет все это в exe собрать?

@Puporev · 13.11.2013, 13:17

Естественно, тебе об этом писали.

@Velvet111 · 13.11.2013, 21:02 **[ТС]**

Сообщение от Puporev

Естественно, тебе об этом писали.

слава Б-гу, я аж испугался ) прошу прощения, что сразу не заметил разницы между просто ABC и ABC.net

Добавлено через 5 часов 26 минут
или, хотя бы, направьте куда нибудь мануальчик по дизайнеру форм в PascalABC.NET. или что нибудь для начинающих по windows forms

Добавлено через 2 часа 17 минут
upd: ввод-вывод организовал. вот функция кнопки "выполнить":

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure Form1.button1_Click(sender: Object; e: EventArgs);
const pi = 3.14159265359;
var v,a,q,m,b:real;
begin
  v:=  StrToFloat(textBox1.Text);
  a:=  StrToFloat(textBox2.Text);
  q:=  StrToFloat(textBox3.Text);
  m:=  StrToFloat(textBox4.Text);
  b:=  StrToFloat(textBox5.Text);
  
  textBox6.Text:= FloatToStr((m * v * sin(a)) / (b * abs(q)));
  textBox7.Text:= FloatToStr((2 * pi * m * v * cos(a)) / (b * abs(q)));
  textBox8.Text:= FloatToStr((2 * pi * m) / (b * abs(q)));
  textBox9.Text:= FloatToStr((b * abs(q))/(2 * pi * m));
end;

как теперь округлить до, допустим, 5 знака после запятой?

и как графику теперь вставить в форму??

@Puporev · 13.11.2013, 21:06

Попробуй так

Pascal
1
textBox6.Text:= FloatToStrF((m * v * sin(a)) / (b * abs(q)),fFixed,10,5);

Это в Делфи, не уверен что это есть в .net

@Velvet111 · 13.11.2013, 21:22 **[ТС]**

хм.
в общем в конечном результате хотелось так:
запуск ехе - вылезает форма, в нее вводим данные. нажимаем кнопку "выполнить", выводятся данные в текстбоксах 6-9 и вылезает (хотел сначала в форме что б вылезало, но раз такое дело, то уже неважно где-откуда) график, код которого в 1м сообщении.
а, кстати, для чего, собственно, PictureBox ?

есть варианты как это сделать в PascalABC.NET ? или нереально?

Новые блоги и статьи Все статьи Все блоги /
влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	13.11.2013, 13:17
	Естественно, тебе об этом писали. 0

@Velvet111 0 / 0 / 0 Регистрация: 13.11.2013 Сообщений: 7
	13.11.2013, 21:22 [ТС]
	хм. в общем в конечном результате хотелось так: запуск ехе - вылезает форма, в нее вводим данные. нажимаем кнопку "выполнить", выводятся данные в текстбоксах 6-9 и вылезает (хотел сначала в форме что б вылезало, но раз такое дело, то уже неважно где-откуда) график, код которого в 1м сообщении. а, кстати, для чего, собственно, PictureBox ? есть варианты как это сделать в PascalABC.NET ? или нереально? 0