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

Автор

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

Статистика

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

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

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

Выпуск # 383

http://www.kbyte.ru/

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

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

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

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

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

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

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

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

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

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

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

GeoGebra

Нахождение промежутка

Запрет ввода буквенных символов в текстовом поле

Новвая тема

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

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

Как узнать размер базы данных 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 Округление числа | Автор: micron
Добавлено: 12.10.2008 / 14:58 | ответов: 4 | просмотров: 94

У меня такой вопрос, как округлить число в 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

GeoGebra | Автор: Dragon-zla
Добавлено: 11.10.2008 / 17:59 | ответов: 0 | просмотров: 31

Категория:

обучающие

Лицензия:

бесплатная

Платформа:

Windows Linux MacOS

Сайт:

www.geogebra.org

Программа, которая позволяет делать множество полезных вещей: анализировать функции, строить их графики, решать задачи по планиметрии и т.д.
Представьте себе классную доску, на которой можно рисовать «живые» графики.Вы изменяете параметр уравнения - и кривая автоматически перестраивается, изменяете масштаб или положение кривой - и написанное рядом с ней уравнение автоматически корректируются.
GeoGebra предоставляет вам именно такую доску.Причем возможности программы не ограничиваются построением графиков: с тем же успехом её можно использовать и для интерактивных чертежей при решении геометрических задач.

Скачать(для Windows - 11.6Mb):http://www.geogebra.org/download/GeoGebra_3_0_0_0.exe
Скачать(для Linux - 11.5Mb):http://www.geogebra.org/download/GeoGebra_3_0_0_0.bin
Скачать(для MacOS - 14Mb):http://www.geogebra.org/download/mac/GeoGebra-3.zip

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

Нахождение промежутка | Автор: Dragon-zla
Добавлено: 10.10.2008 / 20:29 | ответов: 4 | просмотров: 122

Здравствуйте, помогите пожалуйста написать формулу по определению, попадает ли точка с координатами Х и У в закрашенную область на графике.
Например для второй четверти формула будет:
ЕСЛИ И(Х<=0 У>=0 Х^2+У^2<=1)
Для второй и четвертой четвертей я формулы написал, а вот для первой и третьей не получается - что ни придумаю, все не подходит.

«название» на Яндекс.Фотках

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

Ответ # 1 | Автор: DIS
Добавлено:11.10.2008 / 15:32
Можно вычислить угол между центром окружности и точкой по формуле (на VB6) и дальше проверять два условия: 1) расстояние к точке <=1; 2) угол попадает в заданные диапазоны. Для нижней точки окружности угол будет равен 0, а для верхней 3,14.

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:
Private Const pi = 3.141593!

Public Function GetAngle(dx As Single, dy As Single) As Single
Dim sngAngle!

If dx = 0 Then
  sngAngle = IIf(dy > 0, 0, pi)
ElseIf dx > 0 Then
  If dy = 0 Then
   sngAngle = pi * 0.5
  ElseIf dy < 0 Then
   sngAngle = Atn(dx / dy) + pi
  Else
   sngAngle = Atn(dx / dy)
  End If
Else
  If dy = 0 Then
   sngAngle = pi * 1.5
  ElseIf dy < 0 Then
   sngAngle = Atn(dx / dy) + pi
  Else
   sngAngle = Atn(dx / dy) + pi * 2
  End If
End If
GetAngle = sngAngle
End Function

Colorized by: Eros.CodeSyntaxColor Engine

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

Ответ # 2 | Автор: Dragon-zla
Добавлено:11.10.2008 / 22:53
Как я понял dx - координата по х, а dy - координата по у?

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

Ответ # 3 | Автор: DIS
Добавлено:12.10.2008 / 12:29
Если центр окружности будет в нуле координат, то да. Если центр не в нулевой позиции, это будет разница координаты точки и координаты центра.

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

Ответ # 4 | Автор: DIS
Добавлено:12.10.2008 / 12:39
Вот, набросал пример. Думаю, разобраться несложно. Только вот в функции полученя угла значение смещено на 45 градусов вправо по сравнению с углами прорисовки сектора. Приходится добавлять pi/2

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:
Option Explicit

Private Const pi = 3.141593!

Public Function GetAngle(dx As Single, dy As Single) As Single
Dim sngAngle!

If dx = 0 Then
sngAngle = IIf(dy > 0, 0, pi)
ElseIf dx > 0 Then
If dy = 0 Then
sngAngle = pi * 0.5
ElseIf dy < 0 Then
sngAngle = Atn(dx / dy) + pi
Else
sngAngle = Atn(dx / dy)
End If
Else
If dy = 0 Then
sngAngle = pi * 1.5
ElseIf dy < 0 Then
sngAngle = Atn(dx / dy) + pi
Else
sngAngle = Atn(dx / dy) + pi * 2
End If
End If
GetAngle = sngAngle
End Function

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim dx!, dy!
Dim a!, b As Boolean

dx = X - 2400
dy = Y - 2400

a = GetAngle(dx, dy)

Select Case a
Case 0 To 0.88 + pi / 2, 3.99 + pi / 2 To pi * 2: b = True
Case 0.88 + pi / 2 To 1.76 + pi / 2: b = False
Case 1.76 + pi / 2 To 3.14 + pi / 2: b = True
Case Else: b = False
End Select

b = b And (dx ^ 2 + dy ^ 2) <= 1000000

Line (1200, 180)-Step(-1200, -180), BackColor, BF
Print b
End Sub

Private Sub Form_Paint()
FillStyle = vbFSSolid
FillColor = vbBlack
ForeColor = vbBlack

Circle (2400, 2400), 1000, , -3.99!, -0.88!
Circle (2400, 2400), 1000, , -1.76!, -3.14!
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

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

Запрет ввода буквенных символов в текстовом поле | Автор: TillLinderman
Добавлено: 10.10.2008 / 16:18 | ответов: 2 | просмотров: 111

Всем добрый день! Вопрос: на форме VB6 есть поле text требуется запретить пользователю вводить туда буквы. То есть что-то типа: если введен любой буквенный символ то exit sub" иначе то есть если введена цифра продолжи выполнение программы. Я попробовал так:
if not text1.text = Val(text1.text) then msgbox"error" exit sub. И еще вот так (по моему тоже самое) if text1.text <> Val(text1.text) then .......тоже самое. Результатом является ошибка несоотвествия типа (type.mismatch). Какое условие задать чтобы оно выполнялось без ошибки?

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

Ответ # 1 | Автор: Алексей
Добавлено:10.10.2008 / 16:25
001:
002:
003:
004:
005:
006:
007:
008:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 58 Then
KeyAscii = 0
End If
End Sub

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

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

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

Ответ # 2 | Автор: TillLinderman
Добавлено:10.10.2008 / 16:38
Спасибо! Работает.

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

Новвая тема | Автор: Dragon-zla
Добавлено: 09.10.2008 / 16:20 | ответов: 3 | просмотров: 114

Предлагаю добавить новую тему на сайт.Точнее сделать модификацию старой(KbyteClassic), только вместо бирюзового в заголовках окон поставить белый цвет.

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

Ответ # 1 | Автор: Алексей
Добавлено:09.10.2008 / 16:35
Технических доработок текущей версии сайта не будет.
Kbyte.Ru 5.0 все еще в производстве и готов аж на целых 2%, когда
будут готовы остальные 98%, или как минимум 68%, необходимых для
реализа, никто не знает :)
Конкретно тема тем сейчас под вопросом, с одной стороны поддержка тем
вроде бы останется, а с другой стороны может ограничится всего одной
дефолтной темой. Ну может будет вторая в тонах Classic, чтоб было проще
привыкнуть, хотя хз.

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

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

Ответ # 2 | Автор: Игорь Голов
Добавлено:10.10.2008 / 04:19
Существующих тем вполне достаточно.
Было бы неплохо перенести их в новый проект - к ним привыкли :)

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

Ответ # 3 | Автор: Dragon-zla
Добавлено:10.10.2008 / 20:26
Да мне они тоже оченнь нравятся просто уж бирюзовый очень глаза режет

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

Наверх

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

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

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

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

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

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

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

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

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

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

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

Статьи на Kbyte.Ru

Наверх

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

Выравнивание формы по центру экрана
Дата добавления: 31.07.2006 / 12:12 | просмотров: 1595 | платформа: VB

Воспроизведение звукового файла #1
Дата добавления: 31.07.2006 / 12:53 | просмотров: 2072 | платформа: VB

Как получить имя пользователя? (System.Security)
Дата добавления: 24.03.2007 / 12:21 | просмотров: 2073 | платформа: VB .NET

Запись куков (Cookies)
Дата добавления: 01.08.2006 / 12:00 | просмотров: 2085 | платформа: ASP

Как получить содержимое каталога?
Дата добавления: 31.07.2006 / 17:31 | просмотров: 1650 | платформа: ASP .NET (VB)

Преобразование числа в Украинскую валюту
Дата добавления: 16.08.2006 / 19:30 | просмотров: 1719 | платформа: VB

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

Как ограничить количество вводимых символов в TextBox?
Дата добавления: 31.07.2006 / 13:59 | просмотров: 2578 | платформа: ASP .NET (VB)

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

Как изменить размер панели SplitContainer?
Дата добавления: 23.08.2006 / 19:07 | просмотров: 1964 | платформа: VB .NET

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

Наверх

Юмор на Kbyte.Ru

Учительница повела детей в лес на экскурсию. И вдруг говорит:
- Смотрите, дети, кого я нашла! Кто это весь в иголках?
- Не знаем.
- Вспомните, мы про него песни пели и стихотворения учили.
- Ах вот ты какой, дедушка Ленин!

Рейтинг: 920
Всего голосов: 1302