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

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



Выпуск # 387


http://www.kbyte.ru/

 

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

Здравствуйте!
Очередной выпуск рассылки Kbyte.Ru!

 

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

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

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

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

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

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

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

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

    VB 2005 Одинаковый ввод данных в TextBox

    нужна помощь при записи макроса!

    Из Бейсика в Паскаль

    как можно програмно конектиться к сайтам по https обычно порт 443

    VB 2005 Округление числа

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

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

    Как узнать размер базы данных 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

Наверх

 

 

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

VB 2005 Одинаковый ввод данных в TextBox | Автор: micron
Добавлено: 17.10.2008 / 21:54 | ответов: 5 | просмотров: 142

Есть 3 или 4 одинаковых TextBox-а,нужно вести в них одинаковые данные.
Я тут попробовал, такой код:
Dim S1 As DOuble
S1 = TextBox1.Text
TextBox2.Text = S1
TextBox3.Text = S1
Всё вроде бы получается.Данные вводятся,но если надо вести другие данные,
например если ошибочно ведены не те данные, компилятор ругается на
строку S1 = TextBox1.Text выдаёт такое - Conversion from string "" to type 'Double' is not valid
Что тут не так?

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


Ответ # 1 | Автор: Алексей
Добавлено:18.10.2008 / 02:55
String и Double - это разные вещи, .Text - это String, Double - это число с плавающей точкой, не каждый String может быть числом, и не каждая плавающая точка может быть плавающей точкой :)
001:
002:
003:
004:
005:
006:
007:
Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged
  TextBox1.Text = CType(sender, TextBox).Text
  TextBox2.Text = CType(sender, TextBox).Text
  TextBox3.Text = CType(sender, TextBox).Text
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

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


Ответ # 2 | Автор: Dragon-zla
Добавлено:19.10.2008 / 16:43
Если сомневаетесь, лучше использовать Variant - универсальная переменная.Правда занимает в памяти, чуть ли не больше всех байт, но отлично подходит, если вы не знаете, что вам нужно:)

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


Ответ # 3 | Автор: Neco
Добавлено:19.10.2008 / 16:52
лучше использовать Variant

нет в .net

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


Ответ # 4 | Автор: Dragon-zla
Добавлено:20.10.2008 / 16:43
нет в .net

Убрали?Жалко;)

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


Ответ # 5 | Автор: Алексей
Добавлено:20.10.2008 / 16:54
Убрали?Жалко;)

есть Object. Не жалко :)

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

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


нужна помощь при записи макроса! | Автор: satory
Добавлено: 15.10.2008 / 14:13 | ответов: 1 | просмотров: 78

Доброго времени суток!
Есть проблема при записи макроса, после запуска идет отображение всех действий таких как применение фильтров, копирование и перенос на другой лист, есть ли команда скрывающая действия макроса?

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


Ответ # 1 | Автор: Dragon-zla
Добавлено:16.10.2008 / 19:20
Язык - VBA или какой-то другой?

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


Из Бейсика в Паскаль | Автор: Dragon-zla
Добавлено: 14.10.2008 / 17:29 | ответов: 4 | просмотров: 136

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

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


Ответ # 1 | Автор: Алексей
Добавлено:15.10.2008 / 08:19
У нас есть только человеческие ресурсы для этого дела :)

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

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


Ответ # 2 | Автор: Dragon-zla
Добавлено:15.10.2008 / 15:16
Наверное неправильно выразился, где можно достать учебник, объясняющий, как объявлять переменные, рассказывающий про основных операторов, итд.У нас в четверг олимпиада по информатике, задания будут на Паскале, а я умею работать на Бейсике

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


Ответ # 3 | Автор: Алексей
Добавлено:15.10.2008 / 15:52
За сутки выучить Паскаль вряд ли получится :)
В двух словах, синтаксис Паскаля похож немного на си и немного на бэйск, в общем адская смесь :)

procedure = sub
function = function
var = dim

