Программирование (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
Добавлено: 20.06.2009 / 22:47 | ответов: 3 | просмотров: 60

Здравствуйте, в этом году собираюсь поступать в ВУЗ, по IT-шной специализации. Пока думаю между:
Управление и информатика в технических системах
Информационные системы и технологии
Информационные технологии в образовании
Прикладная математика и информатика
Информационные технологии
Маленькая просьба: может кто-нибудь человеческим языком объяснить - чем буду заниматься после окончания, а то на сайтах ВУЗов как то туманно все написано.
Заранее благодарен.

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

Ответ # 1 | Автор: Алексей
Добавлено:21.06.2009 / 05:40
Я по образованию технолог продукции общественного питания, занимаюсь сайтостроительством :)
По специальность работал когда еще не было диплома, а после
получения диплома - ни разу не работал, и особого желания нет.

Заниматься нужно тем, что нравится, чтобы результат такой деятельности был более плодотворным.
Образование - это формальность. Конечно, некоторым основам научат, но
не более того. С техническим будет проще устроиться туда, где оно
требуется (техническое образование), хотя с опытом, можно устроиться
куда угодно :) Даже хирургом, в какую-нибудь подпольную клинику.

Я бы рекомендовал выбирать что-нибудь более расширенное, где учат не
только программированию, математике, двигать мышкой и двумя пальцами
тыкать по клаве. Чтобы бы были основы разных направлений, которые в
будущем могут пригодиться. Например: бухгалтерия, экономика,
делопроизводство, финансы, юриспруденция и т.п. Чем больше
направлений, тем лучше. Правда с таким размахом учиться будет геморно,
но в будущем эти знания могут пригодиться, даже больше, чем
программирование.

Информационные технологии в образовании

Это наверное учителем информатики можно работать :)

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

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

Ответ # 2 | Автор: Dragon-zla
Добавлено:21.06.2009 / 14:42
Да, наверное только в нашей стране высшее образование получают не для образования, а для диплома. :|

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

Ответ # 3 | Автор: Алексей
Добавлено:21.06.2009 / 15:17
Да, у нас в стране с образованием вообще полная жо...
С одной стороны не престижно, с другой - без него сложно выбиться в
люди. Но есть один плюс, при наличии денег, можно запросто получить красный диплом в
каком-нибудь МГУ (нет, не в Морском Государственном Университете :) ...)
Короче, сплошная бюрократия и коррупция.

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

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

Три вопроса. Кнопка, классы, книги | Автор: Jabrobaka
Добавлено: 19.06.2009 / 19:37 | ответов: 1 | просмотров: 51

Приветствую =) я совсем новичек и у меня к вам несколько вопросов. =)
1) Как при каком-либо событии, например MouseEnter, переместить кнопку в какую-либо точку формы. Два варианта: определенная точка и случайное место.
2) Объясните понятно, что такое классы?)) я так и не понял этог до конца. Понял, что из них делают экземпляры классов или объекты.
3) Прочитал две книжки, которые немного под разными углами объясняют самые основы. Что посоветуете почитать, чтобы повысить свой уровень знания выше нуба?)))

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

Ответ # 1 | Автор: Edlin
Добавлено:22.06.2009 / 10:14
1а) Определенная точка:

001:
002:
003:
Button1.Location = New Point(10, 10)

Colorized by: Eros.CodeSyntaxColor Engine

1б) Случайная точка:

001:
002:
003:
004:
Dim rnd As New Random
Button1.Location = New Point(rnd.Next(5, 100), rnd.Next(5, 100))

Colorized by: Eros.CodeSyntaxColor Engine

2) Класс - фактически описание. Он описывает то, какие данные будет содержать каждый экземпляр класса (поля класса), и то, какие операции можно совершать с этими данными. Тебе нужна хорошая книга по объектно-ориентированному программированию.
3) Как я уже говорил, тебе нужна хорошая книга по объектно-ориентированному программированию. Даже не знаю, что тебе посоветовать. Попробуй:
Гради Буч, "Объектно-ориентированное проектирование с примерами применения".
Но я не уверен, что с этого нужно начинать. Спроси других.
Про .NET сначала читай Рихтера: "Программирование на платформе Microsoft .NET Framework". Найди более позднее издание. Дальше читай Троелсена: "Pro C# 2008 and the NET 3.5 Platform" или русский аналог.

Я все сказал. Честь имею.

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

