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

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



Выпуск # 292


http://www.kbyte.ru/

 

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

Ну что я могу сказать, погода не летная, но на выпуск рассылки это никак не повлияло. Читайте! Если будут вопросы, пишите нам на E-Mail или воспользуйтесь общедоступным форумом (регистрация не требуется).

 

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

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

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

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

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

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

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

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

    Помогите новичку! Ввод\Вывод двумероного массива

    почему забирает ресурсы

    js+css(или html)

    физический адрес (номер) материнки

    DataGridView+chekbox

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

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

Наверх

 

 

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

Помогите новичку! Ввод\Вывод двумероного массива | Автор: pascha82
Добавлено: 09.04.2008 / 12:51 | ответов: 0 | просмотров: 22

Всем доброе время суток! У меня такой вопрос-просьба: изучаю VB самостоятельно недавно для решения СЛАУ из 20-ти уравнений модуль вроде нашел, осталось подключит к нему два текстовых файла или лучше таблицы из Excel-я. вот в этом и проблема. Как ввести и вывести массвы 20х20 и 1х20. Может есть у кого готовая прога, буду очень благодерен!!!! с уважением Павел!

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


почему забирает ресурсы | Автор: нияметдин
Добавлено: 06.04.2008 / 05:18 | ответов: 0 | просмотров: 24

Здравствуйте!Программировать учусь.Хочу сделать часы в виде экрана радиолокатора.Т.е задача состоит в том,что секундная стрелка часов должна идти не дискретно,а плавно с определенной скоростью.Написал для этого код:

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
Dim x As Variant
Dim y As Variant
pi = 3.14159
Line1.X1 = 6840
Line1.Y1 = 5280
For n = 0 To 2 * pi Step 0.001
x = 6840 + 4000 * Cos(n)
y = 5280 + 4000 * Sin(n)
Line1.X2 = x
Line1.Y2 = y
Cls
Next
End Sub

Private Sub Form_Click()
End
End Sub
Запускаю все работает,но нажимаю ctrl-alt-del занимает процесс 18Мб памяти и загруженность ЦП 45-56%.Деалал .ехе файл тоже самое.
Как можно сделать,чтобы программа занимала мало ресурсов.Заранее благодарен.

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


js+css(или html) | Автор: Kolya007
Добавлено: 04.04.2008 / 14:52 | ответов: 1 | просмотров: 55

Есть некий тег <p> с текстом, надо чтобы в зависимости от разрешения экрана, текст в нем менял свой размер... Первоначально из расчета на разрешение 1280х1024 текст имеет размер 80pt...

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


Ответ # 1 | Автор: Kolya007
Добавлено:05.04.2008 / 16:56
Уже нет необходимости, узнал в другом месте...

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


физический адрес (номер) материнки | Автор: ВЛас
Добавлено: 04.04.2008 / 13:37 | ответов: 0 | просмотров: 34

Возможно ли, и каким образом (наброски кода) с помощью VisualBasic.NET определить номер материнки или процессора компьютера, на котором программа установлена (работает)?

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


DataGridView+chekbox | Автор: DANger
Добавлено: 04.04.2008 / 11:49 | ответов: 0 | просмотров: 44

Добрый день.
У меня такой вопрос.
Используем vs2008+sql
Создаем DataGridView в него получаем таблицу из sql ля.. - полёт нормальный..
Задача добавить в DataGridView поле с checkbox и получить например по нажатию на кнопку id тех записей которые отмечены чекбоксом – тут проблемка .. поле добавляется но не работает.
Подскажите пожалуйста выход из такой ситуации, если можно с примером.
Заранее спасибо.

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


Наверх

 

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

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

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

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

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

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

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

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

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

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

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

 

Статьи на Kbyte.Ru

Наверх

 

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

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

Анализ E-Mail
Дата добавления: 24.03.2007 / 10:54 | просмотров: 984 | платформа: RegEx

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

Как создать новую папку (каталог) с использованием API?
Дата добавления: 31.07.2006 / 12:37 | просмотров: 1419 | платформа: VB

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

Как расчитать возраст из даты рождения?
Дата добавления: 24.03.2007 / 12:06 | просмотров: 1072 | платформа: VB .NET

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

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

Как переключиться в любое окно?
Дата добавления: 31.07.2006 / 12:51 | просмотров: 1413 | платформа: VB

Проверка существования файла с использованием API
Дата добавления: 31.07.2006 / 12:41 | просмотров: 1779 | платформа: VB

 

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

Наверх

 

Юмор на Kbyte.Ru

Купил мужик мышь для компа оптическую. Круто! В руководстве написано - работает на любой поверхности...
Повозил по столу - работает!
...по бумаге - работает!!
...по линолеуму - работает!!!
Что бы ещё попробовать?
По ЗЕРКАЛУ!!!! - "Обнаружено новое устройство..."

 

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

 

Опытный врач-стоматолог приглашает пациентов для опытов.

 

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

 

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

 

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

 

Издательство "Новый русский" выпустило адаптированный перевод "Мэри Поппинс" под названием "Машка Жoппинс".

 

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

 

Контоpа наша сильно компьютеpизована, а охpана от безделья мается. Вот и пpиходилось их вечеpом, когда никого нет, иногда пускать поигpать на компьютеpе. Из-за великого облома, мне лень было ставить какую-либо игpу окpомя Quake. Так и получилось, что игpают охpанники наши только в Quake. Как-то pаз позвонили им из центpальной контоpы, с пpовеpкой - все ли ноpмально. И вот, значит, один из них, зажав тpубку между ухом и плечом и односложно отвечая на вопpосы, пытается убить очеpедного монстpа. Однако, pазговоp его отвлекает, и получается, что скоpее монстp сейчас сделает охpанника, а не охpанник монстpа. В конце концов настыpное виpтуальное создание тоpжествует победу над человеческим pазумом. И как pаз в этот момент охpанник, видимо, на заданный в очеpедной pаз вопpос:
- Hу и как там тебе, - pычит в тpубку, от волнения сьезжая на хpип
- Да хреново мне, убивают меня! Понятно?, - и бpосает
тpубку
Реакция системы охpаны и милиции была пpактически мгновенной. Пpимеpно чеpез пять минут в двеpи офиса уже ломился наpяд милиции, ожидая встpетить гpабителей, убивающих нашу охpану. Охpана, увидев непонятных мужиков (а кто сейчас веpит фоpме) пpиготовилась отбиваться из пушек или отсиживаться за толстой стальной двеpью (втоpое более веpоятно). К счастью, инцидент был быстpо исчеpпан, но больше охpана в игpы не игpала.

 

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

 

Почему в Чернобыле грибы нельзя собирать? - разбегаются!
А почему их грибники догнать не могут? - грибы их издалека видят - грибники светятся....

 

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

 

На курсах делового русского языка для английских бизнесменов:
- Артикль "a" переводится на русский язык как "типа", а артикль "the" как "конкретно".

 

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

 

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

 

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

 

В разгаре "Поле Чудес". Якубович: - Очередь вращать барабан переходит к Биллу Гейтсу. Последний вращает барабан и вырывает микрофон из рук Якубовича. - Пользуясь случаем, хочу передать привет от Биллла Гейтса... В этот момент на экранах телезрителей вываливается знакомое изображение GРF и, после непродолжительной паузы, телевизоры выходят из строя...

 

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

 

Очень популярный вопрос от юзеров во время загрузки флопика: "А что он так шумит?", я нашла устраивающий их ответ: "Шумит, значит ему так нравится, не мешай, пусть шумит дальше!" Причем, никаких вопросов по этому поводу больше не возникает, правда, у них глаза такими испуганными вдруг становятся...

 

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

 

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

Наверх


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

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

Copyright (c) Nemiro AS, 2005-2007


В избранное