NEOMATRIX Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Данный топик предназначен только для обсуждения типовых задач на Visual Basic. Обсуждение задач на VBA (а именно, Excel, Word, Access) строго запрещено! Пишите в соответствующих топиках.   Родственные топики: Excel VBA - часть 1, часть 2 - все вопросы по Excel VBA туда Word VBA все вопросы по Word VBA туда Access все вопросы по программированию в Access туда VBScript - программирование "удобняшек" на VBScript QBasic - типовые задачи на QBasic   Date Time Functions In Visual Basic VB6's Trig, Math, Financial, Boolean, and Random functions Visual Basic 6 String Functions VB6 Number System Functions (Hex, Oct, Etc) VB6's DateAdd function   Functions (Visual Basic) Keywords and Members by Task Visual Basic Reference   Visual Basic String Manipulation Tutorials   Top 10 Visual Basic Sins   Учебники: Visual Basic для студентов и школьников. Культин Н. (2010) Занимательное программирование на Visual Basic.NET. Климов А. (2005) Visual Basic в задачах и примерах. Сафронов (2009) Visual Basic 2012 на примерах. Зиборов В. (2012) Всего записей: 202 | Зарегистр. 29-12-2004 | Отправлено: 19:30 16-11-2005 | Исправлено: XPerformer, 10:07 28-10-2014

zerkalo77 Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Да найти то n не проблема. Имеется ввиду при шифровании. Например в строке:  intTempB = ((intKey1 * intTempA) + intKey2) Mod (46) ' шифруем позицию  N = ((intKey1 * intTempA) + intKey2) \ (46) ' вот тебе и N   Вопрос в другом - как и где это значение хранить?     Добавлено: А чем вызвано такое настойчивое желание использовать метод моноалфавитной замены? Почему не побайтово? Там же всё проще пареной репы) Берём файл Загружаем его в массив байт берём каждый отдельный байт и изменяем его значение. (В том примере, который у меня, каждый чётный байт увеличивался на 1, а каждый нечётный уменьшался на 1.Хотя принцип может быть и другим)   Всего записей: 70 | Зарегистр. 02-06-2006 | Отправлено: 15:41 18-11-2009

zerkalo77 Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору SanSagittarius Ну для начала намекну что это топик НЕ VBA. Каким бы путём пошёл я: 1. Для начала нужно значть что за клиент IP телефонии. Возможно имеются исходники. Что из себя представляет входящий звонок* Если я правильно понимаю, то клиент телефона прослушивает некий порт, на который, при входящем звонке, приходят пакеты определённого протокола. Т.е. твоя задача выяснить какой порт слушать и какой протокол принимать... Как дешифровать принятые пакеты и т.д и т.п. А уже потом писать на VB свой клиент IP телефонии для этих целей.   PS. Чтоб было понятнее QIP для ICQ. Всего записей: 70 | Зарегистр. 02-06-2006 | Отправлено: 17:39 30-11-2009

GenyaMS Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Доброго времени суток!     Применение VB для написания макроса в программе SolisWoorks_2009.   Тот же вопрос и непосредственно по VB 6. Проблема в следующем: Пишется макрос, например для построения вала, размеры задаются через форму. при создании на поле формы объекта TextBox1 - в него вводится диаметр вала в TextBox2 - длина вала. В переменные программы считываются данные из полей формы их свойства Text.   Например: Diam = TextBox1.Text                    Hight  = TextBox2.Text   при вводе целочисленных значений в поля формы программа нормально их воспринимает, а вот при вводе значений через запятую 1.34 и 4.56 - ругается принимает их за текстовые данные. Переменные описанны как Single.   Что можно сделать чтобы вводить через текстовое поле формы не только целочисленные значения? Всего записей: 184 | Зарегистр. 24-01-2009 | Отправлено: 13:22 03-12-2009

zerkalo77 Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору GenyaMS Ругается на 1,34 или на 1.34?   Или и на то и на то? У меня была ситуация, когда не воспринимал точки, но корректно работал с запятыми. Я сделал следующим образом:   Function преобразовать(ByVal текст As String) As Single         Dim текст2 As String         For i = 0 To текст.Length - 1             If текст.Chars(i) = "." Then текст2 += "," Else текст2 += текст.Chars(i)         Next i           Return Convert.ToSingle(текст2) End Function     Соответственно в коде будет: Diam = преобразовать(TextBox1.Text) Hight = преобразовать(TextBox2.Text)   После внесения этой функции будет абсолютно не важно точки ты используешь или запятые... Всего записей: 70 | Зарегистр. 02-06-2006 | Отправлено: 17:42 03-12-2009

GenyaMS Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: zerkalo77 Цитата: Ругается на 1,34 или на 1.34?        Спасибо примерно так я сейчас и делаю, считываю как текстовую переменную - нахожу разделитель (символ точки или запятой), записываю каждую часть в отдельные переменные, а потом с помощью математики преобразовываю в число с запятой...       Но ищу путь по проще... Чтобы какое-нибудь одно свойство в настройках программы поменять и все было в шоколаде...   Цитата: kpblc Цитата: Заменить "." на тот разделитель целой и дробной части, который используется в системе. А где в настройках системы его можно посмотреть?     Всего записей: 184 | Зарегистр. 24-01-2009 | Отправлено: 07:39 04-12-2009

