Испечати | Затвори го прозорот

Програмирање во Visual Basic

Испечатено од: IDIVIDI forum
Категорија: Технологија
Име на форумот: Хардвер и софтвер
Опис на форумот: Матични плочи, монитори, оперативни системи, антивируси, интересни програмчиња ....
URL: http://forum.idividi.com.mk/forum_posts.asp?TID=25500
Датум на принтање: 15.Јануари.2025 во 13:47
Верзија на софтверот: Web Wiz Forums 10.03 - http://www.webwizforums.com


Тема: Програмирање во Visual Basic
Постирано од: zoranjanev1
Наслов: Програмирање во Visual Basic
Датум на внесување: 16.Февруари.2012 во 10:47
Еве еден мој код за игриче во Visual Basic; програмерски, кодот е ептен елементарен, а и вакви игричиња има, но мислам дека одговорите на компјутерот во ова игриче се многу добро избрани, и игричето е многу забавно; (дизајнот направете го сами):
 
 

Public Class Form1

    Dim a As Integer

 

    Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click

        txt1.Text = ""

        txt2.Text = ""

    End Sub

 

    Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click

        a = Int(Rnd() * 31)

        If a = 0 Then

            txt2.Text = "Idi u pichku mater !"

        ElseIf a = 1 Then

            txt2.Text = "Kolku e 1+1 ?"

        ElseIf a = 2 Then

            txt2.Text = "Mi se spie"

        ElseIf a = 3 Then

            txt2.Text = "Ushte cje mi dosadjash ?"

        ElseIf a = 4 Then

            txt2.Text = "Shto ne zapalish edno cigare ?"

        ElseIf a = 5 Then

            txt2.Text = "Sakam pari !"

        ElseIf a = 6 Then

            txt2.Text = "Bidi pojasen ?!"

        ElseIf a = 7 Then

            txt2.Text = "Da ti go napikam !"

        ElseIf a = 8 Then

            txt2.Text = "I jas tebe !"

        ElseIf a = 9 Then

            txt2.Text = "Te sakam !"

        ElseIf a = 10 Then

            txt2.Text = "Ebi si majkata !"

        ElseIf a = 11 Then

            txt2.Text = "Da ti e*am se po red !"

        ElseIf a = 12 Then

            txt2.Text = "Dosta me gnjaveshe, be !"

        ElseIf a = 13 Then

            txt2.Text = "Se najdobro !"

        ElseIf a = 14 Then

            txt2.Text = "E=mc2"

        ElseIf a = 15 Then

            txt2.Text = "Shto bi rekol Ajnshtajn na ova ?!"

        ElseIf a = 16 Then

            txt2.Text = "Znaesh li ti kolku e saat ?!"

        ElseIf a = 17 Then

            txt2.Text = "Ushte nekoe glupo prashanje ?!"

        ElseIf a = 18 Then

            txt2.Text = "Dosta be so prashanjava !"

        ElseIf a = 19 Then

            txt2.Text = "Drn drn jarina."

        ElseIf a = 20 Then

            txt2.Text = "A ti shto mislish ?"

        ElseIf a = 21 Then

            txt2.Text = "Ne mislev tuka, povtori go prashanjeto !?"

        ElseIf a = 22 Then

            txt2.Text = "La la la la la..."

        ElseIf a = 23 Then

            txt2.Text = "Brat za brat, pasta za zabi."

        ElseIf a = 24 Then

            txt2.Text = "Gladen sum !"

        ElseIf a = 25 Then

            txt2.Text = "Vam na usluga !"

        ElseIf a = 26 Then

            txt2.Text = "Ne me vredjaj !"

        ElseIf a = 27 Then

            txt2.Text = "Ma, idi shetaj !"

        ElseIf a = 28 Then

            txt2.Text = "A be, ti normalen si ?!"

        ElseIf a = 29 Then

            txt2.Text = "Pametno prashanje !"

        Else

            txt2.Text = "???"

        End If

    End Sub

 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Randomize()

    End Sub

End Class


Коментари:
Постирано од: zoranjanev1
Датум на внесување: 15.Мај.2012 во 21:17
Еве уште еден код за уште едно мое игриче во Visual Basic; игричето е ептен едноставно, но е прилично занимливо; (дизајнот направете го сами):
 

Public Class Form1

    Dim a As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        txtP.Text = ""

        lblO.Text = ""

    End Sub

 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        a = Int(Rnd() * 16)

        If a >= 0 And a < 5 Then

            lblO.Text = "DA"

        ElseIf a >= 5 And a < 10 Then

            lblO.Text = "NE"

        ElseIf a = 10 Then

            lblO.Text = "SIGURNO DA"

        ElseIf a = 11 Then

            lblO.Text = "SIGURNO NE"

        ElseIf a = 12 Then

            lblO.Text = "I DA I NE"

        ElseIf a = 13 Then

            lblO.Text = "NI DA NI NE"

        ElseIf a = 14 Then

            lblO.Text = "Ne mislev tuka,povtori go prashanjeto"

        Else

            lblO.Text = "Ne go razbiram prashanjeto?"

        End If

    End Sub

 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Randomize()

    End Sub

End Class

Постирано од: Паланчански
Датум на внесување: 14.Јуни.2013 во 18:19
Ајде господа VB-аши малку да ми помогнете. Ми треба код за креирање звук. Доволно ми е да добијам одредена фреквенција (нпр. 400 херци). Останатото можам и самиот да го испрограмирам (времетраење на тонот, пауза и сл.).
Однапред благодарам.

-------------
Не знаев што е среќа, додека не се оженив. Но сега веќе е доцна.


Испечати | Затвори го прозорот

Forum Software by Web Wiz Forums® version 10.03 - http://www.webwizforums.com
Copyright ©2001-2011 Web Wiz Ltd. - http://www.webwiz.co.uk