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

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



Выпуск # 453


http://www.kbyte.ru/

 

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

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

 

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

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

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

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

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

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

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

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

    Копирование массива

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

    Почему я не вижу данных в DataGridView?

    Сетевые функции и элемент TabStrip

    Сайт до ужаса криво выглядит

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

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

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

Наверх

 

 

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

Копирование массива | Автор: DIS
Добавлено: 11.03.2009 / 00:16 | ответов: 0 | просмотров: 43

Ситуация такая. Есть две формы, в каждой обьявлено по массиву элементов пользовательского типа (обьявление типа расположено в отдельном модуле). Необходимо скопировать массив из одной формы в другую. Поскольку VB не хочет передавать массив пользовательских типов как аргумент, заюзал CopyMemory. Но она работает только когда в массиве один элемент. Если элементов больше, прога валится вместе с IDE (видимо что то не туда копирует). Вот фрагмент кода:

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:
063:
064:
----------- Обьявление структур -----------
Type InCtrl
 CtrlType As Integer
 OnKey As Byte
 OffKey As Byte
 FuncName As String
 FuncAmp As Double
 FuncFreq As Double
 FuncPhase As Double
End Type

Type ModelCtrl
 Fields As Integer
 CtrlName As String
 StackCell As Integer
 DiaMin As Double
 DiaMax As Double
 GraphColor As Long
 LineWidth As Single
 Direction As Integer
 MainFunc As InCtrl
 AmpMod As InCtrl
 FreqMod As InCtrl
 Height As Single
 Width As Single
 Left As Single
 Top As Single
 BandPos As Integer
 Constraints As Integer
End Type

---------------- Из этой формы нужно скопировать:
Private MathCtrls() As ModelCtrl, CtrlCnt As Integer

Private Sub cmdStart_Click()
 Dim ByteArray() As Byte, ByteArrSize As Long
 
 Load frmModel
 If CtrlCnt > 0 Then
  ByteArrSize = LenB(MathCtrls(0)) * CtrlCnt
  ReDim ByteArray(ByteArrSize - 1)
  CopyMemory ByteArray(0), MathCtrls(0), ByteArrSize
 End If
 frmModel.SetCtrls CtrlCnt, ByteArray
 Me.Hide
 frmModel.Show
End Sub

------------------ В эту форму нужно скопировать ------------
Private MathCtrls() As ModelCtrl, CtrlCount As Integer

Public Sub SetCtrls(Count As Integer, ArrayRef() As Byte)
 Dim curCtrl As Integer
 
 CtrlCount = Count
 If Count > 0 Then
  ReDim MathCtrls(Count - 1)
  CopyMemory MathCtrls(0), ArrayRef(0), LenB(MathCtrls(0)) * Count
 Else
  Erase MathCtrls
 End If
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

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


Проблема с подстановкой данных в таблицу | Автор: Сергей_V
Добавлено: 09.03.2009 / 01:07 | ответов: 0 | просмотров: 67

Просьба помочь с решением небольшой задачи.

Есть две таблицы в файле mdb ACCESS-97:

Klient
---------
NumKlient
idNazvanie
idAdres


Otpravki
----------
NumOtpravka
idNazvanie
idAdres
idOtpravka


Первая таблица полностью заполнена.
Создаю форму в VB6, располагаю на ней DATA1, DATA2, DBCombo1, Text1, Text2
В DATA1 определяю таблицу Otpavrki, в которую добавляются новые записи.
В DATA2 определяю таблицу Klient из которой берутся данные.
В DBCombo1 - список для выбора клиента из первой таблицы (idNazvanie).
В поле Text2 ввожу новые необходимые данные (idOtpravka).

У меня не получается сделать автоматическую подстановку данных в поле Text1, в которой должен быть Адрес клиента.
Он должен автоматически подставиться из первой таблицы в момент выбора Названия клиента.

Очень прошу помочь решить проблему. В VB силён не очень. Когда-то давно изучал ACCESS.

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


