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

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



Выпуск # 380


http://www.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 | просмотров: 215

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

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


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

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


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

сабж.

_________________
Это сообщение добавлено через 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 | просмотров: 409

Здравствуйте.В колледже изучаем 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 | ответов: 1 | просмотров: 202

добрый день, у меня такая вот ситуация. есть 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


Ответ # 1 | Автор: Dragon-zla
Добавлено:05.10.2008 / 15:38
А Worksheets.Activate пробовали?

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


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

Здравствуйте! Для печати некоторого графика нарисованного в 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 | просмотров: 1223

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

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

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

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

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

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

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

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

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

 

Статьи на Kbyte.Ru

Наверх

 

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

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

Как узнать свой IP-адрес?
Дата добавления: 31.07.2006 / 12:53 | просмотров: 4329 | платформа: VB

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

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

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

Как показать первую копию программы, если запускается вторая?
Дата добавления: 04.08.2006 / 09:06 | просмотров: 1845 | платформа: VB

Как ограничить передвижение мыши?
Дата добавления: 16.08.2006 / 19:46 | просмотров: 1702 | платформа: VB

Как получить случайное число?
Дата добавления: 16.08.2006 / 19:52 | просмотров: 1549 | платформа: VB

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

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

 

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

Наверх

 

Юмор на Kbyte.Ru

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

 

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

 

Ты мне сегодня во сне пpиснилась!
- В эpотическом?
- Hет, в обычном.
- А как ты их вообще pазличаешь?
- А у эpотических pасшиpение *.JPG

 

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

 

Ехали как-то на джипе четыре братка, вдруг в них врезается сзади старая шестерка. Братки злые выходят из машины и видят из шестерки выходит старый дед. Братки ему:
Ну все дед ты попал!!!
Дед: Не злитесь ребятки, у меня сын на птицефабрике работает, я ему позвоню, он все уладит.
Братки думают ладно раз на птицефабрике работает, значит деньги есть.
Дед позвонил, приезжают через десять минут СОБРовцы, всех братков на землю повалили.
Подходид СОБРовец к деду и говорит:
Батя, сколько раз повторять можно, не на птицефабрике, а в отряде ОРЕЛ!!!

 

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

 

- Как звать собаку Гейтса? - Собаку Гейтса звать Билл!

 

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

 

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

 

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

 

Директору пивзавода
от группы программистов
Заявление
Просим Вас предоставить выделенную линию со скоростью 0,5 л/сек.

 

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

 

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

 

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

 

У меня нет мании величия, я просто системный администратор.

 

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

 

Сидит хакер со своей девчонкой в комнате, хакер за компом, девчонка на кресле. Хакер что-то делает, а девочка хочет привлечь его внимание:
- А у нас вчера под окнами НЛО завис...
Хакер (не отрываясь от компа):
- Надо было UNIX ставить, под окнами все виснет.

 

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

 

Я уже не первый год являюсь (о: с божьей помощью :о) нештатным консультантом Ростовской Епархии по компьютерным вопросам. Добрейшей души человек, умница и незаурядный талант, служащая концелярии Л. П. с благоговейным трепетом относится к своему компьютеру и готова на него молиться. Пользоваться им я ее научил, и работает она уверенно, но панический страх перед техникой она преодолеть не может. По любому пустяку она звонит мне и я голосом, полным отчаяния и тревоги, жалуется на "катастрофические проблемы". Мне всегда отвечать приходится со слов: "Милейшая Л. П., давайте успокоимся и разберемся по порядку: что случилось, что Вы предприняли и что нужно сделать". Позвонив сегодня, как обычно Л. П. стала сокрушенно жаловаться. Сегодня замялась бумага в принтере и извлечь ее ей не удается.
- Hе удается? Я Вам уже рассказывал, как нужно поступать в таком случае. Что Вы предпринимали?
- Я подняла крыжку и на большее смелости у меня не хватило.
- Что потом?
- Я позвала отца Александра, но и он бумагу вынуть не смог.
- Сочувствую. Что потом?
- Я воздала молитву Hиколаю Угоднику.
- И это не помогло???!
- Увы, нет, да простит меня господь.
- Что же потом.
- Потом я решила побеспокоить Вас…

 

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

 

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

Наверх


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

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

Copyright (c) Nemiro AS, 2005-2007


В избранное