Разобрать код

@~Jack~ · Регистрация: 30.11.2010

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

Помогите разобрать код ниже. Что в нем происходит? Хочу переписать программу с qBasic на VB.

Кликните здесь для просмотра всего текста

PureBasic
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
70 REM        //         Ввод исxодныx данныx         //
80 S1$="BaSO4":S2$="CaCl2":S3$="CaSO4":   REM // Формулы соединений //
110 T1=1853:T2=1045:T3=1723   :   REM // Темперaтуры плaвления соединений //
120 N1=6:N2=3:N3=6:EEE=.0001  :   REM // Число aтомов в молекуле //
127 REM       //  Haчaло рaсчетa   Тэ12, Тэ13, Тэ23        //
130 TT1=T1:TT2=T2:NN1=N1:NN2=N2:GOSUB 1010:TE12=TE1:X112=X1:X212=X2
140 TT1=T1:TT2=T3:NN1=N1:NN2=N3:GOSUB 1010:TE13=TE1:X113=X1:X313=X2
150 TT1=T2:TT2=T3:NN1=N2:NN2=N3:GOSUB 1010:TE23=TE1:X223=X1:X323=X2
160 GOSUB 2010:REM   // рaсчет Тэ123 //
170 GOSUB 3010:REM   // Построение конц. треугольникa и погрaн. кривыx //
180 GOSUB 3300:REM   // Вывод дaнныx нa экрaн //
200 END
1010 REM Опред. состaвa и темп. плaвления эвтектики в 2-х комп.сист.
1205 X2=0:PP=1:EEE=.0001
1215 PP=PP/10
1220 X2=X2+PP
1245 X1=EXP(NN1*(1-TT1*(1-LOG(X2)/NN2)/TT2))
1250 Y=X1+X2-1
1260 IF ABS(Y)<EEE THEN GOTO 1355 ELSE 1270
1270 IF Y<0 THEN GOTO 1220 ELSE 1290
1290 X2=X2-PP:GOTO 1215
1355 TE1=TT1/(1-LOG(X1)/NN1)
1400 RETURN
2010 REM Опред. состaвa и темп. плaвления эвтектики в 3-х комп.сист.
2205 X2=0:PP=1:EEE=.0001
2215 PP=PP/10
2220 X2=X2+PP
2245 X1=EXP(N1*(1-T1*(1-LOG(X2)/N2)/T2))
2247 X3=EXP(N3*(1-T3*(1-LOG(X2)/N2)/T2))
2250 Y=X1+X2+X3-1
2260 IF ABS(Y)<EEE THEN GOTO 2355 ELSE GOTO 2270
2270 IF Y<0 THEN GOTO 2220 ELSE GOTO 2290
2290 X2=X2-PP:GOTO 2215
2355 TE123=T1/(1-LOG(X1)/N1)
2370 X1123=X1:X2123=X2:X3123=X3
2400 RETURN
3010 REM Построение конц. треугольникa и кривыx ликвидусa
3020 CLS
3030 SCREEN 2
3040 SS=SQR(3)/2
3050 CC=.5
3060 X1=100:Y1=160
3070 X2=400:Y2=160
3080 X3=250:Y3=160-300*SS/2.3
3090 LINE(X1,Y1)-(X2,Y2)
3100 LINE(X1,Y1)-(X3,Y3)
3110 LINE(X2,Y2)-(X3,Y3)
3130 XAB=100+300*X212*CC:YAB=160-(300*X212*SS)/2.3
3140 XAC=100+300*X313:YAC=160
3150 XBC=400-300*X223*CC:YBC=160-(300*X223*SS)/2.3
3160 XABC=100+300*X2123*CC+300*X3123:YABC=160-(300*X2123*SS)/2.3
3170 LINE(XAB,YAB)-(XABC,YABC)
3180 LINE(XAC,YAC)-(XABC,YABC)
3190 LINE(XBC,YBC)-(XABC,YABC)
3200 RETURN
3300 LOCATE 4,40:PRINT S1$;"-";S2$
3305 LOCATE 4,55:PRINT "X(";S1$;")=";
3306 PRINT USING "###.#";X112*100;:PRINT " мол.%"
3310 LOCATE 5,55:PRINT "X(";S2$;")=";
3315 PRINT USING "###.#";X212*100;:PRINT " мол.%"
3316 LOCATE 6,55:PRINT "Te2=";:PRINT USING "####";TE12;:PRINT " K"
3320 LOCATE 7,40:PRINT S1$;"-";S3$
3325 LOCATE 7,55:PRINT "X(";S1$;")=";
3326 PRINT USING "###.#";X113*100;:PRINT " мол.%"
3330 LOCATE 8,55:PRINT "X(";S3$;")=";
3335 PRINT USING "###.#";X313*100;:PRINT " мол.%"
3336 LOCATE 9,55:PRINT "Te2=";:PRINT USING "####";TE13;:PRINT " K"
3340 LOCATE 10,40:PRINT S2$;"-";S3$
3345 LOCATE 10,55:PRINT "X(";S2$;")=";
3346 PRINT USING "###.#";X223*100;:PRINT " мол.%"
3350 LOCATE 11,55:PRINT "X(";S3$;")=";
3355 PRINT USING "###.#";X323*100;
3356 PRINT " мол.%":LOCATE 12,55:PRINT "Te2=";
3357 PRINT USING "####";TE23;:PRINT " K"
3370 LOCATE 14,55:PRINT S1$;"-";S2$;"-";S3$
3380 LOCATE 15,55:PRINT "X(";S1$;")=";
3385 PRINT USING "###.#";X1123*100;:PRINT " мол.%"
3386 LOCATE 16,55:PRINT "X(";S2$;")=";:PRINT USING "###.#";X2123*100;:PRINT " мол.%"
3390 LOCATE 17,55:PRINT "X(";S3$;")=";
3395 PRINT USING "###.#";X3123*100;:PRINT " мол.%"
3400 LOCATE 18,55:PRINT "Te3=";:PRINT USING "####";TE123;:PRINT " K"
3420 LOCATE 5,30:PRINT S2$
3425 LOCATE 22,12:PRINT S1$:LOCATE 22,50:PRINT S3$
3430 RETURN

