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

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



Выпуск # 401


http://www.kbyte.ru/

 

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

Ну что я могу сказать, погода не летная, но на выпуск рассылки это никак не повлияло. Читайте! Если будут вопросы, пишите нам на E-Mail или воспользуйтесь общедоступным форумом (регистрация не требуется).

 

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

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

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

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

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

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

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

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

    Пожалуйста помогите студентке плиииииз

    Подскажите как просуммировать содержимое текстового поля?

    Как сохранить данные из DataGrid'а в Excel?

    Параллельность обработки

    Работа с MySQL в Visual Basic

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

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

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

Наверх

 

 

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

Пожалуйста помогите студентке плиииииз | Автор: КлубНичкА
Добавлено: 13.11.2008 / 16:04 | ответов: 6 | просмотров: 200

Здравствуйте!!!помогите пожалуйста студентке плиииииз.Дана кнопка CommandButton1 и список ListBox1. В ListBox1 внесены в качестве текста все стандартные названия ЭУ.нужно написать код создающий ЭУ,выбранный в списке ListBox1 при нажатии на кнопку CommandButton1.Кто чем может ПОМОГИТЕ)))

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


Ответ # 1 | Автор: КлубНичкА
Добавлено:13.11.2008 / 16:10
упс забыла сказать что всё должно быть создано в USERFORM!!!

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


Ответ # 2 | Автор: Алексей
Добавлено:14.11.2008 / 04:30
Т.е. в ListBox уже внесены Электронные Уши? Или список Энциклопедий Украины должен заполняться автоматически, например, из текстового файла? И что значит, при нажатии на кнопку, должен создаваться Энергетический Убурашка? На что вообще похож Электронный Учебник? Вы хотите, чтобы при выборе в списке открывался файл с Эксбционистами Уреки?
Это Уравнение слишком сложное для нас, боюсь у нас не будет достаточного количества Эмоциональных Условий, для решения этой Экзотической Утки.

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


Ответ # 3 | Автор: КлубНичкА
Добавлено:14.11.2008 / 12:54
ЭУ это Элементы Управления.

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


Ответ # 4 | Автор: Алексей
Добавлено:14.11.2008 / 13:46
ЭУ это Элементы Управления.

:)

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
Option Explicit

Private Sub Command1_Click()
 If Len(List1.Text) <= 0 Then Return
 Form1.Controls.Add "VB." & List1.Text, "UserControl" & Form1.Controls.Count
 Form1.Controls(Form1.Controls.Count - 1).Width = 1000
 Form1.Controls(Form1.Controls.Count - 1).Height = 1000
 Form1.Controls(Form1.Controls.Count - 1).Visible = True
End Sub

Private Sub Form_Load()
 List1.AddItem ("TextBox")
 List1.AddItem ("CommandButton")
 List1.AddItem ("ListBox")
 List1.AddItem ("PictureBox")
 'etc
End Sub

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

Это в общих чертах.

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

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


