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

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

Рассылка закрыта

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Май 2013   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Алексей Немиро

Статистика

1.234 подписчиков
-1 за неделю
←   Все выпуски   →

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


Выпуск # 729

Очередной выпуск рассылки! За последнее время на сайте произошло столько всего, столько всего, что все просто не уместилось в этот выпуск! Но ничего, ведь вы всегда можете ознакомиться со всеми обновлениями непосредственно посетив сайт. Кстати, помимо изменения в содержании Kbyte.Ru, появлении новых интересных материалов, проект постоянно совершенствуется технически, и вы можете принять в этом непосредственное участие, присылая свои идеи и предложения.
Надеюсь, этот выпуск будет интересен для вас. Если вы хотите увидеть в следующих выпусках что-то конкретное, напишите мне об этом на ящик subscribe@kbyte.ru.

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

Читайте в этом выпуске:

Если у вас есть вопросы по программированию или работе с компьютером, не стесняйтесь, спрашивайте.

Форумы Kbyte.Ru

На форумах Kbyte.Ru постоянно появляются новые интересные темы и обсуждения. В этом выпуске представлены лишь новые темы, с момента прошлой рассылки.

Кстати, любой желающий может на форумах Kbyte.Ru совершенно свободно получить помощь грамотных специалистов в области программирования, да и в целом информационных технологий.

Задать свой вопрос прямо сейчас

Ошибка при выгрузке домена приложения @capetownn 28.05.2013 17:53
Среда Visual Basic STUDIO’2010 Professional
Перед закрытием приложения появляется сообщение:
Ошибка при выгрузке домена приложения. (Исключение из HRESULT: 0x80131015)
Раньше такого не было, появилось только после добавления отчёта.
Спасибо.

[- к содержанию -]

Ответ #1 @Алексей Немиро 28.05.2013 19:14
Это же не ошибка. Просто осталась открытая вкладка чего-то, что после остановки отладки исчезло.

[- к содержанию -]

Добавить свой ответ в эту тему
Delphi. Как узнать угол, если известен его косинус? @Evgeny5r 27.05.2013 20:05
Здравствуйте!
Помогите, пожалуйста с написанием программы на Delphi. Мне известен косинус угла. Как программно найти этот угол в градусах?

[- к содержанию -]

Нужна помощь по БД Access @Vital75 27.05.2013 18:41
Очень прошу помочь сделать задание:
Создание и работа с удаленной БД.
Создать таблицу со столбцами: номер, название, количество. Создать триггер и генератор, позволяющие автоматически заносить значения ключевого столбца при добавлении записи.

[- к содержанию -]

Ответ #1 @Алексей Немиро 27.05.2013 19:02
Создание и работа с удаленной БД.
А это вообще возможно? :)
Насколько я помню, можно только присоединиться к внешнему источнику данных, но для этого придется создать файл базы данных.
Если нужно именно создать связь с внешними данными, то сделать это просто, достаточно найти меню "Внешние данные" и в нем выбрать источник данных.
Создать таблицу со столбцами
В чем конкретно проблема?
При создании файла базы, Access по умолчанию автоматом открывает конструктор таблиц.
Создать триггер и генератор, позволяющие автоматически заносить значения ключевого столбца при добавлении записи.
Счетчик по умолчанию добавляется автоматически.

[- к содержанию -]

Добавить свой ответ в эту тему
Перетаскивание маркера в google maps @iskandar 27.05.2013 18:05
Привет всем!!!
Как перетаскивать маркер в google map – e в другое место, и сохранить новые координаты в БД.
Спасибо!!!

[- к содержанию -]

Ответ #1 @Алексей Немиро 27.05.2013 18:21
Разрешить перемещение маркера можно установив опцию draggable в состояние true.
var marker = new google.maps.Marker({
    position: new google.maps.LatLng(lat, lng),
    draggable: true,
    map: map
});
При перетаскивании маркера возникают следующие события: drag, dragstart и dragend.
Получить новые координаты маркера можно обработав событие dragend:
google.maps.event.addListener(marker, "dragend", function(event) {
  var point = marker.getPosition();// новые координаты маркера: point.lat() и point.lng()
  // тут можно сделать ajax-запрос на сохранение новых координат маркера 
  //
});