Не очень понятно что происходит здесь:

PureBasic
1
2
3
4
5
6
7
1245 X1=EXP(NN1*(1-TT1*(1-LOG(X2)/NN2)/TT2))
1250 Y=X1+X2-1
1260 IF ABS(Y)<EEE THEN GOTO 1355 ELSE 1270
1270 IF Y<0 THEN GOTO 1220 ELSE 1290
1290 X2=X2-PP:GOTO 1215
1355 TE1=TT1/(1-LOG(X1)/NN1)
1400 RETURN

Я попытался перевести код в VB, но в результат неправильный выходит

Visual Basic
1
2
3
4
5
6
X2 = 0
        X2 = X2 + PP
        X1 = Math.Exp(N1 * (1 - T1 * (1 - Math.Log(X2) / N2) / T2))
        Y = X1 + X2 - 1
 
        If Math.Abs(Y) < 0.0001 Then TE1 = T1 / (1 - Math.Log(X1) / N1) Else If Y < 0 Then X2 = X2 + 0.1 Else X2 = X2 - 0.1

Здесь аналогично не понятно

PureBasic
1
2
3
4
5
6
7
8
9
2245 X1=EXP(N1*(1-T1*(1-LOG(X2)/N2)/T2))
2247 X3=EXP(N3*(1-T3*(1-LOG(X2)/N2)/T2))
2250 Y=X1+X2+X3-1
2260 IF ABS(Y)<EEE THEN GOTO 2355 ELSE GOTO 2270
2270 IF Y<0 THEN GOTO 2220 ELSE GOTO 2290
2290 X2=X2-PP:GOTO 2215
2355 TE123=T1/(1-LOG(X1)/N1)
2370 X1123=X1:X2123=X2:X3123=X3
2400 RETURN

Помогите привести это к коду Visual Basic

@vlisp · 26.12.2015, 05:29

Рисуйте блок-схему, она вам поможет лучше всяких советов... Самое сложное выделить подпрограммы по меткам GOTO ... RETURN

echs · 26.12.2015, 10:40

