ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ожидания доступности
25 сообщений из 47, страница 1 из 2
  1  все
ожидания доступности
    #38127972
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Option Explicit
Private Declare Function InternetGetConnectedState _
Lib "wininet.dll" (ByRef lpSFlags As Long, _
ByVal dwReserved As Long) As Long

Public Function InternetConnected() As Boolean
InternetConnected = InternetGetConnectedState(0&, 0&)
End Function

Private Sub Form_Load()
MsgBox "0"
Timer1.Enabled = True
MsgBox "1"
End Sub

Private Sub Timer1_Timer()
If InternetConnected Then
MsgBox "Текущее подключение к Интернену активно!"
Timer1.Enabled = False
Else
MsgBox "Текущее соединение отсутствует!"
DoEvents
End If

End Sub



вот код я намутил, она не работает, мне бы хотелось чтобы однёрка выходила когда есть интернет, если нет то ждет пока будет и тогда выходит, или что то с вызовом функции, не хотелось бы использовать цикл типа
Код: vbnet
1.
2.
3.
While условие 'до тех пор  
DoEvents
Wend


она загружает процессор 100%
...
Рейтинг: 0 / 0
28.01.2013, 20:56
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128032
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А проблема-то в чем, у тебя же есть
Код: vbnet
1.
MsgBox "Текущее подключение к Интернену активно!"

зачем тебе что-то ждать в Form_Load?
...
Рейтинг: 0 / 0
28.01.2013, 22:23
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128038
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Shocker.Pro, мне надо если "подключение к сети активно" то отключаем таймер, если нет , то дожидаемся когда будет интернет и тогда продолжаем код, то есть далее msgbox "1"
...
Рейтинг: 0 / 0
28.01.2013, 22:31
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128070
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ну и?
Код: vbnet
1.
2.
3.
Timer1.Enabled = False
MsgBox "Текущее подключение к Интернену активно!"
MsgBox "1"
...
Рейтинг: 0 / 0
28.01.2013, 23:06
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128088
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
блин, ну почему же вы меня не понимаете (
...
Рейтинг: 0 / 0
28.01.2013, 23:33
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128089
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Shocker.Pro,
...
Рейтинг: 0 / 0
28.01.2013, 23:33
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128095
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Может потому, что ты не отвечаешь на вопросы?
...
Рейтинг: 0 / 0
28.01.2013, 23:37
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128262
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
На модуле:
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Option Explicit

Public Declare Function InternetGetConnectedState _
Lib "wininet.dll" (ByRef lpSFlags As Long, _
ByVal dwReserved As Long) As Long

Public Function InternetConnected() As Boolean
InternetConnected = InternetGetConnectedState(0&, 0&)
End Function

Public Sub f1()
While InternetConnected = False
DoEvents
Wend
End Sub


На форме:
 
Код: vbnet
1.
2.
3.
4.
5.
Private Sub Form_Load()
MsgBox "0"
f1
MsgBox "1"
End Sub


Вот код, как думает что он делает?! Мне надо чтоб он делал тоже самое, только без помощи циклов, цикл загружает процессор на 100% и это не есть гуд.
...
Рейтинг: 0 / 0
29.01.2013, 09:37
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128288
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ответь на вопрос сначала.
Shocker.Proзачем тебе что-то ждать в Form_Load ?можно сделать ожидание в Form_Load через Sleep, это не будет грузить процессор. Но нужно ли это.
...
Рейтинг: 0 / 0
29.01.2013, 09:51
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128338
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Shocker.Pro, я не совсем понимаю твоего вопроса, то что я привел с msgbox это просто пример вместо него будет другой код, form_load должна ждать наличия интернета и только тогда пойти дальше
...
Рейтинг: 0 / 0
29.01.2013, 10:19
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128403
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Почему этот "другой код" должен быть обязательно в Form_Load?
...
Рейтинг: 0 / 0
29.01.2013, 10:53
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128415
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Shocker.Pro,

Видимо ТС хочет просто в таймер запихнуть проверку по типу, но объяснить толком не умеет
Код: vbnet
1.
MsgBox IIf(InternetGetConnectedState(0&, 0&), 1, 0)



К тому же способ не самый верный, тогда уж лучше пинговать какой-то сервер/подключаться(ловить ошибку)
...
Рейтинг: 0 / 0
29.01.2013, 10:58
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128417
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
VSVLADВидимо ТС хочет просто в таймер запихнуть проверку по типу, но объяснить толком не умеетДа не, он хочет сделать какие-то действия после появления коннекта, но уже второй топик сопротивляется запихнуть вызов этих действий в Timer1_Timer
...
Рейтинг: 0 / 0
29.01.2013, 10:59
| Ответить | Цитировать | Написать  
ожидания доступности
    #38129566
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
можно конечно каждый раз сувать все в таймер и с проверкой инета сначала, типа "если есть то делаем это действие отключаем таймер" , так ооочень неудобно, для каждого действия с инетом придется писать отдельный таймер, а мне бы хотелость с вызовом кода ( функции- одной функции), я уже написал вот код который я хочу , все хорошо все работает как надо, только вот мой способ процессор грузит на 100%, может как то можно по другому решить
...
Рейтинг: 0 / 0
29.01.2013, 19:32
| Ответить | Цитировать | Написать  
ожидания доступности
    #38129571
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Shocker.Pro ,
"Да не, он хочет сделать какие-то действия после появления коннекта" - я вижу ты наконец то понел)
...
Рейтинг: 0 / 0
29.01.2013, 19:34
| Ответить | Цитировать | Написать  
ожидания доступности
    #38129579
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ильшат190для каждого действия с инетом придется писать отдельный таймерэто еще зачем?

