Форум программистов, компьютерный форум, киберфорум
Наши страницы
Теория и практика программирования
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
Zhumadilov
2 / 2 / 0
Регистрация: 22.10.2009
Сообщений: 125
1

Тест с картинками в ответах

12.05.2010, 10:25. Просмотров 1543. Ответов 3
Метки нет (Все метки)

есть у кого нибудь Тест с картинками в ответах пример
Вопрос?картинка
ответ1Картинка
ответ2Картинка
ответ3Картинка
можно без исходников
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.05.2010, 10:25
Ответы с готовыми решениями:

Тест, вопросы с картинками
Всем привет, делаю тест в Делфи, подскажите пожалуйста как сделать вопрос с картинкой?

Уведомления об ответах
Почему в уведомлениях об ответах перестал выводиться текст сообщения?

Реобас в вопросах и ответах
Здраствуйте. Имею вот такую схемку реобаса. ...

Мониторы 44780 в вопросах и ответах
Добрый вечер всем... Если кто имеет даташит к монитору PC2002LRS-BNH-H, поделитесь пож-та,...

Завершить прохождение теста при трех неверных ответах
Вечер добрый,делаю программу тест-опросник на базе input.box всего к примеру 5 вопросов у...

3
NekoFerus
0 / 0 / 0
Регистрация: 12.05.2010
Сообщений: 2
16.05.2010, 09:45 2
Есть у меня,но увы он немного не доработанный(((а ошибку увы я не могу найти...
Могу скинуть исходник

Добавлено через 6 минут
Тест написан в Delphi7.Самый легкий.Тема:проверка знаний по английскому языку)))Тест находится в программе во второй форме,так что сориентируешься)))Удачи,если найдешь ошибку отпиши))
Если поможет лови исходник:
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
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Spin, Gauges, MPlayer, ExtCtrls, jpeg;
     procedure Information;
    procedure SetPicture;
type
  TForm2 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Timer1: TTimer;
    Timer2: TTimer;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Gauge1: TGauge;
    SpinEdit1: TSpinEdit;
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1Click(Sender: TObject);
    procedure Image3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image3MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image4MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image4MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Timer2Timer(Sender: TObject);
 
  private
    { Private declarations }
   public
    { Public declarations }
        function ImageInShape(Image:TImage;Shape:TShape):Boolean;
  end;
 
var
  Form2: TForm2;
  i, score:integer;
  shiftX, shiftY :integer;
  left1, left2,left3 :integer;
  top1, top2, top3 :integer;
  const k=4;
a: array [1..k,1..3] of string=(
  ('car.jpg','money.jpg','bomb.jpg'),
  ('coins.jpg','clock.jpg','tennis.jpg'),
  ('brick.jpg','building.jpg','champgne.jpg'),
  ('dice.jpg','donkey.jpg','door.jpg'));
b: array [1..k,1..3] of string= (
  ('money','car','bomb'),
  ('tennis','clock','coins'),
  ('building','champagne','brick'),
  ('dice','door','donkey'));
check: array [1..k,1..3] of integer = (
  (2,1,3),
  (3,2,1),
  (3,1,2),
  (1,3,2));
 
implementation
 
uses Unit1;
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
begin
Form2.Hide;
Form1.Show;
end;
 
procedure TForm2.Timer1Timer(Sender: TObject);
begin
  if Label1.Visible=True then
    Label1.Visible:=False
  else
    Label1.Visible:=True;
end;
 
procedure TForm2.FormCreate(Sender: TObject);
begin
  i:=0;
  score:=0;
  left1:=Image2.Left;
  left2:=Image3.Left;
  left3:=Image4.Left;
  top1:=Image2.Top;
  top2:=Image3.Top;
  top3:=Image4.Top;
  SetPicture;
end;
 
procedure SetPicture;
begin
  Form2.BitBtn1.Enabled:=False;
  i:=i+1;
  if i>=k+1 then Information
      else
begin
  Form2.Label2.Caption:=b[i,1];
  Form2.Label3.Caption:=b[i,2];
  Form2.Label4.Caption:=b[i,3];
 
  Form2.Image2.Picture.LoadFromFile(a[i,1]);
  Form2.Image3.Picture.LoadFromFile(a[i,2]);
  Form2.Image4.Picture.LoadFromFile(a[i,3]);
 
  Form2.Gauge1.Progress:=Form2.Gauge1.MaxValue;
 
  Form2.Image2.Left:=left1;
  Form2.Image3.Left:=left2;
  Form2.Image4.Left:=left3;
  Form2.Image2.Left:=top1;
  Form2.Image3.Left:=top2;
  Form2.Image4.Left:=top3;
end;
end;
 
procedure Information;
begin
  Form2.Timer1.Enabled:=False;
  Form2.Timer2.Enabled:=False;
  score:=(score*100)div k;
  MessageDlg('Вы набрали'+IntToStr(score)+'баллов из 100',mtInformation,[mbOk],0);
  Form2.Hide;
  Form1.Show;