Раба с ячейками в Excel 2007 | Автор: golishev_S
Добавлено: 15.06.2009 / 03:28 | ответов: 3 | просмотров: 125

Доброго Вам времени суток. Помогите разрешить проблему.
Начав работать на VB 2008 возникла необходимость создания Excel 2007 файла и его заполнение. При тесте фыдает ошибку на строке .Range("A1").Value = "Найменування статті". Я так понимаю что это связанно с региональными различиями (может и ошибаюсь). Ошибка следующая "COMException не обработано Исключение из HRESULT: 0x800A03EC"
Помогите решить проблему
Ниже приведен код
Sub dannie_v_Excel()
Dim oApp As New Excel.Application()
oApp.Visible = True
oApp.UserControl = True
Dim oldCI As System.Globalization.CultureInfo = _
System.Threading.Thread.CurrentThread.CurrentCulture
System.Threading.Thread.CurrentThread.CurrentCulture = _
New System.Globalization.CultureInfo("en-US")
oApp.Workbooks.Add()
System.Threading.Thread.CurrentThread.CurrentCulture = oldCI
Dim rob_list_Excel As Excel.Worksheet = oApp.Worksheets(1)
rob_list_Excel.Name = "Баланс"
With rob_list_Excel
.Range("A1").Value = "Найменування статті"
End With
oApp.Visible = True
End Sub

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

Ответ # 1 | Автор: Edlin
Добавлено:15.06.2009 / 09:06
Попробуй выставить английскую локаль:

001:
002:
003:
004:
System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-US")
System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo("en-US")

Colorized by: Eros.CodeSyntaxColor Engine

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

Ответ # 2 | Автор: golishev_S
Добавлено:15.06.2009 / 11:29
ничего не получается

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

Ответ # 3 | Автор: golishev_S
Добавлено:15.06.2009 / 14:56
Сам ответил на свой вопрос
Следующий код - рабочий
Sub dannie_v_Excel()
Dim oApp As New Excel.Application()
oApp.Visible = True
oApp.UserControl = True
Dim oldCI As System.Globalization.CultureInfo = _
System.Threading.Thread.CurrentThread.CurrentCulture
System.Threading.Thread.CurrentThread.CurrentCulture = _
New System.Globalization.CultureInfo("en-US")
oApp.Workbooks.Add()
Dim rob_list_Excel As Excel.Worksheet = oApp.Worksheets(1)
rob_list_Excel.Name = "Баланс"
With rob_list_Excel
.Range("A1").Value = "Найменування статті"
End With
System.Threading.Thread.CurrentThread.CurrentCulture = oldCI
oApp.Visible = True
End Sub

Все как всегда логично только доходит поздно:)

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

Помогите определить число отрицательных элементов. VB 6.0 | Автор: HHFS
Добавлено: 14.06.2009 / 21:09 | ответов: 0 | просмотров: 63

Составить программу,которая в задаваемом пользователем одновременном числовом массиве опред. число отрицательных элементов и число элементов,принадлежащим отр. от 1 до 3.

Помогите плз в четверг экзамен.

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

Помогите разобраться с XML файлом | Автор: andreywin
Добавлено: 07.06.2009 / 16:33 | ответов: 9 | просмотров: 311

Есть xml файл вида :

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
<?xml version="1.0" encoding="utf-8"
?>
<root>
  <playlist>
     <time> 10:30</time>
          
                   <source>D:\DX\my\1.mp3</source>
                   <source>D:\DX\my\2.mp3</source>
                  
<source>D:\DX\my\3.mp3</source>
                   <source>D:\DX\4.mp3</source>
           
  </playlist>

 <playlist>
     <time>12:01</time>
         
                  
<source>D:\DX\my\5.mp3</source>
                   <source>D:\DX\my\7.mp3</source>
                   <source>D:\DX\my\22.mp3</source>
                    <source>D:\DX\my\5.mp3</source>
                   <source>D:\DX\54.mp3</source>
            <source>D:\DX\598.mp3</source>
  </playlist>

</root>

есть ноды <playlist>. В них есть время <time> и музыкальные композиции <source>. Как зная конкретное время, добавить все <source>, находящиеся в той же ноде что и время, в ListBox?

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

Ответ # 1 | Автор: Edlin
Добавлено:08.06.2009 / 11:29
001:
002:
003:
004:
005:
006:
007:
008:
Dim doc As New Xml.XmlDocument()
    doc.Load("XMLFile.txt")
    Dim sources As Xml.XmlNodeList = doc.SelectNodes("/descendant::playlist[child::time='10:30']/child::source")
    For Each node As Xml.XmlNode In sources
      listBox.Items.Add(node.InnerText)
    Next