Ответ # 5 | Автор: КлубНичкА
Добавлено:15.11.2008 / 14:18
Почему на этом месте выдаётся ошибка: недопустимая строка с указанием класса :-((((((((((((((
Form1.Controls.Add "VB." & List1.Text, "UserControl" & Form1.Controls.Count
А ещё вот наш преподаватель толком не объяснил конечно что делать но сказал что то должно получиться по этому примеру...:
Dim str1 As Control
Set str1 = UserForm.Controls.Add("Forms.&List1.value&."1")
типа нужно объявить переменную...но этот код не работает...может вы его как нибудь подкорректируете?

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


Ответ # 6 | Автор: Алексей
Добавлено:15.11.2008 / 16:03
В Visual Basic 6.0 невозможно создать полноценный объект из ничего.
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:
'создайте форму Form1 и разместите на ней ListBox и CommandButton, вставьте этот код
'создайте пустую форму - Form2
'запустите проект, выберите в списке название элемента управления и нажмите кнопку
Private Sub Command1_Click()
 If List1.Text = "" Then Return
 Dim f As Form2
 Set f = Form2
 
 If f.Visible Then Unload f
 
 f.Width = 4800
 f.Height = 4680
 f.Controls.Add "VB." & List1.Text, "Control" & f.Controls.Count
 f.Controls(f.Controls.Count - 1).Left = 512
 f.Controls(f.Controls.Count - 1).Top = 512
 f.Controls(f.Controls.Count - 1).Width = f.ScaleWidth - 1024
 f.Controls(f.Controls.Count - 1).Height = f.ScaleHeight - 1024
 f.Controls(f.Controls.Count - 1).Visible = True

 f.Show
End Sub

Private Sub Form_Load()
List1.AddItem ("TextBox")
List1.AddItem ("CommandButton")
List1.AddItem ("PictureBox")
List1.AddItem ("Label")
List1.AddItem ("Frame")
List1.AddItem ("CheckBox")
List1.AddItem ("OptionButton")
'List1.AddItem ("ComboBox")
List1.AddItem ("ListBox")
List1.AddItem ("HScrollBar")
List1.AddItem ("VScrollBar")
'List1.AddItem ("DriveListBox")
List1.AddItem ("DirListBox")
List1.AddItem ("FileListBox")
List1.AddItem ("Shape")
'List1.AddItem ("Line")
List1.AddItem ("Image")
End Sub

_______________________
Colorized by: Eros.CodeSyntaxColor Engine


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

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


Подскажите как просуммировать содержимое текстового поля? | Автор: TillLinderman
Добавлено: 12.11.2008 / 17:57 | ответов: 8 | просмотров: 242

В Visual Basic 6.0 создан элемент richtextbox который заполняется разными числами. Числа целые неотрицаиельные. Количество знаков в числах разное. И есть пустое текстовое поле. Как можно тупо просуммировать все числа между собой и результат отобразить в пустом текстовом поле?
Спасибо за помощь!

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


Ответ # 1 | Автор: Алексей
Добавлено:13.11.2008 / 04:39
Примерно так:
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
Dim a As String()
a = Split(RichTextBox1.Text)
Dim i As Long
Dim Sum As Long
For i = 0 To Ubound(a) - 1
 Sum = Sum + a(i)
Next i

_______________________
Colorized by: Eros.CodeSyntaxColor Engine


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

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


Ответ # 2 | Автор: TillLinderman
Добавлено:13.11.2008 / 09:45
Уважаемый Алексей! Здравствуйте! Попробовал Ваш совет, однако возникли проблемы: на первую строку "Dim a As String()" программа ругается "expected: end of statement". Пытаюсь написать что-то типа dim a as array() однако программа этого не понимает. По моему компонент нужно какой-то добавить но вот хоть убейте не помню какой.

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


Ответ # 3 | Автор: Алексей
Добавлено:13.11.2008 / 09:51
Да, точно, нужно Dim a() As String, время делает свое дело, VB 6.0 постепенно забывается :)
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
Dim a() As String
a = Split(RichTextBox1.Text)
Dim i As Long
Dim Sum As Long
For i = 0 To UBound(a) - 1
If IsNumeric(a(i)) Then Sum = Sum + a(i)
Next i
MsgBox "Сумма: " & Sum

_______________________
Colorized by: Eros.CodeSyntaxColor Engine


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

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


Ответ # 4 | Автор: TillLinderman
Добавлено:13.11.2008 / 09:58
По поводу a() сработало. Прошу прощения за тупость в учебнике нашел то что скобки надо ставить! Однако результат = 0! То есть richtextbox набит числами в столбик например 10000 3889 33000. Но результат суммирования = 0. Опять я наверное где-то чего-то не догоняю?

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


Ответ # 5 | Автор: Алексей
Добавлено:13.11.2008 / 10:05
Но результат суммирования = 0. Опять я наверное где-то чего-то не догоняю?

хз, в меня работает.
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
Option Explicit

'разместить на форме кнопку (Command1) и RichTextBox1
Private Sub Command1_Click()
 Dim a() As String
 a = Split(RichTextBox1.Text)
 Dim i As Long
 Dim Sum As Long
 For i = 0 To UBound(a) - 1
  If IsNumeric(a(i)) Then Sum = Sum + a(i)
 Next i
 MsgBox "Сумма: " & Sum
End Sub

Private Sub Form_Load()
 RichTextBox1.Text = "10000 3889 33000"
 Command1.Caption = "Calculate!"
End Sub

_______________________
Colorized by: Eros.CodeSyntaxColor Engine


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

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


Ответ # 6 | Автор: TillLinderman
Добавлено:13.11.2008 / 10:16
Я понял в чем дело! Если убрать пробелы, и числа будут стоять в столбик то ничего не суммируется то есть сумма ноль, а если разместить их в строчку и с пробелами тогда все в порядке. Может попробовать задать многомерный массив? Или просто по другому задать тот массив который уже есть?

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


Ответ # 7 | Автор: Алексей
Добавлено:13.11.2008 / 10:18
если по строкам, то a = Split(RichTextBox1.Text, vbCrLf)

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

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


Ответ # 8 | Автор: TillLinderman
Добавлено:13.11.2008 / 10:47
Большое спасибо. Разобрался. Числа заносились у меня из файла. При переносе их в текстовое поле я с помощью регулярных выражений убирал лишние символы такие как тире буквы табуляцию. Поэтому я в паттерн для регулярных выражений просто подставил добавку пробелов в определенном месте каждой строки. Так что все оказалось проще. Еще раз большое спасибо!

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


Как сохранить данные из DataGrid'а в Excel? | Автор: Avalon
Добавлено: 11.11.2008 / 16:48 | ответов: 0 | просмотров: 84

Подскажите пожалуйста как сохранить в .xls-файл данные из DataGrid'а...

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


Параллельность обработки | Автор: graf_4
Добавлено: 11.11.2008 / 09:31 | ответов: 3 | просмотров: 169

Как сделать так, чтобы при загрузке (в моем случае БД) отображался некий анимационный процесс???
Конкретно: есть очень большая БД, и при SQL запросе затрачивается очень большое время, хотелось бы на время подключения отображался простой циклический процесс в виде ProgressBar

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


Ответ # 1 | Автор: Алексей
Добавлено:11.11.2008 / 09:48
считывать данные циклом построчно, периодически вызывать DoEvents.
Например:
001:
002:
003:
004:
005:
006:
007:
For i = 0 To 10000000
If i Mod 1000 = 0 Then DoEvents
'или просто DoEvents (без If i Mod 1000 = 0 Then), но тогда скорость загрузки значительно снизится
Next

_______________________
Colorized by: Eros.CodeSyntaxColor Engine


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

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


Ответ # 2 | Автор: graf_4
Добавлено:11.11.2008 / 09:57
проблема в том, что построчно считывать не получается.
т.е. получается так:
1. Формирую SQL запрос к базе
2. Выполнение запроса (и в это время все виснет, до тех пор пока запрос не выполнится)

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


Ответ # 3 | Автор: Алексей
Добавлено:11.11.2008 / 10:10
Тогда:
1. Можно использовать более продвинутый язык, чем VB 6.0.
2. В VB можно использовать dll-ку написанную на более продвинутом языке.
3. Использовать цикл и считывать данные построчно.

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

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


Работа с MySQL в Visual Basic | Автор: Avalon
Добавлено: 10.11.2008 / 17:01 | ответов: 4 | просмотров: 210

Установлен Денвер 3. Через phpMyAdmin создана БД "db" с таблицей "avalon". Как подключится к этой БД и вывести содержимое таблицы "avalon" в DataGrid?

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


Ответ # 1 | Автор: Алексей
Добавлено:11.11.2008 / 09:48
Через ODBC, соответствующие драйвера есть на официальном сайте MySql.

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

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


Ответ # 2 | Автор: Avalon
Добавлено:11.11.2008 / 11:06
Ну я MySQL Connector/ODBC 5.1 установила, дальше что делать?

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


Ответ # 3 | Автор: Алексей
Добавлено:11.11.2008 / 11:23
Меню Project => Reference
найти и выбрать Microsoft DAO 3.6 Object Library
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim result As Long

    Set conn = New ADODB.Connection
    conn.CursorLocation = adUseClient
    conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
        & "SERVER=localhost;" _
        & "DATABASE=db;" _
        & "UID=login;" _
        & "PWD=password;" _
        '& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384

    conn.Open
    Set rs = New ADODB.Recordset
    rs.Open "SELECT * FROM avalon", conn, adOpenStatic, adLockReadOnly
    'далее, обычным способом работать с RecordSet
    'зы: главное не забыть запустить сам MySql :)

_______________________
Colorized by: Eros.CodeSyntaxColor Engine


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

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


Ответ # 4 | Автор: Avalon
Добавлено:11.11.2008 / 16:38
Спасибо

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


Наверх

 

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

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

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

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

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

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

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

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

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

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

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

 

Статьи на Kbyte.Ru

Наверх

 

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

Анализ даты стандарта RFC822
Дата добавления: 24.03.2007 / 10:58 | просмотров: 1954 | платформа: RegEx

Запись данных в файл
Дата добавления: 31.07.2006 / 17:20 | просмотров: 1844 | платформа: ASP .NET (VB)

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

Как программно вызвать окно Установка связи с Интернет?
Дата добавления: 17.08.2006 / 18:12 | просмотров: 2054 | платформа: VB

Как очистить корзину?
Дата добавления: 24.03.2007 / 11:35 | просмотров: 1735 | платформа: VB .NET

Любое число не равное нулю
Дата добавления: 24.03.2007 / 11:31 | просмотров: 1550 | платформа: RegEx

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

Как показать сообщение?
Дата добавления: 16.08.2006 / 23:31 | просмотров: 2177 | платформа: VB

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

Как проверить, посещал пользователь страницу или нет?
Дата добавления: 31.07.2006 / 16:40 | просмотров: 1705 | платформа: ASP .NET (VB)

 

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

Наверх

 

Юмор на Kbyte.Ru

Программист ошибается дважды: первый раз - при рождении, а второй раз - при выборе профессии.

 

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

 

Программер снял тёлку и приволок домой. Во время этого дела у гёрлы случился эпилептический припадок.
Она стала биться в конвульсиях, извиваться и стонать. Парниша получил, такой кайф, которого у него никогда не было. Ну слез он с неё, а она всё в припадке бьётся. Вызвал он скорую. Врач спрашивает, в чём дело?
- Да, кажись, у неё оргазм завис!

 

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

 

Смотрю в выходной новости по Первому в 21.00. Весь выпуск - одни катастрофы: идет опознание жертв родственниками, в Питере горит Троицкий собор, какой-то взрыв, какое-то убийство, теракт... От сюжета к сюжету становится все страшнее.
В конце выпуска диктор объявляет: "Вот и все новости дня, которые мы успели вам сообщить. А сейчас на нашем канале смотрите художественный фильм "Это могло случиться с тобой".

 

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

 

Чтобы в лесу узнать, где север, нужно посмотреть на дерево. Если это дерево - пальма, то юг уже здесь.

 

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

 

Она всю жизнь была верна только "Джонсону и Джонсону" - от первого памперса до последнего тампакса.

 

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

 

- А вот я себе Windоws98 поставил...
- Ты че, оху*л?!!
- Да нет, у жены месячные начались...

 

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

 

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

 

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

 

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

 

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

 

Чем русский отличается от цыгана? Цыган никогда не хает тех, у кого он коня своровал...

 

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

 

Вовочка стоит у открытого окна.
- Ты что плачешь, Вовочка?
- Шарик улетел!
- Я куплю тебе десять новых шариков!
- Нет, такой собаки, как Шарик, у меня больше не будет!

 

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

 

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

Наверх


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

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

Copyright (c) Nemiro AS, 2005-2007


В избранное