Четверг, 28.11.2024, 02:23 | Приветствую Вас Гость

...

Код

Главная » Статьи » Autoit

StringIsDigit

Как бы эта программка выглядела без стандартной функции StringIsDigit?
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>   
Local $hGUI = GUICreate("Приложение на autoit",500,500)
GUICtrlCreateLabel("Введите текст", 10, 0,150,25) 
Local $idInput_1 = GUICtrlCreateInput("", 10, 25, 300, 20)
Local $clicked= GUICtrlCreateButton("Проверка на число", 10, 100,150,25) 
GUISetState(@SW_SHOW, $hGUI)
While 1
$msg = GUIGetMsg()
if  $msg = $GUI_EVENT_CLOSE then
ExitLoop
endif
if  $msg = $clicked then
$word = GUICtrlRead($idInput_1)
$res = StringIsDigit($word)
if $res = 1 then
msgbox(0,"Сообщение","Это число")
Else
msgbox(0,"Сообщение","Невозможно преобразовать в число")
endif
endif

WEnd

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

Меню сайта

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

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

Мини-чат

Статистика


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

Форма входа

Друзья сайта

  • ЗОВ КОСМОСА

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

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

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

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