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

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



Выпуск # 433


http://www.kbyte.ru/

 

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

Дело было вечером, делать было нечего, и решил я выпустить рассылку с последними обновлениями сайта, строго не судите, но если есть что сказать, пишите, не молчите, буду рад ответить.

 

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

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

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

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

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

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

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

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

    PictureBox

    Проблемка при работе с регистром

    помогите с браузером

    Frame

    Помогите сделать канкулятор

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

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

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

Наверх

 

 

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

PictureBox | Автор: micron
Добавлено: 20.01.2009 / 13:00 | ответов: 0 | просмотров: 24

У меня такой вопрос, как в PictureBox вставить изображение?
Одно изображение вставить нет проблем, а как вставить из диалога выбора изображений каждый раз другое.Спасибо.

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


Проблемка при работе с регистром | Автор: V1RR
Добавлено: 18.01.2009 / 17:12 | ответов: 0 | просмотров: 36

Столкнулся с такой проблемой. Мне нужно чтобы программа создавала в регистре ключ.
Обычно это делается так: SaveString HKEY_LOCAL_MACHINE, "SOFTWARE\ergc","Value" , "0118", REG_SZ
В данном случае создается ключ Value и заполняется уже значением 0018 в данном случае.
В моем случае мне нужно чтобы в папке \ergc не создавался новый ключ а заполнялось значение (по умолчанию).
Как мне это сделать? Я предполагаю что как-то так: SaveString HKEY_LOCAL_MACHINE, "SOFTWARE\ergc", Default , "0118", REG_SZ но Default не работает (это я так просто проверил). Еслть ли какой-то параметр чтоб деволтный ключ изменять?

з.ы. сама программка работает (т.е. создает и заполняет ключ в реестре).

Для этого подключил модуль.bas с этим содержимым:
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:
Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long
Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (ByRef lpVersionInformation As OSVERSIONINFO) As Long
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal CX As Long, ByVal CY As Long, ByVal wFlags As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long

Public Sub SaveString(hKey As Long, strPath As String, strValue As String, strdata As String, dwType As Long)
Dim keyhand As Long
Dim r As Long
Select Case dwType
Case REG_SZ, REG_EXPAND_SZ, REG_MULTI_SZ, REG_NONE
r = RegCreateKey(hKey, strPath, keyhand)
r = RegSetValueEx(keyhand, strValue, 0, dwType, ByVal strdata, Len(strdata))
r = RegCloseKey(keyhand)
Case REG_DWORD, REG_DWORD_BIG_ENDIAN, REG_BINARY, REG_LINK
RegCreateKey hKey, strPath, keyhand
Dim dfs As Long
dfs = Val(strdata)
RegSetValueEx keyhand, strValue, 0&, dwType, dfs, 4
RegCloseKey keyhand

End Select
End Sub

Colorized by: Eros.CodeSyntaxColor Engine


Помогите кто знает.

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


помогите с браузером | Автор: maydep
Добавлено: 18.01.2009 / 04:04 | ответов: 1 | просмотров: 61

Доброго времени суток.
Помогите мне разобраться в таком деле.

есть форма, на неё я "прицепил" браузер (WebBrowser1)
загружаю страницу которая содержит след HTML код
<A onclick=..... name="s1" href="http://." target=_blank>...ссылка...</A>

мне нужно кликнуть по этой ссылке
я пишу WebBrowser1.Document.All("s1").Click
по ссылке то кликается НО, загружается Explorer и всё это загружаеться в нем!
я очень полохо понимаю (точнее совсем непонимаю) HTML, но я думаю что всё дело в здесь target=_blank
как мне это действие "приглушить"?
просто вырезать ссылку и коикнуть по ней тоже немогу, ... какаято фигня "делается" в onclick

кто что думает, .... возможно ли что бы эта ссылка открывалась не в новом окне а в WebBrowser1-е?

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


Ответ # 1 | Автор: Dest
Добавлено:20.01.2009 / 22:21
Да дело в target=_blank, удали его и всё нормально будет =)

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


Frame | Автор: DemonX
Добавлено: 11.01.2009 / 09:07 | ответов: 4 | просмотров: 171

Помогите разобраться уменя такая темя есть Frame на нём помещён Image, проблема в следующем я создал массив Frame(0) при нажатии на кнопку у меня создаётся 10 Frame, но Image появляется не в последующих Frame'ах а в первом Frame. Как сделать чтобы Image появился во всех 10 Frame.

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


Ответ # 1 | Автор: KLIM
Добавлено:13.01.2009 / 09:26
Тут проблемма в том, что Image это уже другой объект, он не является частью фрейма, он лишь только к нему привязан. Тебе придется создавать также еще и массив имейджей.

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


Ответ # 2 | Автор: DemonX
Добавлено:14.01.2009 / 15:31
он лишь только к нему привязан


Как привязать Image к создаваемому Frame?
Массив Image делал непомогло.

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


Ответ # 3 | Автор: KLIM
Добавлено:16.01.2009 / 10:31
Выложи свой код посмотреть. Ты создаешь фреймы для объекта Форм, а имейджи нужно создавать уже для объекта фрейм. Может в этом ошибка?

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


Ответ # 4 | Автор: DemonX
Добавлено:16.01.2009 / 16:49
а как создать image для фрэйма? я создаю имадж для формы

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


Помогите сделать канкулятор | Автор: R
Добавлено: 10.01.2009 / 10:57 | ответов: 5 | просмотров: 202

Помогите сделать канкулятор

Я вот попробывал сделать канкулятор но у меня после того как нажмешь какое нибудь число а потом нажмешь на плус или любое другое действие второе число входит с нолём в переди


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:
069:
070:
071:
072:
073:
074:
075:
076:
077:
078:
079:
080:
081:
082:
083:
084:
085:
086:
087:
088:
089:
090:
091:
092:
093:
094:
095:
096:
097:
098:
099:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
namespace Kankulator2
{
  public partial class Form1 : Form
  {
    public Form1()
    {
      InitializeComponent();
    }

    string pokazat = "0";
    private void Form1_Load(object sender, EventArgs e)
    {
      textBox1.Text = pokazat;
    }
    string cifri;
    private void button1_Click(object sender, EventArgs e)
    {
      cifri = "1";
      textBox1.Text = cifri;
    }

    private void button2_Click(object sender, EventArgs e)
    {
      cifri = "2";
      textBox1.Text = textBox1.Text + cifri;

    }

    private void button3_Click(object sender, EventArgs e)
    {
      cifri = "3";
      textBox1.Text = textBox1.Text + cifri;
    }

    private void button4_Click(object sender, EventArgs e)
    {
      cifri = "4";
      textBox1.Text = textBox1.Text + cifri;
    }

    private void button5_Click(object sender, EventArgs e)
    {
      cifri = "5";
      textBox1.Text = textBox1.Text + cifri;

    }

    private void button6_Click(object sender, EventArgs e)
    {
      cifri = "6";
      textBox1.Text = textBox1.Text + cifri;
    }

    private void button7_Click(object sender, EventArgs e)
    {
      cifri = "7";
      textBox1.Text = textBox1.Text + cifri;

    }

    private void button8_Click(object sender, EventArgs e)
    {
      cifri = "8";
      textBox1.Text = textBox1.Text + cifri;
    }

    private void button9_Click(object sender, EventArgs e)
    {
      cifri = "9";
      textBox1.Text = textBox1.Text + cifri;
    }

    private void button0_Click(object sender, EventArgs e)
    {
      cifri = "0";
      textBox1.Text = textBox1.Text + cifri;
    }

    private void obnolit_Click(object sender, EventArgs e)
    {
      textBox1.Text = pokazat;
      cifri = "0";
    }
    string hilerg;
    double cop=0;
    private void Tsantuhar(string deg, string tetuhshdeg)
    {
      cop = Convert.ToDouble(deg) + Convert.ToDouble(tetuhshdeg);
      

    }
    private void buttonplus_Click(object sender, EventArgs e)
    {
      hilerg = textBox1.Text;
      textBox1.Text = pokazat;
      //

    }

    private void buttonravno_Click(object sender, EventArgs e)
    {
      Tsantuhar(hilerg, textBox1.Text);
      textBox1.Text = cop.ToString();
    }

    private void buttonminus_Click(object sender, EventArgs e)
    {

    }

    private void buttonBS_Click(object sender, EventArgs e)
    {
      if (textBox1.Text.Length > 0)
      {
        textBox1.Text = textBox1.Text.Remove(textBox1.Text.Length - 1);
      }
    }

    
  }
}

Colorized by: Eros.CodeSyntaxColor Engine

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


Ответ # 1 | Автор: petr
Добавлено:10.01.2009 / 17:52
Добрый вечер . Вот код. Сначало разместите на форме TextBox1, TextBox2, TextBox3. Далее. Кнопку CommandButton1, CommandButton2, CommandButton3. Впервой кнопке напишите знак + , во вотрой знак - , В третьей знак * умножиь, в четвертой / разделить.Вот код.

Private Sub Command1_Click()
Text3 = Val(Text1) + Val(Text2)
End Sub

Private Sub Command2_Click()
Text3 = Val(Text1) - Val(Text2)
End Sub

Private Sub Command3_Click()
Text3 = Val(Text1) * Val(Text2)
End Sub

Private Sub Command4_Click()
Text3 = Val(Text1) / Val(Text2)
End Sub

Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command6_Click()
End
End Sub

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


Ответ # 2 | Автор: petr
Добавлено:10.01.2009 / 17:56
Кстате этот код пишеться на VB/6

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


Ответ # 3 | Автор: petr
Добавлено:10.01.2009 / 17:58
Кстате этот код пишеться на VB/6 Да и еще две кнопки Очистить , Закрыть

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


Ответ # 4 | Автор: petr
Добавлено:10.01.2009 / 18:05
Сам калькулятор

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


Ответ # 5 | Автор: R
Добавлено:10.01.2009 / 19:00
ётр спасибо но Я на Си шарп делаю и делаю в одной строке. тоесть полноценный канкулятор. со всеми кнопками итд. в целом как метод мне это подходит. у меня функции прибавить умножить, разделить работает проблема в том что после первого числа когда я нажимаю на какую нибудь функцию и ввожу второе число то второе число входит с нолём впереди.

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


Наверх

 

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

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

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

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

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

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

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

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

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

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

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

 

Статьи на Kbyte.Ru

Наверх

 

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

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

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

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

Как определить, загружена форма или нет?
Дата добавления: 31.07.2006 / 12:02 | просмотров: 1842 | платформа: VB

Как заблокировать кнопку "Закрыть" ([X])
Дата добавления: 31.07.2006 / 12:12 | просмотров: 1994 | платформа: VB

Как удалить картинку с элемента (Form, PictureBox, Image etc.)?
Дата добавления: 16.08.2006 / 20:02 | просмотров: 1856 | платформа: VB

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

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

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

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

 

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

Наверх

 

Юмор на Kbyte.Ru

Удалить папку вместе с ее содержимым?

 

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

 

- Чем отличается программист от политика?
- Программисту платят деньги за работающие программы

 

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

 

Проводил я как-то курсы для учителей информатики. Народ собрался уже поднатасканный и юзающий классы УКНЦ. Для тех кто не знает такого зверя, поясню - машинка семейства ДВК-2,3 только по немного круче. И на второй или третий день сдох монитор у одной из машин. Менять было лениво и я подключил монитор от соседней сдохшей машины, оставив все на своих местах. Первый день сам глючил по черному и веселил народ тем, что набирал команды на нерабочей клаве и не врубался почему их не видно на экране. Но самый прикол случился на следующий день. Показываю народу одну программку. Один из учителей постоянно отвлекается, но услышав, что прога защищены от случайного сброса, проявляет активный интерес. Просит разрешить проверить самому. Я не возражаю. Тогда он на нерабочей клаве жмет пимпочку "Стоп". Прога работает. И хотя и у нее действительно была защита от нажатия на эту клавишу, мне становится весело.
- Это еще что - говорю я
И продолжаю:
- У нее есть защита и от reset-а
Мужик недоверчиво улыбается. А я предлагаю ему проверить. Он делает reset опять же на нерабочей машине и улыбка у него сменяется недоуменеем. Он знает, что это в принципе не возможно, но ведь, как ему кажется, видел своими глазами. Народ начинает угорать. А я продолжаю веселиться вовсю и заявляю мужику, что прога защищена даже от выключения питания. Он отвечает, что уж этого то точно не возможно и щелкает все на той же тачке сетевым тумблером. Его лицо становится тупее всего троллейбусного парка, он видит на экране работающую программу. Народ от хохота чуть не попадал со стульев на пол. И только тут до этого товарища дошло, что попросту разыграли. Человек оказался с чувством юмора и сам не раз вспоминал до конца курсов об этом приколе со смехом.

 

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

 

Стоят три вампира. Один говорит:
- Вон видите то дерево? За ним деревня. Сейчас я там всех убью.
Возвращается, все пятки в крови.
Второй вампир говорит:
- Вон видите то дерево? Сейчас там всех убью!
Возвращается, по пояс в крови.
Третий говорит:
- Сейчас что будет!!!
Возвращается, весь в крови.
Его спрашивают:
- Как ты это сделал?
Он им отвечает:
- Вон видите то дерево? А Я ЕГО НЕ УВИДЕЛ!!!

 

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

 

Сразу хочу пояснить - то, что я кратко хочу рассказать - не боян, или как там еще называют плагиат или какие-нибудь хреновые выдумки, а рассказано мне непосредственым участником событий.
Ну так вот. Кто не знает - в Москве появилась новая площадь - имени Шарля де Голля. А почему она так названа? Правильно. Потому что напротив гостиницы "Космос" поставили памятник этому самому Шарлю де Голлю, и открывали этот памятник не кто-нибудь, а Наш и Их президенты.
А перед самым открытием, примерно за неделю, приехал посмотреть на это чудо сам Лужков. А сопровождал его автор чуда. Правильно. Церетели. Посмотрел Лужков на этот памятник и указал Церетели на то, что козырек кепки длинноват, понимаешь. Ну не может, видишь ли, козырек быть длиннее самой кепки! Не вопрос!!! Далее - действие от очевидца. Примерно в час ночи подъезжает подъемник, еще какие-то машины, накинули на голову памятнику огромный куполообразный чехол - и тихо, по-видимому, газосваркой, обрезали козырек кепки! только потом, наверное, отшлифовали - пошумели чем-то минут 40.
А наутро никто и не заметил перемены в памятнике. Наверно, потому, что смотреть на творения Церетели невозможно, так никто и не смотрит.

 

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

 

Пpиходит обалденная блондинка к сексопатологy:
- Доктоp, со мною что-то не в поpядке!
- По-моемy, y вас все отлично.
- Тогда почемy мой мyж входит в меня в пять pаз pеже, чем в Интернет?

 

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

 

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

 

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

 

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

 

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

 

Соседская бабулька отмочила очередную кору.
Она обошла все хозяйственные магазины в районе и наезжала на продавцов с таким вопросом (цитирую дословно):
- "Мне нужны ИМПОРТНЫЕ ДЫРОЧКИ, В КОТОРЫЕ БОЛЬШИЕ ВЛЕЗАЮТ!"
- ??!!!!
Угадайте, что она имела в виду ? .... Вот и продавцы не угадали. Ей приносили все - от парафиновых свечек до дивидюков с крутой порнухой - но бабулька только топала ножками и орала исчо сильнее, типа "Идиоты, ни хрена не понимаете!!!"
Только дома, под перекрестным допросом выяснилось, ЧТО она подразумевала под столь странной фразой. Это оказалась (тут я упал пацтул) ЕВРОРОЗЕТКА (обычная, комнатная, на 220 вольт).
У нее от чайника вилка в обычную советскую розетку ессно не влезала. Но какова формулировка ! :-)))))))

 

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

 

Встречаются два программиста:
- Я вчера девушку встретил, у нее такие Properties!
- Ерунда… Я вчера к ней подкатывал - она Read Only…

 

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

 

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

Наверх


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

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

Copyright (c) Nemiro AS, 2005-2007


В избранное