[- к содержанию -]

Добавить свой ответ в эту тему
Гасс ==> сумма = ответ @Lochin7 22.05.2013 16:20
Помогите дописать программу в VB 6.0 тема "Модель ресурсного планирования объема выпускаемых изделий на промышленном предприятии". Из функции Гаусса,(уже написал) перевести в функцию суммы Xn*Bn=сумма, где Хn - это значения из Гаусса, Bn - это я ввожу. Сам код
Public N As Long 
Public Sub functOpen()
Dim I As Integer, J As Integer
Dim K As Double
Dim Z(1 To 10) As String
Z(1) = "x1"
Z(2) = "x2"
Z(3) = "x3"
Z(4) = "x4"
Z(5) = "x4"
Z(6) = "x5"
Z(7) = "x6"
Z(8) = "x7"
Z(9) = "x8"
Z(10) = "x9"
Vvod1:
N = InputBox("Введите порядок ", "Ввод данных")
If (N > 10) Then
aa = MsgBox("Порядок матрицы не может быть больше 10!", , "Ошибка!")
GoTo Vvod1
End If
If (N < 2) Then
aa = MsgBox("Порядок матрицы не может быть меньше 2!", , "Ошибка!")
GoTo Vvod1
End If
For I = 1 To N
S = InputBox("Ввод " & I & "-ой строки", "Ввод данных")
s1 = Split(S, " ")
 For J = 0 To N
 A(I, J + 1) = s1(J)
 Next
Next

For I = 1 To N
B(I) = A(I, N + 1)
Next
      Picture1.Cls
      For I = 1 To N
       For J = 1 To N
       K = A(I, J)
       If K > 0 Then
        If J > 1 Then
          Picture1.Print "+"; K; Z(J);
        Else
          Picture1.Print K; Z(J);
        End If
       Else
        Picture1.Print K; Z(J);
        End If
        Next
       Picture1.Print "="; B(J - 1)
      Next
End Sub
Public Sub CheckA()
If (N = 2) Then
End If
End Sub
Private Sub cmdOpen_Click()
Call functOpen
Call CheckA
End Sub


Private Sub cmdS4et_Click()
Call GaussSolveM(A(), N, X(), 0)
rsh = True
For e = 1 To N
If X(e) = 0 Then
rsh = False
End If
Next
If rsh = True Then
Dim I As Integer
Picture2.Cls
For I = 1 To N
Picture2.Print Z(I); "="; X(I)
Next I
Else
Picture2.Print "Система не имеет решений!"
End If
End Sub
Private Sub Calc_Click()
 'запустить калькулятор
 Shell "calc.exe"
 'Если Вы хотите запстить иную програму указываете её вместо calc.exe (КЭП)
End Sub


Private Sub Command1_Click()
S = 0
For I = 1 To N
S = S + d(I) * X(I)
Next I
End Sub




Private Sub Command2_Click()
Call functOpen1
Call CheckA
End Sub
Public Sub functOpen1()
Dim I As Integer, J As Integer
Dim K As Double
Dim Z(1 To 10) As String
Z(1) = "x1"
Z(2) = "x2"
Z(3) = "x3"
Z(4) = "x4"
Z(5) = "x4"
Z(6) = "x5"
Z(7) = "x6"
Z(8) = "x7"
Z(9) = "x8"
Z(10) = "x9"
Vvod1:
N = InputBox("Введите порядок ", "Ввод данных")
If (N > 1) Then
aa = MsgBox("Порядок не может быть больше 1!", , "Ошибка, введите 1!")
GoTo Vvod1
End If
If (N < 1) Then
aa = MsgBox("Порядок не может быть меньше 1!", , "Ошибка, введите 1!")
GoTo Vvod1
End If
For I = 1 To N
S = InputBox("Ввод " & I & "-ой строки", "Ввод данных")
s1 = Split(S, " ")
 For J = 0 To N
 A(I, J + 1) = s1(J)
 Next
Next

For I = 1 To N
B(I) = A(I, N + 1)
Next
      Picture1.Cls
      For I = 1 To N
       For J = 1 To N
       K = A(I, J)
       If K > 0 Then
        If J > 1 Then
          Picture3.Print "+"; K; Z(J);
        Else
          Picture3.Print K; Z(J);
        End If
       Else
        Picture3.Print K; Z(J);
        End If
        Next
       Picture3.Print "="; B(J - 1)
      Next
