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

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



Выпуск # 428


http://www.kbyte.ru/

 

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

Здравствуйте дамы и господа!
Очередной выпуск рассылки Kbyte.Ru!

 

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

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

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

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

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

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

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

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

    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

Наверх

 

 

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

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

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

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


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

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

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


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


Заполнение массивов | Автор: petr
Добавлено: 06.01.2009 / 03:12 | ответов: 3 | просмотров: 106

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


Ответ # 1 | Автор: Stuart
Добавлено:06.01.2009 / 16:08
и что какой вопрос? как заполнить массив или что?

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


Ответ # 2 | Автор: Stuart
Добавлено:06.01.2009 / 16:44
'Заполнение одномерного массива
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
Option Base 1
Private Sub Command1_Click()
ConstAs Integer = 10 'размер массива
Dim massiv(m) As String 'одномерный числовой массив
Dim i As Integer 'счетчик

 For i = 1 To m
   massiv(i) = Val(InputBox("Элемент: massiv(" & CStr((i)) & ")=", "Заполнение массива", ""))
 Next i
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

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


Ответ # 3 | Автор: DemonX
Добавлено:11.01.2009 / 08:30
Заполнение одномерного массива:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
Private Sub Command1_Click()
Dim k(1 To 10) 'Размер массива от 1 до 10 т.е. 10 ячеек
Dim i As Integer
'Цикл
  For i = 1 To 10
    k(i) = InputBox("Введите значение для ячейки массива № " & i)
    Print k(i) 'Вывод значений ячеек на форму
  Next i
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

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


обновление данных | Автор: abra
Добавлено: 05.01.2009 / 12:23 | ответов: 1 | просмотров: 62

Требуется автоматически обновлять БД раз в неделю. Как это лучше сделать?

Не таймер же ставить, в самом деле.............

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


Ответ # 1 | Автор: Алексей
Добавлено:06.01.2009 / 04:15
cron

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

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


С Новым Годом! | Автор: Dragon-zla
Добавлено: 31.12.2008 / 23:26 | ответов: 3 | просмотров: 116

Всех с Новым Годом! :)

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


Ответ # 1 | Автор: Алексей
Добавлено:01.01.2009 / 04:30
С Новым, &H7D9, годом!

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


Ответ # 2 | Автор: Dragon-zla
Добавлено:01.01.2009 / 14:26
&H7D9

Ну, тогда ещё и с 1430 годом. :)

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


Ответ # 3 | Автор: Stuart
Добавлено:05.01.2009 / 20:53
CSEG segment
org 100h
begin:
mov ah,009h
mov dx,offset MsgBox
int 21h
mov ah,10h
int 16h
int 20h
MsgBox DB 'С Новым годом!:)$'
CSEG ends
end begin

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


Наверх

 

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

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

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

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

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

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

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

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

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

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

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

 

Статьи на Kbyte.Ru

Наверх

 

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

Как узнать IP-адрес посетителя?
Дата добавления: 01.09.2006 / 12:23 | просмотров: 4656 | платформа: ASP .NET (VB)

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

Как преобразовать цвет в Web-стандарт?
Дата добавления: 24.03.2007 / 11:37 | просмотров: 1667 | платформа: VB .NET

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

Как получить данные из базы данных?
Дата добавления: 31.07.2006 / 18:31 | просмотров: 2346 | платформа: ASP

Как сделать Label с тенью?
Дата добавления: 16.08.2006 / 23:42 | просмотров: 2455 | платформа: VB

Как узнать, отправлялись данные форме или нет?
Дата добавления: 31.07.2006 / 14:23 | просмотров: 2163 | платформа: ASP .NET (VB)

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

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

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

 

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

Наверх

 

Юмор на Kbyte.Ru

Учительница:
- Петя, составь предложение со словами "вылупился" и "цыплёнок".
Петя:
- Вася вылупился на мои новые кроссовки как новорождённый цыплёнок.

 

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

 

Как в комнате уничтожить клопов ?
- Hадо их загнать под шкаф, а у шкафа подпилить ножки.

 

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

 

- Я тебе из магазина звоню, хочу дискет купить. Тут их много разных фирм, скажи у какой фирмы на дискетах объем больше...

 

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

 

Лежит пьяный парень на перроне и умирает со смеху.
Окружающие его в течение 10 минут не выдержали и вызвали "Скорую". Связывающим его санитарам он объясняет:
- Ребята, меня пятьдесят человек в армию провожали. Они уехали, а я остался.
end data of the request.

 

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

 

Новый Русский (НР) припарковывается у обочины, ставит джип на охрану и идет вдоль тротуара, покручивая на пальце ключики и насвистывая себе под нос. Картина: рядом с джипом паркуется горбатый "Запорожец". Из машины вылезает мужик, ставит на педали капканы, на руль подводит электропровода, обматывает машину по периметру конкретной цепью, ставит амбарный замок. НР:
- Ты че мужик? Думаешь, такое дерьмо угонят?!
- Это твою машину угонят, а в мою ср@ть ходят!!

 

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

 

Собирается супружеская пара в Большой Театр на балет. Жена надевает платье и подходит к мужу:
- Дорогой, застегни молнию пожалуйста, - и поворачивается к нему спиной. Муж застегивает..., потом расстегивает снова.
- Дорогой, в чем дело? У нас нет времени, мы можем опоздать на спектакль.
- Большой театр стоял и стоять будет, а у меня это дело случая.

 

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

 

Сидим недавно за ужином на кухне с отцом, смотрим "Крепкий орешек-2". В какой-то момент Брюс Уиллис залезает в кабину самолета и запирается там. Злодеи же начинают палить из автоматов по кабине и разбивают там все окна. Отважный Брюс отлеживается на полу. После этого злодеи достают гранаты и закидивают их в кабину. Брюс, осознав всю фиговость своего положения, вскакивает в кресло пилота и катапультируется как раз в момент взрыва. "Везучий ублюдок!", - в сердах произносит главный злодей, наблюдая, как Брюс плавно спускается в кресле на парашюте. "А ведь именно так стоило назвать этот фильм..." - задумчиво произносит отец.

 

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

 

Разговаривают два активных пользователя Интернета:
- Ну, как дела?
- Да как тебе сказать... Все нормально вроде, вот только пальцы болят...
- А с чего это вдруг?
- Да вчера с друзьями в чате встретился, так всю ночь песни орали...

 

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

 

Подарили студенты военной кафедре на 23 февраля вазу. Поставили офицеры вазу на стол вверх дном, собрались вокруг неё и не могут понять, как же в вазу цветы ставить, если она без горлышка. А один её переворачивает и говорит: "Да она ещё и без дна!"

 

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

 

Купил мужик мышь для компа оптическую. Круто! В руководстве написано - работает на любой поверхности...
Повозил по столу - работает!
...по бумаге - работает!!
...по линолеуму - работает!!!
Что бы ещё попробовать?
По ЗЕРКАЛУ!!!! - "Обнаружено новое устройство..."

 

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

 

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

Наверх


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

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

Copyright (c) Nemiro AS, 2005-2007


В избранное