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

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



Выпуск # 285


http://www.kbyte.ru/

 

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

Доброе время суток!
Меня зовут R-KDR-19826, представляю Вам очередной выпуск рассылки Kbyte.Ru!

 

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

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

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

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

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

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

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

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

    Доступ к Microsoft Access

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

    Минск. БелХард. приглашаем специалистов мобильных утройств

    как быть с txt файлом?

    вопрос по Picturebox

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

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

Наверх

 

 

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

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

Народ помогите, как выполнять 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 | просмотров: 52

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

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


Минск. БелХард. приглашаем специалистов мобильных утройств | Автор: belhard
Добавлено: 13.03.2008 / 15:43 | ответов: 0 | просмотров: 91

Отдел EleganceIT (интересный, дружный коллектив) приглашает для постоянной full-time работы в Минске в команду разработчиков мобильных устройств для платформ: WinCE (C using Win32), Symbian (S60 or UIQ), Linux embedded (ALP/Android or QT).
Крупный зарубежный заказчик, проект связан с mobile 2.0 (создание виджетов).
Гарантируем широкие карьерные перспективы, стабильную загрузку и достойные вознаграждения (800-1600), доп. соц. пакет, премии за достижения, благоприятную творческую атмосферу в команде, современный инструментарий.
Мы предлагаем участие в проектах, реализуемых для глобальных рынков, где Вы будете решать амбициозные задачи и осваивать самые актуальные, интересные темы и найдете свой успешный путь самореализации и проф. развития.
Информация обо всех вакансиях, отделах корпорации: www.job.belhard.com
E-mail для продолжения переговоров и резюме: job @belhard.com

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


как быть с txt файлом? | Автор: Vetolez
Добавлено: 12.03.2008 / 20:17 | ответов: 3 | просмотров: 200

Вопрос заключается в том что нужно создать txt файл с которым в последующем можно будет обмениваться данными, то есть считывать и сохранять на него.
Напишите пожалуйста код для создания такого txt файла
Заранее спасибо!)

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


Ответ # 1 | Автор: Inf
Добавлено:13.03.2008 / 00:01
В смысле? что это за файл такой :)

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
'Создаем файл в содержании котором будет "наши данные" если файла не существует то он создастся с названием "Файл в который можно записывать)).txt"
System.IO.File.WriteAllText("Файл в который можно записывать/создавать)).txt", "Наши данные", Encoding.Default)

'Добовляем в файл данные, т.е если файл создан то данные запишутся в конце файла, если нет то он создастся с названием "Файл который можно дополнять)).txt"
System.IO.File.AppendAllText("Файл который можно дополнять)).txt", "Наши данные", Encoding.Default)

'Считываем файл в переменную
Dim filecontain As String = System.IO.File.ReadAllText("Файл который можно считывать)).txt", Encoding.Default)

Colorized by: Eros.CodeSyntaxColor Engine


Это нужно? :)

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


Ответ # 2 | Автор: Vetolez
Добавлено:13.03.2008 / 11:01
что то ы первый раз такой код вижу... а он точно для VB 6.0?

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


Ответ # 3 | Автор: MiNus
Добавлено:25.03.2008 / 12:40
этот код для VS
на 6.0 проще всего так:
Создать файл и записать в него данные...

Dim Temp As String

Open "путь и имя файла" For Input As #1
Input #1, Temp
Close #1

Temp - переменная, которую записываем в файл.


Добавить в уже созданный файл можно по аналогии... (Меняем Input на Append)

Dim Temp As String

Open "путь и имя файла" For Append As #1
Input #1, Temp
Close #1


Ну и наконец, запись в файл...
Dim Temp As String

Open "путь и имя файла" For Print As #1
Print #1, Temp
Close #1

Вообще это самые ламерские способы... (очень скупо написано, так как возможностей там очень много) Поищи в гугле...

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


вопрос по Picturebox | Автор: nezabudka
Добавлено: 11.03.2008 / 10:09 | ответов: 1 | просмотров: 106

У меня такой вопрос...Нужно в Picturebox написать текст к примеру 2 в четвертой степени...не подскажете как написать эту четвертую степень?

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


