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


   Еве еден мој код за игриче во 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 Профил од член Испрати лична порака Најди пораки од член Додај во листа на пријатели Сениор Регистриран: 07.Септември.2011 Статус: Офлајн Поени: 379	Опции за коментарот Внеси реплика Цитирај zoranjanev1 Благодарам(0) Цитирај Одговор Тема: Програмирање во 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 Профил од член Испрати лична порака Најди пораки од член Додај во листа на пријатели Сениор Регистриран: 07.Септември.2011 Статус: Офлајн Поени: 379	Опции за коментарот Внеси реплика Цитирај zoranjanev1 Благодарам(0) Цитирај Одговор Испратена: 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

Паланчански Профил од член Испрати лична порака Најди пораки од член Додај во листа на пријатели Сениор Регистриран: 01.Декември.2007 Локација: Dubrovnik Статус: Офлајн Поени: 1655	Опции за коментарот Внеси реплика Цитирај Паланчански Благодарам(0) Цитирај Одговор Испратена: 14.Јуни.2013 во 18:19
	Ајде господа VB-аши малку да ми помогнете. Ми треба код за креирање звук. Доволно ми е да добијам одредена фреквенција (нпр. 400 херци). Останатото можам и самиот да го испрограмирам (времетраење на тонот, пауза и сл.). Однапред благодарам.
	Не знаев што е среќа, додека не се оженив. Но сега веќе е доцна.