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

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



Выпуск # 591


http://www.kbyte.ru/

 

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

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

 

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

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

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

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

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

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

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

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

    График функции

    Использование like

    Отправить письмо с файлом

    Помогите с SQL запросом

    Помогите с процедурой

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

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

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

Наверх

 

 

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

График функции | Автор: P.S.
Добавлено: 25.12.2009 / 10:42 | ответов: 0 | просмотров: 17

Здравствуйте. Помогите, пожалуйста. Программа не запускается даже. Где ошибка?

Public Class Grafik01
Dim St As String
Dim i, i1 As Integer
Dim x, y As Double
Dim x1, y1 As Double
Dim dx, dy, n, m, a, b, b1, min, max As Integer
Dim y0, y2, k, kk As Integer
Public Function f(ByVal x As Object) As Object
f = Math.Exp(x) * Math.Sin(x)
End Function

Private Sub Form5_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
k = 25
f = False
VScrollBar1.Value = k
Button4.Text = k
dx = Graf1.Width / 2
dy = Graf1.Height / 2
End Sub
'Эта кнопка очистки
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
f = False
Graf1.Refresh()
End Sub
' процедура построения
Private Sub Setka()
n = InputBox("Введите n")
n = Val(n)
m = InputBox("Введите m")
m = Val(m)
a = 0
b = 10
x1 = a
b1 = b
For x = a To b Step (b - a) / 200
If f(x) < Min Then Min = f(x)
If f(x) > Max Then Max = f(x)
Next x
k = 500 / (max - min)
Graf1.Refresh()
Dim g As Graphics = Graf1.CreateGraphics
Dim MyPen As New Pen(Color.Black)
MyPen.Dashstyle="Drawing2D.DashStyle.Solid"
MyPen.Color = System.Drawing.Color.Black
MyPen.Width = 1
For i = dy To 0 Step -k
g.DrawLine(MyPen, 0, i, Graf1.Width, i)
Next i
For i = dy To Graf1.Height Step k
g.DrawLine(MyPen, 0, i, Graf1.Width, i)
Next i
MyPen.Width = 2
g.DrawLine(MyPen, 0, dy, Graf1.Width, dy)
g.DrawLine(MyPen, Graf1.Width - 10, dy - 5, Graf1.Width, dy)
g.DrawLine(MyPen, Graf1.Width - 10, dy + 5, Graf1.Width, dy)
MyPen.Width = 1
For i = dx To 0 Step -k
g.DrawLine(MyPen, i, 0, i, Graf1.Height)
Next i
For i = dx To Graf1.Width Step k
g.DrawLine(MyPen, i, 0, i, Graf1.Height)
Next i
MyPen.Width = 2
g.DrawLine(MyPen, dx, 0, dx, Graf1.Height)
g.DrawLine(MyPen, dx, 0, dx - 5, 10)
g.DrawLine(MyPen, dx, 0, dx + 5, 10)
MyPen.Color = System.Drawing.Color.Red
i1 = 0
x1 = (i1 - dx) / k
y1 = -k * f(x1) + dy
y0 = y1
For i = 0 To Graf1.Width Step 1
x = (i - dx) / k
y = -k * f(x1) + dy
y2 = y
If y2 > dy Then
y2 = dy - (y2 - dy)
End If
g.DrawLine(MyPen, i1, y0, i, y2)
i1 = i
y0 = y2
Next i
End Sub
'эта кнопка построит график
Private Sub Button3_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Setka()
End Sub
'кнопка выход
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Close()
End Sub
End Class

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


Использование like | Автор: Sargez
Добавлено: 22.12.2009 / 10:21 | ответов: 1 | просмотров: 59

Доброе утро!:)

Подскажите, плиз, в сиквеле можно выбрать все поля из "таблицы1", где в "поле1" содержится надпись, например слово "Мир"?

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


Ответ # 1 | Автор: Алексей
Добавлено:22.12.2009 / 11:35
001:
002:
003:
004:
SELECT * FROM таблица1 WHERE поле1 LIKE '%мир%'

_______________________
Colorized by: Eros.CodeSyntaxColor Engine


_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

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


Отправить письмо с файлом | Автор: abra
Добавлено: 21.12.2009 / 16:51 | ответов: 7 | просмотров: 162

собственно КАК? :о)

понятно, что использую <asp:FileUpload ID="FUScan" runat="server" />
но как подгрузить файл к письму?

p.s. оправляю письма с помощью Web.Mail;

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


Ответ # 1 | Автор: Алексей
Добавлено:21.12.2009 / 16:57
Web.Mail - со времен Framework 2.0 считается устаревшим.
Net.Mail нужно использовать. В сообщение есть коллекция Attachments,
в нее и нужно засовывать файлы.
001:
002:
003:
004:
005:
Dim m As New System.Net.Mail.MailMessage()
m.Attachments.Add(...)

_______________________
Colorized by: Eros.CodeSyntaxColor Engine


_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

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


Ответ # 2 | Автор: abra
Добавлено:21.12.2009 / 17:56
ага........ а как из FileUpload-а я вытаскиваю путь, который, как я понимаю надо использовать в Attachments?

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


Ответ # 3 | Автор: Алексей
Добавлено:21.12.2009 / 18:01
В FileUpload указан локальный путь на машине клиента, сервер не сможет получить
к нему доступ, даже если очень захочет :)

Тело файла лежит в Stream его и нужно пихать в Attachment.

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

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


Ответ # 4 | Автор: abra
Добавлено:22.12.2009 / 18:31
Строчка
oMail.Attachments.Add(FUScan.FileContent);
ругается ошибкой "Не удалось привести тип объекта "System.Web.HttpInputStream" к типу "System.Web.Mail.MailAttachment". " :о(

если же я пишу
oMail.Attachments.Add(FUScan.FileContent as MailAttachment);
то получаю еррор " Cannot convert type 'System.IO.Stream' to 'System.Web.Mail.MailAttachment' via a built-in conversion"

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


Ответ # 5 | Автор: Алексей
Добавлено:22.12.2009 / 18:43
001:
002:
003:
004:
005:
System.Web.Mail.MailAttachment a = new System.Web.Mail.MailAttachment();
etc...

_______________________
Colorized by: Eros.CodeSyntaxColor Engine


_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

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


Ответ # 6 | Автор: abra
Добавлено:22.12.2009 / 18:49
вопрос конвертации Stream в MailAttachment все равно не решается :о/

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


Ответ # 7 | Автор: Алексей
Добавлено:22.12.2009 / 19:00
его и не нужно конвертировать :) Stream нужно засунуть в свойство типа
Stream (не помню какое, методом тыка легко найти) объекта типа MailAttachment, который в последующем добавляется
в письмо в коллекцию MailAttachment.

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

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


Помогите с SQL запросом | Автор: Sargez
Добавлено: 21.12.2009 / 11:22 | ответов: 6 | просмотров: 156

Привет

Помогите, пожалуйста с SQL запросом, где нужно из "таблица1" выбрать все элементы, где "поле1" имеет формат "хххх/ххххх"???

Спасибо.

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


Ответ # 1 | Автор: Алексей
Добавлено:21.12.2009 / 12:10
Можно примерно так:
001:
002:
003:
SELECT * FROM таблица1 WHERE LENGTH(поле1) = 10 AND SUBSTRING(поле1, 5, 1) = '/'

Colorized by: Eros.CodeSyntaxColor Engine

Мускула под рукой нет, не проверял.

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


Ответ # 2 | Автор: Sargez
Добавлено:21.12.2009 / 12:46
Спасибо!!! А подскажите, плиз, кто-нить синтаксис левого соединения скажем вместе с оператором select, то есть что за чем идет...

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


Ответ # 3 | Автор: Алексей
Добавлено:21.12.2009 / 12:59
001:
002:
003:
004:
005:
006:
007:
SELECT * FROM таблица1
JEFT JOIN таблица2 ON таблица1.поле1 = таблица2.поле1
WHERE таблица1.поле2 = 'blablabla'
ORDER BY таблица2.полеN

_______________________
Colorized by: Eros.CodeSyntaxColor Engine


_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

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


Ответ # 4 | Автор: Sargez
Добавлено:21.12.2009 / 13:17
Спасибо. А кроме Left и right join есть еще какие связи?

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


Ответ # 5 | Автор: Алексей
Добавлено:21.12.2009 / 13:24
INNER JOIN :)

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

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


Ответ # 6 | Автор: Sargez
Добавлено:21.12.2009 / 14:18
Ага))) спасибо большое. Если будут еще вопросики напишу!))) спасибо еще раз.

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


Помогите с процедурой | Автор: Dragon-zla
Добавлено: 20.12.2009 / 20:06 | ответов: 1 | просмотров: 70

Здравствуйте, есть проблема. Пишу консольное приложение в Delphi.
Нужно написать программу, использующую указатели и списки.
Не получается реализовать две процедуры: загрузки из файла и сохранения в файл.
Помогите пожалуйста.
Не могу с указателями разобраться - как их в таком виде считывать.
Сам список имеет вид:
list : record
first : record
second : pointer

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

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


Ответ # 1 | Автор: Dragon-zla
Добавлено:21.12.2009 / 14:39
Спасибо уже не надо. Разобрался.

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


Наверх

 

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

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

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

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

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

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

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

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

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

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

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

 

Статьи на Kbyte.Ru

Наверх

 

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

Как отправить E-Mail?
Дата добавления: 01.08.2006 / 11:52 | просмотров: 5774 | платформа: ASP

Удаление файла
Дата добавления: 31.07.2006 / 17:28 | просмотров: 2831 | платформа: ASP .NET (VB)

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

Как программно закрыть форму?
Дата добавления: 01.08.2006 / 17:20 | просмотров: 4165 | платформа: VB .NET

Как запретить пользователю перемещать форму?
Дата добавления: 31.07.2006 / 12:05 | просмотров: 2434 | платформа: VB

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

Как получить текущее системное время?
Дата добавления: 16.08.2006 / 20:18 | просмотров: 4463 | платформа: VB

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

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

Как узнать размер рабочей области экрана?
Дата добавления: 23.08.2006 / 19:03 | просмотров: 4020 | платформа: VB .NET

 

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

Наверх

 

Юмор на Kbyte.Ru

Прикол с Файн Ридером. Это программа такая, которая вроде как распознаёт текст введённый со сканера. Чуство юмора у неё сродни её брату - переводчику Lingvo (видать семейное). Так вот. Недавно приятель попросил отсканировать и естессно распознать для реферата одну медицинскую книжку. Нужно сказать, книжка была здоровая и на месте сгибов Великий распознаватель вместо некоторых букв ставил разные палочки (типа / ] l и пр.), по его мнению более похожие на оригинал. Я значит потом читаю (как раз описание какой-то страшной болезни, мурашки по коже), исправляю недочёты и вот вижу такой перл, цитирую: "...вероятность летального исхода после этой болезни незначительная :]" это он в конце смайлик добавил, вроде как понял шутку :)))

 

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

 

Новый Русский (НР) припарковывается у обочины, ставит джип на охрану и идет вдоль тротуара, покручивая на пальце ключики и насвистывая себе под нос. Картина: рядом с джипом паркуется горбатый "Запорожец". Из машины вылезает мужик, ставит на педали капканы, на руль подводит электропровода, обматывает машину по периметру конкретной цепью, ставит амбарный замок. НР:
- Ты че мужик? Думаешь, такое дерьмо угонят?!
- Это твою машину угонят, а в мою ср@ть ходят!!

 

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

 

Что мы делаем, когда собираемся вместе?? Да водку глушим!! Какую водку?? Да нашу любимую прозрачную, с отличным бодрящим вкусом! Так что у нас никогда не возникает вопроса: "какое пиво пить...?"

 

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

 

Вовочка опоздал в школу, заходит без стука в дверь, не извинившись, садится на своё место.
Учительница в возмущении:
- Вовочка, как тебе не стыдно?! Ну-ка выйди и зайди, как заходит тdой папа...
Вовочка выходит из класса.
Вдруг дверь пинком открывается, Вовочка вразвалку заходит в класс и, осмотрев презрительно всех, ехидно спрашивает:
- Ну чё, придурки, не ждали?...

 

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

 

Собирается жена с мужем на праздник, жена прихорашивается и спрашивает у мужа:
- Я похожа на фотомодель?
- Скорее на фоторобот.

 

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

 

Не кажется ли вам символичным, что праздник мелких пакостей и легких ужасов в Штатах назывется "Хелло, Win"?

 

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

 

На уроке литературы в компьютерном лицее:
- Герасим был это... этим... Ну, звуковой карты у него не было.

 

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

 

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

 

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

 

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

 

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

 

Жила-была Красная Шапочка. Как-то раз идет она по лесу,плачет - вся в слезах. Встречает Медведя.
- Почему ты плачешь, Красная Шапочка?
- Понимаешь, Медведь, в моем возрасте у девочек уже появляются волосики на лобке, а у меня ничего нет. Ну как мне не плакать?!
Сжалился Медведь над девочкой, оторвал себе хвост да и приставил к лобку Красной Шапочки.
С тех пор у медведя нет хвоста.
Идет дальше по лесу Красная Шапочка, и вдруг опять начинает плакать. А навстречу ей идет Аист.
- Отчего ты так плачешь, Красная Шапочка?
- Ну как мне не плакать, дорогой мой Аист, ведь в моем возрасте девченки давно уже не девственницы, одна я такая хожу...
Сжалился Аист над девочкой, взял да и порвал клювом целочку.
С тех пор у всех аистов красные клювы.
Идет дальше Красная Шапочка, выходит к озеру, садиться на берег и начинает плакать еще пуще прежднего. Выходит из озера Золотая Рыбка и спрашивает:
- Почему ты так плачешь, Красная Шапочка?
- Как не плакать, Рыбка, ведь в моем возрасте уже все девчонки знают что такое оргазм и испытали его, только я вот понятия не имею что это такое...
Сжалилась Золотая Рыбка, вышла из воды, поработала хвостиком и довела девушку до оргазма.
Но с тех пор так никто и не может понять: то ли пи..да пахнет рыбой, то ли рыба пахнет пи..дой...

 

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

 

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

Наверх


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

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

Copyright (c) Nemiro AS, 2005-2007


В избранное