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

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

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

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

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