| История развития программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Калькулятор, помосчь при создании, обьяснение !!! Копирование файлов по локальной сети Запуск программы с параметрами кнопка в заголовке окна Как Вы относитесь к курящим девушкам? Блокировка пол. install JBuilder, kak instalirovatJBuilder7 na linux Огромный расчет - нужно написать прогу, Помогите выбрать язык VB6 vs PB7, интересный прикол дозвон до интрнета Определение стиля рабочего стола error '339' - ДОСТАЛА!!!, дома работает, в универе- нет Как проверить TextBox Таблица значений в 1С, анологично в VB возможно? Справочник функций API, где взять OCX не происходит Text_Validate При закрытии формы, При Form_QueryUnload поле не проверяетс Помогите начинающему, Хочу начать изучать Java... В Word-е как получить имя открытого файла, БЕЗ расширения книга по DirectX события ComboBox скроллы в MDI На Ваш суд и заодно может что подскажете, архив Проблема при ЗАПУСКЕ проги под VB! Связь VB и WWW, какая может быть - Как задать минимальный размер формы? DialUP без настроек в Удаленном доступе к сети Global переменная Взаимодействие PHP c JAVA Запуск программы с заданными параметрами, как сделать? Вопрос по ActiveX не работает функция, rundll32 rnaui.dll,RnaWizard /1 заполнить список ComboBox (DBCombo) _, Значениями из опред. поля Data Base ? Проверка канала, IP адрес Help!!! Проверка Record's Fields На правильность типов, несоотв-е типа введенных USER-om данных Значение ячейки в MS Exel, Как присвоить значение ячейки Текст: Как "снять" слово с текста на метке Ошибка в программе, нахождение точки, на графике VSFlexGrid 7.0 Pro - что об этом знаете, возможность работы без базы данных Дока для подготовки к Certified Programmer Работа с датой, Как ввести дату по шаблону?? компиляция программы на VB, не получается закрыть другое приложение из VB, например Calc HEX - to - String... DEC.... и т.п., Перевод типа данных Глюк с коллекциями как написать условия IF:, 1) Если Х не Integer то... Удаление каталогов, Не могу удалить папку Мыло, через VB Работа с LPT портом!!!, Работа с LPT портом!!! Как Вы относитесь к курящим девушкам? Счетчик, посещаемости... Узнать текущий директорий Скрытие строк в Excel Увеличение DataGrid при увеличении размкра формы, чтоб автоматом добавлялись ячейки Выбор даты из таблицы, что максимально, приближенная к указанной Создание нового листа в Excel из VBA как запомнить цвет Отчеты=(, Не обновляются=( разбивка многострочной строки Перетаскивание группы ячеек в excel Как прочитать текст из Word-ова doc-a Как сделать рандомные картинки при перезагрузке?, готовый пример, куки, Math.random и т.д. Вопрос к мэтрам и зубрам Прблемы при работе с реестром Работа с элементом TabStrip Перехват событий нажатия клавиш. есть немного работы, создать базу данных Как подключить Progress Bar control?, если его нет! Нити(потоки) в VB, Корректное создание Работа программы на VB без Excel |
Платные хостинги Раскрутка сайта Книги по программированию Калькулятор, помосчь при создании, обьяснение !!!
- Привет всем, помогите мне пожалуйста написать калькулятор надо обычный с функциями умножение, деление, плюс, минус, корень, там и всё вродебы, прост хватит мне чтобы на кнопочки мышкой нажмиать вот и всё с клавиатурою ничего ненадо ... просто обычный калькулято как в Форточках я незнаыу как помогите плиз если это уж слишком трудно то мне хоть на форуме напишите как это можно сделать заранее большое спасибо!Код Dim OpX, OpYDim IDim VysPrivate Sub cmdDelit_Click()OpX = cmdOut.CaptionI = 1Vys = 4End SubPrivate Sub cmdUmnoz_Click()OpX = cmdOut.CaptionI = 1Vys = 3End SubPrivate Sub cmdMinus_Click()OpX = cmdOut.CaptionI = 1Vys = 2End SubPrivate Sub cmdPlus_Click()OpX = cmdOut.CaptionI = 1Vys = 1End SubPrivate Sub cmdSmazat_Click()txtcmdOut.Caption = "0"I = 1End SubPrivate Sub cmdRovno_Click()Dim nexOpY = cmdOut.CaptionIf Vys = 1 ThenOn Error GoTo nexcmdOut.Caption = CDbl(OpX) + CDbl(OpY)GoTo nex:End IfIf Vys = 2 ThenOn Error GoTo nexcmdOut.Caption = CDbl(OpX) - CDbl(OpY)GoTo nex:End IfIf Vys = 3 ThenOn Error GoTo nexcmdOut.Caption = CDbl(OpX) * CDbl(OpY)GoTo nex:End IfIf Vys = 4 ThenIf OpY = 0 ThencmdOut.Caption = "Nelze delit nulou!"GoTo nexElseOn Error GoTo nexcmdOut.Caption = CDbl(OpX) / CDbl(OpY)GoTo nex:End IfEnd IfIf Vys = 5 ThenOn Error Resume NextcmdOut.Caption = OpX ^ OpYGoTo nex:End IfExit Subnex:I = 1Vys = 0End SubPrivate Sub cmdNum0_Click()If I = 1 ThenIf cmdOut.Caption = "0" Then Exit SubIf cmdOut.Caption = "-0" Then Exit SubI = 0cmdOut.Caption = cmdNum0.CaptionExit SubElseIf Len(cmdOut.Caption) >= 50 ThenBeepExit SubEnd IfIf cmdOut.Caption = "0" Then Exit SubcmdOut.Caption = cmdOut.Caption + cmdNum0.CaptionEnd IfEnd SubPrivate Sub cmdNum1_Click()If I = 1 ThenI = 0cmdOut.Caption = cmdNum1.CaptionExit SubElseIf Len(cmdOut.Caption) >= 50 ThenBeepExit SubEnd IfcmdOut.Caption = cmdOut.Caption + cmdNum1.CaptionEnd IfEnd SubPrivate Sub cmdNum2_Click()If I = 1 ThenI = 0cmdOut.Caption = cmdNum2.CaptionExit SubElseIf Len(cmdOut.Caption) >= 50 ThenBeepExit SubEnd IfcmdOut.Caption = cmdOut.Caption + cmdNum2.CaptionEnd IfEnd SubPrivate Sub cmdNum3_Click()If I = 1 ThenI = 0cmdOut.Caption = cmdNum3.CaptionExit SubElseIf Len(cmdOut.Caption) >= 50 ThenBeepExit SubEnd IfcmdOut.Caption = cmdOut.Caption + cmdNum3.CaptionEnd IfEnd SubPrivate Sub cmdNum4_Click()If I = 1 ThenI = 0cmdOut.Caption = cmdNum4.CaptionExit SubElseIf Len(cmdOut.Caption) >= 50 ThenBeepExit SubEnd IfcmdOut.Caption = cmdOut.Caption + cmdNum4.CaptionEnd IfEnd SubPrivate Sub cmdNum5_Click()If I = 1 ThenI = 0cmdOut.Caption = Num5.CaptionExit SubElseIf Len(cmdOut.Caption) >= 50 ThenBeepExit SubEnd IfcmdOut.Caption = cmdOut.Caption + Num5.CaptionEnd IfEnd SubPrivate Sub cmdNum6_Click()If I = 1 ThenI = 0cmdOut.Caption = cmdNum6.CaptionExit SubElseIf Len(cmdOut.Caption) >= 50 ThenBeepExit SubEnd IfcmdOut.Caption = cmdOut.Caption + cmdNum6.CaptionEnd IfEnd SubPrivate Sub cmdNum7_Click()If I = 1 ThenI = 0cmdOut.Caption = cmdNum7.CaptionExit SubElseIf Len(cmdOut.Caption) >= 50 ThenBeepExit SubEnd IfcmdOut.Caption = cmdOut.Caption + cmdNum7.CaptionEnd IfEnd SubPrivate Sub cmdNum8_Click()If I = 1 ThenI = 0cmdOut.Caption = cmdNum8.CaptionExit SubElseIf Len(cmdOut.Caption) >= 50 ThenBeepExit SubEnd IfcmdOut.Caption = cmdOut.Caption + cmdNum8.CaptionEnd IfEnd SubPrivate Sub cmdNum9_Click()If I = 1 ThenI = 0cmdOut.Caption = cmdNum9.CaptionExit SubElseIf Len(cmdOut.Caption) >= 50 ThenBeepExit SubEnd IfcmdOut.Caption = cmdOut.Caption + cmdNum9.CaptionEnd IfEnd SubhighlightSyntax('vbxOTA4N','vb');вот это код я писал в проге ну ни как у меня невыходит помогите разабратся )) или пришлите мне на мыло код програмы со всеми пречиндалами Это сообщение отредактировал M.E.G.U.S - 5.11.2004, 19:05 - Модератор: А поиском кто пользоваться будет?http://forum.vingrad.ru/index.php?showtopic=13083 - http://legorutcha.narod.ru/vba/vba.htm  |