natgillin/translations-raw huggingface dataset:
$[officename] Basic provides tools to help you structuring your projects.
I $[officename] Basic finns verktyg som du kan använda för att strukturera dina projekt.
It supports various &quot; units &quot; which enable you to group individual SUBS and FUNCTIONS in a Basic project.
Verktygen stöder olika &quot; enheter &quot; som du kan använda för att gruppera enskilda subrutiner och funktioner i ett Basic-projekt.
Libraries serve as a tool for organising modules and can either be attached to a document or a template.
Ett bibliotek används för att organisera moduler, och kan vara kopplat till ett dokument eller en mall.
When the document or a template is saved, all modules contained in the library are automatically saved as well.
Om mallen eller dokumentet sparas, sparas också alla moduler som finns i biblioteket.
A library can contain up to 16,000 modules.
Ett bibliotek kan innehålla upp till 16 000 moduler.
A module contains SUBS and FUNCTIONS along with variable declarations.
En modul innehåller subrutiner och funktioner samt variabeldeklarationer.
The length of the program that can be saved in a module is limited to 64 KB.
Storleken på ett program som kan sparas i en modul kan vara maximalt 64 kB.
If more space is required you can divide a $[officename] Basic project among several modules and then save them in a single library.
Om ditt program är större än denna begränsning, kan du dela upp ett $[officename] Basic-projekt i flera moduler och spara modulerna i ett gemensamt bibliotek.
Dialogue Box Modules
Dialogmoduler
Dialogue Box modules contain dialogue box definitions, including the dialogue box properties, the properties of each dialogue box element and the events assigned.
Dialogmoduler innehåller en dialogrutas struktur, egenskaperna för varje element i dialogrutan samt de händelser som kopplats till subrutiner i en viss modul.
Since a dialogue box module can only contain a single dialogue box, they are often referred to as &quot; dialogue boxes &quot; .
Eftersom en dialogmodul bara kan innehålla en viss dialogruta, kallas de ofta bara för &quot; dialoger &quot; .
GetSolarVersion Function [Run-time]
GetSolarVersion-funktion [Runtime]
/text/sbasic/shared/03131000.xhp
/text/sbasic/shared/03131000.xhp
GetSolarVersion function
GetSolarVersion, funktion
GetSolarVersion Function [Run-time]
Funktionen GetSolarVersion [Runtime]
Returns the internal number of the current $[officename] version.
Returnerar det interna numret för den aktuella $[officename]-versionen.
s = GetSolarVersion
s = GetSolarVersion
Sub ExampleGetSolarVersion
Sub ExampleGetSolarVersion
Dim sSep As String
Dim sSep As String
sSep = GetSolarVersion
sSep = GetSolarVersion
MsgBox sSep,64, &quot; Version number of the solar technology &quot;
MsgBox sSep,64, &quot; Solar-teknikens versionsnummer &quot;
FileExists Function [Run-time]
FileExists-funktion [Runtime]
/text/sbasic/shared/03020415.xhp
/text/sbasic/shared/03020415.xhp
FileExists function
FileExists, funktion
FileExists Function [Run-time]
Funktionen FileExists [Runtime]
Determines if a file or a directory is available on the data medium.
Bestämmer om en fil eller en katalog på datamediet är tillgänglig.
FileExists(FileName As String _BAR_ DirectoryName As String)
FileExists(FileName As String _BAR_ DirectoryName As String)
sub ExampleFileExists
sub ExampleFileExists
msgbox FileExists( &quot; C:\autoexec.bat &quot; )
msgbox FileExists( &quot; C:\autoexec.bat &quot; )
msgbox FileExists( &quot; file:///d_BAR_/bookmark.htm &quot; )
msgbox FileExists( &quot; file:///d_BAR_/bookmark.htm &quot; )
msgbox FileExists( &quot; file:///d_BAR_/private &quot; )
msgbox FileExists( &quot; file:///d_BAR_/private &quot; )
Switch Function [Run-time]
Switch-funktion [Runtime]
/text/sbasic/shared/03090410.xhp
/text/sbasic/shared/03090410.xhp
Switch function
Switch, funktion
Switch Function [Run-time]
Funktionen Switch [Runtime]
Evaluates a list of arguments, consisting of an expression followed by a value.
Evaluerar en argumentlista som består av ett uttryck följt av ett värde.
The Switch function returns a value that is associated with the expression that is passed by this function.
Funktionen Switch returnerar ett värde som är associerat med det uttryck som skickades till funktionen.
Switch (Expression1, Value1[, Expression2, Value2[..., Expression_n, ValueN]])
Switch (Uttryck1, Värde1[, Uttryck2, Värde2[..., Uttryck_n, Värde_n]])
function evaluates the expressions from left to right and then returns the value that is assigned to the function expression.
evaluerar uttrycken från vänster till höger och returnerar det värde som är associerat med funktionsuttrycket.
If expression and value are not given as a pair, a run-time error occurs.
Om det inte finns ett värde till varje uttryck uppstår ett runtime-fel.
The expression that you want to evaluate.
Det uttryck som ska evalueras.
The value that you want to return if the expression is True.
Det värde som ska returneras om uttrycket evalueras till TRUE.
function assigns the appropriate gender to the name that is passed to the function:
om ett givet namn är ett mans- eller kvinnonamn:
Sub ExampleSwitch
Sub ExampleSwitch
Dim sGender As String
Dim sGender As String
sGender = GetGenderIndex( &quot; John &quot; )
sGender = GetGenderIndex( &quot; Anders &quot; )
MsgBox sGender
MsgBox sGender
Function GetGenderIndex (sName As String) As String
Function GetGenderIndex (sName As String) As String
GetGenderIndex = Switch(sName = &quot; Jane &quot; , &quot; female &quot; , sName = &quot; John &quot; , &quot; male &quot; )
GetGenderIndex = Switch(sName = &quot; Anna &quot; , &quot; kvinna &quot; , sName = &quot; Anders &quot; , &quot; man &quot; )
QBColor Function [Run-time]
Funktionen QBColor [Runtime]
/text/sbasic/shared/03010304.xhp
/text/sbasic/shared/03010304.xhp
RGB
RGB-färgkod
colour code of the colour passed as a colour value through an older MS-DOS based programming system.
som motsvarar en färgkod i äldre MS-DOS-baserade programmeringssystem.
QBColor (ColourNumber As Integer)
: QBColor (Färg As Integer)
Long
: Long
An integer expression that specifies the colour value of the colour passed from an older MS-DOS based programming system.
: Ett heltalsuttryck som anger färgvärdet för den färg som används i ett MS-DOS-baserat programmeringssystem.
ColourNumber
Färg
can be assigned the following values:
har följande möjliga värden:
Blue
Blått
Green
Grönt
Grey
Grått
Light Blue
Ljusblått
Light Green
Ljusgrönt
Light Cyan
Ljus cyan
12 :
12 :
Light Red
Ljusrött
13 :
13 :
Light Magenta
Ljus magenta
14 :
14 :
Light Yellow
Ljusgult
15 :
15 :
Bright White
Ljust vit
This function is used only to convert from older MS-DOS based BASIC applications that use the above colour codes.
Funktionen används för att konvertera tidigare versioner av BASIC-program i MS-DOS-miljö som använder ovanstående färgkoder.
The function returns a long integer value indicating the colour to be used in the $[officename] IDE.
Funktionen returnerar ett heltalsvärde av typen Long som motsvarar färgen i $[officename] IDE.
Sub ExampleQBColor
Sub ExampleQBColor
Dim iColour As Integer
Dim iColor As Integer
iColour = 7
iColor = 7
sText = &quot; RGB= &quot; & Red(QBColor( iColour) ) & &quot; : &quot; & Blue(QBColor( iColour) ) & &quot; : &quot; & Green(QBColor( iColour) )
sText = &quot; RGB= &quot; & Red(QBColor( iColor) ) & &quot; : &quot; & Blue(QBColor( iColor) ) & &quot; : &quot; & Green(QBColor( iColor) )
MsgBox stext,0, &quot; Colour &quot; & iColour
MsgBox stext,0, &quot; Färg &quot; & iColor
CDateToIso Function [Run-time]
CdateToIso-funktion [Runtime]
/text/sbasic/shared/03030107.xhp
/text/sbasic/shared/03030107.xhp
CdateToIso function
CdateToIso, funktion
CDateToIso Function [Run-time]
Funktionen CdateToIso [Runtime]
Returns the date in ISO format from a serial date number that is generated by the DateSerial or the DateValue function.
Returnerar datum i ISO-format från ett seriellt datumtal som genereras av funktionen DateSerial eller DateValue.
CDateToIso(Number)
CDateToIso(Nummer)
Integer that contains the serial date number.
Heltal som innehåller det seriella datumtalet.
Sub ExampleCDateToIso
Sub ExampleCDateToIso
MsgBox &quot; &quot; & CDateToIso(Now) ,64, &quot; ISO Date &quot;
MsgBox &quot; &quot; & CDateToIso(Now) ,64, &quot; ISO-datum &quot;
Int Function [Run-time]
Int-funktion [Runtime]
/text/sbasic/shared/03080502.xhp
/text/sbasic/shared/03080502.xhp
Int function
Int, funktion
Returns the integer portion of a number.
Returnerar heltalsdelen av ett tal.
Int (Number)
Int (tal)
Any valid numerical expression.
Ett giltigt numeriskt uttryck.
sub ExampleINT
sub ExampleINT
Print Int(3.99) REM returns the value 3.0
Print Int (3.99) REM returnerar värdet 3.
Print Int(0) REM returns the value 0.0
Print Int (0) REM returnerar värdet 0.
Print Int(-3.14159) REM returns the value -4.0
Print Int (-3.14159) REM returnerar värdet -4.
Sqr Function [Run-time]
Sqr-funktion [Runtime]
/text/sbasic/shared/03080401.xhp
/text/sbasic/shared/03080401.xhp
Sqr function
Sqr, funktion
Sqr Function [Run-time]
Funktionen Sqr [Runtime]
Calculates the square root of a numerical expression.
Beräknar kvadratroten av ett numeriskt uttryck.
Sqr (Number)
Sqr (Tal)
A numerical expression of which you want the square root.
Ett numeriskt uttryck som du ska räkna ut kvadratroten för.
The square root of a number is the number which multiplied by itself produces the first number, for example, the square root of 36 is 6.
En kvadratrot är det tal som ger ett annat tal om det multipliceras med sig självt. Till exempel är 6 kvadratroten till 36.
Sub ExampleSqr
Sub ExampleSqr
/text/sbasic/shared/01170103.xhp
/text/sbasic/shared/01170103.xhp
Define event assignments for the selected control or dialogue box.
Definierar händelsetilldelningar för den markerade dialogrutan eller kontrollen.
The available events depend on the type of control selected.
Vilka händelser som är tillgängliga beror på vilken typ av kontroll som markerats.
When receiving focus
Vid fokusering
This event takes place if a control receives the focus.
Den här händelsen inträffar om en kontroll ges fokus.
When losing focus
Vid fokusförlust
This event takes place if a control loses the focus.
Den här händelsen inträffar om en kontroll förlorar fokus.
Key pressed
Tangent tryckt
This event occurs when the user presses any key while the control has the focus.
Den här händelsen inträffar när användaren trycker ned en tangent medan kontrollen har fokus.
Key released
Efter tangenttryck
This event occurs when the user releases a key while the control has the focus.
Den här händelsen inträffar när användaren släpper en tangent medan kontrollen har fokus.
Modified
Modifierad
This event takes place, when the control loses the focus and the content of the control were changed since it lost the focus.
Den här händelsen inträffar när kontrollen tappat fokus och innehållet i kontrollen har förändrats sedan dess.
Text modified
Text modifierad
This event takes place if you enter or modify a text in an input field.
Den här händelsen inträffar om du matar in eller ändrar en text i ett inmatningsfält.
Item status changed
Status ändrad
This event takes place if the status of the control field is changed, for example, from checked to unchecked.
Den här händelsen inträffar om status för kontrollfältet ändras, t.ex. från markerad till avmarkerad.
Mouse inside
Mus inom
This event takes place when the mouse enters the control.
Den här händelsen inträffar när musen träffar kontrollen.
Mouse moved while key pressed
Musrörelse vid tangenttryck
This event takes place when the mouse is dragged while a key is pressed.
Den här händelsen inträffar när musen dras medan en tangent trycks ned.
Mouse moved
Musrörelse
This event takes place when the mouse moves over the control.
Den här händelsen inträffar när musen rör sig ovanför kontrollen.
Mouse button pressed
Musknapp nedtryckt
This event takes place when the mouse button is pressed while the mouse pointer is on the control.
Den här händelsen inträffar när musknappen trycks ned medan muspekaren är vid kontrollen.
Mouse button released
Musknapp uppsläppt
This event takes place when the mouse button is released while the mouse pointer is on the control.
Den här händelsen inträffar när musknappen släpps medan muspekaren är vid kontrollen.
Mouse outside
Mus utanför
This event takes place when the mouse leaves the control.
Den här händelsen inträffar när musen lämnar kontrollen.
While adjusting
Vid justering
This event takes place when a scrollbar is being dragged.
Den här händelsen inträffar när en rullningslist dras.
Public Statement [Run-time]
Public-uttryck [Runtime]
/text/sbasic/shared/03103400.xhp
/text/sbasic/shared/03103400.xhp
Public statement
Public, uttryck
Public Statement [Run-time]
Instruktionen Public [Runtime]
Dimensions a variable or an array at the module level (that is, not within a subroutine or function), so that the variable and the array are valid in all libraries and modules.
Dimensionerar en variabel eller matris på modulnivå (d.v.s. utanför en subrutin eller funktion) så att variabeln kan användas i alla bibliotek och moduler.
Public VarName[(start To end)] [As VarType][, VarName2[(start To end)] [As VarType][,...]]
Public VarNamn[(Start To Slut)] [As VarTyp][, VarNamn2[(Start To Slut)] [As VarTyp][,...]]
Public iPublicVar As Integer
Public iPublicVar As Integer
Sub ExamplePublic
Sub ExamplePublic
iPublicVar = iPublicVar + 1
iPublicVar = iPublicVar + 1
MsgBox iPublicVar
MsgBox iPublicVar
CreateObject Function [Run-time]
CreateObject-funktion [Runtime]
/text/sbasic/shared/03132400.xhp
/text/sbasic/shared/03132400.xhp
CreateObject
CreateObject
CreateObject function
CreateObject, funktion
Creates a UNO object.
Skapar ett UNO-objekt.
On Windows, can also create OLE objects.
I Windows går det även att skapa OLE-objekt.
This method creates instances of the type that is passed as parameter.
Den här metoden skapar instanser av den typ som skickas som parameter.
oObj = CreateObject( type )
oObj = CreateObject( type )
Type address
Type address
Name1 as String
Name1 as String
City as String
City as String
End Type
End Type
Sub main
Sub main
myaddress = CreateObject( &quot; address &quot; )
myaddress = CreateObject( &quot; adress &quot; )
MsgBox IsObject(myaddress)
MsgBox IsObject(myaddress)
TwipsPerPixelY Function [Run-time]
TwipsPerPixelY-funktion [Runtime]
/text/sbasic/shared/03131400.xhp
/text/sbasic/shared/03131400.xhp
TwipsPerPixelY function
TwipsPerPixelY, funktion
TwipsPerPixelY Function [Run-time]
Funktionen TwipsPerPixelY [Runtime]
Returns the number of twips that represent the height of a pixel.
Returnerar antalet twips som representerar höjden för en pixel.
n = TwipsPerPixelY
n = TwipsPerPixelY
CVErr Function [Run-time]
CVErr-funktion [Runtime]
/text/sbasic/shared/03100080.xhp
/text/sbasic/shared/03100080.xhp
CVErr
CVErr
CVErr function
CVErr-funktion
Converts a string expression or numerical expression to a variant expression of the sub-type &quot; Error &quot; .
Konverterar ett stränguttryck eller ett numeriskt uttryck till ett uttryck av typen Variant av undertypen Error.
CVErr(Expression)
CVErr(uttryck)
Call Statement [Run-time]
Call-uttryck [Runtime]
/text/sbasic/shared/03090401.xhp
/text/sbasic/shared/03090401.xhp
Call statement
Call, uttryck
Call Statement [Run-time]
Call-sats [Runtime]
Transfers the control of the program to a subroutine, a function, or a DLL procedure.
Överför kontrollen av programmet till en subrutin, en funktion eller en DLL-procedur.
[Call] Name [Parameter]
[Call] Name [Parameter]
Name of the subroutine, the function, or the DLL that you want to call
Namnet på den subrutin, funktion eller DLL som du vill anropa.
Parameters to pass to the procedure.
Parametrar som ska överföras till proceduren.
The type and number of parameters is dependent on the routine that is executing.
Parametrars typ och nummer är beroende av den rutin som körs.
Declare Statement
Declare-satsen
Sub ExampleCall
Sub ExampleCall
sVar = &quot; Office &quot;
sVar = &quot; Office &quot;
Call f_callFun sVar
Call f_callFun sVar
Sub f_callFun (sText as String)
Sub f_callFun (sText as String)
Rem Statement [Run-time]
Rem-uttryck [Runtime]
/text/sbasic/shared/03090407.xhp
/text/sbasic/shared/03090407.xhp
Rem statement
Rem, uttryck
comments;Rem statement
Kommentarer; Rem-uttryck
Rem Statement [Run-time]
Uttrycket Rem [Runtime]
Specifies that a program line is a comment.
Anger att en rad i källkoden är en kommentarsrad.
Rem Text
Rem Text
Any text that serves as a comment.
Text som beskriver eller förklarar koden.
You can use the single quotation mark instead of the Rem keyword to indicate that the text on a line is comments.
Du kan också använda ett enkelt citattecken i stället för nyckelordet Rem för att ange att texten på raden är en kommentar.
This symbol can be inserted directly to the right of the program code, followed by a comment.
Tecknet eller nyckelordet kan infogas direkt till höger om programkoden, följt av kommentaren.
You can use a space followed by the underline character _ as the last two characters of a line to continue the logical line on the next line.
Du kan använda ett mellanslag följt av understrykningstecknet _ som de två sista tecknen i en rad för att fortsätta den sammanhängande raden på nästa rad.
To continue comment lines, you must enter &quot; Option Compatible &quot; in the same Basic module.
För att fortsätta kommenterade rader måste du ange &quot; Option Compatible &quot; i samma Basic-modul.
Sub ExampleMid
Sub ExampleMid
DIM sVar As String
DIM sVar As String
Print Mid(sVar,3,5) REM Returns &quot; ackpo &quot;
Print Mid(sVar,3,5) REM Returnerar &quot; s Veg &quot;
REM Nothing occurs here
REM Här händer ingenting
Function Statement [Run-time]
Function-uttryck [Runtime]
/text/sbasic/shared/03090406.xhp
/text/sbasic/shared/03090406.xhp
Function statement
Function, uttryck
Function Statement [Run-time]
Instruktionen Function [Runtime]
Defines a subroutine that can be used as an expression to determine a return type.
Definierar en subrutin med ett returvärde.
see Parameter
se Parameter
Function Name[(VarName1 [As Type][, VarName2 [As Type][,...]]]) [As Type]
Function Namn[(Parameter1 [As Variabeltyp][, Parameter2 [As Variabeltyp][,...]]]) [As Returvärdestyp]
[Exit Function]
[Exit Function]
Name of the subroutine to contain the value returned by the function.
Namnet på den subrutin som beräknar det värde som funktionen returnerar.
Parameter to be passed to the subroutine.
Parameter som ska skickas till subrutinen.
Type-declaration keyword.
Nyckelord som definierar variabeltyp.
Sub ExampleExit
Sub ExampleExit
Dim sListArray(10) as String
Dim sListArray(10) as String
Dim siStep as Single
Dim siStep as Single
For siStep = 0 to 10 REM Fill array with test data
For siStep = 0 to 10 REM Fyll matrisen med testdata
sListArray(siStep) = chr$(siStep + 65)
sListArray(siStep) = chr$(siStep + 65)
msgbox sListArray(siStep)
msgbox sListArray(siStep)
next siStep
next siStep
sReturn = LinSearch(sListArray(), &quot; B &quot; )
sReturn = LinSearch(sListArray(), &quot; B &quot; )
Function LinSearch( sList(), sItem As String ) as integer
Function LinSearch( sList(), sItem As String ) as integer
dim iCount as Integer
dim iCount as Integer
REM Linsearch searches a TextArray:sList() for a TextEntry:
REM Funktionen LinSearch söker igenom en textvektor (sList) efter ett värde:
REM Return value is the index of the entry or 0 (Null)
REM Returvärdet är elementets index eller 0 (Null)
for iCount=1 to Ubound( sList() )
for iCount=1 to Ubound( sList() )
if sList( iCount ) = sItem then
if sList( iCount ) = sItem then
exit for REM sItem found
exit for REM Hittade sItem
next iCount
next iCount
if iCount = Ubound( sList() ) then iCount = 0
if iCount = Ubound( sList() ) then iCount = 0
LinSearch = iCount
LinSearch = iCount
end function
end function
Eqv Operator [Run-time]
Eqv-operator [Runtime]
/text/sbasic/shared/03060200.xhp
/text/sbasic/shared/03060200.xhp
Eqv operator (logical)
Eqv, operator (logisk)
Calculates the logical equivalence of two expressions.
Beräknar den logiska ekvivalensen av två uttryck.
Result = Expression1 Eqv Expression2
Resultat = Uttryck1 Eqv Uttryck2
A numerical variable that will contain the result of the comparison.
En numerisk variabel som innehåller jämförelsens resultat.
Boolean or numerical expressions that you want to compare.
De uttryck som ska jämföras.
if both expressions are either
om båda uttrycken är antingen
In a bit-wise comparison, the Eqv operator only sets the corresponding bit in the result if a bit is set in both expressions, or in neither expression.
Vid bitvis jämförelse sätter operatorn Eqv en viss bit i resultat om motsvarande bit är 1 i båda uttrycken, eller om motsvarande bit är 0 i båda uttrycken.
Sub ExampleEqv
Sub ExampleEqv
vOut = A > B Eqv B > C REM returns -1
vOut = A > B Eqv B > C REM returnerar -1
vOut = B > A Eqv B > C REM returns 0
vOut = B > A Eqv B > C REM returnerar 0
vOut = A > B Eqv B > D REM returns 0
vOut = A > B Eqv B > D REM returnerar 0
vOut = (B > D Eqv B > A) REM returns -1
vOut = (B > D Eqv B > A) REM returnerar -1
vOut = B Eqv A REM returns -3
vOut = B Eqv A REM returnerar -3
Global Statement [Run-time]
Global-uttryck [Runtime]
/text/sbasic/shared/03103450.xhp
/text/sbasic/shared/03103450.xhp
Global statement
Global, uttryck
Global Statement [Run-time]
Global-sats [Runtime]
Dimensions a variable or an array at the global level (that is, not within a subroutine or function), so that the variable and the array are valid in all libraries and modules for the current session.
Dimensionerar en variabel eller en matris på global nivå (alltså inte inom en subrutin eller funktion), så att variabeln och matrisen är giltiga i alla bibliotek och moduler för det aktuella arbetspasset.
Global VarName[(start To end)] [As VarType][, VarName2[(start To end)] [As VarType][,...]]
Global VarName[(start To end)] [As VarType][, VarName2[(start To end)] [As VarType][,...]]
Global iGlobalVar As Integer
Global iGlobalVar As Integer
Sub ExampleGlobal
Sub ExampleGlobal
iGlobalVar = iGlobalVar + 1
iGlobalVar = iGlobalVar + 1
MsgBox iGlobalVar
MsgBox iGlobalVar
On...GoSub Statement; On...GoTo Statement [Run-time]
On...GoSub-uttryck; On...GoTo-uttryck [Runtime]
/text/sbasic/shared/03090303.xhp
/text/sbasic/shared/03090303.xhp
On...GoSub statement
On...GoSub, uttryck
On...GoTo statement
On...GoTo, uttryck
On...GoSub Statement; On...GoTo Statement [Run-time]
On...GoSub-sats; On...GoTo-sats [Runtime]
Branches to one of several specified lines in the program code, depending on the value of a numerical expression.
Går till en eller flera angivna rader i programkoden, beroende på det numeriska uttryckets värde.
On N GoSub Label1[, Label2[, Label3[,...]]]
On N GoSub Label1[, Label2[, Label3[,...]]]
On NumExpression GoTo Label1[, Label2[, Label3[,...]]]
On NumExpression GoTo Label1[, Label2[, Label3[,...]]]
NumExpression:
NumExpression:
A numerical expression in the range 0 to 255 that determines which of the lines the program branches to.
Ett numeriskt uttryck mellan 0 och 255 som bestämmer vilka rader programmet ska gå till.
If NumExpression is 0, the statement is not executed.
Om NumExpression är 0 körs inte uttrycket.
If NumExpression is greater than 0, the program jumps to the label that has a position number that corresponds to the expression (1 = First label; 2 = Second label)
Om NumExpression är större än 0 hoppar programmet till den etikett vars positionsnummer motsvarar uttrycket (1 = första etiketten; 2 = andra etiketten).
Target line according to
Målrad enligt
or
- eller
conventions are valid.
-konventioner gäller.
Sub ExampleOnGosub
Sub ExampleOnGosub
iVar = 2
iVar = 2
sVar = &quot; &quot;
sVar = &quot; &quot;
On iVar GoSub Sub1, Sub2
On iVar GoSub Sub1, Sub2
On iVar GoTo Line1, Line2
On iVar GoTo Line1, Line2
Sub1:
Sub1:
sVar =sVar & &quot; From Sub 1 to &quot; :
sVar =sVar & &quot; From Sub 1 to &quot; :
Sub2:
Sub2:
sVar =sVar & &quot; From Sub 2 to &quot; :
sVar =sVar & &quot; From Sub 2 to &quot; :
Line1:
Line1:
sVar =sVar & &quot; Label 1 &quot; :
sVar =sVar & &quot; Label 1 &quot; :
GoTo Ende
GoTo Ende
Line2:
Line2:
sVar =sVar & &quot; Label 2 &quot;
sVar =sVar & &quot; Label 2 &quot;
Ende:
Ende:
MsgBox sVar,0, &quot; On...Gosub &quot;
MsgBox sVar,0, &quot; On...Gosub &quot;
ConvertToURL Function [Run-time]
ConvertToURL-funktion [Runtime]
/text/sbasic/shared/03120312.xhp
/text/sbasic/shared/03120312.xhp