ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / если равно продолжить работу программу далее
41 сообщений из 41, показаны все 2 страниц
  все  
если равно продолжить работу программу далее
    #38104102
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
как сделать, если переменная не
равна то программа дальше не
идет а ждет пока она будет равна,
с минимальной загрузкой на
комп желательно и второй вопрос как проверить скопировался ли файл
...
Рейтинг: 0 / 0
09.01.2013, 21:04
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38104135
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ильшат190как сделать, если переменная не
равна то программа дальше не
идет а ждет пока она будет равна,
с минимальной загрузкой на
комп желательноэто зависит от того, кто и как изменит эту переменную, пока программа "ждет"
ильшат190как проверить скопировался ли файлпроверить его наличие и размер на заданном месте
...
Рейтинг: 0 / 0
09.01.2013, 21:34
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38104323
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Shocker.Pro,

спасибо конечно, но второе именно так как я написал надо проверить в данный момент файл копируется или уже скопировался
...
Рейтинг: 0 / 0
10.01.2013, 05:59
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38104353
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
вот другой способ решения моего первого вопроса, это все мне надо изначально для этого "проверить наличие
интернета все время если есть все
нормально программа делает свое
дело , если его нет вся программа
останавливается и ждем 5минут и опять тоже самое проверяет " , я думал может на таймер с интервалом 1с кинуть проверку на инет, потом когда сделать если инет есть прога нормально работает, если нет то ждет некоторое время и опять проверяет думая/надеясь что инет включили
...
Рейтинг: 0 / 0
10.01.2013, 07:35
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38104356
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
ильшат190,

13720828 по копированию файла.
...
Рейтинг: 0 / 0
10.01.2013, 07:37
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38104380
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
VSVLADильшат190,

13720828 по копированию файла.
я был в этой теме, после этого в поисковике искал как это сделать, но кода таки не нашел, как же это проверить
...
Рейтинг: 0 / 0
10.01.2013, 08:39
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38104394
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
ильшат190,

Описание оператора "Open", параметр "Lock"
http://msdn.microsoft.com/en-us/library/aa266177(v=VS.60).aspx
...
Рейтинг: 0 / 0
10.01.2013, 09:15
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38104419
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
спасибо, с этим все понел, а вот насчет условия с проверкой инета
...
Рейтинг: 0 / 0
10.01.2013, 09:38
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38104420
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ильшат190вот другой способ решения моего первого вопросатем не менее, данных недостаточно. Опишите как вы проверяете инет и что собой представляет программа, которую надо остановить. Если эта интерактивная программа, которая ждет реакции пользователя - это одно. Если это программа, которая непрерывно занята какими-то вычислениями, которые надо приостановить, пока нет инета, - это другое.
...
Рейтинг: 0 / 0
10.01.2013, 09:39
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38104425
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
сейчас попробую на листе изобразить
...
Рейтинг: 0 / 0
10.01.2013, 09:40
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38104470
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
...
Рейтинг: 0 / 0
10.01.2013, 10:34
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38104522
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А зачем вообще проверять инет перед скачиванием файла?
Во-первых, никто не гарантирует пропадание инета после проверки, но до или во время скачивания файла
Во-вторых, почему бы просто не качать файл с отслеживанием ошибок?
...
Рейтинг: 0 / 0
10.01.2013, 11:04
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38104644
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
скачивание это просто пример, там еще будут действия связанные с инетом, лучше так конечно, но все же это как с отслеживанием ошибок
...
Рейтинг: 0 / 0
10.01.2013, 12:18
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38104672
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ну то средство, с помощью которого вы делаете "действия связанные с инетом" - оно же каким-то образом оповещает программу об успешности действия.


ильшат190скачивание это просто пример, там еще будут действия связанные с инетомбез разницы, проверка наличия интернета до операции не гарантирует его наличия во время операции. Так что надо отслеживать ошибки в любом случае.
...
Рейтинг: 0 / 0
10.01.2013, 12:37
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38104819
Фотография ильшат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.
26.
27.
28.
29.
30.
31.
32.
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 Timer1_Timer()
Dim f As String
If InternetConnected Then
f = 1
Else
Refresh
End If
End Sub
Sub telo()
Open "c:\\1.txt" For Append As #1 '????????? ???? ??? ?????????? ??????, ? ??????? ?????? 1
Print #1, Time ' ?????????? ? ???? 1.txt ?????
Close #1 '????????? ????
End Sub

Private Sub Form_Load()

Timer1_Timer

If f = 1 Then
Call telo
Else
End If
End Sub



Модератор: Учимся использовать тэги оформления кода - FAQ


вот код который должен каждую 1с проверять наличие инета, если есть то должна записать файл, если нет ждать пока включиться инет только ТОГДА выполнить пункт записи в файл, но она этого не делает, здесь переменная f не перемещает своего значения и и програма не ждет "присутствия" инета
...
Рейтинг: 0 / 0
10.01.2013, 14:08
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38104894
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Надо полагать, вы свалили два модуля в один, так как Form_Load находится на форме, в то время как Declare там быть не может.