Переменные объявляются так:
Имя: Тип
например:
Dim Age As Integer
Age: Integer


Вместо сишного {}, используется:
begin
...
end;

Точку с запятой нужно не забывать ставить, как в си.

Оператор присвоения:
:=

например
Age := 25;

Оператор сравнения - просто равно (=)
if Age = 25 then
begin
//делаем что-то
end;

Остальные операторы как в бэйсике:
<
>
<=
>=
<>
и т.п.

возможно есть неравно != , точно не помню

Строки соединять плюсом (+)
name := 'вася ' + 'пупкин';


Циклы
for i := 0 to 10 do
begin
...
end;

while i = 0 do
begin
...
end;

Массивы, как в си, с квадратными скобками.

Сто лет паскалеподобные языки не трогал, все что смог вспомнил :)
Для большего нужно букварь читать, поищи на ресурсах по дельфи.

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

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


Ответ # 4 | Автор: Dragon-zla
Добавлено:15.10.2008 / 17:35
Ага большое спасибо.Теперь въехал.
За сутки выучить Паскаль вряд ли получится :)

Я его двое суток учу:)Вчера откопал с диска компилятор Турбо Паскаля, читал и его инфу

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


как можно програмно конектиться к сайтам по https обычно порт 443 | Автор: Kaizer
Добавлено: 14.10.2008 / 13:15 | ответов: 0 | просмотров: 59

Соединение https используя file.p12 сертификат

Помогите разобраться как можно програмно конектиться к сайтам по https обычно порт 443
загружая сертификат из файлов file.cer и file.p12 (или file.pfx)
я нашёл компоненты SocketActiveX.msi с примером кода

Dim cert As New ChilkatCert
success = cert.LoadPfxFile("C:\file.p12", "pass")
Dim http As New ChilkatHttp
http.SetSslClientCert cert

подскажите что нибудь и если через Winsock1 есть возможноть. kaizer_4@mail.ru

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


VB 2005 Округление числа | Автор: micron
Добавлено: 12.10.2008 / 14:58 | ответов: 4 | просмотров: 191

У меня такой вопрос, как округлить число в TextBox-е после произведённого вычисления.
Например: число 12,34567, а надо чтобы было 12,3. Спасибо.

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


Ответ # 1 | Автор: Алексей
Добавлено:12.10.2008 / 15:02
001:
002:
003:
004:
Math.Round(12.34567, 1)

_______________________
Colorized by: Eros.CodeSyntaxColor Engine


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

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


Ответ # 2 | Автор: micron
Добавлено:12.10.2008 / 16:39
А как быть если в TextBox-е будет другое число?

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


Ответ # 3 | Автор: Алексей
Добавлено:12.10.2008 / 16:50
А как быть если в TextBox-е будет другое число?

Math.Round(TextBox1.Text, 1)
001:
002:
003:
004:
005:
006:
007:
008:
009:
Dim d As Double = 0
If Not Double.TryParce(TextBox1.Text, d) Then
 MsgBox("Это не число!")
 Return
End If
MsgBox(Math.Round(d, 1))

_______________________
Colorized by: Eros.CodeSyntaxColor Engine


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

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


Ответ # 4 | Автор: micron
Добавлено:12.10.2008 / 21:39
Всё допетрил. Зур рахмат.
Чтобы в TextBox-е округлялось до одной цифры после запятой нужно просто добавить код:
Dim S1 As Double
Dim S2 As Double
S1 = TextBox1.Text
S2 = TextBox2.Text
TextBox3.Text = Math.Round(S1 + S2, 1) //При расчёте это даёт одну цифру после запятой.

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


Наверх

 

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

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

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

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

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

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

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

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

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

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

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

 

Статьи на Kbyte.Ru

Наверх

 

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

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

Как узнать свой IP-адрес?
Дата добавления: 31.07.2006 / 12:53 | просмотров: 4396 | платформа: VB

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

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

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

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

Проверить существование файла
Дата добавления: 31.07.2006 / 17:34 | просмотров: 1781 | платформа: ASP .NET (VB)

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

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

