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

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

Вопрос #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/

Вопрос #000935: VB работа с веб-камерой

Автор вопроса: Анна // 05.05.2008 / 02:35

Язык: Visual Basic 2008 Express Edition.
 Подскажите, пожалуйста, как из приложения (Windows Form Application) получить доступ к вебкамере, а именно получить снимок в виде bitmap (отобразить его на форме или же сохранить как bmp-файл). 
 Заранее очень благодарна!
 P.S. Просматривая архив вопросов я уже нашла некоторые решения возникавших у меня проблем - Спасибо огромное! 
 
 .....

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

Здравствуйте, Анна.
 
 Попробуйте воспользоваться этим классом
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей
http://aleksey.nemiro.ru/

Вопрос #000929: MsgBox с двумя кнопками

Автор вопроса: Алекс // 01.05.2008 / 23:53

Есть поле со списком на форме, необходимо
при выборе определенной позиции из списка вывести MsgBox и две кнопки на нем, при нажатии на которую, в другой TextBox всавлялся бы выбранный вариант ответа
 Подскажите, как можно это сделать или в каком направлении копать??
 
 --------------------------------------
 Категория: --- MS Access
 
 

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

Здравствуйте, Алекс.
 
 001:
002:
003:
If MsgBox("Вставить?", vbQuestion Or vbYesNo) = vbYes Then
 '...
End If

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

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

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

Наверх

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

Обрабаотка нескольких запросов | Автор: Arti
Добавлено: 01.06.2008 / 23:31 | ответов: 0 | просмотров: 14

Здравствуйте, есть следующая необходимость, нужно сделать несколько последовательных запросов к базе и запросы к предыдущим запросам, а итоги показать, ну например в том же ListView, т.е. делается один запрос получаются некоторые данные, затем втрой запрос, еще кое-какие данные и ещё один запрос на получение данных из первого и второго запроса, а результат показать в ListView. Какими инструментами нужно воспользоваться для этого. Сначала думал создавать из первого и второго запросов таблицы в DataSet потом как-то из этих таблиц в DataSet сделать выборку, но не знаю правильно ли так делать или нет и можно ли ак вообще сделать, потому как при первых запросах объем данных большой, но временный, важны результаты последнего запроса. Что можно со всем с этим поделать? В частности нужно сделать выборку по всем товарам , выборку из таблицы с описаниями товара, выборку приходов каждого товара, расходов, подсчет остатков, формирование этого всего в одну таблицу и вывод этой таблицы в ListView. Дайте пожалуйста направление куда двигаться.

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

Копирование файлов с заданным разрешением | Автор: Вероничка Огурцова
Добавлено: 01.06.2008 / 18:03 | ответов: 6 | просмотров: 93

