Сообщений в теме: 7

[Tanya_]

доброе время суток всем
помогите плиз начинающему тестеру решить граблю
есть скриптик, который чекает опции комбобокса
хочу, чтобы если с опциями всё в поряде, в логе менеджера выводилось ОК, к примеру
создан скриптик по примеру из хелпа, но оный не проходит по причине 2-х ошибок
если кто знает,в чём дело,плиз,объясните
вот тест

Sub Main
Dim Result As Integer
Window SetContext, "Caption=Application", ""
SQALogMessage sqaNone, "Starting test of Application...", ""
Result = ComboBoxVP (CompareData, "ObjectIndex=6", "VP=Object Data")
if Result=1 Then
SQALogMessage sqaPass, "ok", ""
End Sub

eror: Illegal statement
Error: Unexpected end of file

[LastFire]

    if Result=1 Then
    SQALogMessage sqaPass, "ok", ""
End Sub

eror: Illegal statement
Error: Unexpected end of file

ЕКЛМН!
Блин, может еще рассказать как компьютер включать?
If незакрытый видите?
Я - вижу.

[Froggy]

бывает...

[Tanya_]

да уж точно бывает
сишница я,не привыкши вот так иф закрывать
пасиба

[serega]

If незакрытый видите?
Я - вижу.

А здесь видите (пример из хелпа)?

If w = 1 or w = 7 then m2 = "the office is closed." else m2 = "please hold for company operator."

[Nadezhda]

If незакрытый видите?
Я - вижу.

А здесь видите (пример из хелпа)?

If w = 1 or w = 7 then m2 = "the office is closed." else m2 = "please hold for company operator."

В приведенном Вами примере If записан одной строкой. В таком случае End If не требуется. Но если If пишется в несколько строк, то обязательно нужно в конце писать End If

[serega]

В приведенном Вами примере If записан одной строкой. В таком случае End If не требуется. Но если If пишется в несколько строк, то обязательно нужно в конце писать End If

Спасибо за подробное объснение

Вопрос был, так скажем, риторический. Ну не спрашивать, в самом деле, как включается компьютер

[LastFire]

Вот и договорились :)