Как программано выровнить форму по центру экрана?
Дата добавления: 23.08.2006 / 18:59 | просмотров: 2279 | платформа: VB .NET

 

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

Наверх

 

Юмор на Kbyte.Ru

Девица звонит как-то раз и говорит, что, мол, получила сообщение General Protection Fault. Я, ессно, ее успокаиваю и говорю ей сделать Reboot. После тщетных попыток отыскать одновременно клавиши Ctrl-Alt-Del, не говоря о чем-то другом, она просит что-нибудь попроще. Говорю, нажми кнопку Reset на компьютере. Она долго ищет и не находит. Хрен, говорю, с ним, видишь, говорю, кнопку Power? Жми. Жмет. Теперь говорю жми опять и жди, пока загрузится. Это, говорю, займет 2-3 минуты (сеть, там, и прочее). Уже через 10 секунд она мне кричит в трубку, мол, о-о! уже загрузилось. Удивившись скорости перезагрузки, говорю, проверь, что ты опять попала в Windows. Она говорит, что, мол, не только уже попала в Windows, но уже опять получила сообщение General Protection Fault. Я в край офигеваю, пока не соображаю, что баба жмет кнопку Power на мониторе, а не на компе. В общем, после получасовой лекции о том, что такое компьютер, экран и пр, с экскурсами в прошлое ее мамы, мне удалось-таки по телефону с ее помощью перезагрузить компьютер.

 

Рейтинг: 450
Всего голосов: 732
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Рабочий день. Вычислительный центр. Приемная директора. В приемную вбегает женщина и с ходу направляется в кабинет директора. Ее тормозит секретарша:
- Женщина, вы куда? У директора совещание.
- Да он меня звал, я с АСУ.
- Ну, я тоже сосу, но не во время совещания...

 

Рейтинг: 410
Всего голосов: 646
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

- Почему реки мелеют летом?
- Потому что очень жарко, и рыба много пьёт.

 

Рейтинг: 936
Всего голосов: 1325
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Знаете, что такое Plug&Play в Windows? "Нашёл у вас не знаю что, подайте мне диск не знаю с чем".

Прислал MAGICIAN

 

Рейтинг: 1315
Всего голосов: 1954
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Самый трудный год в семейной жизни - это текущий.

 

Рейтинг: 1314
Всего голосов: 1932
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Объявление: Куплю "Русско-московский разговорник", запарился!

 

Рейтинг: 463
Всего голосов: 773
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Открыт новый поисковый сервер для новых русских: www.tipa.au

 

Рейтинг: 407
Всего голосов: 618
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

- Дети, что для вас было труднее всего в третьем классе?
- Объяснять продавщице, для кого покупается водка!

 

Рейтинг: 801
Всего голосов: 1255
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Пробежки по утрам, употребление безопасных продуктов питания и полный отказ от вредных привычек может существенно продлить ваше жалкое существование...

 

Рейтинг: 1274
Всего голосов: 1941
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Учительница на уроке:
Дети расскажите историю чтоб она заканчивалась словами "Мама у меня одна"
Маша:
Мы летом с мамой ездили в сочи. Там красивая природа. Мне очень понравилось. Спасибо тебе мама, мама у меня одна.
Петя:
Мы с мамой на выходных ходили в горы. Собирали цветочки. Наелись шашлыка. Спасибо тебе мама, мама у меня одна.
Вовочка:
Пришёл я вчера со школы домой. Хочется жирать, денег на обед мне не дают. Открываю холодильник стоит пара бутылок пива. Одну я выпил. просыпается мать с будуна:
-Вальдемар приниси мне две бутылки пива
-мама у меня одна

 

Рейтинг: 357
Всего голосов: 603
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Весь юмор на Kbyte.Ru

Наверх


Выпуск подготовил: R-KDR-19826

Редактор: Немиро Алексей

Copyright (c) Nemiro AS, 2005-2007


В избранное