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

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



Выпуск # 416


http://www.kbyte.ru/

 

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

Здравствуйте дамы и господа!
Представляю очередной выпуск рассылки научно-информационного портала Kbyte.Ru. Надеюсь он Вам понравится. Если у Вас есть какие либо вопросы или предложения по рассылке, пишите нам – admin@kbyte.ru!

 

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

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

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

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

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

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

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

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

    Помогите - сортировка методом пузырька Visual Basic

    Новый проект посвященный Visual Basic .NET

    Передача параметров из C#

    ComboBox - поле со списком

    курсы ASP.NET

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

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

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

Наверх

 

 

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

Помогите - сортировка методом пузырька Visual Basic | Автор: #Nii
Добавлено: 18.12.2008 / 23:46 | ответов: 1 | просмотров: 43

Вот мне надо сделать, сортировку методом пузырька в Delphi или Visual Basic. И чтоб данные брались из файла, и записывались в другой файл.

Исходник пузырька

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
Sub Sort(Mus() As Long)
  Dim n As Long, i As Long, j As Long, tmp As Long
  i = 1
  Do While (i < UBound(Mus))
    If Mus(i) > Mus(i + 1) Then
      tmp = Mus(i)
      Mus(i) = Mus(i + 1)
      Mus(i + 1) = tmp

      If i > 1 Then
        i = i - 1
      Else
        i = i + 1
      End If
    Else
      i = i + 1
    End If
  Loop
End Sub

Colorized by: Eros.CodeSyntaxColor Engine



И создание и открытие файла



Для создания файла используем метод Create класса File и для создания нового текстового файла метод CreateText класса File.



Пример:



Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

System.IO.File.Create("Path")

System.IO.File.CreateText("Path")

End Sub


Path – полный путь и имя + расширение файла


Для открытия файла используем метод Open класса File.



Только вот незнаю как соединить их, чтоб работало

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

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


Ответ # 1 | Автор: andreymp
Добавлено:19.12.2008 / 13:53
Учитывая тематику форума (хотя автор приводит пример создания файла на дотнете) рискну предположить что речь идет о VB6.
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:
'На форме одна кнопка. Подключаем в референсах библиотеку Microsoft Scripting Runtime
'Допустим что входной файл престаляет собой строку вида 3,22,66,44,88,,23,97,345,321
Private Sub Command1_Click()
  Dim MyArrStr() As String
  Dim MyArr() As Long
  Dim sStr As String
  Dim i As Long
  
  'Читаем из файла
  sStr = MyRead("in.txt")
  'Получаем массив строк
  MyArrStr = Split(sStr, ",")
  i = 0
  ReDim MyArr(i)
  'Преобразуем в массив Long
  For i = LBound(MyArrStr) To UBound(MyArrStr)
    ReDim Preserve MyArr(i)
    MyArr(i) = CLng(MyArrStr(i))
  Next i
  'Сортируем
  Call Sort(MyArr)
  'Собираем строку (чтоб вид бил как у входного файла)
  sStr = ""
  For i = LBound(MyArr) To UBound(MyArr)
    MyArrStr(i) = CStr(MyArr(i))
    sStr = sStr & MyArrStr(i)
    If i <> UBound(MyArr) Then sStr = sStr & ","
  Next i
  'Записываем файл
  Call MyWrite(sStr, "out.txt")
End Sub

Private Sub Sort(Mus() As Long)
  Dim n As Long, i As Long, j As Long, tmp  As Long
  i = 0 'немного подправил, чтоб начинало с 0
  Do While i < UBound(Mus)
    If Mus(i) > Mus(i + 1) Then
      tmp = Mus(i)
      Mus(i) = Mus(i + 1)
      Mus(i + 1) = tmp
      If i > 1 Then
        i = i - 1
      Else
        i = i + 1
      End If
    Else
      i = i + 1
    End If
  Loop
End Sub

'Процедура записи, используется FSO
Private Sub MyWrite(MyStr As String, outFile As String)
Dim fsoSave As New FileSystemObject
Dim filSave As TextStream
Set filSave = fsoSave.CreateTextFile(App.Path & "\" & outFile, True)
filSave.WriteLine (MyStr)
filSave.Close
End Sub

'Процедура чтения, используется FSO
Private Function MyRead(inFile As String) As String
Dim fsoSave As New FileSystemObject
Dim filSave As TextStream
Set filSave = fsoSave.OpenTextFile(App.Path & "\" & inFile)
MyRead = filSave.ReadLine
filSave.Close
End Function

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


Новый проект посвященный Visual Basic .NET | Автор: Алексей
Добавлено: 18.12.2008 / 12:12 | ответов: 3 | просмотров: 47

Открылся новый проект, посвященный программированию на Visual Basic .NET - http://vbnet.su
Регистрация только по приглашению :) Код приглашения (инвайт) для пользователей Kbyte.Ru: kbyte
Ссылка для регистрации: http://vbnet.su/join?invite=kbyte

Количестве "мест" ограничено ;)

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

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


Ответ # 1 | Автор: andreymp
Добавлено:18.12.2008 / 16:22
В общем неплохо, но:
1. Может стоило сначала раскрутить этот проект? В общем то ничего не мешает раскручивать их паралельно, если хватит сил, времени и денег.
2. Использование vbnet в названии как то не совсем корректно по отношению к vbnet.ru.
3. Учитывая активность на kbyte.ru (который более менее раскручен):
а) Быстро получить любой ответ на любой вопрос можно на vbnet.ru ( странице на 2-3 может даже и по теме, а если повезет то и правильный) :)
б) Без особого флуда - на sql.ru, исходники.ru, vbstreets и пр. Конкуренция очень большая.
в) На очень сложные вопросы - исходники.ru.
Но это все ИМХО.
Постараюсь поддержать, Когда письмо на активацию аккаунта придет. Удачи.
Андрей.

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


Ответ # 2 | Автор: Алексей
Добавлено:18.12.2008 / 16:53
1. Может стоило сначала раскрутить этот проект?

этому проекту уже три года..
2. Использование vbnet в названии как то не совсем корректно по отношению к vbnet.ru.

и к vbnet.com, vbnet.info, vbnet.org :)
Да и на ру флудилня, ничего некорректного не вижу в этом.

а) Быстро получить любой ответ на любой вопрос можно на vbnet.ru (
странице на 2-3 может даже и по теме, а если повезет то и правильный):

учитывая раскрученность vbnet.su, сейчас там можно получить быстро
ответ на любой вопрос, возможно даже правильный, ибо я пока там :)
Здесь я сейчас редко отвечаю на вопросы, но прейдет время и на kbyte.ru
будет праздник. Для kbyte.ru у меня запланирован отдельный план
мероприятий.

б) Без особого флуда - на sql.ru, исходники.ru, vbstreets и пр. Конкуренция очень большая.

за флуд и тут и на vbnet.su можно в баню попасть.
Конкуренция нормальная, большой её назвать нельзя.

в) На очень сложные вопросы - исходники.ru.

да, это пожалуй проблема, ибо я редко отвечаю на сложные вопросы,
поскольку времени в пустую тратится много, и даже "спасибо" не всегда говорят :(

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

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


Ответ # 3 | Автор: andreymp
Добавлено:19.12.2008 / 11:25
за флуд и тут и на vbnet.su можно в баню попасть.
И это правильно.
и даже "спасибо" не всегда говорят
Это точно. Бывает даже нахомят непоняв ответа. :(

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


Передача параметров из C# | Автор: obir
Добавлено: 17.12.2008 / 00:22 | ответов: 1 | просмотров: 56

Добрый день. Каким образом можно передать серверу в php файл параметры из C#?
Например мне нужно нв файл delete.php на сервере передать строку ?a=1&b=2&c=3
для дальнейшей обработки. Мне использовать tcpClient или всё таки классы httpWebRequest и Response
и как это как можно легче сделать?
Заранее благодарствую.

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


Ответ # 1 | Автор: obir
Добавлено:17.12.2008 / 02:02
Прошу прощения. Нечаянно создал топик в другой теме.

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


ComboBox - поле со списком | Автор: chanchikela
Добавлено: 12.12.2008 / 20:41 | ответов: 3 | просмотров: 145

В VB 6.0 сделал ComboBox, именем LLL соответственно присвоил значения списку

With LLL
.AddItem "Иван"
.AddItem "Борис"
.AddItem "Петя"
.AddItem "Саша"
.AddItem "Дима"
.AddItem "Толик"
End With

В свойстве Style выбрал 2-Dropdown List. Не могу сделать следующее

1. Хочу что при нажатии первой буквы оно сам прокручивался на соответствующий значение, как в Access – е при работе с поле со списком
2. чтоб кроме указанного значении мог добавлять другие значения, тоже как в Access – е при работе с поле со списком
Заранее благодарю,

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


Ответ # 1 | Автор: DIS
Добавлено:13.12.2008 / 21:04
Что то вроде такого?

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:
Option Explicit
Option Compare Text


Private Sub Form_Load()
 With LLL
  .AddItem "Иван"
  .AddItem "Борис"
  .AddItem "Петя"
  .AddItem "Саша"
  .AddItem "Дима"
  .AddItem "Толик"
 End With
End Sub

Private Sub LLL_Change()
 Dim i&, l&
 
 l = Len(LLL.Text)
 If l = 0 Then Exit Sub
 For i = 0 To LLL.ListCount - 1
  If Len(LLL.List(i)) >= l Then
   If Left$(LLL.List(i), l) = LLL.Text Then
    LLL.ListIndex = i
    LLL.SelStart = l
    LLL.SelLength = Len(LLL.Text) - l
    Exit For
   End If
  End If
 Next
End Sub

Private Sub LLL_KeyPress(KeyAscii As Integer)
 Select Case KeyAscii
 Case 8
  If LLL.SelStart > 0 And LLL.SelLength > 0 Then
   KeyAscii = 0
   LLL.Text = Left(LLL.Text, LLL.SelStart - 1)
  End If
 Case 13
  LLL.AddItem LLL.Text
 End Select
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

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


Ответ # 2 | Автор: chanchikela
Добавлено:13.12.2008 / 21:13
Отлично, Спасибо огромное, все работает но как сделать чтоб при поиске не учитывал верхний и нижний регистр, т.э при в воде Д оно отображает текст Дима а при д – нет

Заранее благодарю,

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


Ответ # 3 | Автор: chanchikela
Добавлено:13.12.2008 / 21:53
Извини дружок, Все работает!
Сам виноват :-( , пропустил самую главную :-)

Option Compare Text

Спасибо огромное!!! :-)

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


курсы ASP.NET | Автор: sasha12
Добавлено: 11.12.2008 / 15:33 | ответов: 1 | просмотров: 112

подскажите курсы по ASP.NET в киеве а еще лучше дайти ссылки

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


Ответ # 1 | Автор: Zozo
Добавлено:15.12.2008 / 10:52
CyberBionic Systematics. cbsystematics.com
хотя этих курсов куча сейчас... смотря какой язык интересует... в CBS - чисто по C# идут...

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


Наверх

 

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

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

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

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

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

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

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

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

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

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

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

 

Статьи на Kbyte.Ru

Наверх

 

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

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

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

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

Как получить параметры командной строки?
Дата добавления: 04.08.2006 / 09:20 | просмотров: 3025 | платформа: VB

Как узнать IP-адрес посетителя?
Дата добавления: 01.09.2006 / 12:20 | просмотров: 3022 | платформа: ASP

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

Как сделать, чтобы при «редиректе» сервер выдал 301 код статуса, а не 302?
Дата добавления: 31.07.2006 / 13:50 | просмотров: 2104 | платформа: ASP .NET (VB)

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

Как поменять стиль у всех контролов на форме (Form)?
Дата добавления: 24.03.2007 / 11:59 | просмотров: 1753 | платформа: VB .NET

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

 

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

Наверх

 

Юмор на Kbyte.Ru

Разработали новый процессор на женской логике, обрабатывающий четыре логических значения: "Ни да, ни нет", "И да, и нет", "Три раза нет!" и "Нет, и не проси!!!"

 

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

 

Играет симфонический оркестр. Дирижер делает последний взмах, все замолкают, только мужик на контрабасе - бум, бум, бум, бум:
Через минуту тоже закончил, лоб вытирает:
- Фу-у-х! Еле догнал!

 

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

 

Московский милиционер занимает первое место в рейтинге как "самый продаваемый и покупаемый товар года".

 

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

 

Драйверы вашего сиди-ром привода находятся на прилагемом компакт диске ...

 

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

 

Урок русского языка. Учительница спрашивает детей привести пример на окончание -тся. Отвечает Маша: "Мама стирается."
Учитель: "Садись. Пять."
Отвечает Петя:" Файл копируется."
Учитель:"Садись. Пять. Ну а Вовочка твой пример?"
Вовочка:"Корова залезла на дерево."
Учитель:"Ну и что?"
Вовочка:"Сейчас на@бн%тся!"

 

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

 

Почему компьютер лучше мужчины?
1. После нажатия кнопочки "RESET" ваш компьютер свеж и бодр и готов начать все с начала.
2. Компьютер не стряхивает пепел на пол, не разбрасывает окурки и полупустые чашки из-под кофе на всем доступном ему пространстве.
3. Ваш компьютер всегда с радостью сыграет с вами в преферанс и для этого вам не нужен кто-либо третий.
4. Семейные ссоры только внешне выглядят кровопролитными - да здравствует виртуальная реальность DOOM!
5. Электроэнергия для компьютера гораздо дешевле, чем пиво для мужчины. 6. Компьютер - интереснейший собеседник (в особенности, если он соединен с Интернетом).
7. Компьютер - отличный отец и няня, способный развлекать часами любого ребенка в возрасте от 3 до 99 лет.

 

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

 

- А правда, что Билл Гейтс - самый известный человек не Земле?
- Нет, самый знаменитый человек - его мать, её вспоминают чаще.

 

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

 

Рабинович узнал о возвращении Гагарина на Землю:
- Вылететь из Советского Союза, облететь вокруг земли - и все это для того, чтобы снова вернуться!

 

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

 

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

 

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

 

Винды не глючат? Вероятно, вирус!

 

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

 

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

Наверх


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

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

Copyright (c) Nemiro AS, 2005-2007


В избранное