Комментарии к коду.
1. В VB есть функция Exp(x), а не Math.Exp(x)
То же относится и к остальным функциям.
2. Создайте в VB проект, киньте на форму кнопку.
Создайте событийную процедуру command1.Click
3. А теперь внимание. ЗАМЕНА КОДА.
4. Print Using"##.##"; x ---- Print Format(x, "00.00")
5. LOCATE 4, 40 =????
ЗДЕСЬ НЕТ ЭКВИВАЛЕНТНОЙ ЗАМЕНЫ.
Но можно сделать так
Оператор LOCATE делит экран на 25 строк и 80 столбцов
Значит введите систему координат аналогичную LOCATE
код: Scale (0,0)-(25,80).
Итак, запишу еще раз
LOCATE 4, 40 заменяется на PSET (4, 40), "цвет"
Вы поняли, что надо делать?
Следует отметить, что указанный оператор PSET рисует точку.
Чтобы он ее не рисовал надо задать параметр "цвет" такой же
Как цвет фона (другими словами на красном фоне не нарисуешь
красную точку). Самое главное свойство оператора PSET в том,
что он переводит курсор туда где точка.
Удачи вам!

@~Jack~ · 26.12.2015, 12:38 **[ТС]**

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

Рисуйте блок-схему, она вам поможет лучше всяких советов... Самое сложное выделить подпрограммы по меткам GOTO ... RETURN

Вот с этим и есть сложности, я так понимаю там должен быть цикл и что-то вроде того

echs · 26.12.2015, 13:00

Хотите найти циклы? А они в программе есть.
Ищите оператор GOTO. Его метка должна указывать
назад (меньшую метку, чем у GOTO).

@vlisp · 26.12.2015, 16:46

Сообщение от ~Jack~

Вот с этим и есть сложности

У вас в коде одна основная функция (заканчивается строкой 200) и четыре подпрограммы, начинающиеся со строк 1010, 2010 , 3010, 3300.
Надеюсь не нужно объяснять как из этого сделать 4 процедуры на VB.
А дальше ищите эквиваленты вывода текстовой (PRINT) и графической (LINE) информации.
Я так понимаю вы переделываете на VB.NET, значит пишите в Memo, а рисуйте на PaintBox или как они там называются...
Давно не пользуюсь Visual Studio

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
70 REM        //         Ввод исxодныx данныx         //
80 S1$="BaSO4":S2$="CaCl2":S3$="CaSO4":   REM // Формулы соединений //
110 T1=1853:T2=1045:T3=1723   :   REM // Темперaтуры плaвления соединений //
120 N1=6:N2=3:N3=6:EEE=.0001  :   REM // Число aтомов в молекуле //
127 REM       //  Haчaло рaсчетa   Тэ12, Тэ13, Тэ23        //
130 TT1=T1:TT2=T2:NN1=N1:NN2=N2:GOSUB 1010:TE12=TE1:X112=X1:X212=X2
140 TT1=T1:TT2=T3:NN1=N1:NN2=N3:GOSUB 1010:TE13=TE1:X113=X1:X313=X2
150 TT1=T2:TT2=T3:NN1=N2:NN2=N3:GOSUB 1010:TE23=TE1:X223=X1:X323=X2
160 GOSUB 2010:REM   // рaсчет Тэ123 //
170 GOSUB 3010:REM   // Построение конц. треугольникa и погрaн. кривыx //
180 GOSUB 3300:REM   // Вывод дaнныx нa экрaн //
200 END

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
1010 REM Опред. состaвa и темп. плaвления эвтектики в 2-х комп.сист.
1205 X2=0:PP=1:EEE=.0001
1215 PP=PP/10
1220 X2=X2+PP
1245 X1=EXP(NN1*(1-TT1*(1-LOG(X2)/NN2)/TT2))
1250 Y=X1+X2-1
1260 IF ABS(Y)<EEE THEN GOTO 1355 ELSE 1270
1270 IF Y<0 THEN GOTO 1220 ELSE 1290
1290 X2=X2-PP:GOTO 1215
1355 TE1=TT1/(1-LOG(X1)/NN1)
1400 RETURN

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
2010 REM Опред. состaвa и темп. плaвления эвтектики в 3-х комп.сист.
2205 X2=0:PP=1:EEE=.0001
2215 PP=PP/10
2220 X2=X2+PP
2245 X1=EXP(N1*(1-T1*(1-LOG(X2)/N2)/T2))
2247 X3=EXP(N3*(1-T3*(1-LOG(X2)/N2)/T2))
2250 Y=X1+X2+X3-1
2260 IF ABS(Y)<EEE THEN GOTO 2355 ELSE GOTO 2270
2270 IF Y<0 THEN GOTO 2220 ELSE GOTO 2290
2290 X2=X2-PP:GOTO 2215
2355 TE123=T1/(1-LOG(X1)/N1)
2370 X1123=X1:X2123=X2:X3123=X3
2400 RETURN

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
3010 REM Построение конц. треугольникa и кривыx ликвидусa
3020 CLS
3030 SCREEN 2
3040 SS=SQR(3)/2
3050 CC=.5
3060 X1=100:Y1=160
3070 X2=400:Y2=160
3080 X3=250:Y3=160-300*SS/2.3
3090 LINE(X1,Y1)-(X2,Y2)
3100 LINE(X1,Y1)-(X3,Y3)
3110 LINE(X2,Y2)-(X3,Y3)
3130 XAB=100+300*X212*CC:YAB=160-(300*X212*SS)/2.3
3140 XAC=100+300*X313:YAC=160
3150 XBC=400-300*X223*CC:YBC=160-(300*X223*SS)/2.3
3160 XABC=100+300*X2123*CC+300*X3123:YABC=160-(300*X2123*SS)/2.3
3170 LINE(XAB,YAB)-(XABC,YABC)
3180 LINE(XAC,YAC)-(XABC,YABC)
3190 LINE(XBC,YBC)-(XABC,YABC)
3200 RETURN

