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

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



Выпуск # 597


http://www.kbyte.ru/

 

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

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

 

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

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

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

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

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

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

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

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

    Програ типа ICQ на Visual Basic

    Антивирус

    Помогите получить !зачет пожалуйста!

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

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

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

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

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

Наверх

 

 

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

Програ типа ICQ на Visual Basic | Автор: EvgeniySergeevich
Добавлено: 05.01.2010 / 15:35 | ответов: 0 | просмотров: 21

Хочу вот прогу типо ICQ написать. На Visual Basic. Только не знаю как!..
Можете что нибудь умное подсказать?

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


Антивирус | Автор: EvgeniySergeevich
Добавлено: 03.01.2010 / 21:30 | ответов: 4 | просмотров: 99

Я написал недавно подобие антивируса на visal basic 2008, по нажатию кнопки 1 открывается окно открытия файла, после выбора файла такст из него попадает в скрытый текстбокс. По нажатию кнопки 2 программа открывает все файлы из папки "C:\Program Files\Zgiborz|Base" и смотрит, есть ли в открытом файле текст из файла з папки. Подайте советы, какие ещёфункции добавить в свой АНТИВИРУС?

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


Ответ # 1 | Автор: EvgeniySergeevich
Добавлено:03.01.2010 / 21:36
Кстати, код такой:
001:
002:
003:


Colorized by: Eros.CodeSyntaxColor Engine

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Oman As String
Dim Mem As Long
Oman = Dir("C:\Program Files\Zgiborz\Base\")
Do While Oman <> ""
Mem = Mem + 1
Oman = Dir()
Loop
ProgressBar1.Maximum = Mem
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim alltext = "", lineoftext = ""
TextBox2.Text = ""
OpenFileDialog1.Filter = "Любой файл|*.*"
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName <> "" Then

End If
Try
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
Do Until EOF(1)
lineoftext = LineInput(1)
alltext = alltext & lineoftext & vbCrLf
Loop
TextBox1.Text = alltext
ProgressBar1.Value = 0
Button2.Enabled = True
Catch
Finally
FileClose()
End Try
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim MyFG As String
TextBox2.Text = ""
ProgressBar1.Value = 0
MyFG = Dir("C:\Program Files\Zgiborz\Base\")
Do While MyFG <> ""
FileOpen(1, "C:\Program Files\Zgiborz\Base\" + MyFG, OpenMode.Input)
If TextBox1.Text.Contains(LineInput(1)) Then
If TextBox2.Text = "" Then
TextBox2.Text = "Virus - " + MyFG
Else
TextBox2.Text = TextBox2.Text & vbCrLf & "Virus - " + MyFG
End If
End If
FileClose()
ProgressBar1.Value = ProgressBar1.Value + 1
MyFG = Dir()
Loop
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Kill(OpenFileDialog1.FileName)
Button2.Enabled = False
Button3.Enabled = False
End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
If TextBox2.Text <> "" Then
Button3.Enabled = True
End If
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
End Class

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


Ответ # 2 | Автор: Алексей
Добавлено:03.01.2010 / 21:47
Текстовой антивирус - это забавно :)
Для начала нужно изгнать VB 6.0 из кода, затем копать в сторону
Binary, для скорости обработки данных можно заюзать
Threads. В целом, делать антивирь на голом .NET, не самая
лучшая идея, но для самообучения можно всё :)

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

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


Ответ # 3 | Автор: EvgeniySergeevich
Добавлено:04.01.2010 / 11:18
Спасибо за ваш комментарий!
Кстати, на странице http://kbyte.ru/code/Show.aspx?id=346 я добавил код в раздел КОДЫ. Там же Вы можете скачать мою программу в формате .EXE

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


Ответ # 4 | Автор: EvgeniySergeevich
Добавлено:04.01.2010 / 14:12
А, вот ещё такая просьба: у вас есть какие-нибудь антивирусные сигнатуры для моего АНТИВИРУСА?
Если есть, Напишите, пожалуйста!

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


Помогите получить !зачет пожалуйста! | Автор: vampir
Добавлено: 28.12.2009 / 22:44 | ответов: 0 | просмотров: 69

Вообщем надо написать на Basik-е программу.
1)в квадрате 10 на 10 клеток разместить случайным образом N звездочек, обозначенных символом (*). и что бы при ножатии они снова рандомом располагались в клетках случайным образом.
N ввести с клавиатуры. 2 звезды не должны попасть в одну клетку. Клетки пронумировать буквой(сбоку) и цифрой(сверху), как в морском бое.
2) а это для людей. которые знают не только Basik, но и С++.

Надо перенести программу из под Basik-a на С++.
Вот код на Basik.

Задача заключаеться в апроксимации 4 точек.


dim x(3),y(3)
data 0.0,.2,.21,10,11,.19,.25
n=4:t=1
for i=0 to n-1
read x(i),y(i)
next
gosub 1
?"a,b=";a1;b1
?"Da,Db=";a1;b1
?"S=";S
end
1 a=0:b=0
for i=0 to n-1
a=a+x(i): b=b+y(i)
next
x1=a/n:y=b/n
S=0:s1=0:s1=0
for i=0 to n-1
a=x(i)-x1:b=y(i)-y1
s=s+a*a
s1=s1+a*b
s2=s2+b*b
next
a=s1/s:b=y1-a*x1
a1=t*sqr((s2/s-a*a)/(n-2))
b1=a1*sqr(x1*x1+s/n)
s=0
for i=0 to n-1
s=s+(a*x(i)+b-y(i))^2
next
s=sqr(s/n)
return


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

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


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

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

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 | просмотров: 124

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

Подскажите, плиз, в сиквеле можно выбрать все поля из "таблицы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


Наверх

 

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

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

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

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

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

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

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

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

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

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

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

 

Статьи на Kbyte.Ru

Наверх

 

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

Рисвание градиентной заливки
Дата добавления: 24.03.2007 / 12:43 | просмотров: 3832 | платформа: VB .NET

Анализ тэгов
Дата добавления: 24.03.2007 / 11:10 | просмотров: 2522 | платформа: RegEx

Подсчет количества определенных символов в тексте
Дата добавления: 31.07.2006 / 12:30 | просмотров: 3334 | платформа: VB

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

Как узнать IP-адрес посетителя?
Дата добавления: 01.09.2006 / 12:23 | просмотров: 6829 | платформа: ASP .NET (VB)

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

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

Поиск и замена
Дата добавления: 16.08.2006 / 18:54 | просмотров: 3556 | платформа: VB

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

Поиск слов определенной длины
Дата добавления: 24.03.2007 / 11:02 | просмотров: 2533 | платформа: RegEx

 

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

Наверх

 

Юмор на Kbyte.Ru

- Жена меня ну совсем достала! Все время шипит на меня!
- А может, она сконнектиться пытается?

 

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

 

Бороться с пьянством, ограничивая доступ к водке - это то же самое, что бороться с поносом, ограничивая доступ к туалету.

 

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

 

Новый русский поймал золотую рыбку. Та просит: "Ну отпусти меня, мужик, пожалуйста!"
Тот сжалился, отпустил, повернулся и пошёл. Рыбка в шоке: "Слышь, мужик, а три желания?!"
Новый русский: "Ну, рыбка, ты обнаглела! Ладно, загадывай."

 

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

 

Сын спрашивает у матери одиночки:
- Мама, мама, а кто мой папа?
- Дед Мороз! - зло отвечает мама.
- Как это? - удивляется мальчик.
- Пришёл ночью, сделал подарок и больше его никто не видел.

 

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

 

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

 

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

 

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

 

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

 

- Где находятся мухи зимой?
- Не знаю, но мне хотелось бы, чтобы они оставались там и летом!

 

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

 

Вовочке срочно понадобились деньги. Просит у отца. Отец говорит ему:
- Денег у меня нет, вот тебе петух, сходи на рынок и продай его.
Пошел Вовочка на рынок, стоит. К нему подходит молодая красивая женщина. Говорит Вовочке:
- Слушай, что ты здесь стоишь, пошли лучше ко мне домой.
Пришли они к ней домой, Вовочка ее трахает, вдруг звонок в дверь. Женщина говорит:
- Это мой муж, давай лезь в шкаф.
Вовочка взял петуха, залез в шкаф, сидит. Слышит - заходит какой-то мужик, тр#хает ее. Вдруг опять звонок в дверь. Она объясняет этому мужику, что это ее муж, и запихивает его в тот же шкаф.
Вовочка говорит мужику:
- Слушай, мужик, купи петуха!
- Да не нужен он мне.
- Давай покупай, а то закричу.
Делать нечего, пришлось купить. Через 5 минут:
- Мужик, отдай петуха, а то закричу!
И так до тех пор, пока у мужика все деньги не кончились. Наконец, муж уходит, Вовочка выбегает и идет домой. Приходит домой, видит отца и говорит:
- Не смог я продать петуха, может, ты купишь?
Отец:
- Вовочка, иди на х#й, ты меня уже в шкафу за#бал!!!

 

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

 

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

 

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

 

Встретились как то Виндовс 95 и 98. Виндовс 95 говорит:
- Ну что, в бар пойдем или тут зависнем?

 

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

 

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

Наверх


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

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

Copyright (c) Nemiro AS, 2005-2007


В избранное