Visual Basic | Създаване на игра II Част

Потребителски панел

Категории

C/C++ (17)

C# (8)

Facebook

Създаване на игра II Част | Автор: Evanescence | Дата: 10.01.2010

Хмммм Да започваме :) Както вече сте забелязали в Създаване на игра I Част ние стилизирахме нашата форма и остана само да я кодираме.
Цъкате 2-пъти на стената си и пишете този код



    Private Sub wall2_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles wall2.MouseEnter

        image2.Visible = True

        image1.Visible = False

        MsgBox("Вие докоснахте една от стените натиснете рестарт за да продължите играта си от начало..", MsgBoxStyle.Question, "Помощ")

    End Sub

Като имате напредвид че "wall2_MouseEnter" wall2 е името на вашата стена ако стената ви е преименувана на wall3 пишете



    Private Sub wall3_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles wall3.MouseEnter

        image2.Visible = True

        image1.Visible = False

        MsgBox("Вие докоснахте една от стените натиснете рестарт за да продължите играта си от начало..", MsgBoxStyle.Question, "Помощ")

    End Sub

Натискате на image1 и в него поставяте следния код:



    Private Sub image1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles image1.MouseEnter

        Form2.Show()

        Me.Hide()

    End Sub

Това е, сега да изясна какво правят самите кодове:
името на стената_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles името на стената.MouseEnter
След като минете с мишката на стената



        image2.Visible = True

        image1.Visible = False

снимката image2 ще се покаже а снимката image1 ще се скрие.
След това ще ви излезе това съобщение:



MsgBox("Вие докоснахте една от стените натиснете рестарт за да продължите играта си от начало..", MsgBoxStyle.Question, "Помощ")

Следващия код е за нивата....



    Private Sub image1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles image1.MouseEnter

        Form2.Show()

        Me.Hide()

    End Sub

Този код ще рече следното:
Когато минете лабиринта без да докоснете нито 1-на от стените и посочите на 1-вата снимка да ви покаже Form2 а вашата Form-а 1 ще се скрие.... съответно на Form2 сте си направили друг лабиринт..

Как да направим бутон за рестарт на играта?
Правите си нормален бутон или меню бутон ... няма значение , цъката 2-пъти и пишете следния код:



        image2.Visible = False

        image1.Visible = True

Когато натиснете бутона всичко ще е както преди снимките ще се върнат по местата си и ще започнете играта си от начало.

Как да направим бутон за нова игра?



        Me.Hide()

        Form1.Show()

Когато натиснете бутона с този код и ако сте на Form2 тя ще се скрие и ще ви покаже Form1 като Form1 е нашето 1-во ниво а Form2 2-ро ниво.Toва е за сега от мен ако имате въпроси проблеми не се копебайте да пишете в форума :)

Беше ли Ви от полза урокът?

Още уроци за Visual Basic

Искате да пишете коментари? Влезте от тук или се регистрирайте!

Коментари (3):

От mitko_dng на 02.02.2010 в 18:28 часа

Чакам с нетърпение следващите уроци!
Например как се създава подпрограма?
Как се работи със стандартните функции?

От atyy на 18.04.2010 в 12:09 часа

много е хубаво, брави smile

От programer на 08.07.2010 в 13:28 часа

ммм супер ,но мисля че е по добре да се исползва "Game Maker" много по лесно е...
Но все пак як урок утре ще пробвам да го практикувам