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

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



Выпуск # 400


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

Здравствуйте!!!помогите пожалуйста студентке плиииииз.Дана кнопка 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 | просмотров: 196

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

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

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


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

Как сделать так, чтобы при загрузке (в моем случае БД) отображался некий анимационный процесс???
Конкретно: есть очень большая БД, и при 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 | просмотров: 182

Установлен Денвер 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 | просмотров: 1529

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

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

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

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

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

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

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

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

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

 

Статьи на Kbyte.Ru

Наверх

 

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

Анализ IP-адреса
Дата добавления: 24.03.2007 / 10:56 | просмотров: 2077 | платформа: RegEx

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

Ключ = Значение
Дата добавления: 24.03.2007 / 11:07 | просмотров: 1763 | платформа: RegEx

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

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

Как узнать текущее разрешение экрана?
Дата добавления: 24.03.2007 / 12:25 | просмотров: 2682 | платформа: VB .NET

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

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

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

Как нарисовать что-либо на Form/PictureBox?
Дата добавления: 24.03.2007 / 10:15 | просмотров: 1869 | платформа: VB .NET

 

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

Наверх

 

Юмор на Kbyte.Ru

Идёт урок информатики в школе. Дети набивают программу. Прозвенел звонок.
Учитель подходит к главному рубильнику и выключает электричество. Дети возмущённо:
- Мы не сохранились!
Учитель включая рубильник:
- Сохраняйтесь...

 

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

 

Звонок в компьютерную контору:
- С моим компьютером проблемы, он не включается...
- Как не включается?
- Да пишет все время: "Вставьте дискету, вставьте дискету..."
- А вы вставляли?
- Hет... Как-то не догадался

 

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

 

Приходит хакер к пианисту, а тот ему хвалиться новым пианино. Хакер посмотрел оценивающее и сказал:
- Клавиатура, конечно хреновая, но то что shift ногами нажимать надо-это круто.

 

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

 

Бороться с пьянством, ограничивая доступ к водке - это то же самое, что бороться с поносом, ограничивая доступ к туалету.

 

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

 

Звонит клиент (К) в сервис-центр. Трубку снимает инженер (И).
К: - Здравствуйте, у меня проблема!!!
И: - Что случилось?
К: - У меня компьютер не включается!!! А мне работать очень срочно нужно! Прямо сейчас!
И: - Чем я могу помочь?
К: - Приезжайте ко мне и почините!
И: - Нет. Это Вы к нам приезжайте!
К: - Да? Ну тогда я заеду к Вам послезавтра...

 

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

 

Сидят два программиста в офисе. Вдруг звонок телефонный, на проводе шеф:
- Ну, ребята, чем занимаетесь?
- Козла забиваем!
- В домино играете?!
- Да нет, в DOOM!

 

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

 

Вовочка опоздал в школу, заходит без стука в дверь, не извинившись, садится на своё место.
Учительница в возмущении:
- Вовочка, как тебе не стыдно?! Ну-ка выйди и зайди, как заходит тdой папа...
Вовочка выходит из класса.
Вдруг дверь пинком открывается, Вовочка вразвалку заходит в класс и, осмотрев презрительно всех, ехидно спрашивает:
- Ну чё, придурки, не ждали?...

 

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

 

– Доктор, посоветуйте, что делать. Мой муж постоянно говорит во сне.
– Позволяйте ему говорить днем.

 

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

 

Пришел с выходного, говорят: "Интернет кончился" (денежка на счете кончилась). Чешу репу, середина месяца, дофига еще в субботу оставалось. Лезу в логи - всех прошерстил, у всех в рамках дозволенного. Последнего смотрю шефа.... За воскресение - месячный лимит. Печатаю, несу ему. Он выдает: "Странно, смотрел я, конечно, вчера пару-тройку фильмов, но ведь в ма-а-аленьком окошечке"...

 

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

 

Случилось это когда WOW (мир Варкрафта) появился. Зафанател по нему один паренёк из моего дома - месяц на улицу не вылазил. И как-то стоим мы с ребятами во дворе, курим-разговариваем, подходит к нам этот фанат.
Мы ему, мол, наигрался?
Фанат: "Неа, бабка диск С форматнула!"
Мы в шоке: "ЗАЧЕМ?"
Фанат: "Да она винду переставляет....."
Тут мы действительно были в шоке....

 

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

 

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

Наверх


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

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

Copyright (c) Nemiro AS, 2005-2007


В избранное