В данном классе производится решение задачи построение графика и сетки.
В разделе Public Class Form1 производится объявление глобальных переменных, положение начала системы координат, шаг линий сетки по осям X и Y.
В разделе Sub Grafic() производится объявление переменных используемых в решении задачи и вызывание формы Form2. Решение самой задачи и построение графика.
В разделе Do- Loop производится ввод формул используемых в решении задачи.
В разделе Private Sub Setka() выполняется построение сетки графика.
Листинг 2.1 Программный код класса Form1
Public Class Form1
Dim intX0, intY0, intKX, intKY, intMsh, intMshX As Integer
Dim strOX, strOY As String
Dim blnMsh, blnSK, blnUkz As Boolean
Dim Holst As Graphics
Dim Kist As Brush
Dim Pero As Pen
Dim Shrift As Font
‘ Процедура обработки события «Загрузка формы Form1»
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Первые проблемы при выходе с границы США — иммиграция 2022
Me.Text = «моделирование движения тела, брошеного под углом к горизонту»
intY0 = PB_Ekran.Height — 40 ‘Положение начала СК по оси Y
Kist = New SolidBrush(Color.Black)
Pero = New Pen(Color.Black)
Shrift = New Font(«Arial», 8, FontStyle.Bold)
CB_NachaloSK.Text = «Внизу по центру»
‘ Процедура обработки события «Выбор элемента комбинир. списка CB_Massht»
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CB_Massht.SelectedIndexChanged
Dim strMsh As String = CB_Massht.Text
Select Case strMsh
‘ Процедура обработки события «Выбор элемента комбинир. списка CB_NachaloSK»
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CB_NachaloSK.SelectedIndexChanged
Dim strSK As String = CB_NachaloSK.Text
Select Case strSK
Case Is = «В левом нижнем углу»
intY0 = PB_Ekran.Height — 25
Case Is = «В центре экрана»
intX0 = PB_Ekran.Width / 2
intY0 = PB_Ekran.HEight / 2
Case Is = «Слева по центру»
intY0 = PB_Ekran.Height / 2
Case Is = «Внизу по центру»
intX0 = PB_Ekran.Width / 2
intY0 = PB_Ekran.Height — 25
Case Is = «задать указателем»
intY0 = PB_Ekran.Height — 25
Dim dblX As Double = 0
Dim dblY As Double = 300
Dim dblA, dbldt, dblFcx, dblFcy, dblFc, dblB, dblm, dblV, dblg, dblFсоп, dblt, dblVx, dblVy As Double ‘объявление переменных
Dim intx1, intx2, inty1, inty2 As Integer
intx1 = intX0 + dblX * intKX / intMshX
inty1 = intY0 — dblY * intKY / intMsh
Call Form2.ZapolnTablic(dblt, dblFсоп, dblFcx, dblFcy, dblVx, dblVy, dblX, dblY)
dblV = Math.Sqrt(dblVx ^ 2 + dblVy ^ 2)
dblFc = -dblA * dblV — dblB * dblV ^ 3
dblFcx = dblFc * dblVx / dblV
Уроки C# .NET Windows Forms / #1 — Создание приложения на C# с SQL (базами данных)
dblFcy = dblFc * dblVy / dblV
dblVx += dblFcx * dbldt / dblm
dblVy += (dblFcy — dblm * dblg) * dbldt / dblm
dblX += dblVx * dbldt
dblY += dblVy * dbldt
intx2 = intX0 + dblX * intKX / intMshX
inty2 = intY0 — dblY * intKY / intMsh
Holst.DrawLine(Pero, intx1, inty1, intx2, inty2)
dblt = dblt + dbldt
Loop Until (dblY 60)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
‘Процедура построения экранной сетки
Private Sub Setka()
If (blnMsh Or blnSK) Then Holst.Clear(Color.White)
Dim intI, intJ As Integer
For intI = intY0 To 0 Step -intKY
Holst.DrawLine(Pero, 0, intI, PB_Ekran.Width, intI)
For intI = intY0 To PB_Ekran.Height Step intKY
Holst.DrawLine(Pero, 0, intI, PB_Ekran.Width, intI)
For intI = intX0 To PB_Ekran.Width Step intKX
Holst.DrawLine(Pero, intI, 0, intI, PB_Ekran.Height)
For intI = intX0 To 0 Step -intKX
Holst.DrawLine(Pero, intI, 0, intI, PB_Ekran.Height)
Holst.DrawLine(Pero, 0, intY0, PB_Ekran.Width, intY0)
Holst.DrawLine(Pero, PB_Ekran.Width — 15, intY0 — 3, PB_Ekran.Width — 3, intY0)
Holst.DrawLine(Pero, PB_Ekran.Width — 15, intY0 + 3, PB_Ekran.Width — 3, intY0)
Holst.DrawString(strOX, Shrift, Kist, PB_Ekran.Width — 30, intY0 — 20)
Holst.DrawLine(Pero, intX0, 0, intX0, PB_Ekran.Height)
Holst.DrawLine(Pero, intX0 — 3, 10, intX0, 0)
Holst.DrawLine(Pero, intX0 + 3, 10, intX0, 0)
Holst.DrawString(strOY, Shrift, Kist, intX0 + 6, 0)
Holst.DrawString(«0», Shrift, Kist, intX0 — 10, intY0)
For intI = intX0 + intKX / 2 To PB_Ekran.Width Step intKX
Holst.DrawString(intJ.ToString, Shrift, Brushes.Black, intI, intY0 + 5)
For intI = intX0 — 3 * intKX / 2 To 0 Step -intKX
Holst.DrawString(intJ.ToString, Shrift, Brushes.Black, intI, intY0 + 5)
For intI = intY0 — intKY To 0 Step -intKY
Holst.DrawString(intJ.ToString, Shrift, Brushes.Black, intX0 — 35, intI)
For intI = intY0 + intKY To PB_Ekran.Height Step intKY
Holst.DrawString(intJ.ToString, Shrift, Brushes.Black, intX0 — 35, intI)
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
‘ Private Sub DobavStolb()
‘ Процедура обработки события «Щелчок левой кнопки мыши на PB_Ekran»
Private Sub PB_Ekran_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PB_Ekran.MouseClick
If blnUkz = True Then
Holst.DrawLine(Pero, e.X, e.Y, e.X — 15, e.Y)
Holst.DrawLine(Pero, e.X, e.Y, e.X, e.Y + 15)
Private Sub ОПрограммеToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОПрограммеToolStripMenuItem.Click
Dim strS As String = «Моделирование движения тела, » + vbCrLf _
+ «Брошенного под углом к горизонту» + vbCrLf _
MessageBox.Show(strS, «О программе», MessageBoxButtons.OK)
Private Sub ТабличныеДанныеToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ТабличныеДанныеToolStripMenuItem.Click
Private Sub СтиретьТаблицуToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СтиретьТаблицуToolStripMenuItem.Click
Источник: studbooks.net
FORM1
Для скачивания будет предоставлена ссылка на дистрибутив программы на сайте компании-разработчика.
Обзор FORM1 (автоматический перевод)
Form1 является единственной веб-формой файла и формой для пользования электронной почтой процессора. Form1 обеспечивает полностью настраиваемую форму и сценарий для обработки и поставки представлений формы на Ваш адрес электронной почты. Все, что Вы должны сделать, вводится Ваш адрес электронной почты доставки Form1, загрузка Form1 к Вашему серверу, и у Вас есть полностью функциональная форма без потребности в дополнительной форме, обрабатывающей cgi сценарии.
Form1 включает Ваш адрес электронной почты доставки в свой серверный код. Ваш адрес электронной почты доставки не выведен на экран в браузерах или исходном коде браузера и не может быть получен подписчиками электронной почты спама. Стандартная форма, обрабатывающая сценарии, выводит на экран Ваш адрес электронной почты доставки в исходном коде веб-страницы.
Главные особенности — один файл содержит Вашу форму, процессор формы и страницу подтверждения формы; Ваш адрес электронной почты доставки является определяемым пользователем в серверных сценариях и никогда не выводится на экран в исходном коде браузера (это препятствует тому, чтобы Ваш адрес электронной почты был получен списками рассылки спама непосредственно от страницы формы); стандартные предварительно установленные поля формы могут быть скорректированным пользователем; протоколы имени поля позволяют Вам устанавливать поля, обработанные для дисплея; почтовая проверка достоверности. Вы можете Загрузить использование Form1and пробная версия бесплатно на Вашем сайте. Все, в чем Вы нуждаетесь, является веб-браузером и веб-сервером, поддерживающим php язык сценариев (включенный в большинство коммерческих серверов).
Источник: www.obnovisoft.ru
Form1
Отправлено 25 Июль 2011 — 14:46
Доброго времени суток.
Недавно, когда переключал задачи (алт+таб) увидел там form1, но в списке процессов его нету. Единственное что заметил — теперь некоторые окна при открытии сразу же закрываются, в частности запуск прогром (вин+К). Проверка CureIt ничего не дала, но сделав как описано в правилах раздела cureit-results.cab почему то не создался — появились только 2 файла: critical.txt и cureit-fast.log
Прикрепленные файлы:
#2 
userr
Отправлено 25 Июль 2011 — 14:57
gothic314
C:DOCUME~1DukeLOCALS~1Tempflashgot.hwkpt4oz.defaultFlashGot.exe.test
c:documents and settingsdukeapplication datalsass.exe
ссылку на результат с http://www.virustotal.com/ и в вирлаб http://vms.drweb.com/sendvirus
Операционная система: Windows XP Professional x86 (Build 2600), Service Pack 2
почему Windows не обновляете?
почему делаете логи с вкл. сетью?
где остальные логи по Правилам?
#3 gothic314
Отправлено 25 Июль 2011 — 15:19
насчет обновления винды — как то не задумывался раньше
насчет сети — извиняюсь, забыл выключить
а на счет по правилам — вы о логах HJ и RKU? там вроде написано «по возможности», подумал что необязательно и не стал делал
судя по проверке lsass заражен, только почему то cureit не видит вируса в нем. подскажите пожалуйста чем лучше лечить?
#4 userr
Отправлено 25 Июль 2011 — 16:25
насчет обновления винды — как то не задумывался раньше
пора задуматься. после лечения — всё обновлять. см http://forum.drweb.com/index.php?showtopic=293874
а на счет по правилам — вы о логах HJ и RKU? там вроде написано «по возможности», подумал что необязательно и не стал делал
судя по проверке lsass заражен, только почему то cureit не видит вируса в нем. подскажите пожалуйста чем лучше лечить?
значит недавно добавили запись. скачайте свежий cureit и повторите лечение.
#5 gothic314
Отправлено 25 Июль 2011 — 18:56
скачал новый cureit и он обнаружил вирус в этом файле, правда не смог вылечить и удалил его.
большое спасибо за помощь
#6 userr
Отправлено 25 Июль 2011 — 19:01
скачал новый cureit и он обнаружил вирус в этом файле, правда не смог вылечить и удалил его.
там нечего было «лечить», это вирус как таковой.
очень советую сделать ещё комплект логов для контроля
Источник: forum.drweb.com