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

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



Выпуск # 570


http://www.kbyte.ru/

 

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

Здравствуйте дамы и господа!
Представляю очередной выпуск рассылки научно-информационного портала Kbyte.Ru. Надеюсь он Вам понравится. Если у Вас есть какие либо вопросы или предложения по рассылке, пишите нам – admin@kbyte.ru!

 

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

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

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

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

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

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

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

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

    Backspace

    Запись при появлении звука

    Авторизация на сервере

    Как из процедуры вернуть массив?

    Помогите решить задачу... Сортировка массива.

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

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

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

Наверх

 

 

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

Backspace | Автор: samael
Добавлено: 10.11.2009 / 11:45 | ответов: 1 | просмотров: 50

Добрый день!
На вид я подумал простая задача, но никак не могу найти простое решение.
Вот в чем дело.
Есть форма на которой расположены скажем два объекта
Label1 & Command1
Form1.load()
Label1.caption = “Hello world”
Command1.click()
Должен убирать по одной букве с правой стороны.

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


Ответ # 1 | Автор: Алексей
Добавлено:13.11.2009 / 00:00
Left, Right, Mid

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

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


Запись при появлении звука | Автор: RashadT
Добавлено: 08.11.2009 / 19:49 | ответов: 0 | просмотров: 40

Как сделать так, чтобы звукозапись включалась при появлении звука? И отключалась при отсутствии. Буду благодарен за любую подсказку.

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


Авторизация на сервере | Автор: Bady
Добавлено: 02.11.2009 / 17:52 | ответов: 1 | просмотров: 88

Начал изучать C# на примере авторизации на сервере work.com.ua
используя статью
http://kbyte.ru/Articles/ShowArticle.aspx?id=48&lang=ru

почему то ничего не получается, люди добрые помогите разобраться?

HttpWebRequest myHttpWebRequest = (HttpWebRequest)HttpWebRequest.Create("http://work.com.ua");
myHttpWebRequest.Proxy = new WebProxy("127.0.0.1", 8888);
myHttpWebRequest.UserAgent = "Mozila/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MyIE2;";
myHttpWebRequest.Accept = "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*";
myHttpWebRequest.Headers.Add("Accept-Language", "ru");
myHttpWebRequest.Headers.Add("Accept-Encoding", "gzip, deflate");
HttpWebResponse myHttpWebResponse = (HttpWebResponse)myHttpWebRequest.GetResponse();

///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

//получаем куки
string sCookies = "";
if (!String.IsNullOrEmpty(myHttpWebResponse.Headers["Set-Cookie"]))
{
sCookies = myHttpWebResponse.Headers["Set-Cookie"];
}

myHttpWebRequest = (HttpWebRequest)HttpWebRequest.Create("http://work.com.ua/jobseeker/login/");
myHttpWebRequest.Proxy = new WebProxy("127.0.0.1", 8888);
myHttpWebRequest.Accept = "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*";
myHttpWebRequest.Referer = "http://work.com.ua/";
myHttpWebRequest.Headers.Add("Accept-Language", "ru");
myHttpWebRequest.UserAgent = "Mozila/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MyIE2;";
myHttpWebRequest.Headers.Add("Accept-Encoding", "gzip, deflate");

// передаем куки, полученные в предыдущем запросе
if (!String.IsNullOrEmpty(sCookies))
{
myHttpWebRequest.Headers.Add(HttpRequestHeader.Cookie, sCookies);
}

// делаем запрос
myHttpWebResponse = (HttpWebResponse)myHttpWebRequest.GetResponse();

///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

// получам куки
sCookies = "";
if (!String.IsNullOrEmpty(myHttpWebResponse.Headers["Set-Cookie"]))
{
sCookies = myHttpWebResponse.Headers["Set-Cookie"];
}