end;
 
procedure TForm2.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Image2.Tag:=1; {клавіша миші в цей момент натиснута}
shiftY:=Y; {запам'ятовуємо координату (х,у) точки}
shiftX:=X;
 
end;
 
procedure TForm2.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if Image2.Tag=1 then
begin
Image2.Top:=Image2.Top+Y-shiftY;
Image2.Left:=Image2.Left+X-shiftX;
end;
 end;
 
 
procedure TForm2.Image2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Image2.Tag:=0{запам'ятовуємо ,що клавіша миші відпущена}
end;
 
procedure TForm2.Image3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Image3.Tag:=1; {клавіша миші в цей момент натиснута}
shiftY:=Y; {запам'ятовуємо координату (х,у) точки}
shiftX:=X;
 
end;
 
procedure TForm2.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if Image3.Tag=1 then
begin
Image3.Top:=Image3.Top+Y-shiftY;
Image3.Left:=Image3.Left+X-shiftX;
end;
 
end;
 
procedure TForm2.Image3MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Image3.Tag:=0{запам'ятовуємо ,що клавіша миші відпущена}
end;
 
procedure TForm2.Image4MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Image4.Tag:=1; {клавіша миші в цей момент натиснута}
shiftY:=Y; {запам'ятовуємо координату (х,у) точки}
shiftX:=X;
 
end;
 
procedure TForm2.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if Image4.Tag=1 then
begin
Image4.Top:=Image3.Top+Y-shiftY;
Image4.Left:=Image3.Left+X-shiftX;
end;
 
end;
 
procedure TForm2.Image4MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Image4.Tag:=0{запам'ятовуємо ,що клавіша миші відпущена}
end;
 
 
 function TForm2.ImageInShape(Image:TImage;Shape:TShape):Boolean;
begin
    if (Image.Left >= Shape.Left) and
    (Image.Left+Image.Width <= Shape.Left+Shape.Width) and
    (Image.Top >= Shape.Top) and
    (Image.Top+Image.Height <= Shape.Top+Shape.Height) then
        ImageInShape :=True
    else
        ImageInShape :=False;
end;
 
 
procedure TForm2.BitBtn1Click(Sender: TObject);
 var check1,check2,check3:integer;
begin
    if ImageInShape(Image2,Shape1) then check1:=1;
    if ImageInShape(Image2,Shape2) then check1:=2;
    if ImageInShape(Image2,Shape3) then check1:=3;
 
    if ImageInShape(Image3,Shape1) then check2:=1;
    if ImageInShape(Image3,Shape2) then check2:=2;
    if ImageInShape(Image3,Shape3) then check2:=3;
 
    if ImageInShape(Image4,Shape1) then check3:=1;
    if ImageInShape(Image4,Shape2) then check3:=2;
    if ImageInShape(Image4,Shape3) then check3:=3;
 
    if (check[i,1]=check1) and (check[i,2]=check2)
      and (check[i,3]=check3) then
          score:=score+1;
  SetPicture;
  end;
 
procedure TForm2.Timer2Timer(Sender: TObject);
begin{Задаємо швидкість руху індикатора}
timer2.interval:=SpinEdit1.value*100;
if (ImageInShape(Image2,Shape1) or
   ImageInShape(Image3,Shape1)   or
    ImageInShape(Image4,Shape1))
      and
   (ImageInShape(Image2,Shape2)  or
   ImageInShape(Image3,Shape2) or
   ImageInShape(Image4,Shape2)  )
then BitBtn1.Enabled:=True;
   gauge1.progress:=gauge1.progress-1;
   if gauge1.progress=0 then
   begin
   SetPicture;
   end;
   end;
 
 
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
  Information;
end;
 
end.
0
Fox_Lisenok
0 / 0 / 0
Регистрация: 25.05.2010
Сообщений: 1
29.05.2010, 02:41 3
Привет!
У меня та же проблема насчет теста с картинками в ответах: недоработанность.
Надеюсь, у тебя есть исходники...
у меня практ работа, а доработать не могу... бррр)))
0
Zhumadilov
2 / 2 / 0
Регистрация: 22.10.2009
Сообщений: 125
04.06.2010, 12:58  [ТС] 4
все сделал на вб база(картинки вопросы) беретсья из ехселовской таблицы.
исходник будет позже счась распросраняю за деньги
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.06.2010, 12:58

Расхождение в ответах при решении уравнения двумя способами
Условие: Найти корень уравнения 1.4^x – x = 0 с точностью e = 10-5 при заданном значении...

Почему такие расхождения в ответах в книге Джеймса Андерсона
Источник Книга &quot;Дискретная математика и комбинаторика&quot; Джеймс Андерсон:...

СЛАУ. Расхождение в ответах при решении разными методами
Всем доброго времени суток. Столкнулся с такой проблемой. Выполняю лабораторную работу в экселе....


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

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

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