String case: Difference between revisions
m
(Dialects of BASIC moved to the BASIC section.)
(add bqn) |
m ((Dialects of BASIC moved to the BASIC section.)) |
||
Line 760:
ready.
█</pre>
==={{header|FreeBASIC}}===
<syntaxhighlight lang="freebasic">' FB 1.05.0 Win64
Dim s As String = "alphaBETA"
Print UCase(s)
Print LCase(s)
Sleep</syntaxhighlight>
{{out}}
<pre>
ALPHABETA
alphabeta
</pre>
==={{header|FutureBasic}}===
<syntaxhighlight lang="futurebasic">window 1
CFStringRef s = @"alphaBETA"
print s
print ucase(s)
print lcase(s)
HandleEvents</syntaxhighlight>
Output:
<pre>
alphaBETA
ALPHABETA
alphabeta
</pre>
==={{header|Gambas}}===
'''[https://gambas-playground.proko.eu/?gist=d45e91bee011314fd126dc53052b5386 Click this link to run this code]'''
<syntaxhighlight lang="gambas">Public Sub Main()
Dim sString As String = "alphaBETA "
Print UCase(sString)
Print LCase(sString)
End</syntaxhighlight>
Output:
<pre>
ALPHABETA
alphabeta
</pre>
==={{header|IS-BASIC}}===
Line 791 ⟶ 838:
==={{header|TI-83 BASIC}}===
Note: While lowercase letters are built in to every TI-83/4/+/SE calculator, typing in lowercase is disabled by default and you have to hack the calculator to type in lowercase. However, the calculator does not have to be hacked to simply display lowercase output from a program, so on non-hacked calculators this program will only be useful one-way. To get lowercase letters, you have to create a new program with "AsmPrgmFDCB24DEC9" as the text, and then execute it on the homescreen with Asm(prgmYOURPROGRAMNAME). Then press [ALPHA] twice.
==={{header|Visual Basic}}===
{{works with|Visual Basic|VB6 Standard}}
<syntaxhighlight lang="vb">Sub Main()
Const TESTSTRING As String = "alphaBETA"
Debug.Print "initial = " _
& TESTSTRING
Debug.Print "uppercase = " _
& UCase(TESTSTRING)
Debug.Print "lowercase = " _
& LCase(TESTSTRING)
Debug.Print "first letter capitalized = " _
& StrConv(TESTSTRING, vbProperCase)
Debug.Print "length (in characters) = " _
& CStr(Len(TESTSTRING))
Debug.Print "length (in bytes) = " _
& CStr(LenB(TESTSTRING))
Debug.Print "reversed = " _
& StrReverse(TESTSTRING)
Debug.Print "first position of letter A (case-sensitive) = " _
& InStr(1, TESTSTRING, "A", vbBinaryCompare)
Debug.Print "first position of letter A (case-insensitive) = " _
& InStr(1, TESTSTRING, "A", vbTextCompare)
Debug.Print "concatenated with '123' = " _
& TESTSTRING & "123"
End Sub</syntaxhighlight>
{{out}}
<pre>initial = alphaBETA
uppercase = ALPHABETA
lowercase = alphabeta
first letter capitalized = Alphabeta
length (in characters) = 9
length (in bytes) = 18
reversed = ATEBahpla
first position of letter A (case-sensitive) = 9
first position of letter A (case-insensitive) = 1
concatenated with '123' = alphaBETA123</pre>
==={{header|Visual Basic .NET}}===
Line 1,493 ⟶ 1,577:
end program doit
</syntaxhighlight>
=={{header|Frink}}==
Line 1,525 ⟶ 1,595:
<syntaxhighlight lang="frink">lc[ uc["Imbiß"] ]</syntaxhighlight>
<pre>imbiss</pre>
=={{header|GAP}}==
Line 3,241 ⟶ 3,278:
Case_Upper_Block(#1, CP)
Case_Lower_Block(#1, CP)</syntaxhighlight>
=={{header|Vlang}}==
| |||