//// формируем запрос
myHttpWebRequest = (HttpWebRequest)HttpWebRequest.Create("http://work.com.ua/jobseeker/login/");
myHttpWebRequest.Proxy = new WebProxy("127.0.0.1", 8888);
myHttpWebRequest.Method = "POST";
myHttpWebRequest.Accept = "image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*";
myHttpWebRequest.Referer = "http://work.com.ua/jobseeker/login/";
myHttpWebRequest.Headers.Add("Accept-Language", "ru");
myHttpWebRequest.UserAgent = "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 2.0.50727)";
myHttpWebRequest.ContentType = "application/x-www-form-urlencoded";
myHttpWebRequest.Headers.Add("Accept-Encoding", "gzip, deflate");
myHttpWebRequest.Headers.Add("Pragma", "no-cache");
if (!String.IsNullOrEmpty(sCookies))
{
myHttpWebRequest.Headers.Add(HttpRequestHeader.Cookie, sCookies);
}

string sQueryString = "login%5B1%5D="+ sLogin +"&login%5B2%5D=%DD%EB%E5%EA%F2%F0%EE%ED%ED%E0%FF+%EF%EE%F7%F2%E0&imgstatus=&password%5B1%5D="+ sPassw +"&password%5B2%5D=%CF%E0%F0%EE%EB%FC&remember=on";
byte[] ByteArr = System.Text.Encoding.GetEncoding(1251).GetBytes(sQueryString);
myHttpWebRequest.ContentLength = ByteArr.Length;

myHttpWebRequest.GetRequestStream().Write(ByteArr, 0, ByteArr.Length);

// ставим False, чтобы при получении кода 302 не делать автоматический редирект
myHttpWebRequest.AllowAutoRedirect = false;

myHttpWebResponse = (HttpWebResponse)myHttpWebRequest.GetResponse();

///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

string sLocation = myHttpWebResponse.Headers["Location"];

// получам куки
sCookies = "";
if (!String.IsNullOrEmpty(myHttpWebResponse.Headers["Set-Cookie"]))
{
sCookies = myHttpWebResponse.Headers["Set-Cookie"];
}

//// формируем запрос
myHttpWebRequest = (HttpWebRequest)HttpWebRequest.Create(sLocation);
myHttpWebRequest.Proxy = new WebProxy("127.0.0.1", 8888);
//myHttpWebRequest.Method = "POST";
myHttpWebRequest.Accept = "image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*";
myHttpWebRequest.Referer = "http://work.com.ua/jobseeker/login/";
myHttpWebRequest.Headers.Add("Accept-Language", "ru");
myHttpWebRequest.UserAgent = "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 2.0.50727)";
myHttpWebRequest.Headers.Add("Accept-Encoding", "gzip, deflate");
myHttpWebRequest.Headers.Add("Pragma", "no-cache");
if (!String.IsNullOrEmpty(sCookies))
{
myHttpWebRequest.Headers.Add(HttpRequestHeader.Cookie, sCookies);
}

myHttpWebResponse = (HttpWebResponse)myHttpWebRequest.GetResponse();


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


Ответ # 1 | Автор: Bady
Добавлено:02.11.2009 / 18:09
По фидлеру не удается получить такую же последовательность как дает IE...

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


Как из процедуры вернуть массив? | Автор: Dragon-zla
Добавлено: 01.11.2009 / 21:07 | ответов: 3 | просмотров: 127

Здравствуйте все. У меня возникла проблема при решении учебной программы с использованием процедур. Суть задания:

Определить столбец прямоугольной матрицы A с максимальной суммой элементов и, если его номер больше заданного, сформировать новую матрицу
B из столбцов исходной до найденного столбца, иначе скопировать в вектор Y элементы заданного столбца.

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

Сам код:
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:
program ecsAdd3_2;

{$APPTYPE CONSOLE}

uses
  SysUtils,crt32;
type
  Mass = array of array of real;
var
  FirstMas,FinMas : Mass;
  i,j,n,m,NumOfCol : integer;

