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

dneprcomp Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору zoric А почему использован именно CInt() ? Умножаем на десятичную дробь. Если приводим к Integer, то теряем точность. Надо использовать CDec() Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 23:10 17-04-2006

Troitsky Водник Водкин Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору zoric Цитата: CInt(х) не работает из-за точки Не в точке дело. Если x - строка, то прежде чем функцию CInt применять, по идее нужно эту строку в число перевести: Код: CInt(Val(x)) ---------- Мы в хорошем настроении гуляем по лесам. Кто обидеть нас захочет – сам получит по усам. Сам полу- получит по усам. Сам полу- получит по усам! Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 09:37 18-04-2006

Troitsky Водник Водкин Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору zoric Эта тема по типовым задачам на VB. Тема по VBScript тут. Ты же постил уже там, зачем сюда перешел?   Разделителем целой и дробной части является точка, а не запятая и в этом плане твой код Код: CInt(1.987987) = Несоответствие типа 'CInt' работает нормально и без ошибок. Ошибки наоборот возникают когда запятая там фигурирует. Возможно вся соль в региональных настройках, может еще в чем.   В любом случае можно воспользоваться функцией Replace: Код: Replace("1,987987", ",", ".") ---------- Мы в хорошем настроении гуляем по лесам. Кто обидеть нас захочет – сам получит по усам. Сам полу- получит по усам. Сам полу- получит по усам! Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 20:27 18-04-2006 | Исправлено: Troitsky, 20:29 18-04-2006

Troitsky Водник Водкин Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору zoric Цитата: Ну конечно в них. У меня (как и у большинства тех, кто будет использовать мой скрипт) - Россия. И ошибка вылазит как раз из-за точки. У меня тоже российские региональные настройки и в качестве разделителя целой и дробной части задана запятая, но от этого ничего не меняется - скрипт благополучно работает с точкой, но не с запятой. Для чистоты эксперимента пробовал настройки менять - та же петрушка, скрипт в качестве десятичного разделителя понимает только точку. Мне вообще кажется, что на программном уровне кроме точки ничего и быть не может, ведь запятая - это признак перечисления параметров функции. Кстати, подобного рода и сообщение об ошибке выводится в случае использования запятой: "Недопустимое число аргументов...".   Добавлено: Если у тебя смена региональных настроек делу помогает, можешь программно менять ключ реестра HKEY_CURRENT_USER\Control Panel\International\sDecimal, в котором прописан десятичный разделитель Windows. ---------- Мы в хорошем настроении гуляем по лесам. Кто обидеть нас захочет – сам получит по усам. Сам полу- получит по усам. Сам полу- получит по усам! Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 19:07 19-04-2006

Troitsky Водник Водкин Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору zoric Цитата: Может дело в системе - у меня ХР У меня тоже WinXP SP2 русская. Может от версии vbscript.dll зависит? У меня 5.6.0.8820. У тебя такая же? Хотя, не должно вроде бы... Я даже не знаю. Поспрашивай в топике по VBScript, может там что подскажут. ---------- Мы в хорошем настроении гуляем по лесам. Кто обидеть нас захочет – сам получит по усам. Сам полу- получит по усам. Сам полу- получит по усам! Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 21:36 20-04-2006 | Исправлено: Troitsky, 21:37 20-04-2006

ShIvADeSt Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору zoric Цитата: Но ИМХО должно быть какое-то другое решение проблемы. Прежде чем постить искал в сети "разделитель целой и дробной части" Сразу же нашёл несколько  подобных тем. И везде - Replace.   Чёрти что. А если у юзера стоит En - засовывать в ф-ию проверку, какие там региональные настройки. Лезть в рееестр, только для того что-бы перемножить 2 числа. Вообще то самое правильное решение это как раз заменить запятую на точку, если у юзверя стоит енглиш, то там и так по умолчанию точка разделитель, то есть реплейс ничего не заменит ибо и так все норм Цитата: Если у тебя смена региональных настроек делу помогает, можешь программно менять ключ реестра HKEY_CURRENT_USER\Control Panel\International\sDecimal, в котором прописан десятичный разделитель Windows. зачем менять, его проще считать оттуда и в процедуре Replace вместо "," засунуть это значение, тогда даже если разделителем будет пробел, он все равно заменится на точку. ---------- И создал Бог женщину... Существо получилось злобное, но забавное... Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 02:28 21-04-2006

zelinski BANNED Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Где можно скачать "Справку" для русифицированного VB 6.0? Как её установить? На VB 6.0 при изменении содержимого DriveListBox не изменяется содержимое DirListBox и в свою очередь при изменении содержимого DirListBox не изменяется содержимое   FileListBox. Что и куда надо добавить, чтобы содержимое FileListBox тут же изменялось при изменении содержимого  DirListBox содержимое которого тут же изменялось при изменении содержимогоDirListBox? А вообще-то хотелось, чтобы все файлы с   расширениями "txt" и "doc" из FileListBox при нажатии CommandButton, копировались в определённую папку. Всего записей: 471 | Зарегистр. 24-04-2003 | Отправлено: 07:07 01-05-2006

dneprcomp Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору zelinski Используй свойство Path в событии _Change. Примеры: dirList.Path = dirList.List(dirList.ListIndex) dirList.Path = drvList.Drive filList.Path = dirList.Path   для фильтровки можно использовать filList.Pattern = "*.txt; *.doc"   Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 07:33 01-05-2006

Iceman82 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Koshta Например, можно так: Цитата:   Dim A As Integer Dim B As Integer Dim X As Integer   A = CInt(TextBox1.Text) B = CInt(TextBox2.Text) X = CInt(TextBox3.Text)   If (X >= A) And (X <= B) Then       MsgBox("X принадлежит отрезку [A,B]") Else       MsgBox("X НЕ принадлежит отрезку [A,B]") End If   З.Ы. Но вообще, было бы не плохо, если бы ты сообщал, в каком виде должна быть конечная программа (да и для какой версии VB тоже) Всего записей: 48 | Зарегистр. 10-02-2005 | Отправлено: 00:52 12-05-2006 | Исправлено: Iceman82, 16:23 12-05-2006

Iceman82 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Koshta Ну смотри, если тебе надо это сделать с графическим интерфейсом, то берешь форму, кидаешь на нее три TextBox'a, и какую нибудь кнопку (Command) и в обработчике события нажатия на эту кнопку пишешь то, что я уже писал выше. А если тебе все-таки надо, чтобы это работало в консоли в диалоговом режиме, тогда код должен быть примерно следующим (например): Цитата:   Module Module1     Sub Main()         Dim A As Integer, B As Integer, X As Integer           Console.Write("Введите число X: ")         X = Console.ReadLine()         Console.Write("Введите начало отрезка A: ")         A = Console.ReadLine()         Console.Write("Введите конец отрезка B: ")         B = Console.ReadLine()           If (X >= A) And (X <= B) Then             MsgBox(X & " принадлежит отрезку [" & A & "," & B & "]")         Else             MsgBox(X & " НЕ принадлежит отрезку [" & A & "," & B & "]")         End If     End Sub End Module   Правда, я работаю с VB.NET, поэтому функции ввода-вывода (Console.ReadLine и Console.Write) у тебя могут и не работать, но ведь в этой программе это и не так важно, правда?   З.Ы. Если честно, я просто не знаю, как работает ввод-вывод в консоли в VB6. Всего записей: 48 | Зарегистр. 10-02-2005 | Отправлено: 16:33 12-05-2006

Страницы: 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 Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование