Простенький проект на Visual Basic 6

Здрямушки!

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

Итак, встречайте! 

Самая примитивная из всех компьютерных игр - "Камень-ножницы-бумага"!

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

Вашему вниманию предоставляется три кнопки – три возможных хода игры: камень, ножницы или бумага. Свой ход вы увидите в левом слоте, ход компьютера – в правом. В случае победы или поражения Вы увидите соответствующее сообщение. То же самое касается «ничьи».   При желании очистить экран можно нажать на кнопку «новая игра» или же перейти во вкладку «файл» и из нее нажать аналогичную кнопку.

На форме располагаются следующие объекты:

- Label1 – место вывода сообщение об исходе игры.
- Label2 и Label4 – указывают принадлежность хода.
- Label3 и Label5 – выводят фоновую картинку хода.
- Image1 и Image2 – выводят саму картинку хода.
- Image3, Image4 и Image5 – картинки-кнопки – варианты хода.
- Command1 – кнопка начала новой игры.
- Меню «файл» и подменю «новая игра».

Код программы:

Dim Cancel As Integer

Private Sub Command1_Click()

'Очистка всего при нажатии на "новая игра"

Cls

Image1.Picture = LoadPicture("")

Image2.Picture = LoadPicture("")

Label1.Caption = ""

End Sub

Sub Form_Unload(Cancel As Integer)

'Кнопка выхода из игры

b = MsgBox("Вы уверены, что хотите выйти?", 36, "Выход")

If b = 7 Then

Cancel = True

End If

End Sub

Private Sub Form_Resize()

'Запрет на изменение размера. Некрасивенько так.

Form1.Width = 9060

Form1.Height = 8385

End Sub

Private Sub newgame_Click()

'Очистка всего при нажатии на "новая игра", но через меню.

Cls

Image1.Picture = LoadPicture("")

Image2.Picture = LoadPicture("")

Label1.Caption = ""

End Sub

Private Sub Image3_Click(Index As Integer)

'Если нажать КАМЕНЬ

Image1.Picture = LoadPicture("\kam.jpg")

a = Int(Rnd * (1 + 3))

If (a = 0) Or (a = 3) Then

Image2.Picture = LoadPicture("\kam.jpg")

Label1.Caption = "Ничья!"

ElseIf (a = 1) Then

Image2.Picture = LoadPicture("\noj.jpg")

Label1.Caption = "Вы выиграли!"

ElseIf (a = 2) Or (a = 3) Then

Image2.Picture = LoadPicture("\bum.jpg")

Label1.Caption = "Вы проиграли!"

End If

End Sub

Private Sub Image4_Click(Index As Integer)

'Если нажать НОЖНИЦЫ

Image1.Picture = LoadPicture("\noj.jpg")

a = Int(Rnd * (1 + 3))

If (a = 0) Or (a = 3) Then

Image2.Picture = LoadPicture("\kam.jpg")

Label1.Caption = "Вы проиграли!"

ElseIf (a = 1) Then

Image2.Picture = LoadPicture("\noj.jpg")

Label1.Caption = "Ничья!"

ElseIf a = 2 Then

Image2.Picture = LoadPicture("\bum.jpg")

Label1.Caption = "Вы выиграли!"

End If

End Sub

Private Sub Image5_Click(Index As Integer)

'Если нажать БУМАГА

Image1.Picture = LoadPicture("\bum.jpg")

a = Int(Rnd * (1 + 3))

If (a = 0) Then

Image2.Picture = LoadPicture("\kam.jpg")

Label1.Caption = "Вы выиграли!"

ElseIf (a = 1) Or (a = 3) Then

Image2.Picture = LoadPicture("\noj.jpg")

Label1.Caption = "Вы проиграли!"

ElseIf (a = 2) Then

Image2.Picture = LoadPicture("\bum.jpg")

Label1.Caption = "Ничья!"

End If

End Sub

Впрочем, не надейтесь, что результат будет точь-в-точь такой, как на скрине, все цвета и фон вам нужно будет настраивать отдельно.
Но...для особо ленивых, выкладываю проект в интернет.
Чтобы все нормально работало, необходимо кинуть картинки из папки на диск C, либо изменить пути к файлам.
Держите и радуйтесь С:
Скачать
Если вдруг файл удалят, обращайтесь.