Основи офісного программування. Проектування додатку з розгалуженням: Методичні вказівки до лабораторного заняття № 2, страница 3

Dim oTextField1,oTextField2,oLabel3,labeld4 as Object

oTextField1=oDialog2.getControl("TextField1")

oTextField2=oDialog2.getControl("TextField2")

oLabel3=oDialog2.getControl("Label3")

oLabel4=oDialog2.getControl("Label4")

If Val(oTextField1.Text)= 0 Then

MsgBox(sText1 + Chr(13) + sText2,,sText3)

End If

Vidsotok_vikonanij=Val(oTextField2.Text)/Val(oTextField1.Text)*100

If Vidsotok_vikonanij>100 Then

oLabel3.Text="План перевиконано на"

oLabel4.Text=Str(Vidsotok_vikonanij-100)+ "%"

Else

if Vidsotok_vikonanij<100 Then

oLabel3.Text="План недовиконано на"

oLabel4.Text =Str(100-Vidsotok_vikonanij)+ "%"

Else

oLabel3.Text="      План виконано на"

oLabel4.Text="100%"

End If

End If

End Sub

REM  *****  BASIC  *****

PUBLIC oDialog2 as Object

Sub Main

DialogLibraries.LoadLibrary("Standard")

oDialog2=CreateUnoDialog(DialogLibraries.Standard.Dialog2)

oDialog2.Execute()

oDialog2.Dispose()

End Sub

Sub ClickButton1

Const sText1 = "Не задано план."

Const sText2 = "Помилка."

Const sText3 = "Вікно повідомлення"

Dim Vidsotok_vikonanij as Single

Dim oTextField1,oTextField2,oLabel3,labeld4 as Object

oTextField1=oDialog2.getControl("TextField1")

oTextField2=oDialog2.getControl("TextField2")

oLabel3=oDialog2.getControl("Label3")

oLabel4=oDialog2.getControl("Label4")

If Val(oTextField1.Text)= 0 Then

MsgBox(sText1 + Chr(13) + sText2,,sText3)

End If

Vidsotok_vikonanij=Val(oTextField2.Text)/Val(oTextField1.Text)*100

If Vidsotok_vikonanij>100 Then

oLabel3.Text="План перевиконано на"

oLabel4.Text=Str(Vidsotok_vikonanij-100)+ "%"

Else

if Vidsotok_vikonanij<100 Then

oLabel3.Text="План недовиконано на"

oLabel4.Text =Str(100-Vidsotok_vikonanij)+ "%"

Else

oLabel3.Text="      План виконано на"

oLabel4.Text="100%"

End If

End If

End Sub

REM  *****  BASIC  *****

PUBLIC oDialog2 as Object

Sub Main

DialogLibraries.LoadLibrary("Standard")

oDialog2=CreateUnoDialog(DialogLibraries.Standard.Dialog2)

oDialog2.Execute()

oDialog2.Dispose()

End Sub

Sub ClickButton1

Const sText1 = "Не задано план."

Const sText2 = "Помилка."

Const sText3 = "Вікно повідомлення"

Dim Vidsotok_vikonanij as Single

Dim oTextField1,oTextField2,oLabel3,labeld4 as Object

oTextField1=oDialog2.getControl("TextField1")

oTextField2=oDialog2.getControl("TextField2")

oLabel3=oDialog2.getControl("Label3")

oLabel4=oDialog2.getControl("Label4")

If Val(oTextField1.Text)= 0 Then

MsgBox(sText1 + Chr(13) + sText2,,sText3)

End If

Vidsotok_vikonanij=Val(oTextField2.Text)/Val(oTextField1.Text)*100

If Vidsotok_vikonanij>100 Then

oLabel3.Text="План перевиконано на"

oLabel4.Text=Str(Vidsotok_vikonanij-100)+ "%"

Else

if Vidsotok_vikonanij<100 Then

oLabel3.Text="План недовиконано на"

oLabel4.Text =Str(100-Vidsotok_vikonanij)+ "%"

Else

oLabel3.Text="      План виконано на"

oLabel4.Text="100%"

End If

End If

End Sub

REM  *****  BASIC  *****

PUBLIC oDialog2 as Object

Sub Main

DialogLibraries.LoadLibrary("Standard")

oDialog2=CreateUnoDialog(DialogLibraries.Standard.Dialog2)

oDialog2.Execute()

oDialog2.Dispose()

End Sub

Sub ClickButton1

Const sText1 = "Не задано план."

Const sText2 = "Помилка."

Const sText3 = "Вікно повідомлення"

Dim Vidsotok_vikonanij as Single

Dim oTextField1,oTextField2,oLabel3,labeld4 as Object

oTextField1=oDialog2.getControl("TextField1")

oTextField2=oDialog2.getControl("TextField2")

oLabel3=oDialog2.getControl("Label3")

oLabel4=oDialog2.getControl("Label4")

If Val(oTextField1.Text)= 0 Then

MsgBox(sText1 + Chr(13) + sText2,,sText3)

End If

Vidsotok_vikonanij=Val(oTextField2.Text)/Val(oTextField1.Text)*100

If Vidsotok_vikonanij>100 Then

oLabel3.Text="План перевиконано на"

oLabel4.Text=Str(Vidsotok_vikonanij-100)+ "%"

Else

if Vidsotok_vikonanij<100 Then

oLabel3.Text="План недовиконано на"

oLabel4.Text =Str(100-Vidsotok_vikonanij)+ "%"

Else

oLabel3.Text="      План виконано на"

oLabel4.Text="100%"

End If

End If

End Sub