• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

подскажите простейший код

  • Автор темы borisblade
  • Дата начала
B

borisblade

У меня имеется написанный модуль с переменными, константами, функциями и процедурами. Мне необходимо проверить, правильно ли он работает.
Прога для отладки должна включать несколько полей для ввода: туда я буду вводить значения переменных, несколько кнопок, по нажатию кот. будет выполняться определенная функция или процедура, поля для вывода, куда будут выводиться переменные - результат рабаты функция/процедур.
п
Подскажите, пожалуйста, простейший код, который:
1 выводит на экран окно с одним полем ввода цифровых данных
2 окно имеет одну кнопку, при нажатии кот. отрабатывает процедура
3 одно поле вывода куда выводиться результат

Пример
в поле ввода ввожу 9
кнопка вызывает функцию "возвести в квадрат"
в поле вывода появляется 81
 
A

alex77755

Подскажите, пожалуйста, простейший код, который:
... окно имеет одну кнопку, при нажатии кот...
Ты собираешся писать программу в "Блокноте"?
Тогда для VB6 можно так:

Код:
VERSION 5.00
Begin VB.Form Форма1 
Caption		 =  "Форма1"
ClientHeight	=  3090
ClientLeft	 =  60
ClientTop	  =  450
ClientWidth	 =  4680
LinkTopic	  =  "Форма1"
ScaleHeight	 =  3090
ScaleWidth	 =  4680
StartUpPosition =  3 'Окна По Умолчанию
Begin VB.CommandButton Комманда1 ' кнопка, при нажатии кот. отрабатывает процедура
Caption		 =  "Комманда1"
Height		 =  375
Left			=  1800
TabIndex		=  1
Top			 =  360
Width		  =  1215
End
Begin VB.TextBox Текст1 ' выводит поле текстовое. Можно использовать для ввода данных
Height		 =  375
Left			=  240
TabIndex		=  0
Text			=  "Текст1"
Top			 =  360
Width		  =  1335
End
Begin VB.Label Метка1 ' поле вывода куда выводиться результат
Caption		 =  "Метка1"
Height		 =  375
Left			=  3240
TabIndex		=  2
Top			 =  360
Width		  =  1095
End
End
Attribute VB_Name = "Форма1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
И файл сохрани: "Форма1.frm"
:)
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!