Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Maikl2020
Всегда онлайн
49 / 49 / 10
Регистрация: 13.04.2014
Сообщений: 1,215
1

Перевести код из Delphi на Visual Basic

02.04.2018, 08:03. Просмотров 131. Ответов 1
Метки нет (Все метки)

Здравствуйте, помогите пожалуйста перевести код из Delphi на Visual Basic

Задача: Создать программу «Товары и реализация».
На склад поступают товары, имеющие следующие характеристики: наименование, цена, количество, единица измерения. Склад производит отпуск товаров в количестве, не превышающем наличие.
Программа должна производить прием товаров на склад и отпуск товаров со склада.
Если наименование поступающего товара уже имеется в базе данных, то количество суммируется.
Сформировать отчет о наличии товаров на складе.
Для хранения данных используется MS Access.

Delphi
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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls;
type TForm1=class(TForm)
L1:TListView;
Edit1:TEdit;
Edit2:TEdit;
Button1:TButton;
    Edit3: TEdit;
    Edit4: TEdit;
    Button2: TButton;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
public
end;
 
var Form1:TForm1;
var S1:TStringList;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button2Click(Sender: TObject);
var I1:Integer;
var G1:Integer;
begin
L1.Clear;
S1 := TStringList.Create();
S1.LoadFromFile(ExtractFilePath(ParamStr(0))+'database.b');
G1 := 0;
for I1 := 0 to S1.Count div 3 do
begin
try
if S1.Strings[G1]=Edit3.Text then
begin
S1.Strings[G1+2] := IntToStr(StrToInt(S1.Strings[G1+2])-StrToInt(Edit4.Text));
end;
except
end;
G1 := G1+3;
end;
S1.SaveToFile(ExtractFilePath(ParamStr(0))+'database.b');
G1 := 0;
for I1 := 0 to S1.Count div 3 do
begin
try
with L1.Items.Add do
begin
Caption := S1.Strings[G1];
SubItems.Add(S1.Strings[G1+1]);
SubItems.Add(S1.Strings[G1+2]);
end;
G1 := G1+3;
except
end;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var I1:Integer;
var G1:Integer;
var B1:Boolean;
begin
B1 := true;
L1.Clear;
S1 := TStringList.Create();
S1.LoadFromFile(ExtractFilePath(ParamStr(0))+'database.b');
G1 := 0;
for I1 := 0 to S1.Count div 3 do
begin
try
if S1.Strings[G1]=Edit5.Text then
begin
B1 := false;
end;
except
end;
G1 := G1+3;
end;
if B1=true then
begin
S1.Add(Edit5.Text);
S1.Add(Edit6.Text);
S1.Add(Edit7.Text);
end;
S1.SaveToFile(ExtractFilePath(ParamStr(0))+'database.b');
G1 := 0;
for I1 := 0 to S1.Count div 3 do
begin
try
with L1.Items.Add do
begin
Caption := S1.Strings[G1];
SubItems.Add(S1.Strings[G1+1]);
SubItems.Add(S1.Strings[G1+2]);
end;
G1 := G1+3;
except
end;
end;
end;
 
procedure TForm1.FormShow(Sender: TObject);
var I1:Integer;
var G1:Integer;
begin
L1.Clear;
S1 := TStringList.Create();
S1.LoadFromFile(ExtractFilePath(ParamStr(0))+'database.b');
G1 := 0;
for I1 := 0 to S1.Count div 3 do
begin
try
with L1.Items.Add do
begin
Caption := S1.Strings[G1];
SubItems.Add(S1.Strings[G1+1]);
SubItems.Add(S1.Strings[G1+2]);
end;
G1 := G1+3;
except
end;
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var I1:Integer;
var G1:Integer;
begin
L1.Clear;
S1 := TStringList.Create();
S1.LoadFromFile(ExtractFilePath(ParamStr(0))+'database.b');
G1 := 0;
for I1 := 0 to S1.Count div 3 do
begin
try
if S1.Strings[G1]=Edit1.Text then
begin
S1.Strings[G1+2] := IntToStr(StrToInt(S1.Strings[G1+2])+StrToInt(Edit2.Text));
end;
except
end;
G1 := G1+3;
end;
S1.SaveToFile(ExtractFilePath(ParamStr(0))+'database.b');
G1 := 0;
for I1 := 0 to S1.Count div 3 do
begin
try
with L1.Items.Add do
begin
Caption := S1.Strings[G1];
SubItems.Add(S1.Strings[G1+1]);
SubItems.Add(S1.Strings[G1+2]);
end;
G1 := G1+3;
except
end;
end;
end;
end.
Сам проект.
0
Вложения
Тип файла: rar Sklad.rar (226.5 Кб, 0 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.04.2018, 08:03
Ответы с готовыми решениями:

Можно ли перевести код из JS в Visual Basic
Есть вот такой вот код на JavaScript... Его необходимо перевести в Visual Basic...

Кто сможет перевести код из Visual Basic в C++?

Перевести код рисования фигур с Visual Basic .NET
Мне нужно переделать программный код с Visual Basic.NET на Visual Basic 6.0...

Нужно перевести в visual basic
Нужно перевести решение из паскаля в vb , а перевести не получается помогите...

Код Visual Basic
Всем привет. Спецы помогите, прочитать код одной проги. Я сам не программист но...

1
Maikl2020
Всегда онлайн
49 / 49 / 10
Регистрация: 13.04.2014
Сообщений: 1,215
03.04.2018, 08:52  [ТС] 2
Помогите пожалуйста.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.04.2018, 08:52

код visual basic
На форме я создал текстовые поля и кнопку добавления и связал их с базой данных...

Насколько схожи языки Delphi и Visual Basic
Легко ли изучить Basic после Delphi:stop:

Переделать код с си++ на Visual basic
Здравствуйте! У меня есть программа, создающая генератор случайных чисел, но...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru