Воскресенье, 24.11.2024, 09:41 | Приветствую Вас Гость

...

Код

Главная » Статьи » Small Basic

test6.sb

number_1 = 0
number_2 = 2
GraphicsWindow.Width = 500
GraphicsWindow.Height = 300
GraphicsWindow.FontSize = 11
GraphicsWindow.Title = "Работа с двумя текстовыми полями"
GraphicsWindow.BrushColor = "Blue"
NewBtnSet = Controls.AddButton("сложить поля", 0,150) 
Controls.SetSize(NewBtnSet, 300,50)
Controls.ButtonClicked = OnButtonClick
Controls.TextTyped = OnTextTyped
NewEdit_1 = Controls.AddTextBox(0,0)
NewEdit_2 = Controls.AddTextBox(0,50)


Sub OnButtonClick
  if Controls.LastClickedButton = NewBtnSet Then
  result = number_1 + number_2
  GraphicsWindow.ShowMessage(result,"Результат сложения")
EndIf
EndSub

Sub OnTextTyped
  edit = Controls.LastTypedTextBox
  If edit = NewEdit_1 then
    number_1 = Controls.GetTextBoxText(edit)
  Else
    number_2 = Controls.GetTextBoxText(edit)
  EndIf
EndSub

Категория: Small Basic | Добавил: moskov (15.02.2024)
Просмотров: 47 | Рейтинг: 0.0/0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Меню сайта

Категории раздела

PHP [41]
C++ [71]
Autoit [108]
Processing [105]
Basic4GL [7]
Fasm [2]
PABC [7]
Js [233]
Gentee [1]
Python [204]
Java android [3]
Small Basic [9]

Мини-чат

Статистика


Онлайн всего: 8
Гостей: 8
Пользователей: 0

Форма входа

Друзья сайта

  • ЗОВ КОСМОСА

  • Хулиган Вселенной

  • Тюремная поэзия

  • Религиозная поэзия

  • Сайт клана ЛеГиоН
  • Поиск