Программирование (VB,C#,ASP,.NET): новости, советы, примеры (comp.soft.prog.vbaspsharpnet) : Рассылка : Subscribe.Ru

Система «Эксперт» - уникальная система, которая поможет решить, если не все, то многие Ваши проблемы с программированием и разработкой! Если у Вас есть какой-либо вопрос по программированию или разработке, то Вы всегда можете задать его нашим Экспертам! При этом каких-либо особых действий от Вас не потребуется! Просто отправьте Ваш вопрос на адрес mailto:expert@kbyte.ru, в теме письма укажите тему вопроса, в тексте – сам вопрос, и все! Эксперты дадут Вам ответ в течение 12-24 часов, на тот адрес, с которого Вы отправите вопрос. Все проще простого! Никакой регистрации и заполнение бесконечных форм, просто спросите и получите ответ ;-)

Вопрос #001017: Бесплатные программы

Автор вопроса: Sarj // 03.06.2008 / 08:56

Уважаемые эксперты, поскажите пожалуйста бесплатный аналог Corel Draw.
Очень надо...
 
 .....

Отвечает: Алексей Немиро // 03.06.2008 / 09:02

Здравствуйте, Sarj.
 
 http://inkscape.org/
 
 -- 
 С наилучшими пожеланиями,

 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #001014: Avi и Mpeg4 в Visual Basic

Автор вопроса: алексей // 02.06.2008 / 12:36

Как можно проигрывать
эти форматы в вижал бэйсик? Пример на сайте не работает.
 
 .....

Отвечает: Алексей Немиро // 02.06.2008 / 12:43

Здравствуйте, Алексей.
 
 Можно использовать MediaPlayer. Для этого его нужно подключить к

проекту через меню Project (Проект) -> Components (Компоненты), в
 появившемся окне найти и выбрать Windows Media Player. Далее, в
 панели инструментов должна появиться иконка плеера, который можно
 разместить на форме. Указать файл для проигрывания можно
 в свойство URL, или FileName в зависимости от версии проигрывателя.
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000952: Обработка файлов в C# (.NET 2.0)

Автор вопроса: Сергей // 09.05.2008 / 18:07

Доброе время суток!
 В общих словах, такая задача поставлена передо мной: На веб-странице 
 пользователь выбирает файл, нажимает
кнопку "Импорт" и из этого файла 
 данные импортируются в таблицу БД Oracle.
 Файл должен быть текстовым, первые 2 строки- информация о времени и 
 логине того, кто выгружал. После них идут строки данных, поля 
 разделяются симоволом | .
 Просьба дать ссылки на документацию по работе с файлами, которые могут 
 помочь :-)

Отвечает: Алексей Немиро // 12.05.2008 / 10:34

Здравствуйте, Сергей.
 
 Необходимые классы и функции для работы с файлами лежак в пространстве имен System.IO. Также Вам могут понадобиться классы для работы с регулярными выражениями, которые лежат в пространстве имен System.Text.RegularExpressions.
 Что касается импорта файлов, то данные можно
взять прямо из потока FileUpload.PostedFile.InputStream, передать их в StreamReader и обработать при помощи регулярных выражений. 
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000947: Секундомер

Автор вопроса: Александр // 08.05.2008 / 17:40

Добрый день!
 Как сделать секундомер на сайте kbyte.ru много но вот все они выдают результат как 345сек, а мне надо 1:45:01 то есть в временом формате. Как сделать???
 
 .....

Отвечает: Алексей Немиро // 09.05.2008 / 08:29

Здравствуйте, Александр.
 
 Зная, что в минуте 60 секунд, в часе 60 минут, а в сутках 24 часа, можно легко превратить 345 секунд в нужный формат.
 001:
002:
003:
004:
005:
006:
007:
008:
009:
Dim sec As Integer
sec = 345
Dim ssec As Integer, min As Integer, hour As Integer
If sec > 59 Then
 min = Int(sec / 60)
 ssec = sec Mod 60
End If
If min > 59 Then hour = Int(min / 60)
MsgBox sec & " сек. = " & hour & "
ч. " & min & " мин. " & ssec & " сек."

 
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000937: DLOOKUP??

Автор вопроса: Алексей // 05.05.2008 / 16:37

Почему те поля формы, которые имеют в ControlSource функцию Dlookup не записывают значение полей в конечную таблицу?
 
 --------------------------------------
 Категория: --- MS Access

Отвечает: Алексей Немиро // 06.05.2008 / 05:24

Здравствуйте, Алексей.
 
 Из справки MS Access: Функция Dlookup
 При использовании этой функции не учитываются
 несохраненные изменения записей подмножества. Если функция
 DLookup должна использовать измененные значения, необходимо сначала сохранить
 изменения с помощью команды Сохранить запись в меню
 Записи, с помощью перемещения фокуса на другую запись или
 метода Update.

 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Чтобы задать Ваш вопрос, отправьте его на адрес expert@kbyte.ru

