Программирование (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

Наверх

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

Warning! Этого никто не знает! | Автор: doctor32
Добавлено: 11.02.2010 / 19:28 | ответов: 0 | просмотров: 4

Доброго времени суток!

Скажите пожалуйста, к кому мне можно обратиться с вопросом:

не могу найти следующую информацию (поисковики не помогают, в книгах не нашел, писал в Мелкософт - не ответили):

"Структура, характеристики и основные модули Visual Basic 6.0(или 5)"
Привожу полное описание темы:изучить, рассмотреть,проанализировать и понять механизм работы
Visual Basic 6.0(или 5) как программную среду для разработки приложений. Понять и изучить работу самого компилятора. Описать все стадии компиляции программы и внутреннюю(на низком уровне) работу Visual Basic 6.0(или 5).

Помогите пожалуйста.

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

Ввод/Вывод в консоль в C++ Builder | Автор: Dragon-zla
Добавлено: 07.02.2010 / 15:58 | ответов: 0 | просмотров: 37

Подскажите пожалуйста, как в C++ Builder 6 реализовать в консольном приложении ввод данных, вывод данных и аналог функции ReadKey.
Пробовал выводить через cout << Не получается.

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

Погите плиз | Автор: livtaras
Добавлено: 04.02.2010 / 01:10 | ответов: 1 | просмотров: 81

Как сделать такое: a(i)-a(i-1). Если все a(i) задаются через TextBox, которых может бить от 2-х до 10.

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

Ответ # 1 | Автор: Алексей
Добавлено:04.02.2010 / 11:13
Циклом. Если a это TextBox, то удобней сделать массив из TextBox

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

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

Помогите | Автор: livtaras
Добавлено: 31.01.2010 / 02:09 | ответов: 4 | просмотров: 160

Как сделать так, чтобы если я создал ComboBox в котором можно выбрать число от 1 до 10, а теперь мне нужно сделать так чтобы если я выбираю например 4 тогда на экране
отображается 4 TextBox, если 7 то отображается 7 TextBox. И в таком духе.

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

Ответ # 1 | Автор: EvgeniySergeevich
Добавлено:31.01.2010 / 09:11
Разместите на форме ComboBox, 10 TextBox'ов и пропишите код:

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:
035:
036:
037:
038:
039:
040:
041:
042:
043:
044:
045:
046:
047:
048:
049:
050:
051:
052:
053:
054:
055:
056:
057:
058:
059:
060:
061:
062:
063:
064:
065:
066:
067:
068:
069:
070:
071:
072:
073:
074:
075:
076:
077:
078:
079:
080:
081:
082:
083:
084:
085:
086:
087:
088:
089:
090:
091:
092:
093:
094:
095:
096:
097:
098:
099:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
Private Sub Combo1_Change()
Combo1_Click
End Sub

Private Sub Combo1_Click()
If Combo1.Text = "0" Then
Text1.Visible = False
Text2.Visible = False
Text3.Visible = False
Text4.Visible = False
Text5.Visible = False
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "1" Then
Text1.Visible = True
Text2.Visible = False
Text3.Visible = False
Text4.Visible = False
Text5.Visible = False
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "2" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = False
Text4.Visible = False
Text5.Visible = False
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "3" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = False
Text5.Visible = False
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "4" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = False
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "5" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "6" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text6.Visible = True
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "7" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text6.Visible = True
Text7.Visible = True
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "8" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text6.Visible = True
Text7.Visible = True
Text8.Visible = True
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "9" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text6.Visible = True
Text7.Visible = True
Text8.Visible = True
Text9.Visible = True
Text10.Visible = False
End If
If Combo1.Text = "10" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text6.Visible = True
Text7.Visible = True
Text8.Visible = True
Text9.Visible = True
Text10.Visible = True
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem "0"
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"
Combo1.AddItem "6"
Combo1.AddItem "7"
Combo1.AddItem "8"
Combo1.AddItem "9"
Combo1.AddItem "10"
Combo1_Click
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

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

Ответ # 2 | Автор: livtaras
Добавлено:31.01.2010 / 12:11
Спасибо большое!!!

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

Ответ # 3 | Автор: lyolik
Добавлено:01.02.2010 / 10:52
а через цикл присваивание чего б не сделать

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

Ответ # 4 | Автор: Алексей
Добавлено:01.02.2010 / 11:14
Нужно сделать массив элементов, грубо 10 элементов, в идеале создавать
с нуля.
Если грубо, то просто разместить на форме 10 TextBox с одинаковым
именем и разным свойством Index (при копировании создается
автоматически):

001:
002:
003:
004:
005:
006:
007:
For i = 0 To 9
Text1(i).Visible = ((i + 1) <= Combo1.Text)
'i + 1, при условии, что в combo отсчет начинается с 1
Next

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

А если создавать, то там вроде бы методы Load/Unload нужно
использовать, уже не помню как. Кода будет больше.

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

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

Помогите написать антивирус на Delphi! | Автор: EvgeniySergeevich
Добавлено: 25.01.2010 / 13:06 | ответов: 10 | просмотров: 364

Здравствуйте, люди!
Недавно начал изучать язык программирования Delphi.
И вот теперь захотел написать на нём свой антивирус, но незнаю функцию поиска какой-либо строчки кода в тексте! (В Vsisual basic 2008 - Text1.Text.Contains("./.") )!
Помогите, чем можете!

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

Ответ # 1 | Автор: Dragon-zla
Добавлено:25.01.2010 / 13:07
Какая среда?

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

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

Ответ # 2 | Автор: EvgeniySergeevich
Добавлено:25.01.2010 / 13:08
Borland Delphi Second Edition!

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

Ответ # 3 | Автор: Dragon-zla
Добавлено:25.01.2010 / 13:11
в смысле Delphi 2 ?

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

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

Ответ # 4 | Автор: EvgeniySergeevich
Добавлено:25.01.2010 / 13:11
Нет, Delphi 7!

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

Ответ # 5 | Автор: Dragon-zla
Добавлено:25.01.2010 / 13:15
если ищется текст на английском языке, то есть функция, возвращающая
номер первого вхождения в строке. Сейчас поищу у себя на винте, если
найду - напишу

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

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

Ответ # 6 | Автор: EvgeniySergeevich
Добавлено:25.01.2010 / 13:16
ОК, заранее спасибо!

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

Ответ # 7 | Автор: Dragon-zla
Добавлено:25.01.2010 / 13:20
Вот
pos('что ищем'/'где ищем')
'что ищем' - строковый
'где ищем' - строковый

Возвращает числовое значение

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

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

Ответ # 8 | Автор: EvgeniySergeevich
Добавлено:25.01.2010 / 13:21
Спасибо!

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

Ответ # 9 | Автор: EvgeniySergeevich
Добавлено:25.01.2010 / 16:12
А вы не поскажите, как можно открывать все подрят файлы, находящиеся на компьютере?

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

Ответ # 10 | Автор: z44s
Добавлено:05.02.2010 / 10:27
Как говорится - не мог пройти мимо.
Вы собрались писать свой антивирус, но не имеете понятия как искать строки в тексте?
Вы уверенны что стоит начинать работу в Delphi именно с этого?

Если вы планируете писать антивирус - может стоит задуматься о том, что анализировать вам прийдется файлы бинарного содержания или я не прав?
По сути самого вопроса:
поиск подстроки в строке - функция Pos(<подстрока>,<строка>) вернет индекс вхождения подстроки в строке, если она есть.
для чтения текстовых файлов - ReadLn( <файловая переменная типа Text>, <строковая переменная>) - для построчного чтения данных из файла - но это справедливо только для текстового формата.
для других файлов - BlockRead( <фп>, <буфер>, число читаемых символов(байт))
и также не забывайте - что некоторые файлы упакованы ;) специальными программами, а текст внутри кода программ может храниться в разных кодировках и с применением различных методов ;) - это на тот случай, если вы собрались искать вирусы по принципу обнаружения внутри тела исполняемого файла строк, типа "Отправьте СМС на номер" и тд и тп :)

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

