Логическая игра Исключение лишнего

@MrLimon · Регистрация: 01.11.2012

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

в общем, в форме появляется по 3 картинки, две связанные друг с другом и одна не подходящая, ну допустим круг,мячик,лодка... по нажатию на лодку появляется следующаяя тройка картинок и так далее до первой ошибки, в конце выводится кол-во правельных ответов

Добавлено через 8 минут
по нажатию на картинку или кнопку под картинкой*

@gaw · 14.05.2013, 13:35

картинки то где
и связи где

@MrLimon · 14.05.2013, 14:41 **[ТС]**

ну круг там, и мячик круглый, хоть как-до да связано, а лодка уж точно не вписывается, ну хорошо, для преверед: деревенский дом, многоэтажка, самосвал

@gaw · 14.05.2013, 14:55

где хранятся картинки (в папке , в программе, на сайте, ...)
где записаны связи (--//--)
или связи прога сама должна распознавать

@Pro_grammer · 14.05.2013, 18:41

Делаем связи постоянные! К примеру 3-я картинка всегда правильный ответ. А вот расположение картинок на форме меняем случайным образом. Картинки подгружаем из фалов.
Рабочий пример на 4 теста

@MrLimon · 15.05.2013, 08:40 **[ТС]**

Pro_grammer, первый варант картинок работает правильно, но после выбора ответа выдаета в первом, видыет ошибку: file not found '10images.jpg' вот тут

Visual Basic

1
2
3

Image1.Picture = LoadPicture(x & "0images.jpg", 0, 0)
Image2.Picture = LoadPicture(x & "1images.jpg", 0, 0)
Image3.Picture = LoadPicture(x & "2images.jpg", 0, 0)

@Pro_grammer · 15.05.2013, 10:59

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

file not found '10images.jpg'

А у вас в папке с проектом есть этот файл?
Если есть, то ошибки не может быть.
Или попробуйте прописать полный путь к изображениям в виде

Visual Basic

1
2
3

Image1.Picture = LoadPicture(App.Path & "\" & x & "0images.jpg", 0, 0)
Image2.Picture = LoadPicture(App.Path & "\" & x & "1images.jpg", 0, 0)
Image3.Picture = LoadPicture(App.Path & "\" & x & "2images.jpg", 0, 0)

@MrLimon · 16.05.2013, 00:16 **[ТС]**

Pro_grammer, вот теперь робит.

Так, а чтоб картинок добавить побольше, надо максимально X увеличить, ведь оно у нас только до 3х, и рилепляет к пути к фалу только число до 3х, я правильно понял?

@Pro_grammer · 16.05.2013, 06:26

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

я правильно понял?

Правильно.

@MrLimon · 16.05.2013, 10:22 **[ТС]**

картинки увеличить получилось только до 9, далее опять первые пошли... как это исправить?

@Pro_grammer · 16.05.2013, 10:30

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

олько до 9

А как файлы называешь? Должно быть

100images.jpg
101images.jpg
102images.jpg

110images.jpg
111images.jpg
112images.jpg

ну и т.д.

@MrLimon · 16.05.2013, 11:43 **[ТС]**

именно так и называю

Добавлено через 27 минут
Pro_grammer, все, разобрался, забыл увеличить X))) думал что уже делал это))

Добавлено через 29 секунд
а сейчас вопрос на другую тему: как в лейбле писать с новой строки?

@Pro_grammer · 16.05.2013, 12:19

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

как в лейбле писать с новой строки?

Visual Basic

1	Label1.Caption = "Строка 1" & vbNewLine & "Строка 2" & vbNewLine & "Строка 3" & vbNewLine & "Строка 4"

@MrLimon · 16.05.2013, 23:51 **[ТС]**

такс, это все чудненько, а реально ли реализовать случайные тройки картинок? ну тоесть чтоб они не одинаково каждый раз друг за другом следовали

@Pro_grammer · 17.05.2013, 07:26

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

случайные тройки картинок

Реально.
Сейчас они следуют правилу x=x+1, т.е. линейно. А ты сделай случайно

Visual Basic

