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

Отправляет email-рассылки с помощью сервиса Sendsay

Программирование (VB,C#,ASP,.NET): новости, советы, примеры

Рассылка закрыта

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

← Ноябрь 2008 →
	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

Автор

Алексей Немиро

Статистика

1.234 подписчиков
-1 за неделю

← Все выпуски →

Программирование (VB,C#,ASP,.NET): новости, советы, примеры

Выпуск # 399

http://www.kbyte.ru/

Новый выпуск!

Здравствуйте дамы и господа!
Представляю очередной выпуск рассылки научно-информационного портала Kbyte.Ru. Надеюсь он Вам понравится. Если у Вас есть какие либо вопросы или предложения по рассылке, пишите нам – admin@kbyte.ru!

Содержание выпуска

Система ЭКСПЕРТ

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

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

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

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

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

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

Пожалуйста помогите студентке плиииииз

Подскажите как просуммировать содержимое текстового поля?

Как сохранить данные из DataGrid'а в Excel?

Параллельность обработки

Работа с MySQL в Visual Basic

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

Нестандартная форма

Как узнать размер базы данных MySQL через php

Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)

Работа с SQL – Запросы

Использование XML.Serialization

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

Юмор на Kbyte.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

Наверх

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

Пожалуйста помогите студентке плиииииз | Автор: КлубНичкА
Добавлено: 13.11.2008 / 16:04 | ответов: 1 | просмотров: 35

Здравствуйте!!!помогите пожалуйста студентке плиииииз.Дана кнопка CommandButton1 и список ListBox1. В ListBox1 внесены в качестве текста все стандартные названия ЭУ.нужно написать код создающий ЭУ,выбранный в списке ListBox1 при нажатии на кнопку CommandButton1.Кто чем может ПОМОГИТЕ)))

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

Ответ # 1 | Автор: КлубНичкА
Добавлено:13.11.2008 / 16:10
упс забыла сказать что всё должно быть создано в USERFORM!!!

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

Подскажите как просуммировать содержимое текстового поля? | Автор: TillLinderman
Добавлено: 12.11.2008 / 17:57 | ответов: 8 | просмотров: 164

В Visual Basic 6.0 создан элемент richtextbox который заполняется разными числами. Числа целые неотрицаиельные. Количество знаков в числах разное. И есть пустое текстовое поле. Как можно тупо просуммировать все числа между собой и результат отобразить в пустом текстовом поле?
Спасибо за помощь!

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

Ответ # 1 | Автор: Алексей
Добавлено:13.11.2008 / 04:39
Примерно так:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
Dim a As String()
a = Split(RichTextBox1.Text)
Dim i As Long
Dim Sum As Long
For i = 0 To Ubound(a) - 1
Sum = Sum + a(i)
Next i

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

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

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

Ответ # 2 | Автор: TillLinderman
Добавлено:13.11.2008 / 09:45
Уважаемый Алексей! Здравствуйте! Попробовал Ваш совет, однако возникли проблемы: на первую строку "Dim a As String()" программа ругается "expected: end of statement". Пытаюсь написать что-то типа dim a as array() однако программа этого не понимает. По моему компонент нужно какой-то добавить но вот хоть убейте не помню какой.

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

Ответ # 3 | Автор: Алексей
Добавлено:13.11.2008 / 09:51
Да, точно, нужно Dim a() As String, время делает свое дело, VB 6.0 постепенно забывается :)

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
Dim a() As String
a = Split(RichTextBox1.Text)
Dim i As Long
Dim Sum As Long
For i = 0 To UBound(a) - 1
If IsNumeric(a(i)) Then Sum = Sum + a(i)
Next i
MsgBox "Сумма: " & Sum

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

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

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

Ответ # 4 | Автор: TillLinderman
Добавлено:13.11.2008 / 09:58
По поводу a() сработало. Прошу прощения за тупость в учебнике нашел то что скобки надо ставить! Однако результат = 0! То есть richtextbox набит числами в столбик например 10000 3889 33000. Но результат суммирования = 0. Опять я наверное где-то чего-то не догоняю?

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

Ответ # 5 | Автор: Алексей
Добавлено:13.11.2008 / 10:05
Но результат суммирования = 0. Опять я наверное где-то чего-то не догоняю?

хз, в меня работает.

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
Option Explicit

'разместить на форме кнопку (Command1) и RichTextBox1
Private Sub Command1_Click()
Dim a() As String
a = Split(RichTextBox1.Text)
Dim i As Long
Dim Sum As Long
For i = 0 To UBound(a) - 1
If IsNumeric(a(i)) Then Sum = Sum + a(i)
Next i
MsgBox "Сумма: " & Sum
End Sub

Private Sub Form_Load()
RichTextBox1.Text = "10000 3889 33000"
Command1.Caption = "Calculate!"
End Sub

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

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

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

Ответ # 6 | Автор: TillLinderman
Добавлено:13.11.2008 / 10:16
Я понял в чем дело! Если убрать пробелы, и числа будут стоять в столбик то ничего не суммируется то есть сумма ноль, а если разместить их в строчку и с пробелами тогда все в порядке. Может попробовать задать многомерный массив? Или просто по другому задать тот массив который уже есть?

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

Ответ # 7 | Автор: Алексей
Добавлено:13.11.2008 / 10:18
если по строкам, то a = Split(RichTextBox1.Text, vbCrLf)

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

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