Наверх

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

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

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

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

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

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

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

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

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

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

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

Статьи на Kbyte.Ru

Наверх

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

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

Запись данных в файл
Дата добавления: 31.07.2006 / 17:20 | просмотров: 2825 | платформа: ASP .NET (VB)

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

Как отправить E-Mail?
Дата добавления: 01.08.2006 / 11:52 | просмотров: 6011 | платформа: ASP

Как получит индекс текущей записи в ListView?
Дата добавления: 23.08.2006 / 19:11 | просмотров: 3321 | платформа: VB .NET

Как проверить, посещал пользователь страницу или нет?
Дата добавления: 31.07.2006 / 16:40 | просмотров: 2776 | платформа: ASP .NET (VB)

Как разрешить вводить в TextBox только цифры?
Дата добавления: 04.08.2006 / 16:55 | просмотров: 5560 | платформа: ASP .NET (VB)

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

Анализ E-Mail
Дата добавления: 24.03.2007 / 10:54 | просмотров: 2485 | платформа: RegEx

Как создать новую папку (каталог)?
Дата добавления: 31.07.2006 / 12:36 | просмотров: 5496 | платформа: VB

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

Наверх

Юмор на Kbyte.Ru

Два муравья едят слона. Проходит десять лет.
- Тот самый вкус.
- Тот самый слон.

Рейтинг: 402
Всего голосов: 655