ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / если равно продолжить работу программу далее
16 сообщений из 41, страница 2 из 2
  2  все
если равно продолжить работу программу далее
    #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
| Ответить | Цитировать | Написать  
16 сообщений из 41, страница 2 из 2
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / если равно продолжить работу программу далее
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38107889&tid=2157227]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 41ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 16ms
total:  157ms
созд. / загр.: 157ms
x
x
Закрыть


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