End Sub

Private Sub Form_Load()
Call CheckA
Z(1) = "x1"
Z(2) = "x2"
Z(3) = "x3"
Z(4) = "x4"
Z(5) = "x5"
Z(6) = "x6"
Z(7) = "x7"
Z(8) = "x8"
Z(9) = "x9"
Z(10) = "x10"
End Sub



Private Sub Form2_Load()
Call CheckB
Z(1) = "y1"
End Sub

Private Sub mnuAbout_Click()
   Dialog2.Show 1, Form1
End Sub

Private Sub mnuDraw_Click()
Call GaussSolveM(A(), N, X(), 0)
   Form3.Show 1, Form1
End Sub

Private Sub mnuExit_Click()
End
End Sub

Private Sub Picture5_Click()

End Sub

[- к содержанию -]

Ответ #1 @Lochin7 22.05.2013 16:30

[- к содержанию -]

Ответ #2 @kw33 30.05.2013 12:19
Не понял, сделать-то что надо? И проект не помешал бы.

[- к содержанию -]

Ответ #3 @Lochin7 30.05.2013 23:35
сама задача, решение
Предприятие выпускает два вида основной продукции – воздуховоды прямоугольного сечения и воздуховоды круглого сечения, и два вида вспомогательной продукции – дефрелкторы, шиберы.
Обозначим объемы выпуска продукции:
Х1 – воздуховоды прямоугольного сечения
Х2 – воздуховоды круглого сечения
Х3 – дефрелкторы
Х4 – шиберы.
Нормативы затрат на основное и вспомогательное производство (aij, Yi, нормы расхода материальных ресурсов drj, машинного времени fsj, трудовых затрат tgj) на единицу j-того вида продукции даны в виде таблицы:

Нормативы затрат на основное и вспомогательное производство
Продукция производства Продукция потребления Конечная продукция Yi
основная вспомогательная
j=1 j=2 j=3 j=4
Основная
i=1
i=2
0.15
0.2
0.1
0.3
0.05
0.1
0.08
0.5
8.5
15
Вспомогательная
i=3
i=4
0.3
0.1
0.5
0.15
0.4
0.2
0.22
0.3
0
0
Сырье r=1
Энергия r=2 1
0.5 1.5
0.8 0.8
0.3 2
1
Фонды S=1
S=2 2.5
1 1.3
1.5 2
1.8 2.8
1.3
Труд g=1
g=2 2.7
2 3.2
4 3.8
1.5 4
1

Составим основные уравнения ресурсной модели:

∑ aij xj + yi = xi (i = 1, 2,… m)

Таких уравнений четыре для четырех неизвестных Хi:


0,15Х1+0,1Х2+0,05Х3+0,08Х4+8,5 = Х1
0,2Х1+0,3Х2+0,1Х3+0,5Х4+15 = Х2
0,3Х1+0,5Х2+0,4Х3+0,22Х4+0 = Х3
0,1Х1+0,15Х2+0,2Х3+0,3Х4+0 = Х4


Решая эту систему уравнений методом Гаусса, получаем план производства:
Х1=30 (тыс. шт.) воздуховодов прямоугольного сечения,
Х2=80 (тыс. шт.) воздуховодов круглого сечения,
Х3=100 (тыс. шт.) дефрелкторов,
Х4=50 (тыс. шт.) шиберов.
Определим потребности в ресурсах для определенного плана производства.
Потребности в сырье:
dr=1 =1*30+1,5*80+0,8*100+2*50 = 330 тонн стали.
Потребности в энергии:
dr=2 = 0,5*30+0,8*80+0,3*100+1*50 = 159 кВт.
Потребности в машинном времени оборудования:
fs=1 = 2,5*30+1,3*80+2*100+2,8*50 = 519 часов;
fs=2 = 1*30+1,5*80+1,8*100+1,3*50 = 395 часов.
Потребности в трудовых ресурсах:
tg=1 = 2,7*30+3,2*80+3,8*100+4*50 = 917 человек;
tg=2 = 2*30+4*80+1,5*100+1*50 = 580 человек.

[- к содержанию -]

Добавить свой ответ в эту тему
Как заставить PictureBox выводить сплайны из списка ImageList @dimka78 19.05.2013 12:49
Kак заставить PictureBox выводить сплайны из списка ImageList,у PictureBox нет же ImageIndex

[- к содержанию -]

Ответ #1 @Алексей Немиро 19.05.2013 13:20
В ImageList хранится коллекция изображений в свойстве Images, из которой можно получить любое изображение по числовому индексу:
PictureBox1.Image = ImageList1.Images(0)

[- к содержанию -]

Ответ #2 @dimka78 19.05.2013 15:09
Ага спасибо за ответ!!!!!!!!

[- к содержанию -]

Добавить свой ответ в эту тему

Все темы и обсуждения

Вакансии в IT

Web-дизайнер

Россия, Нижний Новгород | Работа в офисе | 20 000,00 KBP

Инженер-программист АСУ ТП

Россия, Чебоксары | Работа в офисе | 15 000,00 KBP

Web-дизайнер/специалист по интернет-проектам

Россия, Чебоксары | Работа в офисе

Программист 1С

Россия, Иркутск | Работа в офисе | 30 000,00 KBP

PHP программист

Россия, Тюмень | Работа в офисе | 50 000,00 KBP

Веб-программист

Россия, Тюмень | Работа в офисе | 70 000,00 KBP

Программист

Россия, Красноярск | Работа в офисе

Программист-разработчик. NET

Россия, Новосибирск | Работа в офисе | 60 000,00 KBP

SEO-оптимизатор

Россия, Самара | Работа в офисе | 30 000,00 KBP

SEO-специалист

Россия, Самара | Удаленная работа

Все вакансии в IT · Создать резюме

[- к содержанию -]

Новости мира IT

LG открестилась от слухов про смартфон Nexus 5

Представитель LG отметил, что компания не планирует выпускать Nexus 5 — смартфон, который стал бы «продолжением» вышедшего в 2012 году аппарата Nexus 4. Вместо этого LG представила версию Nexus 4 в корпусе белого цвета. Характеристики белого и черного смартфонов совпадают.

29.05.2013 10:21 · Категория: Бизнес в IT · Источник: Lenta.ru

[- к содержанию -]

Foxconn выпустит устройство на Firefox OS

Mozilla и тайваньский производитель электроники Foxconn 3 июня представят совместное устройство на базе Firefox OS. Ожидается, что это будет планшет. Foxconn является крупнейшим в мире контрактным производителем электроники; компания наиболее известна своим сотрудничеством с Apple.

29.05.2013 10:20 · Категория: Железо · Источник: Lenta.ru

[- к содержанию -]

Защитники авторских прав предложили карать пиратов вирусами

Комиссия по воровству американской интеллектуальной собственности направила в Конгресс США доклад, в котором попросила разрешить защитникам авторских прав использовать против пиратов вредоносные программы. В докладе предлагается блокировать компьютер пользователя до тех пор, пока он не сознается в краже контента.

29.05.2013 10:20 · Категория: Безопасность · Источник: Lenta.ru

[- к содержанию -]

Все новости

Подпишитесь на тематические RSS-ленты Kbyte.Ru, чтобы быть в курсе последних новостей:

Основная лента · Форумы (темы и сообщения) · Visual Basic 5.0/6.0 · Visual Basic .NET · C# (Си шарп) · Delphi · JavaScript · ActionScript · ASP .NET · ASP .NET MVC

Ищите Kbyte.Ru в социальных сетях FaceBook, ВКонтакте, Twitter.

Если вы занимаетесь программированием, то наверняка вам пригодятся хитрые инструменты.

Международный портал для программистов и разработчиков Kbyte.Ru основан в 2006 году. Целью портала является объединение программистов и специалистов IT-бизнеса, студентов и преподавателей для обмена опытом и знаниями, оказания помощи во всех делах и начинаниях в области IT.
Kbyte.Ru является парнёром компаний Mail.Ru Group, WebMoney Transfer, Ozon.Ru и др.
Выпуск рассылки подготовлен автоматически. Все права на материалы выпуска принадлежат Kbyte.Ru если иное не указано отдельно.
В избранное