1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

Тема в разделе "Visual Basic", создана пользователем borisblade, 17 янв 2010.

  1. borisblade

    borisblade Гость

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

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

    alex77755 Well-Known Member

    Репутация:
    0
    Регистрация:
    15 фев 2009
    Сообщения:
    128
    Симпатии:
    0
    Ты собираешся писать программу в "Блокноте"?
    Тогда для 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"
    :)
     
Загрузка...

Поделиться этой страницей