Раздел Эксперт на сайте Kbyte.Ru

Наверх

Последнее на форумах

Помогите найти ошибку | Автор: Dragon-zla
Добавлено: 22.09.2008 / 17:58 | ответов: 3 | просмотров: 110

Здравствуйте.В колледже изучаем VBA(Visual Basic for Applications).Научился программировать решения задач, следующим будет логика(истина/ложь) решил для самообразования написать макрос, который будет решать уравнения вида ax^2+bx+с или ax^2+с.Написал следующий код

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
Sub Kvadrat_urav()
  Dim
x As Single
  Dim x2 As Single
  Dim a As Single
  Dim b As Single
  Dim c As
Single
  Dim D As Single
    a = InputBox("Эта программа вычислит корни квадратного уравнения вида ax^2+bx+с или ax^2+c.Введите пожалуйста значение a")
    b = InputBox("Введите b, если вы хотите вычислить ax^2+с
введите 0")
    c = InputBox("Введите c")
      If b = 0 Then [x=((-1*c)/a)^(1/2);x2=(-1*((-1*c)/a)^(1/2)) [Else(D=(b^2)-(4*a*c);x=(-1*b+D^(1/2))/(2*a);x2=(-1*b-D^(1/2))/(2*a)]] 'Проверяем равен ли b 0 если да, то решаем ax^2+с иначе ax^2+bx+c
    MsgBox ("x1=") & x & (" x2=") & x2
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

Решил проверить на уравнении 2x^2+5x+2=0 по идее должен выдать x1=-0.5 x2=-2 но выдает x1=0 x2=0.Где ошибка?

P.S. End If пробовал выдает ошибку компиляции

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Stuart
Добавлено:22.09.2008 / 20:50
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
Sub Kvadrat_urav()
Dim x As Single
Dim x2 As Single
Dim a As Single
Dim b As Single
Dim c As Single
Dim D As Single
  a = InputBox("Эта программа вычислит корни квадратного уравнения вида ax^2+bx+с или ax^2+c.Введите пожалуйста значение a")
  b = InputBox("Введите b, если вы хотите вычислить ax^2+с введите 0")
  c = InputBox("Введите c")

   If b = 0 Then
     x = ((-1 * c) / a) ^ (1 / 2)
     x2 = (-1 * ((-1 * c) / a) ^ (1 / 2))
   Else
     D = Round((b ^ 2) - (4 * a * c))
     x = (-1 * b + D ^ (1 / 2)) / (2 * a)
     x2 = (-1 * b - D ^ (1 / 2)) / (2 * a) 'Проверяем равен ли b 0 если да, то решаем ax^2+с иначе ax^2+bx+c
   End If

MsgBox ("x1=") & x & (" x2=") & x2
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: Dragon-zla
Добавлено:23.09.2008 / 17:48
Сделал как подсказали окна запроса вылезли, но вместо ответа выдал

Run-time error '5':
Invalid procedure call or argument

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: Stuart
Добавлено:23.09.2008 / 20:50
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
Sub Kvadrat_urav()
Dim a As Single
Dim b As Single
Dim c As Single
Dim D As Single
Dim st As Single
a = InputBox("Эта программа вычислит корни квадратного уравнения вида ax^2+bx+с или ax^2+c.Введите пожалуйста значение a")
b = InputBox("Введите b, если вы хотите вычислить ax^2+с введите 0")
c = InputBox("Введите c")

If b = 0 Then 'Проверяем равен ли b 0 если да, то решаем ax^2+с иначе ax^2+bx+c
   st = ((-1 * c) / a)
    If st < 0 Then
     x = -1 * (Abs(st) ^ (1 / 2))
     x2 = (-1 * (-1 * (Abs(st) ^ (1 / 2))))
    Else
     x = (st ^ (1 / 2))
     x2 = (-1 * ((-1 * c) / a) ^ (1 / 2))
    End If
Else
   D = Round((b ^ 2) - (4 * a * c))
    If D < 0 Then
      st = -1 * (Abs(D) ^ (1 / 2))
    Else
      st = D ^ (1 / 2)
    End If
   x = (-1 * b + st) / (2 * a)
   x2 = (-1 * b - st) / (2 * a)
End If

MsgBox ("x1=") & x & (" x2=") & x2
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

ps: не проверял

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

открытие нескольких txt файлов в одном документе EXCEL | Автор: cASSAndra
Добавлено: 22.09.2008 / 11:26 | ответов: 0 | просмотров: 56

добрый день, у меня такая вот ситуация. есть n-ное количество текстовых файлов. мне надо все эти n файлов засунуть в один документ Excel на разные листы. как этот файл засовывать в excel построчно я нашла, но так слишком долго будет. можно это как-то побыстрее сделать?

если в цикле добавлять лист

001:
002:
003:
004:
005:
Excel.Workbooks(1).Sheets.Add
Excel.Workbooks(1).ActiveSheet.Name = fName(i)
Excel.Workbooks.Open(Path & fName(i))

Colorized by: Eros.CodeSyntaxColor Engine

он создает книгу с новыми листами и дает им нужные имена, но все файлы открывает не в этой же книге, а создает кучу новых, а Excel.Workbooks(1).Open(Path & fName(i)) не воспринимает ((( подскажите пожалуйста - чего такого написать надо, чтобы нормально заработало?

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Печать методом PrintForm | Автор: SonaRMax
Добавлено: 15.09.2008 / 21:12 | ответов: 7 | просмотров: 283

Здравствуйте! Для печати некоторого графика нарисованного в picture box примеил метод PrintForm, и все бы хорошо но picture box имеет положение на форме отличное от 0. Посылая на печать данную форму по какой то причине picture box смещается в нулевую позицию на форме. При этом сам picture box физически остается на месте. В процедуре печати делал установку кординат picture box-а, эффекта 0. Подскажите как избавится от этого?

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: DIS
Добавлено:16.09.2008 / 18:15
По моему лучше использовать Printer.PaintPicture

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: SonaRMax
Добавлено:16.09.2008 / 20:35
А как это конкретно будет выглядеть? в смысле рабочего кода?

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: DIS
Добавлено:16.09.2008 / 21:10
001:
002:
003:
004:
005:
006:
007:
008:
009:
Printer.PaperSize = vbPRPSA4 ' установка размера бумаги А4
Printer.ScaleMode = vbPixels ' установка единиц шкалы - пиксели (по умолчанию твипы)
' здесь можно настроить дополнительные параметры принтера, такие как качество и режим печати, и т.п.
Printer.PaintPicture Picture1.Image, 0, 0 ' размещение на листе картинки с Picture1 в верхнем правом углу
' дополнительные параметры метода PaintPicture: X1, Y1, Width1, Height1 - позиция и размеры картинки на листе,
' X2, Y2, Width2, Height2 - координаты и размер области на исходном рисунке, из которой будет вырезаться рисунок для печати
Printer.EndDoc ' вывод на печать документа

Colorized by: Eros.CodeSyntaxColor Engine

Для отмены печати используется метод Printer.KillDoc. Также, можно выбрать используемый принтер из установленных в системе, например: Set Printer = Printers(1)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 4 | Автор: SonaRMax
Добавлено:16.09.2008 / 21:19
Спасибо!!! то что нужно :). Осталость только лабельки поместить на принтер....

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 5 | Автор: SonaRMax
Добавлено:16.09.2008 / 21:26
жалко что данный метод не печатает содержимое pictureboxa. график получается без кординат :(

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 6 | Автор: DIS
Добавлено:17.09.2008 / 15:01
Насколько я понял значения координат делаются при помощи Label а линии - обьектами Line)))) Это не лучший вариант
Текстовку на picturebox можно нарисовать программно, тогда она тоже будет выводиться вместе с остальным. Например:
Picture1.CurrentX = 80
Picture1.CurrentY = 130
Picture1.Print "Какой-либо текст" ' Рисует на пикчербокс текст в позиции 80; 130
Ну а все линии проводятся операторами Line тут надеюсь и так все понятно

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 7 | Автор: SonaRMax
Добавлено:17.09.2008 / 21:56
Да я так и сделал :). Возможно и не лучший вариант решения задачи, но зато быстро .... :). Еще раз спасибо за подсказки!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Хранимые процедуры и GridView (MS SQL Server) | Автор: ZXC
Добавлено: 13.09.2008 / 22:30 | ответов: 4 | просмотров: 241

Собственно задался вопросом по использованию хранимых процедур, но везде инфа только по T-SQL, самих описаний операторов и т.д, а больше всего интересует что есть в студии для работы с хранимыми процедурами, есть ли удобное средство по созданию и внесению их в базу, а так же можно небольшой примерчик с использованием GridView'a и Stored procedure? например SELECT * FROM DataBase, спасибо

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Neco
Добавлено:14.09.2008 / 19:09
в professional версии студии должен быть тип проекта Database - там есть.
при использовании хранимых процедур ничего нового на уровне приложения (по сравнению с использованием запросов) не происходит. Только вместо команды имя процедуры и тип вызова ставишь соответствующий.
честно говоря так и не понял смысла в использовании хранимых процедур вместо обычных запросов (т.е. если всё можно решить одним запросом, то зачем упаковывать её в процедуру?).
можно поинтересоваться зачем это могло понадобиться?

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: ZXC
Добавлено:14.09.2008 / 21:39
очень много раз выполняються одинаковые запросы, разумнее было бы один раз SQL серверу скомпилировать запрос и уже позже просто вызвать его как хранимую процедуру, чем всё время компилировать и делат запрос

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: Neco
Добавлено:14.09.2008 / 21:55
sql server (по крайней мере 2005) и сам неплохо кэширует запросы (и результаты и сами запросы), чтобы не составлять каждый раз план выполнения заново. т.е. разница будет только в первом вызове, что, наверняка, не так важно.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 4 | Автор: ZXC
Добавлено:16.09.2008 / 04:36
Хм, ясно, спасибо что объяснил

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Преобразование символов в RichTextBox | Автор: Вячеслав Александрович
Добавлено: 10.09.2008 / 22:24 | ответов: 2 | просмотров: 210