Option Explicit надо писать В КАЖДОМ модуле ( FAQ ) тогда сразу станет ясно, что переменная f в Timer1_Timer и в Form_Load - это на самом деле две разных переменных
...
Рейтинг: 0 / 0
10.01.2013, 14:43
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38105134
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
На модуле:
 
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

На форме:
 
Таймер

Код формы:

 
Option Explicit

Dim f As String


Public Sub Timer1_Timer()
If InternetConnected Then
f = "1"
Else
End If
End Sub


Public Function telo()
Open "c:\\1.txt" For Append As #1
Print #1, Time
Close #1
End Function

Public Sub Form_Load()
Timer1_Timer
If f = "1" Then
Call telo
Else
End If
End Sub


Этот код, если при запуске интернет есть, то записывает файл если нет то нечего не делает.
Мне надо чтобы он ждал когда интернет появится и потом при наличии записал файл.
...
Рейтинг: 0 / 0
10.01.2013, 16:29
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38105195
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Public Sub Timer1_Timer()

If InternetConnected Then
  Timer1.Interval = 0
  Call telo
End If

End Sub



Еще раз прошу научиться оформлять сообщение правильно
...
Рейтинг: 0 / 0
10.01.2013, 17:02
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38105277
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Спасибо. А что если интернет отключится потом в процесе работы программы, надо бы как то следить чтоб если интернет отключился то обратно ждем пока интернет будет и выполняем занова
...
Рейтинг: 0 / 0
10.01.2013, 17:37
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38105298
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
а где тут процесс работы программы-то? программа скачала файл и все. Не вижу никакого процесса работы или хотя бы его описания
...
Рейтинг: 0 / 0
10.01.2013, 17:48
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38105444
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
спасибо, ответ найден.
...
Рейтинг: 0 / 0
10.01.2013, 19:19
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38106358
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
оказывается еще есть вопрос, вопрос по схеме на фото:
http://upwap.ru/2970590 как сделать чтоб после включения таймер1 ждать пока будет интернет, и только потом перейти на другой код или таймер
...
Рейтинг: 0 / 0
11.01.2013, 14:02
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38106367
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
оказывается еще есть вопрос,
вопрос по схеме на фото , как сделать чтоб после включения
таймер1 ждать пока будет интернет,
и только потом перейти на другой
код или таймер
...
Рейтинг: 0 / 0
11.01.2013, 14:07
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38106381
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Чем не устраивает тот вариант, который я привел?
...
Рейтинг: 0 / 0
11.01.2013, 14:13
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38106611
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Shocker.Pro,

спасибо за вариант, только вот вместо "call telo" будут скачивания файлов с инета с моего сайта, их там 5-6 действий и перед началом каждой действии опять надо проверять интернет если нет то ждать пока появится потом только выполнить, только после выполнения перейти на другое действие если связана с интернетом опять же проверять если интернет есть то только тогда пойти дальше , если нет ждать пока появится
...
Рейтинг: 0 / 0
11.01.2013, 15:53
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38106636
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ну наконец-то хоть описание работы программы появилось.

Ну, собственно, мало что меняется
Код: vbnet
1.
Call Telo(i)

где i - это этап выполнения программы

После выполнения очередного этапа делается
Код: vbnet
1.
2.
3.
4.
i = i + 1
Timer1.Interval = 1000
Timer1_Timer
Exit Sub


При запуске Telo порграмма сразу приступает к нужному этапу
Если требуется сохранить значения переменных внутри Telo, можно использовать Static
...
Рейтинг: 0 / 0
11.01.2013, 16:04
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38106810
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
sub static telo()
скачка1
i=i+1
timer1.interval = 1000
timer1_timer
exit sub
скачка2
i=i+1
timer1.interval = 1000
timer1_timer
exit sub
скачка3
i=i+1
timer1.interval = 1000
timer1_timer
exit sub
end

public sub timer1_timer()
if internetconnected then
timer1.interval = 0
call telo(i)
end if
end sub

public sub form_load()
timer1_timer
end sub