Почему я не вижу данных в DataGridView? | Автор: zest
Добавлено: 08.03.2009 / 13:59 | ответов: 2 | просмотров: 112

Читаю доку по Visual Studio 2008, следую написанной инструкции просмотра записей данных из таблицы, а вместо данных после запуска формы появляется только пустая строка выбранной таблицы из Ассess. Туплюсь, ничего не понимаю. А когда просматриваешь эту же таблицу в DataSources (Preview Data) EducationDataSet.tblStudents,Fill,GetData() - все данные таблицы видны. Согласно доке, записи при запуске формы должны быть доступны. У меня же только пустая строка появляется в форме в объекте DataGridView. Что я делаю не так? Помогите пожалуйста!

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


Ответ # 1 | Автор: Edlin
Добавлено:10.03.2009 / 09:09
Код в студию.

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


Ответ # 2 | Автор: zest
Добавлено:11.03.2009 / 12:11
Public Class Form1

Private Sub TblStudentsBindingNavigatorSaveItem_Click(ByVal _
ender As System.Object, ByVal e As System.EventArgs) Handles TblStudentsBindingNavigatorSaveItem.Click
Me.Validate()
Me.TblStudentsBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.EducationDataSet)

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'EducationDataSet.tblStudents' table. _
' You can move, or remove it, as needed.
Me.TblStudentsTableAdapter.Fill(Me.EducationDataSet.tblStudents)

End Sub
End Class

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


Сетевые функции и элемент TabStrip | Автор: diana
Добавлено: 04.03.2009 / 08:35 | ответов: 0 | просмотров: 101

Здравствуйте. Помогите, пожалуйста, как использовать WNetGetUser? И где можно найти информацию по элементу TabStrip, как взаимодействовать с закладками, подключенными к разным таблицам?

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


Сайт до ужаса криво выглядит | Автор: Паша
Добавлено: 02.03.2009 / 14:01 | ответов: 0 | просмотров: 124

Firefox: тормозит ужасно
Arora (webkit): не работает верхняя панель, тормозит
Konqueror: крешится при попытке зайти
Как так можно, а? Хотя Алекс наверно о таких браузерах-то не знает

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


Наверх

 

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

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

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

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

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

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

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

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

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

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

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

 

Статьи на Kbyte.Ru

Наверх

 

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

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

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

Пример добавления окончания к числу (англ.)
Дата добавления: 24.03.2007 / 12:33 | просмотров: 2472 | платформа: VB .NET

Рисование на PictureBox и/или Form?
Дата добавления: 24.03.2007 / 09:58 | просмотров: 3199 | платформа: VB .NET

Как получить случайное число?
Дата добавления: 16.08.2006 / 19:52 | просмотров: 1862 | платформа: VB

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

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

Как разрешить вводить в TextBox только цифры?
Дата добавления: 04.08.2006 / 16:55 | просмотров: 3685 | платформа: ASP .NET (VB)

Как запретить запуск двух копий программы?
Дата добавления: 04.08.2006 / 08:53 | просмотров: 2274 | платформа: VB

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

 

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

Наверх

 

Юмор на Kbyte.Ru

Компьютерный магазин, заходит женщина лет 45. Дальше наш с ней диалог.
Покупательница: Мне видеокарта нужна, у меня игрушки не открываются.
Я: Тормозят?
Покупательница: Вообще не открываются.
Я: Видеокарта, какая у вас?
Покупательница: А я откуда знаю. Intel какая-то.
Я: Паспорт от материнской платы у вас есть?
Покупательница: А мне там всё наши программисты поменяли, у меня там всё сгорело, и у меня компьютер раньше горизонтально стоял, а теперь вертикально.
Я: «Вам корпус, что ли, поменяли?
Покупательница: Да.
Я: А что сгорело? Материнская плата сгорела?
Покупательница: «А я откуда знаю».
Я: Мне надо знать, какая у вас материнская плата. Чтобы я мог сказать, какая вам видеокарта подойдёт.
Покупательница: «Вот мне тут наши программисты написали».
Достаёт бумажку на ней написано Intel Controller graphics.
Я: У вас интегрированная графика. У вас должен быть порт для видеокарты на материнской плате, если он есть, вы можете купить видеокарту и установить её в этот порт.
Покупательница: А можно этот интегрированный контроллер вытащить и на его место видеокарту поставить?

 

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

 

Директор заводит в кабинет секретаршу и начинает срывать с нее платье.
Та:
- Иван Петрович, вы хоть дверь-то закройте!
- Нельзя, Клава, нельзя! Еще подумают, что мы тут водку пьем.

 

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

 

Письмо-жалоба программера в милицию:
"Вчера, в восемь вечера, было совершено нелегальное проникновение в мою квартирую Оно было произведено группой моих нетрезвых товарищей-вебмастеров.
Сначала хакеры нашли дыру в door.cgi и с ее помощью проникли в квартиру. Там они завладели правами рута и создали новые аккаунты, пользуясь которыми, изменили внешний вид титульной странички "прихожая" и остальных страниц.
Далее преступники повели себя как стандартные трояны, залезая в холодильник и доставая из них необходимую им информацию (зачеркнуто)
выпивку. При попытке уничтожения аккаунтов хакеры сопротивлялись и даже ударили меня интерфейсом об тейбл. Удалить их я сумел только вирусом "Водка-40", после работы которого взломанные коды удалось удалить с сервера."

 

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

 

- А почему у тебя в программе подряд два одинаковых JMP'а стоят?
- А вдруг первый не сработает.

 

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

 

Сначала предыстория:
По роду работы у меня имеются несколько серверов, разбросанных по городу. Иногда для работы с ними приходится подключаться к ним удаленно и работать из дому.
А теперь собственно история:
- в последние пару недель работы стало меньше, и по вечерам ничем более полезным, кроме просмотра телевизора, заниматься не приходится. И все бы хорошо, но какой-то идиот взялся звонить по вечерам и молчать в трубку. Звонит - и молчит, гад. Сначала думали - у кого-то телефон неисправен, он нас слышит, а мы его - нет. Но звонит-то каждый вечер.
Кто бы трубку не брал - молчит, гад. Пробовал "кто кого переждет" - вдруг раньше что скажет - нет, молчит. Жена начинает вспоминать, что во всех фильмах ужасов с этого обычно начинается что-нибудь страшное - про маньяков и им подобное. И тут решили посмотреть на часы - оказалось, он звонит ровно в 22-10. Точность цифры насторожила...
Как с трудом удалось вспомнить - около месяца назад я тестировал модем на входящие звонки, для чего заставлял звонить мне один из серверов. Потом пару недель по вечерам телефон был как правило занят, и про сервер забыли. А вот он не забыл, исправно каждый вечер звонил мне и молчал…

 

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

 

У нового русского спрашивают:
- Как вы заработали такое состояние?
- Ну, для начала нужен стартовый капитал.
- А как вы заработали стартовый капитал?
- Ну, для начала нужен хотя бы стартовый пистолет...

 

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

 

Как в комнате уничтожить клопов ?
- Hадо их загнать под шкаф, а у шкафа подпилить ножки.

 

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

 

Стоит взвод молодых бойцов. Старшина:
- По порядку номеров рассчитайсь!!!
Солдат-программист:
- Можно вопрос ?
- Можно...
- А в какой системе? Десятичной? Шестнадцатеричной?
- Для дураков объясняю, в десятичной!!!
- Понял! Нулевой!!!

 

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

 

Мадонна пострадала от российского пиратского рынка, так как на Горбушке уже продается на DVD запись ее концерта, который будет в Москве в сентябре.

 

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

 

"Умный учится на чужих ошибках..." Продукты Майкрософт - век живи, век учись!

 

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

 

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

Наверх


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

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

Copyright (c) Nemiro AS, 2005-2007


В избранное