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

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



Выпуск # 286


http://www.kbyte.ru/

 

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

Если у Вас возникнут какие-либо вопросы, замечания, пожелания или предложения, пишите, мы детально рассмотрим каждое Ваше сообщение – mailto: admin@kbyte.ru.

 

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

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

    Вопрос #000807: Проблемы с закачкой файлов из Интернета на Ginz...

    Вопрос #000804: Проблемы с загрузкой файлов на Ginza MS100

    Вопрос #000799: Новый вопрос без темы

    Вопрос #000791: Проблема_в_VB_.NET_с_использованием_функции_из_...

    Вопрос #000764: Програмное определение позиции меню в vb6

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

    Задача на VB

    Дизайнер и музыкант в одном лице!

    Дизайнер и музыкант в одном лице

    Доступ к Microsoft Access

    Вопрос по таблицам...

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

    Как узнать размер базы данных MySQL через php

    Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)

    Работа с SQL – Запросы

    Использование XML.Serialization

    Выбор языка программирования для научных работ (2-я редакция)

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

Юмор на Kbyte.Ru

 

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

 

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


Вопрос #000807: Проблемы с закачкой файлов из Интернета на Ginz...

Автор вопроса: Koshpaev Valery // 03.03.2008 / 18:36

Здравствуйте,уважаемые эксперты!Может вся проблема заключается в том,что я не установил на Джинзу ActiveSync 4.5 с установочного диска,который прилагается к коммуникатору?Только я не знаю где,в каком клубе в Москве я могу закачать эту программу на компьютер,а потом перекачать ее с компьютера на свой коммуникатор,т.к.я пытался обращаться в одно интернет-кафе,другое,но нигде мне не разрешали закачивать ActiveSync на компьютер с установочного диска для Джинзы.У моего коммуникатора есть GPRS,но нет EDGE-какую лучше скорость подключения к
Интернету мне подключить,и почему всегда прерывается связь при закачке файлов 3.gp,всегда выдавая мне сообщение об однои и той же ошибке,про которую я Вам уже писал?Валерий ________________________________________________________ Вы уже с Yahoo!? Испытайте обновленную и улучшенную. Yahoo! Почту! http://ru.mail.yahoo.com

Отвечает: Алексей Немиро // 04.03.2008 / 05:48

Здравствуйте, Валерий.

ActiveSync необходим для синхронизации данных с ББ (ББ – большой брат :) – обычный компьютер).
Следует отметить, что если например, у Вас
будут в личных папках размещены какие-либо файлы, а на ББ этих файлов
не будет, то с устройства при синхронизации они будут удалены, так что
важные данные лучше хранить где-нибудь в другом месте, например на
карточке памяти, либо в любой другой папке, не имеющей отношения к
личным папкам (Мои документы, Мои мелодии и т.п.) пользователя
устройства.

Так что в данном случае, установка данного софта на компьютер в клубе
бессмысленна, да и Ваши личные данные могут стать достоянием
общественности (на локальном компьютере в папке «Мои документы»
создается папка с данными из личных папок устройства).

Рекомендую найти какого-нибудь друга в Москве, и воспользоваться для
этих целей его компьютером.

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

 

Вопрос #000804: Проблемы с загрузкой файлов на Ginza MS100

Автор вопроса: Koshpaev Valery // 02.03.2008 / 13:30

Здравствуйте,эксперты!У меня есть коммуникатор Ginza MS100(CPU:ARM 926TI OMAP 750@200MHz;128MB ROM+64MB RAM;OC:Microsoft Windows Mobile 5.0),но у меня нет компьютера или ноутбука.Мой коммуникатор Джинза имеет встроенный браузер для выхода в Интернет.Я хочу закачивать небольшие фильмы и видеоролики напрямую из Интернет,а также различные программы-тоже из Интернета.Но всегда при попытках скачивания файлов из Интернет появляются сообщения об ошибках:1)"Данный файл не читается(не отображается)на устройстве"2)"Неизвестная ошибка при скачивании файлов
0X80004005"(что это за код и из-за чего он появляется,что он означает?)3)"Искомую страницу не удается найти из-за неизвестной ошибки 0x80072f78"(что это за код и из-за чего он появляется,что он означает?)4)Какую программу,видеоконвертер мне надо установить на Ginza MS100,чтобы я мог скачивать различные медиафайлы из Интернета своей Джинзой и откуда я могу эту программу скачать(лучше-бесплатно!)?Пожалуйста,вышлите ответы на этот адрес моей почты!-Заранее большое Вам спасибо и очень надеюсь на Вашу помощь!Валерий ________________________________________________________ Вы уже с Yahoo!? Испытайте обновленную и улучшенную. Yahoo! Почту! http://ru.mail.yahoo.com

