Слайд 2LEN(A) Длина слова в переменной А строкового типа (число букв).
LEFT(A,4) Часть слова
![LEN(A) Длина слова в переменной А строкового типа (число букв). LEFT(A,4) Часть](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/438718/slide-1.jpg)
из переменной А, взять 4 буквы слева.
RIGHT(A,2) Часть слова справа 2 буквы.
MID(A,3,5) Часть слова из переменной А, взять с 3 буквы 5 букв подряд.
ASC(“F”) Код буквы F
Сhr(Число) по коду числа - буква
Слайд 3Проект строковый калькулятор.
На форме 3 окна для ввода текста
Слово, номер символа начала,
![Проект строковый калькулятор. На форме 3 окна для ввода текста Слово, номер](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/438718/slide-2.jpg)
длина.
Надпись для вывода результата.
6 кнопок с названиями функций над строками
Left(), right(), mid(), len(), asc(), chr().
К сожалению, функции над строками не работают с русскими буквами.
Пишите слово английскими буквами.
Слайд 4Private sub button1_click()
Label1.text=left(textbox1.text, val(textbox3.text))
End
Private sub button2_click()
Label1.text=right(textbox1.text, val(textbox3.text))
end
![Private sub button1_click() Label1.text=left(textbox1.text, val(textbox3.text)) End Private sub button2_click() Label1.text=right(textbox1.text, val(textbox3.text)) end](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/438718/slide-3.jpg)
Слайд 5Private sub button3_click()
Label1.text=mid(textbox1.text, val(textbox2.text), val(textbox3.text))
End
Label1.text=Mid(TextBox1.Text, 4, 1)
Можно и так
![Private sub button3_click() Label1.text=mid(textbox1.text, val(textbox2.text), val(textbox3.text)) End Label1.text=Mid(TextBox1.Text, 4, 1) Можно и так](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/438718/slide-4.jpg)
Слайд 7Private sub button4_click()
Label1.text=len(textbox1.text)
end
![Private sub button4_click() Label1.text=len(textbox1.text) end](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/438718/slide-6.jpg)
Слайд 8Функция преобразования
строки в числовой код
ASC(Строка;$)
![Функция преобразования строки в числовой код ASC(Строка;$)](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/438718/slide-7.jpg)
Слайд 9Private sub button5_click()
Label1.text=asc(textbox1.text)
end
![Private sub button5_click() Label1.text=asc(textbox1.text) end](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/438718/slide-8.jpg)
Слайд 10Функция преобразования
числового кода в символ
Сhr(Число)
![Функция преобразования числового кода в символ Сhr(Число)](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/438718/slide-9.jpg)
Слайд 11Private sub button6_click()
Label1.text=chr(val(textbox2.text))
End
![Private sub button6_click() Label1.text=chr(val(textbox2.text)) End](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/438718/slide-10.jpg)
Слайд 12Операция слияния строк
Работает и для русских слов
![Операция слияния строк Работает и для русских слов](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/438718/slide-11.jpg)
Слайд 13A=”in” & “forma” & “tika”
Она соединяет слова в одно слово.
В переменной А
![A=”in” & “forma” & “tika” Она соединяет слова в одно слово. В](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/438718/slide-12.jpg)
получится слово “informatika”
A=”пар”
В=”ход”
C=A & ”о” & B
В переменной С получится слово пароход.
Символ & называется амперсанд. Это знак слияния.
Слайд 14Проект «Строковые функции
В среде GAMBAS»
![Проект «Строковые функции В среде GAMBAS»](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/438718/slide-13.jpg)
Слайд 15Введите слово
Позиция
Длина
BUTTON
LABEL
TEXTBOX
LABEL
![Введите слово Позиция Длина BUTTON LABEL TEXTBOX LABEL](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/438718/slide-14.jpg)
Слайд 17PUBLIC SUB Button1_Click()
Label2.Text = Mid(TextBox1.Text, Val(TextBox2.text), Val(TextBox3.Text))
END
![PUBLIC SUB Button1_Click() Label2.Text = Mid(TextBox1.Text, Val(TextBox2.text), Val(TextBox3.Text)) END](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/438718/slide-16.jpg)
Слайд 18PUBLIC SUB Button2_Click()
DIM a AS String
DIM b AS String
DIM c AS String
a
![PUBLIC SUB Button2_Click() DIM a AS String DIM b AS String DIM](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/438718/slide-17.jpg)
= Mid(TextBox1.Text, 2, 2)
b = Mid(TextBox1.text, 4, 1)
c = Mid(TextBox1.Text, 6, 1)
Label3.Text = a & b & c
END