Colorized by: Eros.CodeSyntaxColor Engine

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

Ответ # 2 | Автор: andreywin
Добавлено:08.06.2009 / 13:32
Dim sources As Xml.XmlNodeList = doc.SelectNodes("/descendant::playlist[child::time='10:30']/child::source")
не работает.

Может я не правильно описал чего мне надо от файла...
я получаю системное время , допусти 10:30.
Открываю xml файл.
Ищу там это время.
Нахожу. (До этого шага я все сделал)
Зная, что в xml файле, в какой то из множества нод <playlist> есть <time> 10:30</time>, надо добавить все <source> находящиеся в данном <playlist>(в котором есть время 10:30)

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

Ответ # 3 | Автор: andreywin
Добавлено:09.06.2009 / 11:13
ШЕф! Шо делать?!!!

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

Ответ # 4 | Автор: Neco
Добавлено:09.06.2009 / 17:53
Dim sources As Xml.XmlNodeList = doc.SelectNodes("/descendant::playlist[child::time='10:30']/child::source")
не работает.

что означает "не работает"? не компилируется? выбрасывает исключение? выдаёт пустой результат? воду не носит? печку не топит?

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

Ответ # 5 | Автор: andreywin
Добавлено:09.06.2009 / 18:37
Выдает пустой результат.

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

Ответ # 6 | Автор: Edlin
Добавлено:10.06.2009 / 09:51
Это потому, что у тебя в файле пробел перед 10:30. Нужно аккуратнее форматировать документ.

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

Ответ # 7 | Автор: andreywin
Добавлено:10.06.2009 / 11:23
Cпасибо ОГРОМНОЕ ! за терпение :) и растолковывание мне неразумному где у меня и что ! Все заработало!
И еще вопрос !
в этой строке Dim sources As Xml.XmlNodeList = doc.SelectNodes("/descendant::playlist[child::time='19:09']/child::source")
'19:09'
У меня системное время хранится в переменной типа String
как эту переменну подставить вместо 19:09 ?
сорри, вааще не силён в XML-ях...
descendant - это потомок или наследование?
Сорри за множество вопросов, пытаюсь с Вашей помошью разобраться :)

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

Ответ # 8 | Автор: andreywin
Добавлено:10.06.2009 / 12:29
Зделал так :
Dim Time_Play as string
Dim sources As Xml.XmlNodeList = doc.SelectNodes("/descendant::playlist[child::time='" & Time_Play & "']/child::source")
Вроде работает... может есть другое решение?

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

Ответ # 9 | Автор: Edlin
Добавлено:11.06.2009 / 08:56
Это нормальное решение. descendant - потомок. В XML нет никакого наследования.

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

Наверх

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

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

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

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

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

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

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

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

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

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

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

Статьи на Kbyte.Ru

Наверх

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

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

DataGridView: Как добавить новую строку?
Дата добавления: 02.08.2006 / 09:31 | просмотров: 6612 | платформа: VB .NET

Как узнать текущий код статуса HTTP?
Дата добавления: 31.07.2006 / 15:14 | просмотров: 2386 | платформа: ASP .NET (VB)

Как установить фокус на определенный элемент?
Дата добавления: 31.07.2006 / 16:55 | просмотров: 2649 | платформа: ASP .NET (VB)

Как сделать Label с тенью?
Дата добавления: 16.08.2006 / 23:42 | просмотров: 3101 | платформа: VB

Как получить параметры командной строки?
Дата добавления: 04.08.2006 / 09:20 | просмотров: 4040 | платформа: VB

Как преобразовать десятичное число в бинарное?
Дата добавления: 16.08.2006 / 20:32 | просмотров: 3024 | платформа: VB

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

Как удалить все ноды (Nodes) из TreeView?
Дата добавления: 24.03.2007 / 12:15 | просмотров: 2370 | платформа: VB .NET

Перекодировка текста из DOS в Windows и обратно
Дата добавления: 31.07.2006 / 12:31 | просмотров: 2928 | платформа: VB

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

Наверх

Юмор на Kbyte.Ru

Билл Гейтс смотрит по телевизору новости. Сообщают о неполадках в компьютере на орбитальной станции "Мир". - Надо же, - думает Гейтс, - неужели русские и там используют сломанную Windows'95?

Рейтинг: 606
Всего голосов: 978