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

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



Выпуск # 417


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

Вот мне надо сделать, сортировку методом пузырька в 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


Ответ # 2 | Автор: #Nii
Добавлено:20.12.2008 / 00:16
А потом начать подпрограмму "Пузырька" ?
с кода

Sub Sort(Mus() As Long) ?

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


Ответ # 3 | Автор: andreymp
Добавлено:20.12.2008 / 12:51
Нет. Она уже выполнится. Это вся программа целиком. Ставишь на форму кнопку и копипастишь этот текст. Просто нажми кнопку и посмотри в папке с программой файл out.txt.

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


Ответ # 4 | Автор: #Nii
Добавлено:20.12.2008 / 20:49
А как сделать, чтоб я мог другой кнопкой выбрать входной файл, чтоб данные из этого файла загрузились в программу?

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


Ответ # 5 | Автор: #Nii
Добавлено:20.12.2008 / 23:20
А как еще загрузить данные в окно (text или label) чтоб значения показывались сначала в окне, потом нажимаешь полученные данные переходят в другое окно, а потом нажав кнопку сохранить все в файл?

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


Ответ # 6 | Автор: #Nii
Добавлено:20.12.2008 / 23:55
Почему-то он у меня не запускается, поставил кнопку на форму. Пишет ошибку

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


Ответ # 7 | Автор: #Nii
Добавлено:21.12.2008 / 14:23
Все подключил в референсах Microsoft Scripting Runtime все идет теперь. Только вот терь надо чтоб выводилось в Textbox значение из in.txt а во второй textbox уже значения после сортировки. Как это сделать?

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


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

Открылся новый проект, посвященный программированию на 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 | просмотров: 72

Добрый день. Каким образом можно передать серверу в 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 | просмотров: 159

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

подскажите курсы по 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 | просмотров: 1776

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

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

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

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

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

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

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

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

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

 

Статьи на Kbyte.Ru

Наверх

 

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

Как сделать полупрозрачную форму?
Дата добавления: 01.08.2006 / 17:25 | просмотров: 2523 | платформа: VB .NET

Как программно вызвать окно свойств (Properties) файла?
Дата добавления: 31.07.2006 / 12:42 | просмотров: 2138 | платформа: VB

Изменение регистра текста
Дата добавления: 31.07.2006 / 12:30 | просмотров: 1869 | платформа: VB

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

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

Проверить корректность E-Mail (стандартный способ)
Дата добавления: 21.08.2006 / 20:23 | просмотров: 2308 | платформа: ASP .NET (VB)

Как прочитать текстовой файл?
Дата добавления: 01.08.2006 / 11:24 | просмотров: 2366 | платформа: ASP

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

Как узнать, в какой папке находится приложение?
Дата добавления: 01.08.2006 / 20:29 | просмотров: 2052 | платформа: VB

Проверить существование каталога (папки)
Дата добавления: 31.07.2006 / 17:37 | просмотров: 2120 | платформа: ASP .NET (VB)

 

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

Наверх

 

Юмор на Kbyte.Ru

Приходит служащая и жалуется: компьютер зависает при включении. Прихожу и вижу: она включает комп, набирает пароль и ждёт. Грустными такими глазами смотрит на комп, а комп такими же грустными на неё. Я говорю: "А ENTER Пушкин будет нажимать?"

 

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

 

Что такое новый чукча? Это:
1) Малиновый халат
2) Трёхэтажная яранга
3) 600-й олень с откидными рогами

 

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

 

Купил как то я (сам в Казани живу) мобилу - Siemens SL 42. Одним из первых купил. Ну, ясный перец, понес ее в школу - попонтоваться, туда-сюда. Был в школе трудный день, и я решил записаться на обед, чего обычно не делаю. Ну, значит, записался - сижу ем. И тут звонок. Я откладываю хлеб из левой руки, беру в нее телефон, говорю, а поговорив, забыл что держу телефон, а не хлеб, и смачно откусываю кусок побольше, результат - телефон пришлось выкинуть, (раздроблен экранчик, и откусана антенна). Вот чего стоил мне этот школьный обед.

 

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

 

На правах рекламы:
- Саша никогда не стирает свои вещи даже обычным порошком, потому что Сашины вещи теперь стирает Паша!
Осенний призыв: в любом месте веселее вместе!

 

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

 

Америка, конец 1999 года, сотрудники компании Microsoft сидят в самолете. Полетели куда-то...
Стюардесса:
- ...и в качестве приятной новости хочу сообщить вам, что бортовые компьютеры нашего лайнера управляются операционной системой Windows-2000! Командир и экипаж желают вам приятного полета!
Через секунду - в дверях пробки - все лезут через головы, чтобы побыстрее выбраться!
А один - самый умный - сидит. Стюардесса:
- А вы почему не торопитесь?
- А он у вас и не взлетит!

 

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

 

Сидят два хакера за компьютером. Вдруг заходит кот. Один говорит:
- Твой кот?
- Да.
- Как зовут?
- Zyxel.
- А почему так?
- Смотри.
Берёт веник, подходит к коту и говорит:
- Zyxel Конект!
Кот:
- Пшшшшшшшшшш

 

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

 

Возвращается поздно ночью дедушка домой, а от него пахнет табаком, водкой и бабушками.

 

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

 

- У меня чёрный пояс по карате!
- А у меня жёлтая резинка от трусов по плаванию!

 

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

 

Кликуха - это не то, что вы подумали, а компьютеpная мышь!

 

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

 

Учительница вносит в класс компьютер. Ставит на стол. Спрашивает у учеников:
- Дети, сколько на столе компьютеров?
- Оди-ин.
С трудом учительница вносит в класс второй компьютер.
- Дети, сколько на столе компьютеров?
- Два-а.
Выбиваясь из сил учительница втаскивает в класс третий компьютер.
- Дети, ну а теперь сколько на столе компьютеров?
- Три-и.
Вытирая пот со лба, учительница шепчет:
- А все ж, с яблоками было как-то легче!

 

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

 

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

Наверх


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

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

Copyright (c) Nemiro AS, 2005-2007


В избранное