Ну да ладно. Посмотри функцию Sleep, он не грузит процессор
...
Рейтинг: 0 / 0
29.01.2013, 19:43
| Ответить | Цитировать | Написать  
ожидания доступности
    #38129625
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
понятия не имею как можно использовать функции слип
...
Рейтинг: 0 / 0
29.01.2013, 20:28
| Ответить | Цитировать | Написать  
ожидания доступности
    #38129648
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Так посмотри примеры на форуме. Или опять "напишите программу за меня"?
...
Рейтинг: 0 / 0
29.01.2013, 20:44
| Ответить | Цитировать | Написать  
ожидания доступности
    #38129671
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Shocker.Pro,

я знаю что она делает, я не могу сообразить как его использовать, напишите хотябы суть как должна работать
...
Рейтинг: 0 / 0
29.01.2013, 21:00
| Ответить | Цитировать | Написать  
ожидания доступности
    #38130494
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
шокер если сам не знаешь зачем писать
...
Рейтинг: 0 / 0
30.01.2013, 13:22
| Ответить | Цитировать | Написать  
ожидания доступности
    #38130568
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ты посмотрел примеры на форуме? Что именно тебе непонятно?
...
Рейтинг: 0 / 0
30.01.2013, 13:55
| Ответить | Цитировать | Написать  
ожидания доступности
    #38130578
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Shocker.Pro,

я не могу представить как это будет работать
...
Рейтинг: 0 / 0
30.01.2013, 13:59
| Ответить | Цитировать | Написать  
ожидания доступности
    #38130600
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Не надо представлять, надо сделать пример и посмотреть.
...
Рейтинг: 0 / 0
30.01.2013, 14:09
| Ответить | Цитировать | Написать  
ожидания доступности
    #38130607
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Antonariy,

как я найду то не зная что
...
Рейтинг: 0 / 0
30.01.2013, 14:12
| Ответить | Цитировать | Написать  
ожидания доступности
    #38130637
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Как ты вообще голову свою по утрам находишь?

Вот , выбери что попонятнее.
...
Рейтинг: 0 / 0
30.01.2013, 14:27
| Ответить | Цитировать | Написать  
25 сообщений из 47, страница 1 из 2
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ожидания доступности
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38129648&tid=2157169]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 42ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 59ms
get tp. blocked users:
 1ms
others: 15ms
total:  160ms
созд. / загр.: 160ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]