Доброго здоровья, люди!
Помогите, пожалуйста. Как при нажатии на кнопку преобразовать часть текста в RichTextBox в заглавные буквы, а потом вернуть обратно (аналог UCase и LCase для TextBox)?
Спасибо.

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Алексей
Добавлено:11.09.2008 / 05:20
001:
002:
003:
004:
RichTextBox1.SelText = UCase(RichTextBox1.SelText)

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: Вячеслав Александрович
Добавлено:11.09.2008 / 14:27
Спасибо!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Наверх

Последние статьи

Нестандартная форма
Автор: Zhenik Ipatov | добавлено: 05.05.2008 / 12:42 | просмотров: 1108

Первое что бросается в глаза, когда первый раз используешь программу это конечно же её облик, внешний вид. Есть вероятность что если пользователю не понравится внешний вид окна, то он не будет пользоваться продуктом. Значит нам, не побоюсь этого слова, программистам нужно как можно лучше, удобнее, понятнее, красивее и приветливее сделать лицо программы. Нужно как можно эффектнее преподнести программу. С самого первого появления Windows окна получили прямоугольный стандарт и все User Control’ы

Как узнать размер базы данных MySQL через php
Автор: Николай Рудченко | добавлено: 14.02.2008 / 13:01 | просмотров: 1500

В этой небольшой статье вы узнаете, как получить размер вашей базы данных (БД) MySQL используя язык программирования PHP.

Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)
Автор: Немиро Алексей | добавлено: 27.07.2007 / 14:01 | просмотров: 7185

В данной статье речь пойдет о том, как можно программно заполнить и отправить Web-форму, а также получить результат с использованием довольно простых классов - HttpWebRequest и HttpWebResponse.

Работа с SQL – Запросы
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 22.07.2007 / 04:43 | просмотров: 12463

В данной статье рассмотрены часто используемые SQL-запросы и приведены примеры их использования.

Использование XML.Serialization
Автор: Немиро Алексей | добавлено: 19.07.2007 / 15:38 | просмотров: 3368

В данном обзоре речь пойдет об использование XML.Serialization в .NET и ее применении на примере сохранения и считывания настроек программы с использованием синтаксиса языка Visual Basic .NET.

Статьи на Kbyte.Ru

Наверх

Интересные коды и решения

Поиск окна по заголовку
Дата добавления: 31.07.2006 / 12:52 | просмотров: 2166 | платформа: VB

Поиск предложений
Дата добавления: 24.03.2007 / 11:06 | просмотров: 1698 | платформа: RegEx

Как ограничить количество вводимых символов в TextBox?
Дата добавления: 31.07.2006 / 13:59 | просмотров: 2530 | платформа: ASP .NET (VB)

Запись куков (Cookies)
Дата добавления: 31.07.2006 / 15:50 | просмотров: 1839 | платформа: ASP .NET (VB)

Как проверить, подключен компьютер к интернет или нет?
Дата добавления: 24.03.2007 / 12:36 | просмотров: 2417 | платформа: VB .NET

Получение имен классов и всех заголовков доступных окон системы
Дата добавления: 31.07.2006 / 12:50 | просмотров: 1979 | платформа: VB

Как запретить пользователю перемещать форму?
Дата добавления: 31.07.2006 / 12:05 | просмотров: 1423 | платформа: VB

Как поменять стиль у всех контролов на форме (Form)?
Дата добавления: 24.03.2007 / 11:59 | просмотров: 1554 | платформа: VB .NET

Получение многоразрядного числа
Дата добавления: 31.07.2006 / 12:32 | просмотров: 1714 | платформа: VB

Проверка существования файла с использованием API
Дата добавления: 31.07.2006 / 12:41 | просмотров: 2567 | платформа: VB

Универсальные коды на Kbyte.Ru

Наверх

Юмор на Kbyte.Ru

Один программер любил компьютеры. Пока его за этим не застукали...

Рейтинг: 304
Всего голосов: 540