...
'x = x + 1 ' Вместо линейного случайный выбор
Randomize Timer
x = Int(Rnd * 10) + 1 ' вместо 10 твоё максимальное кол-во троек 
Image1.Picture = LoadPicture(App.Path & "\" & x & "0images.jpg", 0, 0)
Image2.Picture = LoadPicture(App.Path & "\" & x & "1images.jpg", 0, 0)
Image3.Picture = LoadPicture(App.Path & "\" & x & "2images.jpg", 0, 0)
'If x = 3 Then x = 0 'эта строка уже не нужна
Else
...

@MrLimon · 17.05.2013, 09:24 **[ТС]**

Pro_grammer, работает. А чем отличается randomize timer от простого randomize?
И да, что добавить, для того, чтобы тройки картинок не повторялись?

Добавлено через 13 минут
как сделать, кроме способа введения лишней переменной, чтоб кнопка воспринимала второй клик? ну тоесть, по первому клику она делает одно действие, а по второму другое.

@Pro_grammer · 17.05.2013, 09:29

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

randomize timer от простого randomize?

randomize при каждом запуске программы повторяет последовательность "случайных" чисел
randomize timer генерирует всякий раз новую последовательность.

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

чтобы тройки картинок не повторялись?

Заведи массив, в который записывай уже выпавшие числа. Если новое число будет совпадать с числом из массива, то производим повторную генерацию. Как только все числа массива будут заняты это будет означать, что все тройки выпали. Или конец теста или обнуляем массив и сначала!

@MrLimon · 17.05.2013, 11:20 **[ТС]**

Visual Basic

For i = 1 To 15
Randomize Timer
x = Int(Rnd * 15) + 1 
If x <> a(i) Then
a(i) = x
Image1.Picture = LoadPicture(App.Path & "\materials\" & x & "0images.jpg", 0, 0)
Image2.Picture = LoadPicture(App.Path & "\materials\" & x & "1images.jpg", 0, 0)
Image3.Picture = LoadPicture(App.Path & "\materials\" & x & "2images.jpg", 0, 0)
End If
Next i

картинки повторяются
что не так?

@Pro_grammer · 17.05.2013, 11:35

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

что не так?

Надо проверять не только с текущим значением массива, а со всеми значениями, который были до него!
как то так

Visual Basic

Randomize Timer
For i = 1 To 15
labl:
x = Int(Rnd * 15) + 1
For n = 1 To i
If x = a(n) Then GoTo labl
Next
a(i) = x
Image1.Picture = LoadPicture(App.Path & "\materials\" & x & "0images.jpg", 0, 0)
Image2.Picture = LoadPicture(App.Path & "\materials\" & x & "1images.jpg", 0, 0)
Image3.Picture = LoadPicture(App.Path & "\materials\" & x & "2images.jpg", 0, 0)
 
Next i

Конечно с GoTo не красиво

, но зато просто, и понятен принцип выбора.

@MrLimon · 17.05.2013, 11:44 **[ТС]**

картинки всеже повторяются, так еще и через раз вб просто зависает при нажатии на картинку)))

@MrLimon 5 / 2 / 1 Регистрация: 01.11.2012 Сообщений: 121
		1
	Логическая игра Исключение лишнего 14.05.2013, 12:44. Показов 2934. Ответов 28 Метки нет (Все метки) в общем, в форме появляется по 3 картинки, две связанные друг с другом и одна не подходящая, ну допустим круг,мячик,лодка... по нажатию на лодку появляется следующаяя тройка картинок и так далее до первой ошибки, в конце выводится кол-во правельных ответов Добавлено через 8 минут по нажатию на картинку или кнопку под картинкой* 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	14.05.2013, 13:35	2
	картинки то где и связи где 0

@MrLimon 5 / 2 / 1 Регистрация: 01.11.2012 Сообщений: 121
	14.05.2013, 14:41 [ТС]	3
	ну круг там, и мячик круглый, хоть как-до да связано, а лодка уж точно не вписывается, ну хорошо, для преверед: деревенский дом, многоэтажка, самосвал 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	14.05.2013, 14:55	4
	где хранятся картинки (в папке , в программе, на сайте, ...) где записаны связи (--//--) или связи прога сама должна распознавать 0

@MrLimon 5 / 2 / 1 Регистрация: 01.11.2012 Сообщений: 121
	16.05.2013, 00:16 [ТС]	8
	Pro_grammer, вот теперь робит. Так, а чтоб картинок добавить побольше, надо максимально X увеличить, ведь оно у нас только до 3х, и рилепляет к пути к фалу только число до 3х, я правильно понял? 0

@Pro_grammer 6794 / 2816 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	16.05.2013, 06:26	9
	Сообщение от MrLimon я правильно понял? Правильно. 0

@MrLimon 5 / 2 / 1 Регистрация: 01.11.2012 Сообщений: 121
	16.05.2013, 10:22 [ТС]	10
	картинки увеличить получилось только до 9, далее опять первые пошли... как это исправить? 0

@Pro_grammer 6794 / 2816 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	16.05.2013, 10:30	11
	Сообщение от MrLimon олько до 9 А как файлы называешь? Должно быть 100images.jpg 101images.jpg 102images.jpg 110images.jpg 111images.jpg 112images.jpg ну и т.д. 0

@MrLimon 5 / 2 / 1 Регистрация: 01.11.2012 Сообщений: 121
	16.05.2013, 11:43 [ТС]	12
	именно так и называю Добавлено через 27 минут Pro_grammer, все, разобрался, забыл увеличить X))) думал что уже делал это)) Добавлено через 29 секунд а сейчас вопрос на другую тему: как в лейбле писать с новой строки? 0

@MrLimon 5 / 2 / 1 Регистрация: 01.11.2012 Сообщений: 121
	16.05.2013, 23:51 [ТС]	14
	такс, это все чудненько, а реально ли реализовать случайные тройки картинок? ну тоесть чтоб они не одинаково каждый раз друг за другом следовали 0

@MrLimon 5 / 2 / 1 Регистрация: 01.11.2012 Сообщений: 121
	17.05.2013, 09:24 [ТС]	16
	Pro_grammer, работает. А чем отличается randomize timer от простого randomize? И да, что добавить, для того, чтобы тройки картинок не повторялись? Добавлено через 13 минут как сделать, кроме способа введения лишней переменной, чтоб кнопка воспринимала второй клик? ну тоесть, по первому клику она делает одно действие, а по второму другое. 0

@Pro_grammer 6794 / 2816 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	17.05.2013, 09:29	17
	Сообщение от MrLimon randomize timer от простого randomize? randomize при каждом запуске программы повторяет последовательность "случайных" чисел randomize timer генерирует всякий раз новую последовательность. Сообщение от MrLimon чтобы тройки картинок не повторялись? Заведи массив, в который записывай уже выпавшие числа. Если новое число будет совпадать с числом из массива, то производим повторную генерацию. Как только все числа массива будут заняты это будет означать, что все тройки выпали. Или конец теста или обнуляем массив и сначала! 0

@MrLimon 5 / 2 / 1 Регистрация: 01.11.2012 Сообщений: 121
	17.05.2013, 11:44 [ТС]	20
	картинки всеже повторяются, так еще и через раз вб просто зависает при нажатии на картинку))) 0

Логическая игра Исключение лишнего

Решение