QBasic/QuickBASIC
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
3300 LOCATE 4,40:PRINT S1$;"-";S2$
3305 LOCATE 4,55:PRINT "X(";S1$;")=";
3306 PRINT USING "###.#";X112*100;:PRINT " мол.%"
3310 LOCATE 5,55:PRINT "X(";S2$;")=";
3315 PRINT USING "###.#";X212*100;:PRINT " мол.%"
3316 LOCATE 6,55:PRINT "Te2=";:PRINT USING "####";TE12;:PRINT " K"
3320 LOCATE 7,40:PRINT S1$;"-";S3$
3325 LOCATE 7,55:PRINT "X(";S1$;")=";
3326 PRINT USING "###.#";X113*100;:PRINT " мол.%"
3330 LOCATE 8,55:PRINT "X(";S3$;")=";
3335 PRINT USING "###.#";X313*100;:PRINT " мол.%"
3336 LOCATE 9,55:PRINT "Te2=";:PRINT USING "####";TE13;:PRINT " K"
3340 LOCATE 10,40:PRINT S2$;"-";S3$
3345 LOCATE 10,55:PRINT "X(";S2$;")=";
3346 PRINT USING "###.#";X223*100;:PRINT " мол.%"
3350 LOCATE 11,55:PRINT "X(";S3$;")=";
3355 PRINT USING "###.#";X323*100;
3356 PRINT " мол.%":LOCATE 12,55:PRINT "Te2=";
3357 PRINT USING "####";TE23;:PRINT " K"
3370 LOCATE 14,55:PRINT S1$;"-";S2$;"-";S3$
3380 LOCATE 15,55:PRINT "X(";S1$;")=";
3385 PRINT USING "###.#";X1123*100;:PRINT " мол.%"
3386 LOCATE 16,55:PRINT "X(";S2$;")=";:PRINT USING "###.#";X2123*100;:PRINT " мол.%"
3390 LOCATE 17,55:PRINT "X(";S3$;")=";
3395 PRINT USING "###.#";X3123*100;:PRINT " мол.%"
3400 LOCATE 18,55:PRINT "Te3=";:PRINT USING "####";TE123;:PRINT " K"
3420 LOCATE 5,30:PRINT S2$
3425 LOCATE 22,12:PRINT S1$:LOCATE 22,50:PRINT S3$
3430 RETURN

echs · 26.12.2015, 17:00

vlisp
А зачем делать процедуры?
Ведь VB понимает GOSUB - RETURN
Можно весь этот код вставить в одну процедуру.
Зачем вам лишние хлопоты?

@~Jack~ · 26.12.2015, 17:26 **[ТС]**

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

У вас в коде одна основная функция (заканчивается строкой 200) и четыре подпрограммы, начинающиеся со строк 1010, 2010 , 3010, 3300.
Надеюсь не нужно объяснять как из этого сделать 4 процедуры на VB.
А дальше ищите эквиваленты вывода текстовой (PRINT) и графической (LINE) информации.
Я так понимаю вы переделываете на VB.NET, значит пишите в Memo, а рисуйте на PaintBox или как они там называются...
Давно не пользуюсь Visual Studio

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

