Программирование (VB,C#,ASP,.NET): новости, советы, примеры (comp.soft.prog.vbaspsharpnet) : Рассылка : Subscribe.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

Наверх

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

Помогите решить проблему с ComboBox | Автор: povverster
Добавлено: 25.09.2008 / 12:28 | ответов: 1 | просмотров: 186

Привет всем!
Подскажите пожалуйста как в ComboBox (C#) отключить возможность самостоятельно вводить информацию.
Необходимо чтобы информация выбиралась из выпадающего списка.

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

Ответ # 1 | Автор: Edlin
Добавлено:26.09.2008 / 08:54
Установи свойство DropDownStyle в DropDownList.

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

Какие IT-журналы вы читаете? | Автор: Алексей
Добавлено: 24.09.2008 / 09:11 | ответов: 2 | просмотров: 189

сабж.

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

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

Ответ # 1 | Автор: Dragon-zla
Добавлено:25.09.2008 / 15:55
CHIP
ComputerBild
Радиолюбителю-конструктору:)

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

Ответ # 2 | Автор: User Unknown
Добавлено:25.09.2008 / 22:04
Computerra. Only.

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

Помогите найти ошибку | Автор: Dragon-zla
Добавлено: 22.09.2008 / 17:58 | ответов: 6 | просмотров: 372

Здравствуйте.В колледже изучаем VBA(Visual Basic for Applications).Научился программировать решения задач, следующим будет логика(истина/ложь) решил для самообразования написать макрос, который будет решать уравнения вида ax^2+bx+с или ax^2+с.Написал следующий код

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
Sub Kvadrat_urav()
  Dim x As Single
  Dim x2 As Single
  Dim a As Single
  Dim b As Single
  Dim c As Single
  Dim D As Single
    a = InputBox("Эта программа вычислит корни квадратного уравнения вида ax^2+bx+с или ax^2+c.Введите пожалуйста значение a")
    b = InputBox("Введите b, если вы хотите вычислить ax^2+с введите 0")
    c = InputBox("Введите c")
      If b = 0 Then [x=((-1*c)/a)^(1/2);x2=(-1*((-1*c)/a)^(1/2)) [Else(D=(b^2)-(4*a*c);x=(-1*b+D^(1/2))/(2*a);x2=(-1*b-D^(1/2))/(2*a)]] 'Проверяем равен ли b 0 если да, то решаем ax^2+с иначе ax^2+bx+c
    MsgBox ("x1=")
& x & (" x2=") & x2
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

Решил проверить на уравнении 2x^2+5x+2=0 по идее должен выдать x1=-0.5 x2=-2 но выдает x1=0 x2=0.Где ошибка?

P.S. End If пробовал выдает ошибку компиляции

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

Ответ # 1 | Автор: Stuart
Добавлено:22.09.2008 / 20:50
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
Sub Kvadrat_urav()
Dim x As Single
Dim x2 As Single
Dim a As Single
Dim b As Single
Dim c As Single
Dim D As Single
  a = InputBox("Эта программа вычислит корни квадратного уравнения вида ax^2+bx+с или ax^2+c.Введите пожалуйста значение a")
  b = InputBox("Введите b, если вы хотите вычислить ax^2+с введите 0")
  c = InputBox("Введите c")

   If b = 0 Then
     x = ((-1 * c) / a) ^ (1 / 2)
     x2 = (-1 * ((-1 * c) / a) ^ (1 / 2))
   Else
     D = Round((b ^ 2) - (4 * a * c))
     x = (-1 * b + D ^ (1 / 2)) / (2 * a)
     x2 = (-1 * b - D ^ (1 / 2)) / (2 * a) 'Проверяем равен ли b 0 если да, то решаем ax^2+с иначе ax^2+bx+c
   End If

MsgBox ("x1=") & x & (" x2=") & x2
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

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

Ответ # 2 | Автор: Dragon-zla
Добавлено:23.09.2008 / 17:48
Сделал как подсказали окна запроса вылезли, но вместо ответа выдал

Run-time error '5':
Invalid procedure call or argument

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

Ответ # 3 | Автор: Stuart
Добавлено:23.09.2008 / 20:50
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:
Sub Kvadrat_urav()
Dim a As Single
Dim b As Single
Dim c As Single
Dim D As Single
Dim st As Single
a = InputBox("Эта программа вычислит корни квадратного уравнения вида ax^2+bx+с или ax^2+c.Введите пожалуйста значение a")
b = InputBox("Введите b, если вы хотите вычислить ax^2+с введите 0")
c = InputBox("Введите c")

If b = 0 Then 'Проверяем равен ли b 0 если да, то решаем ax^2+с иначе ax^2+bx+c
   st = ((-1 * c) / a)
    If st < 0 Then
     x = -1 * (Abs(st) ^ (1 / 2))
     x2 = (-1 * (-1 * (Abs(st) ^ (1 / 2))))
    Else
     x = (st ^ (1 / 2))
     x2 = (-1 * ((-1 * c) / a) ^ (1 / 2))
    End If
Else
   D = Round((b ^ 2) - (4 * a * c))
    If D < 0 Then
      st = -1 * (Abs(D) ^ (1 / 2))
    Else
      st = D ^ (1 / 2)
    End If
   x = (-1 * b + st) / (2 * a)
   x2 = (-1 * b - st) / (2 * a)
End If

MsgBox ("x1=") & x & (" x2=") & x2
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

ps: не проверял

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

Ответ # 4 | Автор: Dragon-zla
Добавлено:25.09.2008 / 19:26
Спасибо работает, как я понял st это временная переменная, служащая для упрощения кода

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

Ответ # 5 | Автор: Dragon-zla
Добавлено:28.09.2008 / 15:00
Вариант для школьной программы(то есть если не проходили ложную единицу и твердо уверены, что минус из-под корня не извлекается

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:
Sub Kvadrat_urav()
Dim a As Single
Dim b As Single
Dim c As Single
Dim D As Single
Dim st As Single
a = InputBox("Эта программа вычислит корни квадратного уравнения вида ax^2+bx+с или ax^2+c.Введите пожалуйста значение a")
b = InputBox("Введите b, если вы хотите вычислить ax^2+с введите 0")
c = InputBox("Введите c")

If b = 0 Then 'Проверяем равен ли b 0 если да, то решаем ax^2+с иначе ax^2+bx+c
st = ((-1 * c) / a)
  If st < 0 Then
   MsgBox ("Уравнение не имеет корней")
  Else
   x = (st ^ (1 / 2))
   x2 = (-1 * ((-1 * c) / a) ^ (1 / 2))
  End If
Else
D = Round((b ^ 2) - (4 * a * c))
  If D < 0 Then
   MsgBox ("Уравнение не имеет корней")
  Else
   st = D ^ (1 / 2)
  End If
x = (-1 * b + st) / (2 * a)
x2 = (-1 * b - st) / (2 * a)
End If

MsgBox ("x1=") & x & (" x2=") & x2
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

Правда бокс с ответом всё же выдает, но нетрудно подправить. В данный момент дорабатываю.

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

Ответ # 6 | Автор: Dragon-zla
Добавлено:30.09.2008 / 19:56
Как говорится релиз

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:
Sub Kvadrat_urav()
Dim a As Single
Dim b As Single
Dim c As Single
Dim D As Single
Dim st As Single
Dim log As Boolean
a = InputBox("Эта программа вычислит корни квадратного уравнения вида ax^2+bx+с или ax^2+c.Введите пожалуйста значение a")
b = InputBox("Введите b, если вы хотите вычислить ax^2+с введите 0")
c = InputBox("Введите c")

If b = 0 Then 'Проверяем равен ли b 0 если да, то решаем ax^2+с иначе ax^2+bx+c
st = ((-1 * c) / a)
If st < 0 Then
log = True
Else
x = (st ^ (1 / 2))
x2 = (-1 * ((-1 * c) / a) ^ (1 / 2))
End If
Else
D = Round((b ^ 2) - (4 * a * c))
If D < 0 Then
log = True
Else
st = D ^ (1 / 2)
End If
x = (-1 * b + st) / (2 * a)
x2 = (-1 * b - st) / (2 * a)
End If
If log = False Then
MsgBox ("x1=") & x & (" x2=") & x2
Else
MsgBox ("Уравнение не имеет корней")
End If
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

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

открытие нескольких txt файлов в одном документе EXCEL | Автор: cASSAndra
Добавлено: 22.09.2008 / 11:26 | ответов: 1 | просмотров: 177

добрый день, у меня такая вот ситуация. есть n-ное количество текстовых файлов. мне надо все эти n файлов засунуть в один документ Excel на разные листы. как этот файл засовывать в excel построчно я нашла, но так слишком долго будет. можно это как-то побыстрее сделать?

если в цикле добавлять лист

001:
002:
003:
004:
005:
Excel.Workbooks(1).Sheets.Add
Excel.Workbooks(1).ActiveSheet.Name = fName(i)
Excel.Workbooks.Open(Path & fName(i))

Colorized
by: Eros.CodeSyntaxColor Engine

он создает книгу с новыми листами и дает им нужные имена, но все файлы открывает не в этой же книге, а создает кучу новых, а Excel.Workbooks(1).Open(Path & fName(i)) не воспринимает ((( подскажите пожалуйста - чего такого написать надо, чтобы нормально заработало?

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

Ответ # 1 | Автор: Dragon-zla
Добавлено:05.10.2008 / 15:38
А Worksheets.Activate пробовали?

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

Печать методом PrintForm | Автор: SonaRMax
Добавлено: 15.09.2008 / 21:12 | ответов: 7 | просмотров: 445

Здравствуйте! Для печати некоторого графика нарисованного в picture box примеил метод PrintForm, и все бы хорошо но picture box имеет положение на форме отличное от 0. Посылая на печать данную форму по какой то причине picture box смещается в нулевую позицию на форме. При этом сам picture box физически остается на месте. В процедуре печати делал установку кординат picture box-а, эффекта 0. Подскажите как избавится от этого?

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

Ответ # 1 | Автор: DIS
Добавлено:16.09.2008 / 18:15
По моему лучше использовать Printer.PaintPicture

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

Ответ # 2 | Автор: SonaRMax
Добавлено:16.09.2008 / 20:35
А как это конкретно будет выглядеть? в смысле рабочего кода?

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

Ответ # 3 | Автор: DIS
Добавлено:16.09.2008 / 21:10
001:
002:
003:
004:
005:
006:
007:
008:
009:
Printer.PaperSize = vbPRPSA4 ' установка размера бумаги А4
Printer.ScaleMode = vbPixels ' установка единиц шкалы - пиксели (по умолчанию твипы)
' здесь можно настроить дополнительные параметры принтера, такие как качество и режим печати, и т.п.
Printer.PaintPicture Picture1.Image, 0, 0 ' размещение на листе картинки с Picture1 в верхнем правом углу
' дополнительные параметры метода PaintPicture: X1, Y1, Width1, Height1 - позиция и размеры картинки на листе,
' X2, Y2, Width2, Height2 - координаты и размер области на исходном рисунке, из которой будет вырезаться рисунок для печати
Printer.EndDoc ' вывод на печать документа

Colorized by: Eros.CodeSyntaxColor Engine

Для отмены печати используется метод Printer.KillDoc. Также, можно выбрать используемый принтер из установленных в системе, например: Set Printer = Printers(1)

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

Ответ # 4 | Автор: SonaRMax
Добавлено:16.09.2008 / 21:19
Спасибо!!! то что нужно :). Осталость только лабельки поместить на принтер....

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

Ответ # 5 | Автор: SonaRMax
Добавлено:16.09.2008 / 21:26
жалко что данный метод не печатает содержимое pictureboxa. график получается без кординат :(

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

Ответ # 6 | Автор: DIS
Добавлено:17.09.2008 / 15:01
Насколько я понял значения координат делаются при помощи Label а линии - обьектами Line)))) Это не лучший вариант
Текстовку на picturebox можно нарисовать программно, тогда она тоже будет выводиться вместе с остальным. Например:
Picture1.CurrentX = 80
Picture1.CurrentY = 130
Picture1.Print "Какой-либо текст" ' Рисует на пикчербокс текст в позиции 80; 130
Ну а все линии проводятся операторами Line тут надеюсь и так все понятно

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

Ответ # 7 | Автор: SonaRMax
Добавлено:17.09.2008 / 21:56
Да я так и сделал :). Возможно и не лучший вариант решения задачи, но зато быстро .... :). Еще раз спасибо за подсказки!

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

Наверх

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

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

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

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

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

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

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

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

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

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

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

Статьи на Kbyte.Ru

Наверх

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

Получение многоразрядного числа2
Дата добавления: 31.07.2006 / 12:33 | просмотров: 1527 | платформа: VB

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

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

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

Запись куков (Cookies)
Дата добавления: 01.08.2006 / 12:00 | просмотров: 2071 | платформа: ASP

Как определить текущую раскладку клавиатуры?
Дата добавления: 16.08.2006 / 19:38 | просмотров: 1825 | платформа: VB

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

Анализ даты стандарта MM/DD/YYYY и MM/DD/YY
Дата добавления: 24.03.2007 / 10:59 | просмотров: 1727 | платформа: RegEx

Форма поверх всех окон
Дата добавления: 01.08.2006 / 17:23 | просмотров: 2490 | платформа: VB .NET

Преобразование числа в Украинскую валюту
Дата добавления: 16.08.2006 / 19:30 | просмотров: 1692 | платформа: VB

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

Наверх

Юмор на Kbyte.Ru

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

Рейтинг: 383
Всего голосов: 592