Ответ # 1 | Автор: Inf
Добавлено:13.03.2008 / 00:10
По поводу PictureBox не подскажу конкретно, не работал с ним, но как я посмотрел, текст нельзя писать там на прямую, кинь Label на PictureBox и уже текст пиши на нём, по поводу степени:
есть математический оператор: ^ который и возводит в степень, вот пример:
001:
002:
003:
Label1.Text = CStr(2 ^ 4) 'Возводит два в четвертую степень, результат 16

Colorized by: Eros.CodeSyntaxColor Engine

CStr это преобразование результата к типу String, можно и без него, но при жесткой проверки типов (Option Strict On) подчеркнет как ошибку

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


Наверх

 

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

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

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

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

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

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

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

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

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

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

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

 

Статьи на Kbyte.Ru

Наверх

 

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

Как узнать IP-адрес текущего посетителя?
Дата добавления: 31.07.2006 / 15:34 | просмотров: 2151 | платформа: ASP .NET (VB)

Как программно дополнить заголовок (Title) страницы?
Дата добавления: 31.07.2006 / 13:27 | просмотров: 1261 | платформа: ASP .NET (VB)

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

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

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

Использование включаемых файлов
Дата добавления: 01.08.2006 / 11:40 | просмотров: 1373 | платформа: ASP

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

Как заблокировать кнопку "Закрыть" ([X])
Дата добавления: 31.07.2006 / 12:12 | просмотров: 1265 | платформа: VB

Как преобразовать цвет в Web-стандарт?
Дата добавления: 24.03.2007 / 11:37 | просмотров: 910 | платформа: VB .NET

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

 

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

Наверх

 

Юмор на Kbyte.Ru

- Дорогой, ты будешь очень мною доволен. Я три раза проехала на красный свет, и ни разу меня никто не оштрафовал. На сэкономленные деньги я
купила себе три новые шляпки.

 

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

 

Вовочка спрашивает:
- Папа презервативы рвутся?
- Посмотри в зеркало!

 

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

 

Смотрю в выходной новости по Первому в 21.00. Весь выпуск - одни катастрофы: идет опознание жертв родственниками, в Питере горит Троицкий собор, какой-то взрыв, какое-то убийство, теракт... От сюжета к сюжету становится все страшнее.
В конце выпуска диктор объявляет: "Вот и все новости дня, которые мы успели вам сообщить. А сейчас на нашем канале смотрите художественный фильм "Это могло случиться с тобой".

 

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

 

Новый русский заходит в ресторан, подзывает официанта и говорит:
- Ваше фирменное блюдо, быстро.
Официант убегает и через несколько минуты приносит мидии.
Новый русский шепотом:
- Слышь браток подскажи как их есть то?
Официант:
- Ну вы поделываете в раковине небольшую дырочку и высасываете содержимое.
Новый русский проделывает дырочку. Сосет, сосет, а из раковины ничего не высасывается. Тогда он подносит ее к лицу и смотрит в внутрь. А там моллюзг расперса и говорит:
- Чего смотришь, соси дальше.

 

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

 

Сидят два хакера за компьютером. Вдруг заходит кот. Один говорит:
- Твой кот?
- Да.
- Как зовут?
- Zyxel.
- А почему так?
- Смотри.
Берёт веник, подходит к коту и говорит:
- Zyxel Конект!
Кот:
- Пшшшшшшшшшш

 

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

 

Каждую секунду, тыкая в клавиши, мы давим насмерть не менее 1000 микробов.

 

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

 

- "Hе" с глаголами пишется вместе или отдельно?
- Через пробел!

 

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

 

Вас беспокоят волосы в носу, женщинам не нравится ваша лысина?
Мы решим ваши проблемы! Клиника Real Trans Hair.

 

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

 

Сынок не может оторваться от компьютера. Родители вызвали доктора. Доктор осмотрел его и сказал:
- Его придётся лечить!
Родители:
- Как?
- Сигаретами, выпивкой, девочками...

 

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

 

Разговаривают два активных пользователя Интернета:
- Ну, как дела?
- Да как тебе сказать... Все нормально вроде, вот только пальцы болят...
- А с чего это вдруг?
- Да вчера с друзьями в чате встретился, так всю ночь песни орали...

 

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

 

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

Наверх


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

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

Copyright (c) Nemiro AS, 2005-2007


В избранное