Отвечает: Алексей Немиро // 04.03.2008 / 05:37

Здравствуйте, Валерий.

Вероятно проблема в том, что Вы пытаетесь открыть файл прямо из
Интернета, а не скачать его. Скорей всего ошибка происходит из-за
отсутствия нужных кодеков, и банальной поддержки данного формата
файлов в системе, а также из-за нестабильной связи.

Вообще, большие файлы лучше не качать по GPRS, это не надежно и
дороговато. Обычно все, что нужно закачивают на устройство через
компьютер.

В качестве плеера могу порекомендовать Core Player, а как альтернативу
IE, можно использовать Opera.
Все это дело можно найти на сайте 4pda.ru.

Что касается файлов других форматов, то обычно, эти файлы в Интернет размещены в
архивах zip или rar, WM такие файлы не понимает,
нужно устанавливать дополнительные программы, чтобы работать с файлами
архивов, например файловый обозреватель Resco Explorer 2007
может читать zip-архивы. Файлы установок обычно идут в формате
cab, они вполне нормально должны запускаться.
Некоторые программы могут быть размещены как обычные
Windows-инсталеры, т.е. чтобы их установить потребуется компьютер и
подключить устройство к нему.

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

 

Вопрос #000799: Новый вопрос без темы

Автор вопроса: Максим // 01.03.2008 / 18:57

При попытке открыть дизайнер формы в Visual Studio 2008 возникает ошибка
"The service Microsoft.VisualStudio.Shell.Interop.ISelectionContainer
already exists in service container/ Parameter name: serviceType". Данная
ошибка возникает на всех языках программирования.

Отвечает: EROS // 01.03.2008 / 22:10

 

Вопрос #000791: Проблема_в_VB_.NET_с_использованием_функции_из_...

Автор вопроса: Mikhail Belov // 29.02.2008 / 18:28

Отлаживаю программу в среде разработки Microsoft Visual Basic.NET, возникает проблема:
В ходе исполнения в Отладчике при вызове функции из DLL-библиотеки получаю диагностику
в окне Microsoft Development Environment:

-------------------------------
Необработанное исключение типа "System.NullReferenceException" произошло в Modul.exe.

Дополнительные сведения: в экземпляре объекта не задана ссылка на объект.
-------------------------------

Моdul - имя отлаживаемой программы.

Отладчик "подсвечивает" строку с вызовом функции из библиотеки:
res = ReadIEEE32(8, 0, "rEAd", val, tm, 0)

Переменные объявлены выше в модуле:
Dim res As Long
Dim val As Single

Функция из DLL-библиотеки объявлена в модуле:
Private Declare Function ReadIEEE32 Lib "owen_io" _
(ByVal adr As Long, ByVal adr_type As Long, _
ByVal command As String, ByRef res As Single, _
ByRef time As Long, ByVal Index As Integer) As Long



В Help'e на библиотеку функция описана следующим образом:
для C++
int ReadIEEE32(DWORD adr,DWORD adr_type,char *command,float &value,int &time,int index);

для VB
Function ReadIEEE32(ByVal adr As Long, ByVal adr_type As Long, ByVal command As String, res As Single, time As Long, ByVal Index As Integer) As Long

Подскажите, что делать ?

Отвечает: EROS // 01.03.2008 / 08:27

По всей видимости дело в неправильном объявлении функции. Попробуйте
Long заменить Integer.

 

Вопрос #000764: Програмное определение позиции меню в vb6

Автор вопроса: Иван Денишев // 16.02.2008 / 23:24

Здравствуйте уважаемые эксперты!
Говорят, что вы можете ответить на любой вопрос.
Как программно в vb6 узнать, на каком пункте меню находится курсор.
Для примера, возьмём меню "файл".
Caption | Name
Файл | MnuFile
Создать | MnuFileNew
Открыть | MnuFileOpen
Ну, и пожалуй, хватит. И так будет понятно.
Запускаем программу и жмём: либо f10, либо alt.
Затем стрелку вниз.
Меню "Создать", выделится другим цветом.
Так вот, как программно получить, где находится курсор?
Ведь, в vb нету свойства GotFocus у менюшек.
Очень надеюсь на вашу помощь!
---
С уважением: Иван Денишев.

Отвечает: Алексей Немиро // 17.02.2008 / 10:12

Здравствуйте, Иван.

ВНИМАНИЕ: Данный пример довольно опасный, и может привести к зависанию Visual Basic!

Скачать готовый пример можно тут: http://kbyte.ru/Code/Samples/form1.zip

Создайте новый EXE-проект, на форме разместите Timer и вставьте следующий код:

Код формы:
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
Option Explicit

Private Sub Form_Load()
 gHW = Me.hwnd
 Hook
End Sub

Private Sub Form_Unload(Cancel As Integer)
 Unhook
End Sub

Private Sub Timer1_Timer()
 Me.Caption = SelectedMenuString
End Sub


Также добавьте несколько элементов меню.
Дополнительно создайте новый модуль и вставьте следующий код:

Код модуля:
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:
065:
066:
067:
068:
069:
070:
071:
072:
073:
074:
075:
076:
077:
078:
079:
080:
081:
082:
083:
084:
085:
086:
087:
088:
089:
090:
091:
092:
093:
094:
095:
096:
097:
098:
099:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
Option Explicit

Public SelectedMenuString As String 'здесь будет заголовок выбранного элемента меню

Private Declare Function CallWindowProc Lib "user32" _
  Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, _
  ByVal hwnd As Long, ByVal Msg As Long, _
  ByVal wParam As Long, ByVal lParam As Long) As Long

Private Declare Function SetWindowLong Lib "user32" _
  Alias "SetWindowLongA" (ByVal hwnd As Long, _
  ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetMenu Lib "user32" _
 (ByVal hwnd As Long) As Long

Private Declare Function GetSubMenu Lib "user32" _
 (ByVal hMenu As Long, ByVal nPos As Long) As Long

Private Declare Function GetMenuItemCount Lib "user32" _
 (ByVal hMenu As Long) As Long

Private Declare Function GetMenuState Lib "user32" _
 (ByVal hMenu As Long, ByVal wID As Long, _
  ByVal wFlags As Long) As Long

Private Declare Function GetMenuString Lib "user32" _
  Alias "GetMenuStringA" (ByVal hMenu As Long, _
  ByVal wIDItem As Long, ByVal lpString As String, _
  ByVal nMaxCount As Long, ByVal wFlag As Long) As Long

Private Const MF_BYPOSITION = &H400&
Private Const MF_HILITE = &H80&
Private Const WM_MENUSELECT = &H11F
Private Const GWL_WNDPROC = -4

Public lpPrevWndProc As Long
Public gHW As Long

Public Sub Hook()
  'Begin hooking into messages.
  lpPrevWndProc = SetWindowLong(gHW, GWL_WNDPROC, _
  AddressOf WindowProc)
End Sub

Public Sub Unhook()
  'Cease hooking into messages.
  SetWindowLong gHW, GWL_WNDPROC, lpPrevWndProc
End Sub

Function AnyLit(hSubSubMenu As Long) As Long
  Dim i As Long
  Dim MenuCount As Long

  'Get the number of items in the menu.
  MenuCount = GetMenuItemCount(hSubSubMenu)

  'Loop through the menu items.
  For i = 0 To MenuCount - 1
    'Check whether this item is highlighted.
    If GetMenuState(hSubSubMenu, i, MF_BYPOSITION) And _
        MF_HILITE Then
      AnyLit = True
      Exit Function
    End If
  Next i

  'Return FALSE, no items highlighted.
  AnyLit = False
End Function

Private Sub WalkSubMenu(hSubMenu As Long)
  Dim i As Long
  Dim MenuItems As Long
  Dim hSubSubMenu As Long
  Dim buffer As String
  Dim result As Long

  'Get the count of menu items in this menu.
  MenuItems = GetMenuItemCount(hSubMenu)

  'Loop through all the items on the menu.
  For i = 0 To MenuItems - 1
    'Determine whether this item is highlighted.
    If GetMenuState(hSubMenu, i, MF_BYPOSITION) And _
        MF_HILITE Then
      'Attempt to get a submenu for each menu item.
      hSubSubMenu = GetSubMenu(hSubMenu, i)

      'Check for a submenu with something selected on it.
      If hSubSubMenu And AnyLit(hSubSubMenu) Then
        'There is a submenu with a selection so walk it.
        WalkSubMenu hSubSubMenu
      Else
        buffer = Space(255)
        result = GetMenuString(hSubMenu, i, buffer, Len(buffer), MF_BYPOSITION)
        buffer = Left$(buffer, result)
        SelectedMenuString = GetDescription(buffer)
        Exit Sub
      End If
    End If
  Next i
End Sub

Public Sub FindHilite(TheForm As Form)
  Dim hMenu As Long
  Dim hSubMenu As Long
  Dim i As Long
  Dim MenuCount As Long

  'Clear any previous description.
  SelectedMenuString = ""

  'Get the menu handle.
  hMenu = GetMenu(TheForm.hwnd)

  'Check to see if there is no menu.
  If hMenu <> 0 Then
    'Get the number of top-level menus.
    MenuCount = GetMenuItemCount(hMenu)

    'Enumerate through all top-level menus.
    For i = 0 To MenuCount - 1
      'Ignore top-level menus not currently selected.
      If GetMenuState(hMenu, i, MF_BYPOSITION) And _
          MF_HILITE Then
        'Get a handle to the submenu.
        hSubMenu = GetSubMenu(hMenu, i)

        'Walk the submenu.
        WalkSubMenu hSubMenu
      End If
    Next i
  End If
End Sub

Private Function GetDescription(MenuCaption As String) As String
 GetDescription = MenuCaption
End Function

Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 If uMsg = WM_MENUSELECT Then
  FindHilite Form1
 End If
 WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
End Function


При выборе элемента меню в переменной SelectedMenuString будет текст заголовка выбранного элемента меню.

 


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

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

Наверх

 

 

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

Задача на VB | Автор: Nadia2008
Добавлено: 28.03.2008 / 21:07 | ответов: 0 | просмотров: 27

Претик всем =) помогите пожалуйста решить задачку, я VB только начала изучать а препод задал такое что аж голова закружилась :))) половину с задачи я не понимаю =)

1. Дан масив двухмерный, состоящий из 10 строк и 4 столбцов, данные
расположены с 1-10 лист.
2. В столбцах С и F необходимо найти сумму неотрицательных елементов
при условии, что масив представляет собой числовые значения
(интенджер), найти разницу между максимальным и минимальным елементом,
все 2 значения вывести в окно сообщений

Главное задачу решить. но есле есть материал то можно еще и инфу по етим вопросам =) хотя и сама найду (наверно)
Вопросы
1. Объекты ВБА для Иксель
2. Назначение коллекций
3. Отличие ВБ от ВБА
4. Виды объявлевления масивов (команда REDIM)
5. Пользовательский тип данных. Пример
6. Отличия процедур от функций
7. Особенности типа данных. Вариант.

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


Дизайнер и музыкант в одном лице! | Автор: Dimidrol
Добавлено: 28.03.2008 / 18:57 | ответов: 0 | просмотров: 24

Не самый крутой но умелый и ответственный дизайнер может помочь тебе за твои деньги:)
Дизайн и вёрстка Веб страниц, шапок, логотипов, банеров, всё сравнительно дёшево.
На шапки в данный момент сезон скидок так что обращайтесь :)

Также, сочинение и написания музыки и саунд треков самых разных направлений, в том числе: рок, панк-рок, блюз, клубняк, нью эйдж, словянске мотивы. (Да, и такое может)
Озвучка к играм, фильмам + может сочинить и записать жывую рок балладу если очень надо:)

+ имеется опыт дизайна форумомов на движке IPB (Invision Power Board)

Вобщем в случае чего обращайтесь, а главное не стесняйтесь спрашивать ;)

Контакры
e-mail: zonadimidrola@inbox.ru
icq: 245-587-236

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


Дизайнер и музыкант в одном лице | Автор: Dimidrol
Добавлено: 28.03.2008 / 00:39 | ответов: 0 | просмотров: 29

Не самый крутой но умелый и ответственный дизайнер может помочь тебе за твои деньги:)
Дизайн и вёрстка Веб страниц, шапок, логотипов, банеров, всё сравнительно дёшево.
На шапки в данный момент сезон скидок так что обращайтесь :)

Также, сочинение и написания музыки и саунд треков самых разных направлений, в том числе: рок, панк-рок, блюз, клубняк, нью эйдж, словянске мотивы. (Да, и такое может)
Озвучка к играм, фильмам + может сочинить и записать жывую рок балладу если очень надо:)

+ имеется опыт дизайна форумомов на движке IPB (Invision Power Board)

Вобщем в случае чего обращайтесь, а главное не стесняйтесь спрашивать ;)

Контакры
e-mail: zonadimidrola@inbox.ru
icq: 245-587-236

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


Доступ к Microsoft Access | Автор: DetRoyD
Добавлено: 25.03.2008 / 12:35 | ответов: 1 | просмотров: 65

Народ помогите, как выполнять SQL запросы в Microsoft Visual Studio 2005 , в Visual Basic 6 было все понятно через DAO и все путем , а в 2005 версии я чет даже немогу законектиться с базой данных ... у кого есть ссылочки или примеры скиньте пожалусто!!! Надо просто из вормы записать данные в базу ... пробывал ... указанные тут:


Function AddTo MyBase()

'Установление соединения
Dim sConnectionString As String
'sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("~/App_Data/dbBase.mdb")
sConnectionString = String.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0}", Server.MapPath("~/App_Data/dbBase.mdb"))
Dim Connection As New OleDbConnection(sConnectionString)
Connection.Open()

'Добавление данных
Dim sSQL
sSQL = "INSERT INTO Results(num_group, mark, sys_qual, full_inform, add_inform, navig_qual, disyne_qual, propolsals)" & _
"VALUES (@num_group, @mark, @sys_qual, @full_inform, @add_inform, @navig_qual, @disyne_qual, @propolsals)"
Dim myCmd As New OleDb.OleDbCommand(sSQL)
myCmd.Parameters.Add("@num_group", OleDb.OleDbType.WChar).Value = dplNumGroup.Text 'текст
myCmd.Parameters.Add ("@mark", OleDb.OleDbType.Double).Value = Val(txtISEstimate.Text)
myCmd.Parameters.Add("@sys_qual", OleDb.OleDbType.WChar).Value = RadioButtonList1.Text
myCmd.Parameters.Add("@full_inform", OleDb.OleDbType.WChar).Value = RadioButtonList2.Text
myCmd.Parameters.Add("@add_inform", OleDb.OleDbType.WChar).Value = txtAddInformation.Text
myCmd.Parameters.Add("@navig_qual", OleDb.OleDbType.WChar).Value = RadioButtonList3.Text
myCmd.Parameters.Add("@disyne_qual", OleDb.OleDbType.WChar).Value = RadioButtonList4.Text
myCmd.Parameters.Add("@propolsals", OleDb.OleDbType.WChar).Value = txtPropolsals.Text

'Dim myDB As New DataAccessManager("~/App_Data/dbBase.mdb")
Dim myDB As New DataAccessManager(Server.MapPath("~/App_Data/dbBase.mdb"))
myDB.ExecuteNonQuery(myCmd) 'Выполняем запрос

& nbsp;End Function

пишет что DataAccessMeneger is not defined как я понял не определена ... ! кто что знает помогит плиз напомню Работаю из под Micrisoft Visual Studio 2005

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


Ответ # 1 | Автор: Edlin
Добавлено:27.03.2008 / 08:58
Используй метод ExecuteNonQuery у myCmd. Но перед этим установи для этой команды соединение:

myCmd.Connection = Connection
myCmd.ExecuteNonQuery()

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


Вопрос по таблицам... | Автор: Kolya007
Добавлено: 21.03.2008 / 16:46 | ответов: 0 | просмотров: 65

Как сделать связь между таблицами одной и разных БД MySQL?.. Мне нужно, связать таблицу users и group, полями group и group, group_code...
И если не секрет, там есть поле счетчик?..

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


Наверх

 

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

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

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

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

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

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

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

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

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

Выбор языка программирования для научных работ (2-я редакция)
Автор: Юдин С. Ю. | добавлено: 15.03.2007 / 02:49 | просмотров: 4543

Идея написания этой статьи возникла после того, как на одном из сайтов по физике http://physics.nad.ru/aniboard/messages/291.html я обнаружил интересный алгоритм моделирования движения тела в поле постоянной напряженности по различным направляющим. Вернее, меня заинтересовал не весь алгоритм, т.к. основа их всех одна (принцип Даламбера, если не считать квазиалгоритма с применением уравнений Лагранжа 2-го рода) и различаются они только способом определения реакций в месте соприкосновения тел. ...

 

Статьи на Kbyte.Ru

Наверх

 

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

Ограничение размера формы
Дата добавления: 31.07.2006 / 12:05 | просмотров: 1311 | платформа: VB

Как получить данные из базы данных?
Дата добавления: 31.07.2006 / 18:31 | просмотров: 1410 | платформа: ASP

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

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

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

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

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

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

Класс доступа к данным SQL Server
Дата добавления: 24.03.2007 / 11:48 | просмотров: 1114 | платформа: VB .NET

Получение данных из куков (Cookies)
Дата добавления: 31.07.2006 / 15:55 | просмотров: 1389 | платформа: ASP .NET (VB)

 

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

Наверх

 

Юмор на Kbyte.Ru

Встpечаются двое юзеpов. Один говоpит:
- Я тут свежий антивиpус достал, не хочешь себе установить?
- Hет, мне это не нужно.
- Почему?
- Да мой комп так глючит, что на нем ни один виpус не запустится.

Прислал MAGICIAN

 

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

 

- Сколько нужно сотрудников службы поддержки компании Microsoft,чтобы заменить лампочку?
- Четыре. Первый, чтобы узнать регистрационный номер лампочки. Второй, чтобы спросить:
"А вы перезагрузиться пробовали?"
Третий, чтобы спросить:
"А вы пробовали её переустановить?"
И четвёртый, чтобы сказать:
"Это у вас что-то с железом. У нас в офисе лампочка работает отлично!"

 

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

 

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

 

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

 

- Как вы поняли, что это лев - людоед?
- Да взгляд у него, как у моей жены.

 

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

 

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

 

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

 

Сидим недавно за ужином на кухне с отцом, смотрим "Крепкий орешек-2". В какой-то момент Брюс Уиллис залезает в кабину самолета и запирается там. Злодеи же начинают палить из автоматов по кабине и разбивают там все окна. Отважный Брюс отлеживается на полу. После этого злодеи достают гранаты и закидивают их в кабину. Брюс, осознав всю фиговость своего положения, вскакивает в кресло пилота и катапультируется как раз в момент взрыва. "Везучий ублюдок!", - в сердах произносит главный злодей, наблюдая, как Брюс плавно спускается в кресле на парашюте. "А ведь именно так стоило назвать этот фильм..." - задумчиво произносит отец.

 

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

 

Выходной выдался посреди недели. Дай, думаю, в кино схожу на дневной сеанс, все билеты дешевле. Набрал всей этой хренотени, что к фильму полагается, поп-корн, колу и т.д. Сижу. Передо мной усаживаются две девчонки, явно с бодуна, одна еще ничего, а другую явно колбасит, то куртку снимет, то наденет, минералка в ее бутылке на глазах исчезает. Потом вроде подотпустило ее, а фильм все не начинается. И тут она своей подруге говорит: "Кать, ты следи, чтобы я не заснула". На что подруга ей отвечает: "Делать мне больше нечего, за тобой следить. Мне, вообще, пофиг, спишь ты или нет. Главное, чтоб ты дышала!" Душевная подруга.

 

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

 

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

 

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

 

Компьютерный магазин. Заходят мужчина и женщина.
Женщина: Нам надо, что бы телефон к компьютеру подключался.
Я: У вас Блютуз или ИрДа?
Женщина: Вы с кем разговариваете?
Я в замешательстве, не знаю что ответить.
Женщина: Нам провод нужен, что бы данные на компьютер можно было передать.
Я: Мини USB?
Женщина: Мы не знаем что это такое.
Я: Сейчас вам покажу.
Достаю кабель, показываю. Они достают телефон, смотрим, разъема для мини USB нет.
Я: Вы в мануале посмотрите у телефона Блютуз или ИрДа есть.
Женщина: Вы с кем разговариваете?
Я: Ну, как с кем, с вами.
Женщина: Что такое мануал?
Я: Руководство пользователя.
Женщина: У нас, его нет.
Я: Зайдите в магазин, где радиотелефоны продаются, спросите, есть ли у этой модели Блютуз или ИрДа.
Покупатели в недоумении уходят.

 

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

 

Два НР лежат в реанимации. Оклемались немного... Один говорит:
- Как попал-то сюда?
- Да вот прикола ради заказал себе Порш в виде запора... Движок там поршевский, глюки все... Еду по трассе, гляжу - 600 мерс км под 200 идет. Я педаль газа втопил и сделал его, как стоячего... А потом в зеркало засмотрелся, в поворот не вписался и все... я здесь... А ты как?
- Еду на 600-м мерсе, на спидометре 200 км/ч... вдруг меня, как стоячего, запор делает... Я думал и правда стою - взял и вышел..

 

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

 

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

Наверх


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

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

Copyright (c) Nemiro AS, 2005-2007


В избранное