Перейти к содержанию

Программирование вне тематики форума


Рекомендуемые сообщения

С формой разобрался. Спасибо светлана!

Мне нужно чтоб при нажатии на кнопку открывался файл или url.

И нужно чтоб в форме писалось сколько времени осталось до срабатывания таймера.

Ссылка на комментарий
Поделиться на другие сайты

  • Ответов 187
  • Создана
  • Последний ответ

Топ авторов темы

Топ авторов темы

Изображения в теме

C таймером вообще всё просто...

Вот я в VB6 сейчас сделала минут за 10, правда потом около часа наводила красоту. Люблю, чтобы всё было чётко и красиво :rolleyes:

Таймер.rar

Если хотите, чтобы жизнь улыбалась вам, подарите ей своё хорошее настроение

Ссылка на комментарий
Поделиться на другие сайты

сделала минут за 10, правда потом около часа наводила красоту. Люблю, чтобы всё было чётко и красиво :rolleyes:

да, страдаю такой же болезнью, люблю качественный и красивый интерфейс. Это очень плохая болезнь.

С недавних пор начал поддерживать утверждение М.Фленова, в котором говориться: "Хочешь создать качественный интерфейс? - Посмотри как это делают в Майкрософт" Хоть самих МС не очень уважаю, но признаю что успех свой они завоевали отчасти именно этим. Во всех программах можно разобраться интуитивно, благодаря использованию стандартных компонентов, меню и тп. Все знают где искать пункты открыть -закрыть-сохранить- выход? Конечно, в меню Файл :rolleyes: Все должно быть по минимуму и удобству, всетаки приложение это не картина, основная польза от него заключается в эффективности кода.

пс Усиленно лечусь, пока получается.

абыр абыр абырвалг...

Ссылка на комментарий
Поделиться на другие сайты

Сравнительное тестирование аккумуляторов EVE Energy и Samsung типоразмера 18650

Инженеры КОМПЭЛ провели сравнительное тестирование аккумуляторов EVE и Samsung популярного для бытовых и индустриальных применений типоразмера 18650. 

Для теста были выбраны аккумуляторы литий-никельмарганцевой системы: по два образца одного наименования каждого производителя – и протестированы на двух значениях тока разряда: 0,5 А и 2,5 А. Испытания проводились в нормальных условиях на электронной нагрузке EBD-USB от ZKEtech, а зарядка осуществлялась от лабораторного источника питания в режиме CC+CV в соответствии с рекомендациями в даташите на определенную модель. Подробнее>>

Реклама: АО КОМПЭЛ, ИНН: 7713005406, ОГРН: 1027700032161

Сейчас случайно набрала не цифирки, а буковки и своей программульке...

Пришлось кое что добавить. :P

Не люблю незаконченности... :rolleyes:

Если хотите, чтобы жизнь улыбалась вам, подарите ей своё хорошее настроение

Ссылка на комментарий
Поделиться на другие сайты

Новый аккумулятор EVE серии PLM для GSM-трекеров, работающих в жёстких условиях (до -40°С)

Компания EVE выпустила новый аккумулятор серии PLM, сочетающий в себе высокую безопасность, длительный срок службы, широкий температурный диапазон и высокую токоотдачу даже при отрицательной температуре. 

Эти аккумуляторы поддерживают заряд при температуре от -40/-20°С (сниженным значением тока), безопасны (не воспламеняются и не взрываются) при механическом повреждении (протыкание и сдавливание), устойчивы к вибрации. Они могут применяться как для автотранспорта (трекеры, маячки, сигнализация), так и для промышленных устройств мониторинга, IoT-устройств. Подробнее параметры и результаты тестов новой серии PLM по ссылке.

Реклама: АО КОМПЭЛ, ИНН: 7713005406, ОГРН: 1027700032161

Ну раз говорится о закончености - я бы начал с того что приделал бы ещё англ язык :) А то блин даже посмотреть не могу :) (правда ещё не пробовал)

Ссылка на комментарий
Поделиться на другие сайты

Литиевые батарейки и аккумуляторы от мирового лидера  EVE в Компэл

Компания Компэл, официальный дистрибьютор EVE Energy, бренда №1 по производству химических источников тока (ХИТ) в мире, предлагает продукцию EVE как со склада, так и под заказ. Компания EVE широко известна в странах Европы, Америки и Юго-Восточной Азии уже более 20 лет. Недавно EVE была объявлена поставщиком новых аккумуляторных элементов круглого формата для электрических моделей «нового класса» компании BMW.

Продукция EVE предназначена для самого широкого спектра применений – от бытового до промышленного. Подробнее>>

Реклама: АО КОМПЭЛ, ИНН: 7713005406, ОГРН: 1027700032161

Хм... и правда... :unsure:

Я не так хорошо знаю английский, чтобы всё правильно написать в программе.

Стыдно будет за свой английский :unsure:

Если хотите, чтобы жизнь улыбалась вам, подарите ей своё хорошее настроение

Ссылка на комментарий
Поделиться на другие сайты

Я имею ввиду разные выражения, которые я вывожу в разных TextBox и Label

Если хотите, чтобы жизнь улыбалась вам, подарите ей своё хорошее настроение

Ссылка на комментарий
Поделиться на другие сайты

Для учебной программки и так сойдет. Это просто показать, как работать с таймером, ну и как запускать приложения, например браузер.

Если хотите, чтобы жизнь улыбалась вам, подарите ей своё хорошее настроение

Ссылка на комментарий
Поделиться на другие сайты

C таймером вообще всё просто...

Вот я в VB6 сейчас сделала минут за 10, правда потом около часа наводила красоту. Люблю, чтобы всё было чётко и красиво :rolleyes:

Таймер.rar

Спасибо! В этой программе мне нужно только чтоб писало сколько осталось времени(29 28 27 ..итд.) а кнопка ПУСК, стоп, и открытия барузера - не надо. Просто если вам не сложно дайте код в этот форум.

Также не нужно отчет запушен, остановлен и не нужно кнопок. Просто во время окончания - запускается новая форма(или следующая страница)

Изменено пользователем Влад
Ссылка на комментарий
Поделиться на другие сайты

Ну все же есть в коде...

Само отображение здесь:

Private Sub Timer1_Timer()

Label1.Caption = Label1.Caption - 1

If Label1.Caption = 0 Then

...

Timer1.Enabled = False

End If

...

End Sub

Но, чтобы показать работу, нужно предварительно установить начальное время в Label1 и запустить таймер строкой: Timer1.Enabled = True, что и делается кнопкой.

Если вам не нужен запуск IE, зачем тогда просили

Мне нужно чтоб при нажатии на кнопку открывался url

Если хотите, чтобы жизнь улыбалась вам, подарите ей своё хорошее настроение

Ссылка на комментарий
Поделиться на другие сайты

Ну все же есть в коде...

Само отображение здесь:

Private Sub Timer1_Timer()

Label1.Caption = Label1.Caption - 1

If Label1.Caption = 0 Then

Timer1.Enabled = False

End If

End Sub

Но, чтобы показать работу, нужно предварительно установить начальное время в Label1 и запустить таймер строкой: Timer1.Enabled = True, что и делается кнопкой.

Если вам не нужен запуск IE, зачем тогда просили

Мне нужно чтоб при нажатии на кнопку открывался url

но я кое что изменил в программе.

еще мне нужно код для окрытия/исполнения файла. В инете нашел но он на Бейсик 2005 . А с кодом не выходит, толи я его нитуда вписываю, все сделал. ничё даже не отображает. Если у вас есть время, можно пример с кодом.

Вот то , что я сделал

Public Class Form4
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
	Close()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
	Me.Hide()
	Form5.Show()
End Sub

Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
	Timer1.Enabled = True
	Me.Hide()
	Form5.Show()
	Timer1.Enabled = False
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
End Class

Ссылка на комментарий
Поделиться на другие сайты

Я уже говорила, что у меня Visual Studio 2008 не стоит, поэтому с кодом помочь не могу, негде проверять, а наобум я не могу...

Если хотите, чтобы жизнь улыбалась вам, подарите ей своё хорошее настроение

Ссылка на комментарий
Поделиться на другие сайты

Я уже говорила, что у меня Visual Studio 2008 не стоит, поэтому с кодом помочь не могу, негде проверять, а наобум я не могу...

А можете написать пример с таймером на VB 6 у меня идет от 6 на 8

Ссылка на комментарий
Поделиться на другие сайты

Извините, забыла, что в VB записывается проект не совсем по обычному...

Исправила

Если хотите, чтобы жизнь улыбалась вам, подарите ей своё хорошее настроение

Ссылка на комментарий
Поделиться на другие сайты

Извините, забыла, что в VB записывается проект не совсем по обычному...

Исправила

Спасибо!

А как сделать так чтоб юзер не мог передвинуть форму?

Изменено пользователем Влад
Ссылка на комментарий
Поделиться на другие сайты

Свойство формы Moveable = false

PS: Ой, засветился :)

Великие возможности приходят ко всем, но многие даже не подозревают, что встречались с ними.

Ссылка на комментарий
Поделиться на другие сайты

Правильно, нет. Ето свойство формы а не функция!

Среда программирования Microsoft Visual Basic 6.0

скриншот в архиве :)

Текстовый_документ.rar

Великие возможности приходят ко всем, но многие даже не подозревают, что встречались с ними.

Ссылка на комментарий
Поделиться на другие сайты

А этого я не знал :) не знаком м 8-кой

Если в ней есть событие "при перетаскивании формы" или как оно там называется, то всавь такой код:

Dim OldX As Long
Dim OldY As Long

Private Sub Form_Load()
OldX = Form1.Left
OldY = Form1.Top
End Sub

а в обработку события "при перетаскивании" соответственно такой

Form1.Left = OldX

Form1.Top = OldY

в 6-ке такого "при перетаскивании" нету.. Если не заработает есть еще идейка, но сейчас извините, мне пора, сегодня еще зайду...

Великие возможности приходят ко всем, но многие даже не подозревают, что встречались с ними.

Ссылка на комментарий
Поделиться на другие сайты

А этого я не знал :) не знаком м 8-кой

Если в ней есть событие "при перетаскивании формы" или как оно там называется, то всавь такой код:

Dim OldX As Long
Dim OldY As Long

Private Sub Form_Load()
OldX = Form1.Left
OldY = Form1.Top
End Sub

а в обработку события "при перетаскивании" соответственно такой

Form1.Left = OldX

Form1.Top = OldY

в 6-ке такого "при перетаскивании" нету.. Если не заработает есть еще идейка, но сейчас извините, мне пора, сегодня еще зайду...

Не работает :(

Ссылка на комментарий
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.
Примечание: Ваш пост будет проверен модератором, прежде чем станет видимым.

Гость
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Ответить в этой теме...

×   Вставлено с форматированием.   Восстановить форматирование

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

Загрузка...
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...