GenyaMS Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору kpblc   стоит ","   Всего записей: 184 | Зарегистр. 24-01-2009 | Отправлено: 08:37 04-12-2009

land3D Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Люди помогите пожалуйста решить две задачи в бейсике, очень срочно, если нетрудно- решите. Задачи оч легкие (я прост в програмировании полный ламмер)))) №1 Составить программу вводящую с клавиатуры произвольное число и вычисляющую sin этого числа. Для расчета ипользовать последовательность:   sin(x)=x-x^3/3!+x^5/5!-x^7/7!+...+(-1)^n-1*x^2n-1/(2n-1)!   Точность расчета- 0,001 Результат расчета вывести на экран.     №2 Запрограмировать расчет сумм приведенного ряда:   Arcsinx=x+1/2*3 *x^3+1*3/2*4*5 *x^5+1*3*5/2*4*6*7 *x^7...   С точностью 0,001   Помогите пожалуйста!!!) Всего записей: 1 | Зарегистр. 04-12-2009 | Отправлено: 22:18 04-12-2009

zerkalo77 Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору indirkaaa 1. Геометрически:     в VB нужно будет сравнить ac c ab.   Всего записей: 70 | Зарегистр. 02-06-2006 | Отправлено: 16:41 09-12-2009

blaro Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору А по второй будет так: Код:   dim a(10) as Integer dim i as Integer i=0 for i to a.lenght a(i)=i/(Math.Sin(i/Math.PI)) i++ Next   Я точно не помню как писать проги на VB, но как то так... Всего записей: 311 | Зарегистр. 29-01-2006 | Отправлено: 22:11 09-12-2009

Lovec Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Подскажите, а могу я на VB сделать такой exe, чтобы он запускал зашитый в себя другой файл и открывал обработчиком по-умолчанию в системе? Неважно что: музыка, приложение, текстовый документ. При этом важно максимальное быстродействие и чтобы не было распаковки каких-либо файлов на жесткий диск, только в память.   Спасибо Всего записей: 1028 | Зарегистр. 29-10-2002 | Отправлено: 19:02 10-12-2009

B16 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Уже писал про эту задачу но так помощи и не дождался.   Повторюсь: Задача проста до ужаса, я бы сделал но забыл как брать данные из inputbox'a   Вот текст задачи: В приложении вводится день, месяц и год рождения, в результате работы они выводятся в соответствующих отдельных окнах(ввод выполнить при помощи inputbox'a) Вот такой код программы(это я набросал): Private Sub Command1_Click() Dim pass As Integer Dim D As Integer Dim M As Integer Dim G As Integer pass = Val(InputBox("Введите день, месяц и год вашего рождения", "ДМГ")) D = Label1.Caption M = Label2.Caption G = Label3.Caption End Sub   Теперь нужно из инпут бокса взять введённые данные и вывести в лейблы. Лейблы то я сделал. Но как из него взять данные....на практике мы проходили но по тем задачам я так и не понял как из него происходит выборка.   Вот скрин "программы" Всего записей: 69 | Зарегистр. 31-07-2009 | Отправлено: 19:15 13-12-2009

blaro Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору B16 А в чем собственно вопрос? Ты уже все сделал Цитата: pass = Val(InputBox("Введите день, месяц и год вашего рождения", "ДМГ")) сделай тоже самое с каждой переменной по отдельности. Сейчас у тебя в переменной pass сохранилось значение. Всего записей: 311 | Зарегистр. 29-01-2006 | Отправлено: 22:42 13-12-2009

B16 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору blaro, Сделал таким вот образом: Dim pass As Integer Dim pass2 As Integer Dim pass3 As Integer Dim D As Integer Dim M As Integer Dim G As Integer Private Sub Command1_Click() pass = Val(InputBox("Введите день вашего рождения", "День")) Label1.Caption = pass pass2 = Val(InputBox("Введите месяц вашего рождения", "Месяц")) Label2.Caption = pass2 pass3 = Val(InputBox("Введите год вашего рождения", "Год")) Label3.Caption = pass3 End Sub   Думаю почти тоже самое. Всего записей: 69 | Зарегистр. 31-07-2009 | Отправлено: 23:07 13-12-2009

blaro Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору B16 Цитата: Думаю почти тоже самое. Нет, не тоже самое. Цитата: D = Label1.Caption   M = Label2.Caption   G = Label3.Caption   Здесь ты присваеваешь "пустым" числовым переменным текстовые значения. Что само по себе не правильно. Цитата: pass = Val(InputBox("Введите день вашего рождения", "День"))   Label1.Caption = pass   pass2 = Val(InputBox("Введите месяц вашего рождения", "Месяц"))   Label2.Caption = pass2   pass3 = Val(InputBox("Введите год вашего рождения", "Год"))   Label3.Caption = pass3   А вот здесь ты присваеваешь лейблам правильное значение. Только зачем тебе переменные D,M,G? Всего записей: 311 | Зарегистр. 29-01-2006 | Отправлено: 23:39 13-12-2009

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Visual Basic (VB).

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование