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

Автор

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

Статистика

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

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

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

Выпуск # 321

http://www.kbyte.ru/

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

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

Ваш R-KDR-19826

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

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

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

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

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

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

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

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

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

помогите найти ошибку в коде

почему не раскрывается

Как сделать, чтобы сторонний яваскрипт был в сгенерированной страничке .aspx???

Работа с Excel 2007

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

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

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

Наверх

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

помогите пожалуйста | Автор: Andrew
Добавлено: 05.06.2008 / 21:36 | ответов: 0 | просмотров: 16

Помогите пожалуйста сделать задание. срочно нужно для универа. Неободимо сделать текст подсказки, который должен появляться при прохождении курсором над кнопкой и исчезал через 5 секунд.
Не получается сделать так чтобы он исчезал, исчезает только текст, а TextBox остается((
вот текст программы:

Private Sub Command6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Visible = True
End Sub

Private Sub Form_Load()

Text1.Visible = False
Text1.Top = Command6.Top + Command6.Height + 5
Text1.Left = Command6.Left
If Text1.Top < Command6.Height Then
Text1.Top = 10 + Command6.Height
End If
If Text1.Left < (Command6.Width + 10) Then
Text1.Left = Command6.Width + 10
End If
If Text1.Top > (Form1.Height - Text1.Height - Command6.Height) Then
Text1.Top = Command6.Top - Text1.Height - 5
End If
If Text1.Left > (Form1.Width - Text1.Width - Command6.Width) Then
Text1.Left = Command6.Left - Text1.Width - 5
End If
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = True
Text1.Enabled = False
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Visible = False

End Sub

Если кому не трудно помочь, могу скинуть сам файл. там работы минут на 5, если знать как сделать...

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

помогите найти ошибку в коде | Автор: marrianna
Добавлено: 05.06.2008 / 21:18 | ответов: 0 | просмотров: 17

Программа решает систему уравнений методом крамера, этот код проверяет систему на совместность. только где-то есть ошибка. Если определитель равен нулю все равно пишет, что система корректна. Что не так?

Private Sub Проверка_Click()
For i = 1 To n
For j = 1 To n
d(i, j) = a(i, j)
Form3.Picture1.Print d(i, j);
Next j
Form3.Picture1.Print
Next i
p = 0: z = 1: v = 1
For l = 1 To n - 1
e = 0
For i = l To n
For j = l To n
If Abs(e) >= Abs(d(i, j)) Then
e = d(i, j): b = i: c = j
End If
Next j
Next i

If l = b Then
For j = l To n
s = d(l, j): d(l, j) = d(b, j): d(b, j) = s
Next j
z = -z
End If
If l = c Then
For i = l To n
s = d(i, l): d(i, l) = d(i, c): d(i, c) = s
Next i
z = -z
End If
For i = l + 1 To n
g = d(i, l) / d(l, l)
For j = l To n
d(i, j) = d(i, j) - g * d(l, j)
Next j
Next i
Next l
For i = 1 To n
v = v * d(i, i)
Next i
v = v * z
If v = 0 Then
Form3.Picture1.Print "система не совместна, определитель равен нулю"
Else
Form3.Picture1.Print "система корректна"
End If
End Sub

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

почему не раскрывается | Автор: нияметдин
Добавлено: 05.06.2008 / 15:46 | ответов: 0 | просмотров: 23

Написал с помощью учебники код для анологовых часов
делаю exe файл потом расширение переименовываю на .scr(программа-заставка) и кидаю в system32.Выбираю в качестве заставки свою программу.Нажимаю просмотр,все нормально показывает на полный экран,нажимаю "ОК".Жду пока появиться моя прога на заставке,а там появляется Form1(название моего проекта) в виде прямоугольника размером 1смХ5см в левом нижнем углу экрана.Самое главное у меня стоит антивирусник Avast и у него имеется своя заставка с функцией "запустить с другой заставкой".Выбыраю в качестве другой заставки свою и моя прога запускается на полный экран,но вместе с заставкой Avasta
В чем причина?
код часов
Const R = 150
Const grad = 0.0174532
Const pi = 3.14159265

Dim x0 As Integer, y0 As Integer
Dim ahr As Integer
Dim amin As Integer
Dim asec As Integer

Private Sub Form_Click()
End
End Sub

Private Sub form_initialize()
Form1.Height = (Form1.Height - Form1.ScaleHeight) + (R + 30) * 2 * Screen.TwipsPerPixelY
Form1.Width = (Form1.Width - Form1.ScaleWidth) + (R + 30) * 2 * Screen.TwipsPerPixelX

x0 = R + 30
y0 = R + 30

ahr = 90 - Hour(Time) * 30 - (Minute(Time) / 12) * 6
amin = 90 - Minute(Time) * 6
asec = 90 - Second(Time) * 6

Timer1.Interval = 1000
Timer1.Enabled = True
Form1.ScaleMode = 3
End Sub

' процедура вычерчивает вектор заданной длины из точки (х 0,у 0)
Sub vector(x0 As Integer, yo As Integer, a As Integer, l As Integer)
Dim x, y As Integer
x = Round(x0 + l * Cos(a * grad))
y = Round(x0 - l * Sin(a * grad))
Line (x0, y0)-(x, y)
End Sub

' процедура рисует стрелки
Sub DrawClock()
' шаг секундной и минутной стрелок — 6 градусов
Form1.DrawWidth = 3
Form1.ForeColor = Form1.BackColor
Call vector(x0, y0, ahr, R - 20)
Call vector(x0, y0, amin, R - 15)
Call vector(x0, y0, asec, R - 7)
' определение нового положения стрелок
ahr = 90 - Hour(Time) * 30 - (Minute(Time) / 12) * 6
amin = 90 - Minute(Time) * 6
asec = 90 - Second(Time) * 6
' прорисовка стрелок на новом положении
Form1.DrawWidth = 3
Form1.ForeColor = RGB(0, 250, 0)
Call vector(x0, y0, ahr, R - 20)
Form1.DrawWidth = 2
Call vector(x0, y0, amin, R - 15)
Form1.DrawWidth = 1
Call vector(x0, y0, asec, R - 7)
End Sub

' прорисовка циферблата и начальных стрелок
Private Sub Form_Paint()
Dim x As Integer
Dim y As Integer
Dim a As Integer
Dim h As Integer
Form1.DrawWidth = 1
Form1.ForeColor = RGB(0, 250, 0)
a = 0
h = 3
' циферблат
While (a < 360)
x = x0 + Round(R * Cos(a * 2 * pi / 360))
y = y0 + Round(R * Sin(a * 2 * pi / 360))
If (a Mod 30) = 0 Then
Circle (x, y), 2
CurrentX = x0 + Round((R + 15) * Cos(a * 2 * pi / 360)) - 7
CurrentY = x0 - Round((R + 15) * Sin(a * 2 * pi / 360)) - 7
Print h
h = h - 1
If h = 0 Then h = 12
Else: Circle (x, y), 1
End If
a = a + 6
Wend
Call DrawClock
End Sub

Private Sub Timer1_Timer()
Call DrawClock
End Sub

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

Как сделать, чтобы сторонний яваскрипт был в сгенерированной страничке .aspx??? | Автор: Долбаная Опера, Грёбаный ИЕ
Добавлено: 05.06.2008 / 15:44 | ответов: 1 | просмотров: 40

Пробывал вставлять в файл .aspx просто между тегами <body> - не помогает, динамическая страничка сторонний яваскрипт НЕ СОДЕРЖИТ. Только свой.
Сайт на .NET 1.x , MobileWebPage.
Помогите, люди добрые!

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

Ответ # 1 | Автор: Neco
Добавлено:05.06.2008 / 21:40
мона пасматреть?
на примере маленькой странички безо всего остального.

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

Работа с Excel 2007 | Автор: Давидюк
Добавлено: 05.06.2008 / 14:58 | ответов: 1 | просмотров: 40

Абъясните, пожалуйста, в чем дело

На строку:

КнигаExcel=cType(ExcelApp.Workbook.add, Excel.Workbook)

Пишет: "Использован старый формат, либо библиотека имеет неверный тип."

На компе установлен Excel 2007

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

Ответ # 1 | Автор: Neco
Добавлено:05.06.2008 / 21:31
такая ошибка у меня выходила, когда работал на русской винде с файлом, созданным в английской.
работал, не подключая библиотеку в reference, и поэтому оптимальным выходом оказалось добавление последним параметром культуры в каждый Invoke.
типа так:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
/// <summary>
    /// Создание новой книги
    /// </summary>
    public void Create()
    {
      try
      {
        CheckBeforeOpen();

        //System.Globalization.CultureInfo ci = ;
        //System.Globalization.CultureInfo ci = new System.Globalization.CultureInfo("en-US");
        //objBook = objWorkbooks.GetType().InvokeMember("Add", BindingFlags.InvokeMethod, null, objWorkbooks, null, ci);

        objBook = objWorkbooks.GetType().InvokeMember("Add", BindingFlags.InvokeMethod, null, objWorkbooks, null, m_cul);
        ObtainSheets();
      }
      catch (Exception ex)
      {
        throw ex;
      }
    }

Colorized by: Eros.CodeSyntaxColor Engine

могу выложить весь код для работы с excel'ем посредством invoke'ов. Но только код довольно старый и мне за него немножко стыдно...

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

Наверх

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

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

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

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

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

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

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

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

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

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

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

Статьи на Kbyte.Ru

Наверх

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

Форма поверх всех окон
Дата добавления: 31.07.2006 / 12:14 | просмотров: 1590 | платформа: VB

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

Округление до десятых, сотых, тысячных и т.д.
Дата добавления: 04.02.2007 / 21:09 | просмотров: 2551 | платформа: VB

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

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

Как распечатать Web-страницу?
Дата добавления: 17.08.2006 / 17:58 | просмотров: 1909 | платформа: VB

Как удалить все HTML-теги из текста?
Дата добавления: 24.03.2007 / 12:41 | просмотров: 1988 | платформа: VB .NET

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

Проверить корректность E-Mail (стандартный способ)
Дата добавления: 21.08.2006 / 20:23 | просмотров: 1701 | платформа: ASP .NET (VB)

Как преобразовать байты в килобайты?
Дата добавления: 31.07.2006 / 12:38 | просмотров: 1501 | платформа: VB

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

Наверх

Юмор на Kbyte.Ru

Учительница спрашивает: "Дети кем вы хотите стать"
- Машенька ты кем хочешь стать?
- Я хочу стать доктором.
- А почему?
- Мне нравиться лечить людей.
- Молодец Машенька
- Петечка, а кем ты хочешь стать?
-Я хочу стать водителем
-А почему?
-Мне нравится нюхать запах бензина.
-Тоже хорошо Петенька.
-Вовочка, а ты кем хочешь стать?
-А я хочу стать врачом-психотерапевтом
-Почему?
-Подойдем Марья Ивановна к окну, видите стоят 3 женщины, одна из них сосёт мороженое, вторая лижет, а третья кусает. Какая из них замужем?
- Ну та наверное которая сосёт
- Нет Марья Ивановна, та замужем у которой кольцо на пальце, а таких как вы мы будем лечить.

Рейтинг: 644
Всего голосов: 901