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

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

  1. borisblade

    borisblade Гость

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

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

    alex77755 Well-Known Member

    Регистрация:
    15 фев 2009
    Сообщения:
    128
    Симпатии:
    0
    Ты собираешся писать программу в "Блокноте"?
    Тогда для VB6 можно так:

    Код (Text):
    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"
    :)
     
Загрузка...

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