VPF::Появление и исчезание картинки

Guest

Дата 17.4.2005, 06:41 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

как сделать такую програмку
компьютер задумывает число
игрок пытается угадать число
если ответ правильный открывается часть большой картинки (1/10), если не правильный часть открытой картинки закрывается опять.

Staruha

Дата 17.4.2005, 09:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 2
Всего: 27

Ну и пиши ,если правильный то загружаетя картинка ,а если нет ""

--------------------

Возмездие настигнет

Вадян!

Дата 17.4.2005, 10:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 27.3.2005

Репутация: нет
Всего: нет

Цитата

игрок пытается угадать число
если ответ правильный открывается часть большой картинки (1/10), если не правильный часть открытой картинки закрывается опять

Ни чо сложного в написание этой проги нету
почитай литературку об операторах, об условиях, ну и чуть чуть о самой среде визуал, в FAQе есть много ссылок которые будут тебе очень полезны и у тебя всё получиться, ну а чё не получится отпишеш на форум !
smile

Staruha

Дата 17.4.2005, 11:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 2
Всего: 27

Было время вот так получилось

Код


Private Sub Text1_Change()
  If Text1.Text = 1 Then
         Picture1.Picture = LoadPicture("C:\pic1.gif")
  Else
         Picture1.Picture = LoadPicture(None)
 End If
End Sub

--------------------

Возмездие настигнет

Guest

Дата 17.4.2005, 17:09 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

а как вшить картинку в программу

Voldemar2004

Дата 17.4.2005, 17:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23

Add-ins -> Add-In Manager -> VB 6 Resource Editor поставь две галочки Loaded/Unloaded и
Loaded on Startup нажми Ok. Щелкни потом по появившейся зеленой пиктограмме и в ней щелкни по пиктограмме с картинкой Add Bitmap smile

--------------------

i_i
(';')
(V)

user posted image

Staruha

Дата 17.4.2005, 23:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 2
Всего: 27

В моем примере просто через Picture.Box.

--------------------

Возмездие настигнет

Anhost

Дата 20.4.2005, 13:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 18.4.2005

Репутация: нет
Всего: нет

Цитата

открывается часть большой картинки (1/10), если не правильный часть открытой картинки закрывается опять.

Загрузи картинку, допустим в PictureBox.
А условие сделай таким:

Код


Dim SummaPravOtvetov as integer
Dim PravOtvet as string
Dim FullPicSize as integer

Private Sub Form_Load()
FullPicSize=Picture1.height
Picture1.height=0
End Sub


Private Sub Command1_Click()
  If Text1.Text = PravOtvet Then
         SummaPravOtvetov=SummaPravOtvetov+1
  Else
         SummaPravOtvetov=SummaPravOtvetov-1
 End If
  if SummaPravOtvetov<0 then SummaPravOtvetov=0
  if SummaPravOtvetov>10 then SummaPravOtvetov=10
  
 'Отображение картинки...
  Picture1.height=int(FullPicSize/10)*SummaPravOtvetov
End Sub

Staruha

Дата 20.4.2005, 19:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 2
Всего: 27

Здорово,ая думала резать придеться

--------------------

Возмездие настигнет

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »