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

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



Выпуск # 377


http://www.kbyte.ru/

 

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

Здравствуйте дамы и господа!
Очередной выпуск рассылки Kbyte.Ru!

 

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

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

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

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

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

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

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

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

    Помогите решить проблему с ComboBox

    Какие IT-журналы вы читаете?

    Помогите найти ошибку

    открытие нескольких txt файлов в одном документе EXCEL

    Печать методом PrintForm

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

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

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

Наверх

 

 

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

Помогите решить проблему с ComboBox | Автор: povverster
Добавлено: 25.09.2008 / 12:28 | ответов: 1 | просмотров: 107

Привет всем!
Подскажите пожалуйста как в ComboBox (C#) отключить возможность самостоятельно вводить информацию.
Необходимо чтобы информация выбиралась из выпадающего списка.

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


Ответ # 1 | Автор: Edlin
Добавлено:26.09.2008 / 08:54
Установи свойство DropDownStyle в DropDownList.

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


Какие IT-журналы вы читаете? | Автор: Алексей
Добавлено: 24.09.2008 / 09:11 | ответов: 2 | просмотров: 126

сабж.

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

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


Ответ # 1 | Автор: Dragon-zla
Добавлено:25.09.2008 / 15:55
CHIP
ComputerBild
Радиолюбителю-конструктору:)

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


Ответ # 2 | Автор: User Unknown
Добавлено:25.09.2008 / 22:04
Computerra. Only.

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


Помогите найти ошибку | Автор: Dragon-zla
Добавлено: 22.09.2008 / 17:58 | ответов: 6 | просмотров: 269

Здравствуйте.В колледже изучаем VBA(Visual Basic for Applications).Научился программировать решения задач, следующим будет логика(истина/ложь) решил для самообразования написать макрос, который будет решать уравнения вида ax^2+bx+с или ax^2+с.Написал следующий код
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
Sub Kvadrat_urav()
  Dim x As Single
  Dim x2 As Single
  Dim a As Single
  Dim b As Single
  Dim c As Single
  Dim D As Single
    a = InputBox("Эта программа вычислит корни квадратного уравнения вида ax^2+bx+с или ax^2+c.Введите пожалуйста значение a")
    b = InputBox("Введите b, если вы хотите вычислить ax^2+с введите 0")
    c = InputBox("Введите c")
      If b = 0 Then [x=((-1*c)/a)^(1/2);x2=(-1*((-1*c)/a)^(1/2)) [Else(D=(b^2)-(4*a*c);x=(-1*b+D^(1/2))/(2*a);x2=(-1*b-D^(1/2))/(2*a)]] 'Проверяем равен ли b 0 если да, то решаем ax^2+с иначе ax^2+bx+c
    MsgBox ("x1=") & x & (" x2=") & x2
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

Решил проверить на уравнении 2x^2+5x+2=0 по идее должен выдать x1=-0.5 x2=-2 но выдает x1=0 x2=0.Где ошибка?

P.S. End If пробовал выдает ошибку компиляции

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


Ответ # 1 | Автор: Stuart
Добавлено:22.09.2008 / 20:50
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
Sub Kvadrat_urav()
 Dim x As Single
 Dim x2 As Single
 Dim a As Single
 Dim b As Single
 Dim c As Single
 Dim D As Single
  a = InputBox("Эта программа вычислит корни квадратного уравнения вида ax^2+bx+с или ax^2+c.Введите пожалуйста значение a")
  b = InputBox("Введите b, если вы хотите вычислить ax^2+с введите 0")
  c = InputBox("Введите c")
  
   If b = 0 Then
     x = ((-1 * c) / a) ^ (1 / 2)
     x2 = (-1 * ((-1 * c) / a) ^ (1 / 2))
   Else
     D = Round((b ^ 2) - (4 * a * c))
     x = (-1 * b + D ^ (1 / 2)) / (2 * a)
     x2 = (-1 * b - D ^ (1 / 2)) / (2 * a) 'Проверяем равен ли b 0 если да, то решаем ax^2+с иначе ax^2+bx+c
   End If
 
  MsgBox ("x1=") & x & (" x2=") & x2
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

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


Ответ # 2 | Автор: Dragon-zla
Добавлено:23.09.2008 / 17:48
Сделал как подсказали окна запроса вылезли, но вместо ответа выдал
Run-time error '5':
Invalid procedure call or argument

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


Ответ # 3 | Автор: Stuart
Добавлено:23.09.2008 / 20:50
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:
Sub Kvadrat_urav()
Dim a As Single
Dim b As Single
Dim c As Single
Dim D As Single
Dim st As Single
 a = InputBox("Эта программа вычислит корни квадратного уравнения вида ax^2+bx+с или ax^2+c.Введите пожалуйста значение a")
 b = InputBox("Введите b, если вы хотите вычислить ax^2+с введите 0")
 c = InputBox("Введите c")
 
  If b = 0 Then 'Проверяем равен ли b 0 если да, то решаем ax^2+с иначе ax^2+bx+c
   st = ((-1 * c) / a)
    If st < 0 Then
     x = -1 * (Abs(st) ^ (1 / 2))
     x2 = (-1 * (-1 * (Abs(st) ^ (1 / 2))))
    Else
     x = (st ^ (1 / 2))
     x2 = (-1 * ((-1 * c) / a) ^ (1 / 2))
    End If
  Else
   D = Round((b ^ 2) - (4 * a * c))
    If D < 0 Then
      st = -1 * (Abs(D) ^ (1 / 2))
    Else
      st = D ^ (1 / 2)
    End If
   x = (-1 * b + st) / (2 * a)
   x2 = (-1 * b - st) / (2 * a)
  End If
 
 MsgBox ("x1=") & x & (" x2=") & x2
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

ps: не проверял

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


Ответ # 4 | Автор: Dragon-zla
Добавлено:25.09.2008 / 19:26
Спасибо работает, как я понял st это временная переменная, служащая для упрощения кода

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


Ответ # 5 | Автор: Dragon-zla
Добавлено:28.09.2008 / 15:00
Вариант для школьной программы(то есть если не проходили ложную единицу и твердо уверены, что минус из-под корня не извлекается
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:
Sub Kvadrat_urav()
Dim a As Single
Dim b As Single
Dim c As Single
Dim D As Single
Dim st As Single
a = InputBox("Эта программа вычислит корни квадратного уравнения вида ax^2+bx+с или ax^2+c.Введите пожалуйста значение a")
b = InputBox("Введите b, если вы хотите вычислить ax^2+с введите 0")
c = InputBox("Введите c")

 If b = 0 Then 'Проверяем равен ли b 0 если да, то решаем ax^2+с иначе ax^2+bx+c
  st = ((-1 * c) / a)
  If st < 0 Then
   MsgBox ("Уравнение не имеет корней")
  Else
   x = (st ^ (1 / 2))
   x2 = (-1 * ((-1 * c) / a) ^ (1 / 2))
  End If
 Else
  D = Round((b ^ 2) - (4 * a * c))
  If D < 0 Then
   MsgBox ("Уравнение не имеет корней")
  Else
   st = D ^ (1 / 2)
  End If
  x = (-1 * b + st) / (2 * a)
  x2 = (-1 * b - st) / (2 * a)
 End If

MsgBox ("x1=") & x & (" x2=") & x2
End Sub

Colorized by: Eros.CodeSyntaxColor Engine


Правда бокс с ответом всё же выдает, но нетрудно подправить. В данный момент дорабатываю.

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


Ответ # 6 | Автор: Dragon-zla
Добавлено:30.09.2008 / 19:56
Как говорится релиз
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:
Sub Kvadrat_urav()
Dim a As Single
Dim b As Single
Dim c As Single
Dim D As Single
Dim st As Single
Dim log As Boolean
a = InputBox("Эта программа вычислит корни квадратного уравнения вида ax^2+bx+с или ax^2+c.Введите пожалуйста значение a")
b = InputBox("Введите b, если вы хотите вычислить ax^2+с введите 0")
c = InputBox("Введите c")

If b = 0 Then 'Проверяем равен ли b 0 если да, то решаем ax^2+с иначе ax^2+bx+c
 st = ((-1 * c) / a)
 If st < 0 Then
  log = True
 Else
  x = (st ^ (1 / 2))
  x2 = (-1 * ((-1 * c) / a) ^ (1 / 2))
 End If
Else
 D = Round((b ^ 2) - (4 * a * c))
 If D < 0 Then
  log = True
 Else
  st = D ^ (1 / 2)
 End If
 x = (-1 * b + st) / (2 * a)
 x2 = (-1 * b - st) / (2 * a)
End If
If log = False Then
  MsgBox ("x1=") & x & (" x2=") & x2
Else
  MsgBox ("Уравнение не имеет корней")
End If
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

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


открытие нескольких txt файлов в одном документе EXCEL | Автор: cASSAndra
Добавлено: 22.09.2008 / 11:26 | ответов: 0 | просмотров: 117

добрый день, у меня такая вот ситуация. есть n-ное количество текстовых файлов. мне надо все эти n файлов засунуть в один документ Excel на разные листы. как этот файл засовывать в excel построчно я нашла, но так слишком долго будет. можно это как-то побыстрее сделать?

если в цикле добавлять лист

001:
002:
003:
004:
005:
Excel.Workbooks(1).Sheets.Add
Excel.Workbooks(1).ActiveSheet.Name = fName(i)
Excel.Workbooks.Open(Path & fName(i))

Colorized by: Eros.CodeSyntaxColor Engine


он создает книгу с новыми листами и дает им нужные имена, но все файлы открывает не в этой же книге, а создает кучу новых, а Excel.Workbooks(1).Open(Path & fName(i)) не воспринимает ((( подскажите пожалуйста - чего такого написать надо, чтобы нормально заработало?

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


Печать методом PrintForm | Автор: SonaRMax
Добавлено: 15.09.2008 / 21:12 | ответов: 7 | просмотров: 381

Здравствуйте! Для печати некоторого графика нарисованного в picture box примеил метод PrintForm, и все бы хорошо но picture box имеет положение на форме отличное от 0. Посылая на печать данную форму по какой то причине picture box смещается в нулевую позицию на форме. При этом сам picture box физически остается на месте. В процедуре печати делал установку кординат picture box-а, эффекта 0. Подскажите как избавится от этого?

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


Ответ # 1 | Автор: DIS
Добавлено:16.09.2008 / 18:15
По моему лучше использовать Printer.PaintPicture

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


Ответ # 2 | Автор: SonaRMax
Добавлено:16.09.2008 / 20:35
А как это конкретно будет выглядеть? в смысле рабочего кода?

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


Ответ # 3 | Автор: DIS
Добавлено:16.09.2008 / 21:10
001:
002:
003:
004:
005:
006:
007:
008:
009:
Printer.PaperSize = vbPRPSA4 ' установка размера бумаги А4
 Printer.ScaleMode = vbPixels ' установка единиц шкалы - пиксели (по умолчанию твипы)
 ' здесь можно настроить дополнительные параметры принтера, такие как качество и режим печати, и т.п.
 Printer.PaintPicture Picture1.Image, 0, 0 ' размещение на листе картинки с Picture1 в верхнем правом углу
 ' дополнительные параметры метода PaintPicture: X1, Y1, Width1, Height1 - позиция и размеры картинки на листе,
 ' X2, Y2, Width2, Height2 - координаты и размер области на исходном рисунке, из которой будет вырезаться рисунок для печати
 Printer.EndDoc ' вывод на печать документа

Colorized by: Eros.CodeSyntaxColor Engine


Для отмены печати используется метод Printer.KillDoc. Также, можно выбрать используемый принтер из установленных в системе, например: Set Printer = Printers(1)

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


Ответ # 4 | Автор: SonaRMax
Добавлено:16.09.2008 / 21:19
Спасибо!!! то что нужно :). Осталость только лабельки поместить на принтер....

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


Ответ # 5 | Автор: SonaRMax
Добавлено:16.09.2008 / 21:26
жалко что данный метод не печатает содержимое pictureboxa. график получается без кординат :(

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


Ответ # 6 | Автор: DIS
Добавлено:17.09.2008 / 15:01
Насколько я понял значения координат делаются при помощи Label а линии - обьектами Line)))) Это не лучший вариант
Текстовку на picturebox можно нарисовать программно, тогда она тоже будет выводиться вместе с остальным. Например:
Picture1.CurrentX = 80
Picture1.CurrentY = 130
Picture1.Print "Какой-либо текст" ' Рисует на пикчербокс текст в позиции 80; 130
Ну а все линии проводятся операторами Line тут надеюсь и так все понятно

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


Ответ # 7 | Автор: SonaRMax
Добавлено:17.09.2008 / 21:56
Да я так и сделал :). Возможно и не лучший вариант решения задачи, но зато быстро .... :). Еще раз спасибо за подсказки!

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


Наверх

 

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

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

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

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

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

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

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

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

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

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

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

 

Статьи на Kbyte.Ru

Наверх

 

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

Как сделать, чтобы графика не стиралась?
Дата добавления: 24.03.2007 / 10:18 | просмотров: 1528 | платформа: VB .NET

Как сделать поле для ввода пароля?
Дата добавления: 01.08.2006 / 22:08 | просмотров: 1774 | платформа: VB .NET

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

Как загрузить изображение в PictureBox/Image?
Дата добавления: 16.08.2006 / 19:55 | просмотров: 2027 | платформа: VB

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

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

Как узнать, отправлялись данные форме или нет?
Дата добавления: 31.07.2006 / 14:23 | просмотров: 1828 | платформа: ASP .NET (VB)

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

Анализ чисел
Дата добавления: 24.03.2007 / 11:09 | просмотров: 1628 | платформа: RegEx

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

 

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

Наверх

 

Юмор на Kbyte.Ru

Пpогpаммисты любят домашних животных. Особеннyю пpивязанность y них вызывают мыши. О мышах заботятся, содеpжат их в домиках и отпyскают пастись только на ковpики. Хотя есть отдельные индивидyyмы, котоpые неpовно дышат к семействy кошачьих. Вот такой диалог пpоизошел междy двyмя пpогpаммистами (не бyдем показывать на них пальцем) на днях:

- Слышь, y тебя кошка есть?
- Есть.
- С собой?

 

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

 

Идет Илья Муромец по полю. Видит - Змей Горыныч сидит. Ну, тот подкрался к нему и срубил ему голову. У Змея Горыныча две
выросло. Срубил Илья ему две - четыре выросло! Срубил четыре - выросло восемь!!! И так далее... И вот когда Илья Муромец
срубил 65535 голов, Змей Горыныч помер...
Потому что был он 16-ти битным.

 

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

 

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

 

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

 

Однажды меня вот так достали рекламой (повадились мне на факс спам кидать - бумагу тратят гады, а на нужный факс по закону подлости всегда бумаги не хватит), позвонил в офис от кого пришел факс (три метра бумаги) - вежливо попросил исключить мой номер из их рассылок. Через час от них пришел еще один факс длинной в метр ( видимо уже в воспитательных целях).
Пришлось настроить винфакс и в 24-00 по местному времени послам им в офис текстовой файл весом в 600 кб (инструкцию по проверке трансформаторов на подтанциях и проведения на них регламентных работ). Файл шел до того момента пока у них бумага не кончилась. Утром позвонил
и спросил: "Вы наш факс получили?". Реакция была блеск :))))))

 

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

 

Учитель:
- Володя, скажи мне, куда мы попадем, если будем сверлить Землю на экваторе насквозь?
Вовочка:
- В сумасшедший дом!

 

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

 

Cантехник ковыряется в унитазе. Прочищает засор типа... Вдруг замечает, что за ним наблюдает мальчик.
- Что мальчик, неприятно? Это тебе, панимашшь, не в Интернете копаться...

 

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

 

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

 

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

 

В США борьба за равноправие привела к тому, что теперь женщины приравниваются к неграм, голубым и инвалидам.

 

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

 

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

 

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

 

- Скажите, пожалуйста, Рабинович живет в этом доме?
- Да, на третьем этаже. Только его фамилия Михельсон.

 

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

 

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

Наверх


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

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

Copyright (c) Nemiro AS, 2005-2007


В избранное