Ответ # 8 | Автор: TillLinderman
Добавлено:13.11.2008 / 10:47
Большое спасибо. Разобрался. Числа заносились у меня из файла. При переносе их в текстовое поле я с помощью регулярных выражений убирал лишние символы такие как тире буквы табуляцию. Поэтому я в паттерн для регулярных выражений просто подставил добавку пробелов в определенном месте каждой строки. Так что все оказалось проще. Еще раз большое спасибо!

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

Как сохранить данные из DataGrid'а в Excel? | Автор: Avalon
Добавлено: 11.11.2008 / 16:48 | ответов: 0 | просмотров: 45

Подскажите пожалуйста как сохранить в .xls-файл данные из DataGrid'а...

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

Параллельность обработки | Автор: graf_4
Добавлено: 11.11.2008 / 09:31 | ответов: 3 | просмотров: 112

Как сделать так, чтобы при загрузке (в моем случае БД) отображался некий анимационный процесс???
Конкретно: есть очень большая БД, и при SQL запросе затрачивается очень большое время, хотелось бы на время подключения отображался простой циклический процесс в виде ProgressBar

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

Ответ # 1 | Автор: Алексей
Добавлено:11.11.2008 / 09:48
считывать данные циклом построчно, периодически вызывать DoEvents.
Например:

001:
002:
003:
004:
005:
006:
007:
For i = 0 To 10000000
If i Mod 1000 = 0 Then DoEvents
'или просто DoEvents (без If i Mod 1000 = 0 Then), но тогда скорость загрузки значительно снизится
Next

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

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

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

Ответ # 2 | Автор: graf_4
Добавлено:11.11.2008 / 09:57
проблема в том, что построчно считывать не получается.
т.е. получается так:
1. Формирую SQL запрос к базе
2. Выполнение запроса (и в это время все виснет, до тех пор пока запрос не выполнится)

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

Ответ # 3 | Автор: Алексей
Добавлено:11.11.2008 / 10:10
Тогда:
1. Можно использовать более продвинутый язык, чем VB 6.0.
2. В VB можно использовать dll-ку написанную на более продвинутом языке.
3. Использовать цикл и считывать данные построчно.

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

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

Работа с MySQL в Visual Basic | Автор: Avalon
Добавлено: 10.11.2008 / 17:01 | ответов: 4 | просмотров: 152

Установлен Денвер 3. Через phpMyAdmin создана БД "db" с таблицей "avalon". Как подключится к этой БД и вывести содержимое таблицы "avalon" в DataGrid?

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

Ответ # 1 | Автор: Алексей
Добавлено:11.11.2008 / 09:48
Через ODBC, соответствующие драйвера есть на официальном сайте MySql.

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

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

Ответ # 2 | Автор: Avalon
Добавлено:11.11.2008 / 11:06
Ну я MySQL Connector/ODBC 5.1 установила, дальше что делать?

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

Ответ # 3 | Автор: Алексей
Добавлено:11.11.2008 / 11:23
Меню Project => Reference
найти и выбрать Microsoft DAO 3.6 Object Library

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim result As Long

    Set conn = New ADODB.Connection
    conn.CursorLocation = adUseClient
    conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
        & "SERVER=localhost;" _
        & "DATABASE=db;" _
        & "UID=login;" _
        & "PWD=password;" _
        '& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384

    conn.Open
    Set rs = New ADODB.Recordset
    rs.Open "SELECT * FROM avalon", conn, adOpenStatic, adLockReadOnly
    'далее, обычным способом работать с RecordSet
    'зы: главное не забыть запустить сам MySql :)

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

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

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

Ответ # 4 | Автор: Avalon
Добавлено:11.11.2008 / 16:38
Спасибо

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

Наверх

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

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

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

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

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

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

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

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

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

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

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

Статьи на Kbyte.Ru

Наверх

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

Как узнать размер открытого файла?
Дата добавления: 31.07.2006 / 12:43 | просмотров: 1815 | платформа: VB

Как запустить процесс и дождаться его завершения?
Дата добавления: 24.03.2007 / 12:12 | просмотров: 1949 | платформа: VB .NET

Как можно скрыть курсор мышки?
Дата добавления: 16.08.2006 / 19:48 | просмотров: 2025 | платформа: VB

Как узнать размер закрытого файла?
Дата добавления: 31.07.2006 / 12:45 | просмотров: 1940 | платформа: VB

Рисование на PictureBox и/или Form?
Дата добавления: 24.03.2007 / 09:58 | просмотров: 2674 | платформа: VB .NET

Запуск программы
Дата добавления: 21.08.2006 / 20:19 | просмотров: 3392 | платформа: VB

Как узнать, отправлялись данные форме или нет?
Дата добавления: 31.07.2006 / 14:23 | просмотров: 1986 | платформа: ASP .NET (VB)

Как очистить корзину?
Дата добавления: 24.03.2007 / 11:35 | просмотров: 1728 | платформа: VB .NET

Как добавить новые данные в базу данных?
Дата добавления: 31.07.2006 / 18:33 | просмотров: 2327 | платформа: ASP

Изменение регистра текста
Дата добавления: 31.07.2006 / 12:30 | просмотров: 1778 | платформа: VB

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

Наверх

Юмор на Kbyte.Ru

Муж жалуется жене - я ввел пароль в твой компъютер но он ответил: "пароль не подходит - слишком короткий"...
- а какой ты пароль вводил?
- пенис!

Рейтинг: 390
Всего голосов: 692