Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Азбука морзе на Visual Basic Добавлено: 10.03.13 11:55  

Автор вопроса:  Alex
Добрый день.

Написал азбуку морзе на VB. Осталось только подключить звуки к ней, использовал:

 
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long


Ну а воиспроизвожу с помощью:

Console.Beep(, )


Помогите пожалуйста, осталось немного, нужно что бы в текстбоксе находило всего 4 символа - это "[" "]" "." "-", при это воспроизводя соответсвующий звук.

Должно быть что-то типо такого, если первый символ равен "[" то программа молчит, далее второй равен "-" программа издает звук и т.д., что бы все символы переброла не зависимо сколько их в текстбоксе.

Ответить

  Ответы Всего ответов: 5  

Номер ответа: 1
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
 Web-сайт: xawp.narod.ru
 Профиль | | #1
Добавлено: 13.03.13 12:39
  1. dim n as long
  2. dim s as string
  3.  
  4. for n = 1 to len(text1.text)
  5.   s = mid$(text1.text, n, 1)
  6.   select case s
  7.   case "["
  8.  
  9.   case "]"
  10.  
  11.   case "."
  12.  
  13.   case "-"
  14.  
  15.   end select
  16. next

Ответить

Номер ответа: 2
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
 Web-сайт: xawp.narod.ru
 Профиль | | #2
Добавлено: 13.03.13 12:42
Мне интересно только...
А что собственно ты написал? Форму и текстбокс создал?

Ответить

Номер ответа: 3
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
 Профиль | | #3 Добавлено: 13.03.13 14:06
Учитывая что автор использует Console.Beep, предположу что речь идет о VB.NET. Если да, то декларация АПИ функции сделана неправильно, вместо Long должен быть Int.

Ответить

Номер ответа: 4
Автор ответа:
 Mikle



Вопросов: 5
Ответов: 134
 Профиль | | #4 Добавлено: 13.03.13 14:40
На VBStreets уже давно разобрались:
http://bbs.vbstreets.ru/viewtopic.php?f=1&t=44458
Похоже автор не догадывается, что VB бывают разные.

Ответить

Номер ответа: 5
Автор ответа:
 LamerOnLine



ICQ: 334781088 

Вопросов: 108
Ответов: 2822
 Профиль | | #5 Добавлено: 22.03.13 16:45
Любопытный проект. Объявляется АПИ Beep для VB6, из kernel32 а юзается консольный бип который в mscorlib
Не удивлюсь если на C#.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам