Jump to content
ivan219

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

Recommended Posts

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

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

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

Share this post


Link to post
Share on other sites

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

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

Таймер.rar

Share this post


Link to post
Share on other sites
сделала минут за 10, правда потом около часа наводила красоту. Люблю, чтобы всё было чётко и красиво :rolleyes:

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

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

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

Share this post


Link to post
Share on other sites

Литиевые батарейки Fanso для систем телеметрии и дистанционного контроля

Системы телеметрии находят все более широкое применение во многих отраслях на промышленных и коммунальных объектах. Требования, предъявляемые к условиям эксплуатации приборов телеметрии и, как следствие, источников питания для них, могут быть довольно жесткими. Fanso предоставляет широкую линейку продукции, рассчитанной на различные условия эксплуатации, что позволяет подобрать батарейку для каждого конкретного применения, в том числе и для устройств телеметрии.

Подробнее

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

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

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites
                     

Приглашаем на вебинар Решения для построения ультразвуковых счетчиков жидкостей и газов на базе MSP430

Компэл совместно с Texas Instruments 23 октября 2019 приглашают на вебинар, посвященный системам-на-кристалле для построения ультразвуковых расходомеров жидкостей и газов на базе ядра MSP430. Вебинар проводит Йоханн Ципперер – эксперт по ультразвуковым технологиям, непосредственно участвовавший в создании данного решения. На вебинаре компания Texas Instruments представит однокристальное решение, позволяющее создавать точные недорогие счетчики жидкостей и газов.

Подробнее...

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

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

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

Share this post


Link to post
Share on other sites

Да там всего то 20 - 30 словей!!! Причём половина будет скопирована с уже готовых програм :)

Share this post


Link to post
Share on other sites

Так для этого и нужны тестюзеры :) Напиши а мы тут обкатаем програмку на предмет ошибок :) Ну и потом финальный релиз :)

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites
C таймером вообще всё просто...

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

Таймер.rar

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

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

Edited by Влад

Share this post


Link to post
Share on other sites

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

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

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

Share this post


Link to post
Share on other sites
Ну все же есть в коде...

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

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

Share this post


Link to post
Share on other sites

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

Share this post


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

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

Share this post


Link to post
Share on other sites

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

Исправила

Share this post


Link to post
Share on other sites
Извините, забыла, что в VB записывается проект не совсем по обычному...

Исправила

Спасибо!

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

Edited by Влад

Share this post


Link to post
Share on other sites

А этого я не знал :) не знаком м 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-ке такого "при перетаскивании" нету.. Если не заработает есть еще идейка, но сейчас извините, мне пора, сегодня еще зайду...

Share this post


Link to post
Share on other sites
А этого я не знал :) не знаком м 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-ке такого "при перетаскивании" нету.. Если не заработает есть еще идейка, но сейчас извините, мне пора, сегодня еще зайду...

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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...

×
×
  • Create New...