Всем добрый день.
Господа программисты помогите юнной ламерше написать программку на VB.NET 2005 малееенькую(((

Нужно из директории, которую укажет пользователь, копировать все файлики с расширением BMP...
А я не умею работать с файлами на ВБ(( пробовала и не выходит... умоляю помогите... мне к 7 вечера эта програмка нужна... Это вопрос жизни и смерти(((

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

Ответ # 1 | Автор: EROS
Добавлено:01.06.2008 / 18:43
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
string m_dirSource = @"C:\Папка с картинками";
      string m_dirDestination = @"C:\Новая папка для картинок";
      try
      {
        if (!Directory.Exists(m_dirDestination)) Directory.CreateDirectory(m_dirDestination);
        string[] m_bmpFiles = Directory.GetFiles(m_dirSource, "*.bmp", SearchOption.TopDirectoryOnly);
        foreach (string m_filePath in m_bmpFiles)
        {
          string m_fileName = Path.GetFileName(m_filePath);
          File.Copy(m_filePath, Path.Combine(m_dirDestination, m_fileName));
        }
      }
      catch (Exception ex)
      {
        MessageBox.Show(ex.Message, "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Error);
      }

Colorized by: Eros.CodeSyntaxColor Engine

вот как то так... на VB сама переводи.

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

Ответ # 2 | Автор: Вероничка Огурцова
Добавлено:01.06.2008 / 19:05
Ребят... я знаю как это сделать поидее... Указываем каталог, указываем фильтр по разрешению и копируем, прога то ламерская... Но я не умению прогить на VB и не выходит у емня ничего... Пожалуйста! Господа программисты, потратить одну минуточку на человека у ужаснейшем положении и ы полной безнадеги... Всего то лишь нужен код, киньте сюда его пожалуйста!(
Опендиалог (пользователь выбирает каталог)
Фильтр копирования по разрешение., нужны только BMP файлы
и копируем файлы в новый каталог (пусть это будет c:\)

Простенькая програмка но абсолютно не знакомый мне язык... И не мой это уровень чтобы за день освоиться в новой среде програмирования... Поэтому и пишу на форуме. Такой большой форум, тут столько людей и полезной информации, думаю я останусь тут надолго если мне помогут реально.
Обычно везде лесом шлют агресоры всякие и дети не разумные... Нажеюсь тут подругому) Мне даже письмо прислали уже с одним ответом, но нужно именно на VB.NET ((
Я представляю как в си например это должно быть... Но не на Вб(((

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

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

Ответ # 3 | Автор: Вероничка Огурцова
Добавлено:01.06.2008 / 19:37
Никто мне похоже ничего не даст...(
Всем жалко минутки на нисчастную ламершу((

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

Ответ # 4 | Автор: Игорь Голов
Добавлено:01.06.2008 / 19:58
Мне не жалко.
Хочу заметить, что ламер - этото ругательно. Вам себя лучше новичком (NewBie) называть....
Договорились?
Будем посмотреть на задачу с точки зрения кодера....

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

Ответ # 5 | Автор: Вероничка Огурцова
Добавлено:01.06.2008 / 20:22
"с точки зрения кодера...."
ой спасибо)
и как?) Что видет кодер в этой задачке?

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

Ответ # 6 | Автор: Игорь Голов
Добавлено:01.06.2008 / 23:22
А он её практически уже увидел.
Осталось откомментировать - и можно сдавать Заказчику...

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

Многопоточность | Автор: Arti
Добавлено: 30.05.2008 / 23:52 | ответов: 8 | просмотров: 153

Не получается разобраться со следующей проблемой
Код основной формы

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ' Создаем новый поток 
    Dim nth As New System.Threading.Thread(AddressOf Fill)
    ' запускаем
    nth.Start()
  End Sub

  Public Sub Fill()
    MyLV.FillOfProducts(PreparationList, True)
  End Sub

Colorized
by: Eros.CodeSyntaxColor Engine

код модуля (функции PreparationList)

001:
002:
003:
004:
005:
006:
' получаем список препаратов из базы
  Public Function PreparationList() As
List(Of Prepapration)
    Return MyBD.DBGetList
  End Function

Colorized by: Eros.CodeSyntaxColor Engine

код наследованного ListView

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:
Public Class ListViewMy
  Inherits ListView

  Public Sub FillOfProducts(ByVal lop As List(Of Prepapration), ByVal noempty As Boolean)
    Select Case noempty
      Case False
        MyClass.Items.Clear()
        For Each Prep As Prepapration In lop
          Dim lvitm As New ListViewItem
          lvitm.Text = Prep.Code
          lvitm.SubItems.AddRange(New String() {Prep.MNN, Prep.TNLP, Prep.Cost, Prep.RestOfYear, Prep.CurentRest, Prep.CurentPlanStatus})
          MyClass.Items.Add(lvitm)
        Next
      Case True
        Me.Items.Clear()
        For Each Prep As Prepapration In lop
          If Not Prep.RestOfYear = 0 Then
            Dim lvitm As New ListViewItem
            lvitm.Text = Prep.Code
            lvitm.SubItems.AddRange(New String() {Prep.MNN, Prep.TNLP, Prep.Cost, Prep.RestOfYear, Prep.CurentRest, Prep.CurentPlanStatus})
            MyClass.Items.Add(lvitm)
          End If
        Next
    End Select
  End Sub
End Class

Colorized by: Eros.CodeSyntaxColor Engine

В результате запуска все срабатывает нормально но через сек. строка класса ListViewMy Me.Items.Clear() выделяется и выдается следующая ошибка Cross-thread operation not valid: Control 'MyLV' accessed from a thread other than the thread it was created on. . Как можно решить эту проблему

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

Ответ # 1 | Автор: Алексей
Добавлено:31.05.2008 / 05:40
'примерно так

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
Delegate Sub FillDelegate

'...
'...
'...

Public Sub Fill()
If Me.InvokeRequired Then
Me.Invoke(New FillDelegate(Fill))
Return
End If
MyLV.FillOfProducts(PreparationList, True)
End Sub

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

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

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

Ответ # 2 | Автор: Arti
Добавлено:31.05.2008 / 12:29
Спасибо, получилось, только
001:
002:
003:
Me.Invoke(New FillDelegate(AddressOf Fill))

Colorized by: Eros.CodeSyntaxColor Engine
. Если можно опишите в двух словах принцип работы и что за Invoke, так всегда нужно будет организовывать многопоточность или только когда дело касается контролов?

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

Ответ # 3 | Автор: Arti
Добавлено:31.05.2008 / 16:55
Косяк опять начал вылазить, причиной тому стало добавление в код формы процедуры

001:
002:
003:
004:
005:
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
Fill()
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

вобще получается интересная ситуация, т.е даже если убрать из кода формы Private Sub Form1_Load (проблема решается) все равно при загрузки происходит заполнение ListView только на этот раз вызывает это действие выше указанная процедура, спрашивается почему? Ведь по идеи всей литературы которая мне встречалась при загрузке должно выполняться только то что прописано в Private Sub Form1_Load или это не так?.

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

Ответ # 4 | Автор: Алексей
Добавлено:31.05.2008 / 17:08
http://Kbyte.Ru/Forum/Show.aspx?id=8239

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

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

Ответ # 5 | Автор: EROS
Добавлено:31.05.2008 / 17:31
Arti, если речь идет о том приложении, что мы обсуждали ранее, то многопоточность там абсолютно лишняя! Никакой выгоды,кроме дополнительных проблем, ты не получишь. Твоя задача не вписывается в разряд многопоточных.

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

Ответ # 6 | Автор: Arti
Добавлено:31.05.2008 / 21:08
Пожалуй соглашусь, но не на долго :) Когда база вырастит(в частности история в базе) придется подробно разбираться с многопоточностю, делегатами, асинхронностью и т.д :) дабы основная форточка не подтормаживала.

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

Ответ # 7 | Автор: EROS
Добавлено:31.05.2008 / 22:31
придется подробно разбираться с многопоточностю, делегатами, асинхронностью

Поверь на слово.. гораздо бОльший прирост производительности ты получишь от оптимизации БД, индексов, запросов и алгоритмов в программе нежели от использования многопоточности.

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

Ответ # 8 | Автор: Игорь Голов
Добавлено:31.05.2008 / 23:12
Arti, использовать многопоточность - большое искусство.
Иначе масса гимора может появиться.
(как найду статью - выдам тебе на гора.)

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

ListView динамическое обновление | Автор: Arti
Добавлено: 30.05.2008 / 20:26 | ответов: 0 | просмотров: 29

Здравствуйте, скажите возможно ли каким-то образом динамически обновлять ListView из базы данный. Задача в том чтобы сделать это не перезагружая весь лист, чтобы не сбрасывался выбранный Item т.е. выбрали item выписали какое-то количество товара информация сохранилась в базе и затем обновились соответствующие поля данного item-a, можно конечно непосредственно прописать значение свойств Text, но дело в том что в базе производится вычисления этих значений, а писать эти вычисления ещё и в программе смысла тогда от базы особого не будет.

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

Код из Delphi | Автор: Павел
Добавлено: 30.05.2008 / 19:08 | ответов: 1 | просмотров: 44

Здравствуйте. Помогите пожалуйста перевести код из Delphi на VB

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
procedure tausche (var a, b: char);
var c: char;
begin
 c := a; a := b; b := c;
end;

function
permutate (s: string): string;
var i: integer;
begin
 result := s;
 for i := 1 to (length(s) div 4) do
     tausche(result[2*i], result[length(result)-2*i+1]);
end;

этот код переставляет символы в слове, например, из слова "ADMINISTRATOR" получится слово "AOMANTSIRITSR". Спасибо.

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

Ответ # 1 | Автор: Алексей
Добавлено:31.05.2008 / 05:36
наверное что-то типа этого:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
Private Sub tausche(ByRef a As String, ByRef b As String)
Dim c As String
c = a
a = b
b = c
End Sub

Private Function permutate(ByVal s As String) As String
Dim i As Integer
Dim res As String
res = s
For i = 1 To Len(s) Mod 4
  Dim a As String, b As String
  a = Mid(res, 2 * i, 1)
  b = Mid(res, Len(res) - 2 * i + 1, 1)
  tausche a, b
  Mid(res, 2 * i, 1) = a
  Mid(res, Len(res) - 2 * i + 1, 1) = b
Next i
permutate = res
End Function

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

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

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

Наверх

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

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

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

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

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

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

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

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

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

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

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

Статьи на Kbyte.Ru

Наверх

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

Как динамически добавить элемент управления?
Дата добавления: 17.08.2006 / 17:02 | просмотров: 1861 | платформа: ASP .NET (VB)

Как программно изменить заголовок (Title) страницы?
Дата добавления: 31.07.2006 / 13:25 | просмотров: 1571 | платформа: ASP .NET (VB)

Работа с группами ListView
Дата добавления: 23.08.2006 / 22:09 | просмотров: 2650 | платформа: VB .NET

Как запретить перезагрузку страницы при нажатии на кнопку (Button/LinkButton)?
Дата добавления: 31.07.2006 / 13:08 | просмотров: 2383 | платформа: ASP .NET (VB)

Анализ даты стандарта MM/DD/YYYY и MM/DD/YY
Дата добавления: 24.03.2007 / 10:59 | просмотров: 1406 | платформа: RegEx

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

Как расчитать возраст из даты рождения?
Дата добавления: 24.03.2007 / 12:06 | просмотров: 1272 | платформа: VB .NET

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

Как узнать IP-адрес посетителя?
Дата добавления: 01.09.2006 / 12:20 | просмотров: 2371 | платформа: ASP

Как перевести посетителя на другую страницу?
Дата добавления: 31.07.2006 / 14:37 | просмотров: 1293 | платформа: ASP .NET (VB)

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

Наверх

Юмор на Kbyte.Ru

Реклама: "Я делала макияж пассажиркам "Титаника", Тушь остается на ресницах..."

Рейтинг: 207
Всего голосов: 328