procedure SolvOfEcs(Mas : Mass; MaxNum : integer ; FinMas : Mass);
var
  RowCount,ColCount,i1,j1,NumOfMax : integer;
  MaxSumOfAr,TMaxSumOfAr : real;
  begin
  RowCount := Length(Mas);//число строк


  if RowCount > 0 then          //
    ColCount := Length(Mas[0])  // Число столбцов - если есть хотя бы одна строка - берем её и смотрим её длину
  else                          //
    ColCount := 0;              //

  MaxSumOfAr := 0;
  NumOfMax := 1;
  for i1 := 0 to RowCount-1 do
    MaxSumOfAr := MaxSumOfAr + Mas[i1][0];


  for j1 := 1 to ColCount-1 do
    begin
    TMaxSumOfAr := 0;
    for i1 := 0 to RowCount-1 do
      TMaxSumOfAr := TMaxSumOfAr + Mas[i1][j1];
    if TMaxSumOfAr > MaxSumOfAr then
    begin
      MaxSumOfAr := TMaxSumOfAr;
      NumOfMax := j1+1;
    end;
    end;

  if NumOfMax > MaxNum then
  begin
  SetLength(FinMas,RowCount,NumOfMax);
  for i1 := 0 to RowCount-1 do
    for j1 := 0 to NumOfMax-1 do
      FinMas[i1][j1] := Mas[i1][j1];
  end
  else
  begin
  SetLength(FinMas,RowCount,1);
  for i1 := 0 to RowCount-1 do
    FinMas[i1][0] := Mas[i1][NumOfMax-1];
  end;
  end;

procedure PrintMas(FinMas : Mass);
var
  RowCount,ColCount,i1,j1 : integer;
begin
  RowCount := Length(FinMas);

  if RowCount > 0 then
    ColCount := Length(FinMas[0])
  else
    ColCount := 0;

    if ColCount > 1 then
    begin
    writeln(oem('Номер столбца прямоугольной матрицы больше заданного'));
    writeln(oem('поэтому выведем матрицу, конечный столбец которой равен столбцу с максимальной суммой элементов'));
    for i1 := 0 to RowCount-1 do
    begin
      for j1 := 0 to ColCount-1 do
      write(FinMas[i1][j1]:0:2,#32);
      writeln;
    end;
    end
    else
    begin
    writeln(oem('Номер столбца прямоугольной матрицы меньше заданного'));
    writeln(oem('поэтому выведем вектор Y'));
    for i1 := 0 to RowCount-1 do
    writeln(FinMas[i1][0]:0:2);
    end
end;

begin
  writeln(oem('Введите число строк матрицы'));
  readln(n);
  writeln(oem('Введите число столбцов матрицы'));
  readln(m);
  SetLength(FirstMas,n,m);
  SetLength(FinMas,1,1);
  writeln(oem('Введите элементы матрицы'));
  for i:=0 to n-1 do
  begin
    for j:=0 to m-1 do
      read(FirstMas[i][j]);
  end;
  writeln(oem('Введите любой номер столбца'));
  readln(NumOfCol);
  SolvOfEcs(FirstMas,NumOfCol,FinMas);
  PrintMas(FinMas);
  readkey;
end.

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


Ответ # 1 | Автор: Игорь Голов
Добавлено:02.11.2009 / 08:41
Проще функцию использовать. Они значения возвращают.

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


Ответ # 2 | Автор: Dragon-zla
Добавлено:02.11.2009 / 15:29
То есть

001:
procedure SolvOfEcs(Mas : Mass; MaxNum : integer ; FinMas : Mass);


заменить на
001:
function SolvOfEcs(Mas : Mass; MaxNum : integer) : Mass


?
Спасибо попробую

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


Ответ # 3 | Автор: Dragon-zla
Добавлено:02.11.2009 / 17:46
Большое спасибо - как изменил процедуру на функцию - сразу всё заработало.
Даже код не пришлось менять :)

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


Помогите решить задачу... Сортировка массива. | Автор: Леонид
Добавлено: 01.11.2009 / 02:50 | ответов: 1 | просмотров: 88

Помогите решить задачу... Дан массив из 24 ячеек заполненный разными числами, нужно отсрортировать и оставить только те которые не одинаковые - их исключить (что бы числа остались только отличные друг от друга).Спасибо...

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


Ответ # 1 | Автор: Жак Кусто
Добавлено:06.11.2009 / 15:18
А че тут такого сложного ты нашел?
Просто проверяй, отдельно взятое число, с последующеми кроме самого числа. И если найдешь похожее не регистрируй его на отдельном массиве куда ты заносишь ответ. вот и все )))

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


Наверх

 

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

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

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

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

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

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

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

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

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

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

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

 

Статьи на Kbyte.Ru

Наверх

 

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

Как получить имя пользователя? (с использованием API)
Дата добавления: 24.03.2007 / 12:19 | просмотров: 2315 | платформа: VB .NET

Получение данных из Базы Данных MS Access
Дата добавления: 31.07.2006 / 17:39 | просмотров: 4228 | платформа: ASP .NET (VB)

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

Как получить клиентский идентификатор элемента управления?
Дата добавления: 31.07.2006 / 15:59 | просмотров: 2733 | платформа: ASP .NET (VB)

Как преобразовать десятичное число в восьмиричное?
Дата добавления: 16.08.2006 / 20:36 | просмотров: 2943 | платформа: VB

Анализ E-Mail
Дата добавления: 24.03.2007 / 10:54 | просмотров: 2317 | платформа: RegEx

Поиск окна по заголовку
Дата добавления: 31.07.2006 / 12:52 | просмотров: 3312 | платформа: VB

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

Подсчет количества определенных символов в тексте
Дата добавления: 31.07.2006 / 12:30 | просмотров: 3205 | платформа: VB

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

 

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

Наверх

 

Юмор на Kbyte.Ru

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

 

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

 

- А ну-ка быстро доедай белок - он самый полезный.
- Ма-ам, но я вообще не люблю глаза.

 

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

 

Прыгают десантники. Все выпрыгнули. Выпускающий:
- Иванов, ты же первый выпрыгнул?
- Да, товарищ капитан, парашют не раскрылся - пришлось вернуться!

 

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

 

Заходит наркоман в телефонную будку и начинает там мочиться. Стоящая рядом женщина, возмущенная увиденным, кричит на него:
– Как вам не стыдно?! Немедленно выходите!
Наркоман говорит:
– Вот, блин! В женский попал!

 

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

 

- Что ты пишешь? - спросили программиста.
- Сейчас запустим - узнаем! - ответил программист.

 

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

 

Приходит программер домой, к нему подбегает кошка и начинает усиленно ластиться, лизать руку, мурчать и т.д.Жена, увидев это, спрашивает:
- Что это вдруг случилось с кошкой? Чего она руку-то лижет?
- Как чего? Мышкой пахнет...

 

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

 

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

 

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

 

Дети, знаете ли вы, откуда течет электричество? - спрашивает учительница.
- Я знаю! - вскакивает ученик.
- Из джунглей!
- Почему ты так считаешь?
- А сегодня утром папа, когда хотел бриться, сказал: "Опять эти обезьяны отключили электричество!"

 

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

 

Рабочий день. Вычислительный центр. Приемная директора. В приемную вбегает женщина и с ходу направляется в кабинет директора. Ее тормозит секретарша:
- Женщина, вы куда? У директора совещание.
- Да он меня звал, я с АСУ.
- Ну, я тоже сосу, но не во время совещания...

 

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

 

Встречаются русский, американец и француз. Француз докладывает: - Мы провели раскопки во Франции и на глубине 10 метров в земле обнаружили куски стекла. Значит, 10 тысяч лет назад на территории Франции действовала сеть оптоволоконной связи. Американец говорит: - Мы провели раскопки и на глубине 50 метров обнаружили медь. Это означает, что 50 тысяч лет назад на территории Америки действовала сеть проводной связи. Наконец, выступает русский: - Мы тоже провели раскопки, и на глубине 100 метров мы ничего не нашли. Значит, 100 тысяч лет назад на территории России действовала сеть сотовой связи!

 

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

 

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

Наверх


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

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

Copyright (c) Nemiro AS, 2005-2007


В избранное