Можно весь этот код вставить в одну процедуру.

Можно поподробнее, я новичок в VB.NET

echs · 26.12.2015, 17:43

~Jack~
Я полагал, что вас интересует VB (Visual Basic)
Есть ли такая возможность в VB.NET? Сказать не могу
Зайдите к ним на форум и просто задайте вопрос.
"Работает ли в VB.NET" конструкция GOSUB-RETURN?"

@vlisp · 26.12.2015, 18:07

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

А зачем делать процедуры?
Ведь VB понимает GOSUB - RETURN

Цитата из msdn:

Using escaped names is not recommended, because it can make your code hard to read, and can lead to subtle errors that can be difficult to find.

Использование устаревших ключевых слов не рекомендуется, так как они делают код менее читабельным и могут быть причиной трудноуловимых ошибок
От себя добавлю, что использование неструктурного программирования отбрасывает программиста на 30 лет назад. Структурирование программного кода как раз и избавляет от лишних проблем, к тому же позволяет использовать код повторно без особых усилий.
Вместо GOTO лучше использовать While ... ... End While

Добавлено через 1 минуту
Если ошибаюсь то подправьте. Вот Код для второй подпрограммы

Visual Basic
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
Sub Sub2010 ()
'''
 X2  = 0
 PP  = 1
 EEE = 0.0001
'''
 PP=PP/10
 
 X2=X2+PP
 X1=EXP(N1*(1-T1*(1-LOG(X2)/N2)/T2))
 X3=EXP(N3*(1-T3*(1-LOG(X2)/N2)/T2))
 Y=X1+X2+X3-1
 
 While Not abs(y) <  EEE
   IF Not Y < 0
     X2=X2-PP
     PP=PP/10
   End If
   
   X2=X2+PP
   X1=EXP(N1*(1-T1*(1-LOG(X2)/N2)/T2))
   X3=EXP(N3*(1-T3*(1-LOG(X2)/N2)/T2))
   Y=X1+X2+X3-1
   
 End While
 
 
 TE123=T1/(1-LOG(X1)/N1)
 
 X1123=X1
 X2123=X2
 X3123=X3
 
End Sub

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

@vlisp 1064 / 985 / 153 Регистрация: 10.08.2015 Сообщений: 5,384
	26.12.2015, 05:29
	Рисуйте блок-схему, она вам поможет лучше всяких советов... Самое сложное выделить подпрограммы по меткам GOTO ... RETURN 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	26.12.2015, 10:40
	Комментарии к коду. 1. В VB есть функция Exp(x), а не Math.Exp(x) То же относится и к остальным функциям. 2. Создайте в VB проект, киньте на форму кнопку. Создайте событийную процедуру command1.Click 3. А теперь внимание. ЗАМЕНА КОДА. 4. Print Using"##.##"; x ---- Print Format(x, "00.00") 5. LOCATE 4, 40 =???? ЗДЕСЬ НЕТ ЭКВИВАЛЕНТНОЙ ЗАМЕНЫ. Но можно сделать так Оператор LOCATE делит экран на 25 строк и 80 столбцов Значит введите систему координат аналогичную LOCATE код: Scale (0,0)-(25,80). Итак, запишу еще раз LOCATE 4, 40 заменяется на PSET (4, 40), "цвет" Вы поняли, что надо делать? Следует отметить, что указанный оператор PSET рисует точку. Чтобы он ее не рисовал надо задать параметр "цвет" такой же Как цвет фона (другими словами на красном фоне не нарисуешь красную точку). Самое главное свойство оператора PSET в том, что он переводит курсор туда где точка. Удачи вам! 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	26.12.2015, 13:00
	Хотите найти циклы? А они в программе есть. Ищите оператор GOTO. Его метка должна указывать назад (меньшую метку, чем у GOTO). 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	26.12.2015, 17:00
	vlisp А зачем делать процедуры? Ведь VB понимает GOSUB - RETURN Можно весь этот код вставить в одну процедуру. Зачем вам лишние хлопоты? 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	26.12.2015, 17:43
	~Jack~ Я полагал, что вас интересует VB (Visual Basic) Есть ли такая возможность в VB.NET? Сказать не могу Зайдите к ним на форум и просто задайте вопрос. "Работает ли в VB.NET" конструкция GOSUB-RETURN?" 0

Разобрать код

Решение