вот собрал код в целое, я тут не совсем все понимаю как все происходит, правильно ли собрал
...
Рейтинг: 0 / 0
11.01.2013, 17:22
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38106818
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Модератор: Сколько мне раз нужно попросить изучить FAQ и научиться применять тэги оформления кода?
...
Рейтинг: 0 / 0
11.01.2013, 17:29
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38106821
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ильшат190вот собрал код в целое, я тут не совсем все понимаю как все происходит, правильно ли собралЧто такое скачка1? Где параметр у telo? Где анализ этого параметра?
...
Рейтинг: 0 / 0
11.01.2013, 17:31
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38106823
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
да там код не рабочий, там сразу же exit sub
...
Рейтинг: 0 / 0
11.01.2013, 17:32
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38106836
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Konst_Oneда там код не рабочий, там сразу же exit subНу так правильно, надо ж сделать хотя бы через Select Case
...
Рейтинг: 0 / 0
11.01.2013, 17:38
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38106840
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
я с телефона пишу, не могу найти тег который как код показывает текст, "скачка1" это то место где будет первое действие связанное с интернетом, это Вы про какой параметр, анализ
...
Рейтинг: 0 / 0
11.01.2013, 17:42
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38106844
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
то есть правильно, а зачем команда выбора, в каком месте нужна
...
Рейтинг: 0 / 0
11.01.2013, 17:45
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38106847
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ильшат190, я думаю, следует немножно подучить язык на простых примерах, прежде чем браться за написание собственного браузера. Если вы пишете call telo(i), то должны понимать, что такое параметр процедуры.
...
Рейтинг: 0 / 0
11.01.2013, 17:46
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38106851
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
можно и не использовать параметр процедуры, а просто анализировать текущее значение i и выполнять нужный код в зависимости от него
...
Рейтинг: 0 / 0
11.01.2013, 17:48
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38106895
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Shocker.Proможно и не использовать параметр процедуры, а просто анализировать текущее значение i и выполнять нужный код в зависимости от него
параметр процедуры это так:
Код: vbnet
1.
2.
static sub  telo(i as long) 
...


я не понимаю для чего это как, если первый раз при вызове процедуры передается символ "i"
...
Рейтинг: 0 / 0
11.01.2013, 18:13
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38106984
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Shocker.Proну наконец-то хоть описание работы программы появилось.

Ну, собственно, мало что меняется
Код: vbnet
1.
Call Telo(i)

где i - это этап выполнения программы

После выполнения очередного этапа делается
Код: vbnet
1.
2.
3.
4.
i = i + 1
Timer1.Interval = 1000
Timer1_Timer
Exit Sub


При запуске Telo порграмма сразу приступает к нужному этапу
Если требуется сохранить значения переменных внутри Telo, можно использовать Static

если вас не затруднит не сможете ли мне исправить тот нерабочий код , я думаю что у меня на это знаний пока нехватает я не понимаю саму схему работы
...
Рейтинг: 0 / 0
11.01.2013, 19:34
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38107530
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
можно еще подробней как это работает
...
Рейтинг: 0 / 0
12.01.2013, 14:44
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38107889
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
вот пару примеров , думаю при желании разберешься

 
VBScript
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
On Error Resume Next 
Call Main
Private Sub Main
Set objShell = WScript.CreateObject("WScript.Shell")
Set objExecObject = objShell.Exec("Cmd /c ping -n 5 www.ya.ru")

Do While Not objExecObject.StdOut.AtEndOfStream
	strText = objExecObject.StdOut.ReadLine()
	If Instr(strText, "(100% ") > 0 Then
		objResult = objShell.Run ("Cmd /c Copy 111>Com3" , 0, True)
	End If
Loop
End Sub

WScript.Sleep 600000	'время = 10мин * 60сек * 1000
Call Main



Источник
 
Использовал у себя в обработке 1с, брал с какого то сайта
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
//-----------------------------------------------  
Функция Пинг()
    Адрес=СтрЗаменить("http://itlab-05.ru","//","" "");
	Адрес=СтрЗаменить(Адрес,"/","" "");
	Адрес=СтрЗаменить(Адрес,"?","" ""); 
    НашеВремя= СтрЗаменить(ТекущееВремя(),":","-");
	ШелСкрипт=СоздатьОбъект("WScript.Shell");  
	
	Если ШелСкрипт.Run("%comspec% /c ping -n 1 "+СтрПолучитьСтроку(Адрес,2),0,-1)<>0 Тогда
		СтатусМинОст="Проверьте интернет";
		Возврат 0;
	Иначе 
		Возврат 1;
	КонецЕсли;   
КонецФункции  // Пинг	 
//-----------------------------------------------


...
Рейтинг: 0 / 0
12.01.2013, 21:59
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38107913
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
aduka05adm,

спасибо за код, в моем случае только не получится так, мне бы хорошо было если бы через счетчик, шокер меня заинтересовал так как то
i = i + 1
T i me r 1 . I n t e r v a l = 1 0 0 0
T i me r 1 _ T i me r
E x i t S u b
но я не знаю как это применить как доделать мой нерабочий код
...
Рейтинг: 0 / 0
12.01.2013, 22:32
| Ответить | Цитировать | Написать  
если равно продолжить работу программу далее
    #38107917
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
хоть я и не понимаю как его код бы работал , но мне кажется в моем случае надо таким образом
...
Рейтинг: 0 / 0
12.01.2013, 22:34
| Ответить | Цитировать | Написать  
41 сообщений из 41, показаны все 2 страниц
  все  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / если равно продолжить работу программу далее
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=60&tid=2157227]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 273ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 61ms
get tp. blocked users:
 1ms
others: 288ms
total:  666ms
созд. / загр.: 666ms
x
x
Закрыть


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