2 Этап Работа с готовыми программами

Пример программы: Проект «Пирамида»

Public Class frmPiramid

Private Sub btnPusk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPusk.Click

Dim SOsn, Shag, X0, Y0, Dlina As Long

Dim picGraphics As Graphics

picGraphics = picPiramid.CreateGraphics()

Dim rnd As New Random()

X0 = picPiramid.Width / 2

Y0 = picPiramid.Height / 2

SOsn = Convert.ToInt32(txtSOsn.Text)

Shag = Convert.ToInt32(txtShag.Text)

Dlina = Math.Sqrt(SOsn)

Do

Dim RndBrush = New SolidBrush(Color.FromArgb(rnd.NextDouble * 255, rnd.NextDouble * 255, rnd.NextDouble * 255))

picGraphics.FillRectangle(RndBrush, Convert.ToInt16(X0 - Dlina / 2), Convert.ToInt16(Y0 - Dlina / 2), Dlina, Dlina)

Dlina = Dlina - Shag

Loop While Dlina > 0

End Sub

End Class

3 Этап Составление программ

17. Методика введения понятия “Строки”

3 этапа обучения: 1) Подготовительный этап предназначен для введения терминологии. 2) Этап работы с готовыми документами предназначен для осознания и усвоения учениками работы с электронными документами с использованием электронных инструментов. 3) Этап построения документа предназначен для формирования приемов построения электронных документов с использованием электронных инструментов.

1 Этап Подготовительный

1.Строки предназначены для хранения набора символов. Строковая величина представляет собой одномерную таблицу. Строковая переменная содержит текст в кодировке Unicode длиной до 2³¹ (более 2 миллиардов!) символов. Объявление строковой переменной: Dim Stroka As String Stroka= “информатика”

2.Для работы со строковой переменной использ. следующие функции: Chr(Cod) – символ по коду (Chr(232) символ “и”, Chr(10)+Chr(13) конец строки и перевод каретки);

ASC(Stroka) – код первого симв. в строке (для симв.“и” – 232)

3.Для работы со строковой переменной используются следующие свойства и методы:

Stroka.Length – длина строки; (длина 11 символов)

Symbol= Stroka.Substring(Nachalo, Dlina) – вырезка из переменной; (Simvol= Stroka.Substring(2,5) – “форма”). Нумерация символов начинается с 0.

Stroka.Substring(Nachalo, Dlina)= Symbol – замена части символов; (Stroka.Substring(4,1)= “л” – “инфолматика”)

2 Этап Работа с готовыми программами

Пример программы: Количество символов

Public Class frmSymbol

Private Sub btnRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRun.Click

Dim k, i As Integer, S, Text As String

k = 0

S = txtSymbol.Text

Text = rtbText.Text

For i = 0 To Text.Length - 1

If Text.Substring(i, 1) = S Then k = k + 1

Next i

lblResult.Text = "K= " + Convert.ToString(k)

End Sub

End Class