source/text/sbasic/shared/03080101.xhp | 4 ++--
source/text/sbasic/shared/03080102.xhp | 4 ++--
source/text/sbasic/shared/03080103.xhp | 4 ++--
source/text/sbasic/shared/03080104.xhp | 4 ++--
source/text/sbasic/shared/03080601.xhp | 4 ++--
source/text/sbasic/shared/03090301.xhp | 4 ++--
6 files changed, 12 insertions(+), 12 deletions(-)
New commits:
commit 9b91dd5b4b0f98ff105c2d66bf59cff1e1ff6066
Author: Stanislav Horacek <stanislav.hora...@gmail.com>
Date: Thu Jul 24 20:09:18 2014 +0200
remove redundant dollars at InputBox function and fix invalid Basic examples
Change-Id: Idd6f14e127ba5e3939849b0baf7ec499e69e8695
Reviewed-on: https://gerrit.libreoffice.org/10517
Reviewed-by: Caolán McNamara <caol...@redhat.com>
Tested-by: Caolán McNamara <caol...@redhat.com>
diff --git a/source/text/sbasic/shared/03080101.xhp
b/source/text/sbasic/shared/03080101.xhp
index dcd1ede..e1e35b1 100644
--- a/source/text/sbasic/shared/03080101.xhp
+++ b/source/text/sbasic/shared/03080101.xhp
@@ -62,8 +62,8 @@
<paragraph role="bascode" id="par_id3151112" xml-lang="en-US" l10n="U"
oldref="19">' rounded Pi = 3.14159 Is a predefined constant</paragraph>
<paragraph role="bascode" localize="false" xml-lang="en-US">Dim d1 As
Double</paragraph>
<paragraph role="bascode" localize="false" xml-lang="en-US">Dim d2 As
Double</paragraph>
-<paragraph role="bascode" id="par_id3149262" xml-lang="en-US" l10n="U"
oldref="22"> d1 = InputBox$ ("Enter the length of the side adjacent to the
angle: ","Adjacent")</paragraph>
-<paragraph role="bascode" id="par_id3149482" xml-lang="en-US" l10n="U"
oldref="23"> d2 = InputBox$ ("Enter the length of the side opposite the
angle: ","Opposite")</paragraph>
+<paragraph role="bascode" id="par_id3149262" xml-lang="en-US" l10n="U"
oldref="22"> d1 = InputBox("Enter the length of the side adjacent to the
angle: ","Adjacent")</paragraph>
+<paragraph role="bascode" id="par_id3149482" xml-lang="en-US" l10n="U"
oldref="23"> d2 = InputBox("Enter the length of the side opposite the angle:
","Opposite")</paragraph>
<paragraph role="bascode" id="par_id3155415" xml-lang="en-US" l10n="U"
oldref="24"> Print "The Alpha angle is"; (atn (d2/d1) * 180 / Pi); "
degrees"</paragraph>
<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
</bascode>
diff --git a/source/text/sbasic/shared/03080102.xhp
b/source/text/sbasic/shared/03080102.xhp
index 3385f8c..8fd32f8 100644
--- a/source/text/sbasic/shared/03080102.xhp
+++ b/source/text/sbasic/shared/03080102.xhp
@@ -61,8 +61,8 @@
<paragraph role="bascode" localize="false" xml-lang="en-US">Sub
ExampleCosinus</paragraph>
<paragraph role="bascode" id="par_id3150010" xml-lang="en-US" l10n="U"
oldref="19">' rounded Pi = 3.14159</paragraph>
<paragraph role="bascode" localize="false" xml-lang="en-US">Dim d1 As Double,
dAngle As Double</paragraph>
-<paragraph role="bascode" id="par_id3144764" xml-lang="en-US" l10n="U"
oldref="21"> d1 = InputBox$ (""Enter the length of the adjacent side:
","Adjacent")</paragraph>
-<paragraph role="bascode" id="par_id3154491" xml-lang="en-US" l10n="U"
oldref="22"> dAngle = InputBox$ ("Enter the angle Alpha (in degrees):
","Alpha")</paragraph>
+<paragraph role="bascode" id="par_id3144764" xml-lang="en-US" l10n="U"
oldref="21"> d1 = InputBox("Enter the length of the adjacent side:
","Adjacent")</paragraph>
+<paragraph role="bascode" id="par_id3154491" xml-lang="en-US" l10n="U"
oldref="22"> dAngle = InputBox("Enter the angle Alpha (in degrees):
","Alpha")</paragraph>
<paragraph role="bascode" id="par_id3151074" xml-lang="en-US" l10n="U"
oldref="23"> Print "The length of the hypothenuse is"; (d1 / cos (dAngle *
Pi / 180))</paragraph>
<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
</bascode>
diff --git a/source/text/sbasic/shared/03080103.xhp
b/source/text/sbasic/shared/03080103.xhp
index 94d5181..2793c39 100644
--- a/source/text/sbasic/shared/03080103.xhp
+++ b/source/text/sbasic/shared/03080103.xhp
@@ -62,8 +62,8 @@
<paragraph role="bascode" id="par_id3150011" xml-lang="en-US" l10n="U"
oldref="19">' Pi = 3.1415926 is a predefined variable</paragraph>
<paragraph role="bascode" localize="false" xml-lang="en-US">Dim d1 As
Double</paragraph>
<paragraph role="bascode" localize="false" xml-lang="en-US">Dim dAlpha As
Double</paragraph>
-<paragraph role="bascode" id="par_id3145251" xml-lang="en-US" l10n="U"
oldref="22"> d1 = InputBox$ ("Enter the length of the opposite side:
","Opposite Side")</paragraph>
-<paragraph role="bascode" id="par_id3148456" xml-lang="en-US" l10n="U"
oldref="23"> dAlpha = InputBox$ ("Enter the angle Alpha (in degrees):
","Alpha")</paragraph>
+<paragraph role="bascode" id="par_id3145251" xml-lang="en-US" l10n="U"
oldref="22"> d1 = InputBox("Enter the length of the opposite side:
","Opposite Side")</paragraph>
+<paragraph role="bascode" id="par_id3148456" xml-lang="en-US" l10n="U"
oldref="23"> dAlpha = InputBox("Enter the angle Alpha (in degrees):
","Alpha")</paragraph>
<paragraph role="bascode" id="par_id3153877" xml-lang="en-US" l10n="U"
oldref="24"> Print "The length of the hypotenuse is"; (d1 / sin (dAlpha * Pi
/ 180))</paragraph>
<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
</bascode>
diff --git a/source/text/sbasic/shared/03080104.xhp
b/source/text/sbasic/shared/03080104.xhp
index 7f0e470..0130c68 100644
--- a/source/text/sbasic/shared/03080104.xhp
+++ b/source/text/sbasic/shared/03080104.xhp
@@ -62,8 +62,8 @@
<paragraph role="bascode" id="par_id3153158" xml-lang="en-US" l10n="U"
oldref="19">' Pi = 3.1415926 is a pre-defined variable</paragraph>
<paragraph role="bascode" localize="false" xml-lang="en-US">Dim d1 As
Double</paragraph>
<paragraph role="bascode" localize="false" xml-lang="en-US">Dim dAlpha As
Double</paragraph>
-<paragraph role="bascode" id="par_id3145252" xml-lang="en-US" l10n="U"
oldref="22"> d1 = InputBox$ ("Enter the length of the side opposite the
angle: ","opposite")</paragraph>
-<paragraph role="bascode" id="par_id3149582" xml-lang="en-US" l10n="U"
oldref="23"> dAlpha = InputBox$ ("Enter the Alpha angle (in degrees):
","Alpha")</paragraph>
+<paragraph role="bascode" id="par_id3145252" xml-lang="en-US" l10n="U"
oldref="22"> d1 = InputBox("Enter the length of the side opposite the angle:
","opposite")</paragraph>
+<paragraph role="bascode" id="par_id3149582" xml-lang="en-US" l10n="U"
oldref="23"> dAlpha = InputBox("Enter the Alpha angle (in degrees):
","Alpha")</paragraph>
<paragraph role="bascode" id="par_id3154016" xml-lang="en-US" l10n="U"
oldref="24"> Print "the length of the side adjacent the angle is"; (d1 / tan
(dAlpha * Pi / 180))</paragraph>
<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
</bascode>
diff --git a/source/text/sbasic/shared/03080601.xhp
b/source/text/sbasic/shared/03080601.xhp
index 1e0a4ad..3663143 100644
--- a/source/text/sbasic/shared/03080601.xhp
+++ b/source/text/sbasic/shared/03080601.xhp
@@ -54,8 +54,8 @@
<paragraph role="bascode" localize="false" xml-lang="en-US">Sub
ExampleDifference</paragraph>
<paragraph role="bascode" localize="false" xml-lang="en-US">Dim siW1 As
Single</paragraph>
<paragraph role="bascode" localize="false" xml-lang="en-US">Dim siW2 As
Single</paragraph>
-<paragraph role="bascode" id="par_id3145786" xml-lang="en-US" l10n="U"
oldref="14"> siW1 = Int(InputBox$ ("Please enter the first amount","Value
Input"))</paragraph>
-<paragraph role="bascode" id="par_id3149561" xml-lang="en-US" l10n="U"
oldref="15"> siW2 = Int(InputBox$ ("Please enter the second amount","Value
Input"))</paragraph>
+<paragraph role="bascode" id="par_id3145786" xml-lang="en-US" l10n="U"
oldref="14"> siW1 = Int(InputBox("Please enter the first amount","Value
Input"))</paragraph>
+<paragraph role="bascode" id="par_id3149561" xml-lang="en-US" l10n="U"
oldref="15"> siW2 = Int(InputBox("Please enter the second amount","Value
Input"))</paragraph>
<paragraph role="bascode" id="par_id3145750" xml-lang="en-US" l10n="U"
oldref="16"> Print "The difference is "; Abs(siW1 - siW2)</paragraph>
<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
</bascode>
diff --git a/source/text/sbasic/shared/03090301.xhp
b/source/text/sbasic/shared/03090301.xhp
index 18b88d2..117c632 100644
--- a/source/text/sbasic/shared/03090301.xhp
+++ b/source/text/sbasic/shared/03090301.xhp
@@ -61,8 +61,8 @@
<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iInputa As
Single</paragraph>
<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iInputb As
Single</paragraph>
<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iInputc As
Single</paragraph>
-<paragraph role="bascode" id="par_id3146970" xml-lang="en-US" l10n="U"
oldref="25"> iInputa = Int(InputBox$ "Enter the first number:
","NumberInput"))</paragraph>
-<paragraph role="bascode" id="par_id3150329" xml-lang="en-US" l10n="U"
oldref="26"> iInputb = Int(InputBox$ "Enter the second number:
","NumberInput"))</paragraph>
+<paragraph role="bascode" id="par_id3146970" xml-lang="en-US" l10n="U"
oldref="25"> iInputa = Int(InputBox("Enter the first number:
","NumberInput"))</paragraph>
+<paragraph role="bascode" id="par_id3150329" xml-lang="en-US" l10n="U"
oldref="26"> iInputb = Int(InputBox("Enter the second number:
","NumberInput"))</paragraph>
<paragraph role="bascode" localize="false" xml-lang="en-US">
iInputc=iInputa</paragraph>
<paragraph role="bascode" localize="false" xml-lang="en-US"> GoSub
SquareRoot</paragraph>
<paragraph role="bascode" id="par_id3154756" xml-lang="en-US" l10n="U"
oldref="29"> Print "The square root of";iInputa;" is";iInputc</paragraph>
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
http://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
