You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

246 lines
20 KiB

<topic template="API_general" status="Complete" lasteditedby="VSdocman">
<title translate="true">ModMain.Bar25Ics Method</title>
<keywords>
<keyword translate="true">ModMain.Bar25Ics Method</keyword>
<keyword translate="true">EDKB12WS.ModMain.Bar25Ics Method</keyword>
<keyword translate="true">Bar25Ics Method</keyword>
</keywords>
<a-keywords>
<a-keyword>topic_00000000000003DF</a-keyword>
<a-keyword>EDKB12WS.ModMain.Bar25Ics</a-keyword>
</a-keywords>
<topic-variables>
<topic-variable id="CONTEXT-TERM1">EDKB12WS.ModMain.Bar25Ics</topic-variable>
<topic-variable id="CONTEXT-TERM2">ModMain.Bar25Ics</topic-variable>
<topic-variable id="CONTEXT-TERM3">EDKB12WS.ModMain.ModMain.Bar25Ics</topic-variable>
<topic-variable id="MEMBER-FULLNAME">EDKB12WS.ModMain.Bar25Ics</topic-variable>
<topic-variable id="MEMBER-ASSEMBLY-NAME">EDKB12WS (in EDKB12WS.exe)</topic-variable>
<topic-variable id="MEMBER-NAME">ModMain.Bar25Ics</topic-variable>
<topic-variable id="MEMBER-TYPE">Method</topic-variable>
<topic-variable id="MEMBER-PARENT">EDKB12WS.ModMain</topic-variable>
<topic-variable id="MEMBER-LINK">topic_00000000000003DF</topic-variable>
</topic-variables>
<body>
<header>
<para styleclass="Title"><text styleclass="Title" translate="true">ModMain.Bar25Ics Method</text></para>
</header>
<para styleclass="Normal">
<br/><text styleclass="Normal" style="font-weight:bold;" translate="true">Assembly:</text>
<text styleclass="Normal" translate="true">
EDKB12WS (in EDKB12WS.exe)
</text>
</para>
<para styleclass="Heading1"><conditional-text type="IF" value="declarations"/><conditional-text type="IFNOT" value="PDF,PRINT"/><image src="expall.gif" scale="100.00%" styleclass="Heading1"></image><conditional-text type="END"/><toggle type="dropdown" id="syntaxToggle" print-expanded="true" help-expanded="true" defaultstyle="true" src-collapsed="expall.gif" src-expanded="collall.gif" styleclass="Heading1"><caption translate="true"><![CDATA[Syntax]]></caption></toggle></para>
<para styleclass="ToggleSectionParagraph"><table styleclass="ToggleSection" rowcount="1" colcount="1">
<tr style="vertical-align:top">
<td style="width:10%; background-color:#ffffff;">
<para styleclass="Normal"><table styleclass="MainSectionTable" rowcount="2" colcount="1">
<tr style="vertical-align:top">
<td>
<para styleclass="Table Heading VB"><text styleclass="Table Heading VB" translate="true">Visual Basic</text></para>
</td>
</tr>
<tr style="vertical-align:top">
<td>
<para styleclass="Code Example"><text styleclass="Code Example" translate="true">Public Shared Function Bar25Ics( _<br/> &#160; ByVal <text styleclass="Code Example" style="font-style:italic;" translate="true">BarTextIn</text><text styleclass="Code Example"></text> As <text></text><html-code width="20" height="20" translate="true"><![CDATA[<span class="msdn-link-container">]]></html-code><link displaytype="text" styleclass="Code Example" defaultstyle="true" type="weblink" href="msdn::T:System.String" translate="true">String<title translate="true"></title></link><conditional-text type="IF" value="HXS"/><html-code width="20" height="20" translate="true"><![CDATA[<MSHelp:link keywords="a" indexMoniker="!DefaultAssociativeIndex" tabindex="0">a</MSHelp:link>]]></html-code><conditional-text type="END"/><html-code width="20" height="20" translate="true"><![CDATA[</span>]]></html-code><text styleclass="Code Example" defaultstyle="true"></text> _<br/>) As <text></text><html-code width="20" height="20" translate="true"><![CDATA[<span class="msdn-link-container">]]></html-code><link displaytype="text" styleclass="Code Example" defaultstyle="true" type="weblink" href="msdn::T:System.String" translate="true">String<title translate="true"></title></link><conditional-text type="IF" value="HXS"/><html-code width="20" height="20" translate="true"><![CDATA[<MSHelp:link keywords="a" indexMoniker="!DefaultAssociativeIndex" tabindex="0">a</MSHelp:link>]]></html-code><conditional-text type="END"/><html-code width="20" height="20" translate="true"><![CDATA[</span>]]></html-code><text styleclass="Code Example" defaultstyle="true"></text></text></para>
</td>
</tr>
</table></para>
<para styleclass="Normal"><table styleclass="MainSectionTable" rowcount="2" colcount="1">
<tr style="vertical-align:top">
<td>
<para styleclass="Table Heading Csharp"><text styleclass="Table Heading Csharp" translate="true">C#</text></para>
</td>
</tr>
<tr style="vertical-align:top">
<td>
<para styleclass="Code Example"><text styleclass="Code Example" translate="true">public static <text></text><html-code width="20" height="20" translate="true"><![CDATA[<span class="msdn-link-container">]]></html-code><link displaytype="text" styleclass="Code Example" defaultstyle="true" type="weblink" href="msdn::T:System.String" translate="true">string<title translate="true"></title></link><conditional-text type="IF" value="HXS"/><html-code width="20" height="20" translate="true"><![CDATA[<MSHelp:link keywords="a" indexMoniker="!DefaultAssociativeIndex" tabindex="0">a</MSHelp:link>]]></html-code><conditional-text type="END"/><html-code width="20" height="20" translate="true"><![CDATA[</span>]]></html-code><text styleclass="Code Example" defaultstyle="true"></text> Bar25Ics(<br/> &#160; <text></text><html-code width="20" height="20" translate="true"><![CDATA[<span class="msdn-link-container">]]></html-code><link displaytype="text" styleclass="Code Example" defaultstyle="true" type="weblink" href="msdn::T:System.String" translate="true">string<title translate="true"></title></link><conditional-text type="IF" value="HXS"/><html-code width="20" height="20" translate="true"><![CDATA[<MSHelp:link keywords="a" indexMoniker="!DefaultAssociativeIndex" tabindex="0">a</MSHelp:link>]]></html-code><conditional-text type="END"/><html-code width="20" height="20" translate="true"><![CDATA[</span>]]></html-code><text styleclass="Code Example" defaultstyle="true"></text> <text styleclass="Code Example" style="font-style:italic;" translate="true">BarTextIn</text><text styleclass="Code Example"></text><br/>)</text></para>
</td>
</tr>
</table></para>
<para styleclass="Normal"><table styleclass="MainSectionTable" rowcount="2" colcount="1">
<tr style="vertical-align:top">
<td>
<para styleclass="Table Heading Cpp"><text styleclass="Table Heading Cpp" translate="true">C++</text></para>
</td>
</tr>
<tr style="vertical-align:top">
<td>
<para styleclass="Code Example"><text styleclass="Code Example" translate="true">public: <br/>static <text></text><html-code width="20" height="20" translate="true"><![CDATA[<span class="msdn-link-container">]]></html-code><link displaytype="text" styleclass="Code Example" defaultstyle="true" type="weblink" href="msdn::T:System.String" translate="true">String<title translate="true"></title></link><conditional-text type="IF" value="HXS"/><html-code width="20" height="20" translate="true"><![CDATA[<MSHelp:link keywords="a" indexMoniker="!DefaultAssociativeIndex" tabindex="0">a</MSHelp:link>]]></html-code><conditional-text type="END"/><html-code width="20" height="20" translate="true"><![CDATA[</span>]]></html-code><text styleclass="Code Example" defaultstyle="true"></text>^ Bar25Ics(<br/> &#160; <text></text><html-code width="20" height="20" translate="true"><![CDATA[<span class="msdn-link-container">]]></html-code><link displaytype="text" styleclass="Code Example" defaultstyle="true" type="weblink" href="msdn::T:System.String" translate="true">String<title translate="true"></title></link><conditional-text type="IF" value="HXS"/><html-code width="20" height="20" translate="true"><![CDATA[<MSHelp:link keywords="a" indexMoniker="!DefaultAssociativeIndex" tabindex="0">a</MSHelp:link>]]></html-code><conditional-text type="END"/><html-code width="20" height="20" translate="true"><![CDATA[</span>]]></html-code><text styleclass="Code Example" defaultstyle="true"></text>^ <text styleclass="Code Example" style="font-style:italic;" translate="true">BarTextIn</text><text styleclass="Code Example"></text><br/>) </text></para>
</td>
</tr>
</table></para>
<para styleclass="Normal"><table styleclass="MainSectionTable" rowcount="2" colcount="1">
<tr style="vertical-align:top">
<td>
<para styleclass="Table Heading Jscript"><text styleclass="Table Heading Jscript" translate="true">JScript</text></para>
</td>
</tr>
<tr style="vertical-align:top">
<td>
<para styleclass="Code Example"><text styleclass="Code Example" translate="true">public static function Bar25Ics(<br/> &#160; &#160;<text styleclass="Code Example" style="font-style:italic;" translate="true">BarTextIn</text><text styleclass="Code Example"></text> : <text></text><html-code width="20" height="20" translate="true"><![CDATA[<span class="msdn-link-container">]]></html-code><link displaytype="text" styleclass="Code Example" defaultstyle="true" type="weblink" href="msdn::T:System.String" translate="true">String<title translate="true"></title></link><conditional-text type="IF" value="HXS"/><html-code width="20" height="20" translate="true"><![CDATA[<MSHelp:link keywords="a" indexMoniker="!DefaultAssociativeIndex" tabindex="0">a</MSHelp:link>]]></html-code><conditional-text type="END"/><html-code width="20" height="20" translate="true"><![CDATA[</span>]]></html-code><text styleclass="Code Example" defaultstyle="true"></text><br/>) : <text></text><html-code width="20" height="20" translate="true"><![CDATA[<span class="msdn-link-container">]]></html-code><link displaytype="text" styleclass="Code Example" defaultstyle="true" type="weblink" href="msdn::T:System.String" translate="true">String<title translate="true"></title></link><conditional-text type="IF" value="HXS"/><html-code width="20" height="20" translate="true"><![CDATA[<MSHelp:link keywords="a" indexMoniker="!DefaultAssociativeIndex" tabindex="0">a</MSHelp:link>]]></html-code><conditional-text type="END"/><html-code width="20" height="20" translate="true"><![CDATA[</span>]]></html-code><text styleclass="Code Example" defaultstyle="true"></text>;</text></para>
</td>
</tr>
</table></para>
<para styleclass="Heading2"><text styleclass="Heading2" translate="true">Parameters</text></para><para styleclass="ParameterName"><text styleclass="ParameterName" translate="true">BarTextIn</text></para>
<para styleclass="ParameterDescr"><text styleclass="ParameterDescr" translate="true"></text></para>
<para styleclass="Normal"><text styleclass="Normal" translate="true"></text></para>
<para styleclass="Normal"><text styleclass="Normal" translate="true"></text></para>
</td>
</tr>
</table></para>
<para styleclass="ToggleSectionParagraph"><conditional-text type="END"/></para>
</td>
</tr>
</table></para>
$END-IFNOTEMPTY$
<para styleclass="Heading1"><conditional-text type="IFNOT" value="PDF,PRINT"/><image src="expall.gif" scale="100.00%" styleclass="Heading1"></image><conditional-text type="END"/><toggle type="dropdown" print-expanded="true" help-expanded="true" defaultstyle="true" src-collapsed="expall.gif" src-expanded="collall.gif" styleclass="Heading1"><caption translate="true"><![CDATA[Source code]]></caption></toggle></para>
<para styleclass="ToggleSectionParagraph"><table styleclass="ToggleSection" rowcount="1" colcount="1" style="border-width:0px; border-spacing:0px; border-collapse:collapse; cell-border-width:1px; border-color:#ffffff; border-style:solid;">
<tr style="vertical-align:top">
<td style="width:10%; background-color:#ffffff;">
<para styleclass="Normal"><table styleclass="CodeTable" rowcount="2" colcount="2">
<tr style="vertical-align:top">
<td>
<para styleclass="Table Heading VB"><text styleclass="Table Heading VB" translate="true">Visual Basic</text></para>
</td>
<td style="width:1%;">
<para styleclass="Copy Code Link"><conditional-text type="IF" value="CHM,HTML,HXS"/><html-code width="200" height="20" translate="true"><![CDATA[<span title="Copy Code" class="copyCode" onclick="CopyCode(this)" onkeypress="CopyCode_CheckKey(this, event)" onmouseover="ChangeCopyCodeIcon(this)" onmouseout="ChangeCopyCodeIcon(this)" tabindex="0"><img class="copyCodeImage" name="ccImage" align="absmiddle" alt="Copy Code" src="copycode.gif" />Copy Code</span>
]]></html-code><conditional-text type="END"/></para>
</td>
</tr>
<tr style="vertical-align:top">
<td colspan="2">
<para styleclass="Code Example"><text styleclass="Code Example" translate="true">
Public Function Bar25Ics(ByVal BarTextIn As String) As String<br/> <br/> &#160; &#160;' Initialize input and output strings<br/> &#160; &#160;BarTextOut = &quot;&quot;<br/> &#160; &#160;BarTextIn = RTrim(LTrim(BarTextIn))<br/> <br/> &#160; &#160;' Throw away non-numeric data<br/> &#160; &#160;TempString = &quot;&quot;<br/> &#160; &#160;For II = 1 To Len(BarTextIn)<br/> &#160; &#160; &#160; &#160;If IsNumeric(Mid(BarTextIn, II, 1)) Then<br/> &#160; &#160; &#160; &#160; &#160; &#160;TempString = TempString &amp; Mid(BarTextIn, II, 1)<br/> &#160; &#160; &#160; &#160;End If<br/> &#160; &#160;Next II<br/> <br/> &#160; &#160;' If not an odd number of digits, add a leading 0<br/> &#160; &#160;If (Len(TempString) Mod 2) = 0 Then<br/> &#160; &#160; &#160; &#160;TempString = &quot;0&quot; &amp; TempString<br/> &#160; &#160;End If<br/> <br/> &#160; &#160;' Figure out the checksum digit<br/> &#160; &#160;Sum = 0<br/> &#160; &#160;For II = 1 To Len(TempString)<br/> &#160; &#160; &#160; &#160;CharValue = Mid(TempString, II, 1)<br/> &#160; &#160; &#160; &#160;If (II Mod 2) = 1 Then<br/> &#160; &#160; &#160; &#160; &#160; &#160;Sum = Sum + (3 * CharValue)<br/> &#160; &#160; &#160; &#160;Else<br/> &#160; &#160; &#160; &#160; &#160; &#160;Sum = Sum + CharValue<br/> &#160; &#160; &#160; &#160;End If<br/> &#160; &#160;Next II<br/> <br/> &#160; &#160;' Figure checksum, add it as last digit<br/> &#160; &#160;CheckSum = 10 - (Sum Mod 10)<br/> &#160; &#160;If CheckSum = 10 Then CheckSum = 0<br/> &#160; &#160;TempString = TempString &amp; Chr(48 + CheckSum)<br/> <br/> &#160; &#160;' Break digit pairs up and convert to characters- build output string<br/> &#160; &#160;For II = 1 To Len(TempString) Step 2<br/> &#160; &#160; &#160; &#160;'Break string into pairs of digits and get value<br/> &#160; &#160; &#160; &#160;CharValue = Mid(TempString, II, 2)<br/> &#160; &#160; &#160; &#160;'translate value to ASCII and save in BarTextOut<br/> &#160; &#160; &#160; &#160;If CharValue &lt; 90 Then<br/> &#160; &#160; &#160; &#160; &#160; &#160;BarTextOut = BarTextOut &amp; Chr(CharValue + 33)<br/> &#160; &#160; &#160; &#160;Else<br/> &#160; &#160; &#160; &#160; &#160; &#160;BarTextOut = BarTextOut &amp; Chr(CharValue + 71)<br/> &#160; &#160; &#160; &#160;End If<br/> &#160; &#160;Next II<br/> <br/> &#160; &#160;'Build ouput string, trailing space for Windows rasterization bug<br/> &#160; &#160;barcodeout = &quot;{&quot; &amp; BarTextOut &amp; &quot;} &quot;<br/> <br/> &#160; &#160;'Return the string<br/> &#160; &#160;Bar25Ics = barcodeout<br/> <br/> End Function
</text></para>
</td>
</tr>
</table></para>
</td>
</tr>
</table></para>
<para styleclass="Heading1"><conditional-text type="IF" value="PLATFORMS"/><conditional-text type="IFNOT" value="PDF,PRINT"/><image src="expall.gif" scale="100.00%" styleclass="Heading1"></image><conditional-text type="END"/><toggle type="dropdown" print-expanded="true" help-expanded="true" defaultstyle="true" src-collapsed="expall.gif" src-expanded="collall.gif" styleclass="Heading1"><caption translate="true"><![CDATA[Platforms]]></caption></toggle></para>
<para styleclass="ToggleSectionParagraph"><table styleclass="ToggleSection" rowcount="1" colcount="1" style="border-width:0px; border-spacing:0px; border-collapse:collapse; cell-border-width:1px; border-color:#ffffff; border-style:solid;">
<tr style="vertical-align:top">
<td style="width:10%; background-color:#ffffff;">
<para styleclass="Normal"><text styleclass="Normal" translate="true">Windows 8, Windows Server 2012, Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows XP SP2 x64 Edition, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2</text></para>
<para styleclass="Normal"><text styleclass="Normal" translate="true">The .NET Framework does not support all versions of every platform. For a list of the supported versions, see
<text></text><html-code width="20" height="20" translate="true"><![CDATA[<span class="msdn-link-container">]]></html-code><link displaytype="text" styleclass="Normal" defaultstyle="true" type="weblink" href="msdn::298275e2-da1d-4618-9f74-6a3567832350" translate="true">System Requirements<title translate="true"></title></link><conditional-text type="IF" value="HXS"/><html-code width="20" height="20" translate="true"><![CDATA[<MSHelp:link keywords="a" indexMoniker="!DefaultAssociativeIndex" tabindex="0">a</MSHelp:link>]]></html-code><conditional-text type="END"/><html-code width="20" height="20" translate="true"><![CDATA[</span>]]></html-code><text styleclass="Normal" defaultstyle="true"></text>.</text></para>
</td>
</tr>
</table></para>
<para styleclass="ToggleSectionParagraph"><conditional-text type="END"/></para>
<para styleclass="Heading1"><conditional-text type="IF" value="FRAMEWORKS"/><conditional-text type="IFNOT" value="PDF,PRINT"/><image src="expall.gif" scale="100.00%" styleclass="Heading1"></image><conditional-text type="END"/><toggle type="dropdown" print-expanded="true" help-expanded="true" defaultstyle="true" src-collapsed="expall.gif" src-expanded="collall.gif" styleclass="Heading1"><caption translate="true"><![CDATA[Version Information]]></caption></toggle></para>
<para styleclass="ToggleSectionParagraph"><table styleclass="ToggleSection" rowcount="1" colcount="1" style="border-width:0px; border-spacing:0px; border-collapse:collapse; cell-border-width:1px; border-color:#ffffff; border-style:solid;">
<tr style="vertical-align:top">
<td style="width:10%; background-color:#ffffff;">
<para styleclass="Heading2"><text styleclass="Heading2" translate="true">.NET Framework</text></para>
<para styleclass="Normal"><text styleclass="Normal" translate="true">Supported in: 4.5, 4, 3.5, 3.0, 2.0, 1.1, 1.0<br/></text></para>
<para styleclass="Heading2"><text styleclass="Heading2" translate="true">.NET Compact Framework</text></para>
<para styleclass="Normal"><text styleclass="Normal" translate="true">Supported in: 3.5, 2.0, 1.0<br/></text></para>
<para styleclass="Heading2"><text styleclass="Heading2" translate="true">XNA Framework</text></para>
<para styleclass="Normal"><text styleclass="Normal" translate="true">Supported in: 3.0, 2.0, 1.0<br/></text></para>
</td>
</tr>
</table></para>
<para styleclass="ToggleSectionParagraph"><conditional-text type="END"/></para>
<para styleclass="Heading1"><anchor id="seeAlsoToggle" styleclass="Heading1"></anchor><conditional-text type="IFNOT" value="PDF,PRINT"/><image src="expall.gif" scale="100.00%" styleclass="Heading1"></image><conditional-text type="END"/><toggle type="dropdown" id="seeAlsoToggleSection" print-expanded="true" help-expanded="true" defaultstyle="true" src-collapsed="expall.gif" src-expanded="collall.gif" styleclass="Heading1"><caption translate="true"><![CDATA[See Also]]></caption></toggle></para>
<para styleclass="ToggleSectionParagraph"><table styleclass="ToggleSection" rowcount="1" colcount="1">
<tr style="vertical-align:top">
<td style="width:10%; background-color:#ffffff;">
<para styleclass="Heading2"><text styleclass="Heading2" translate="true">Reference</text></para>
<para styleclass="Normal"><text styleclass="Normal" translate="true">
<link displaytype="text" styleclass="Normal" defaultstyle="true" type="topiclink" href="topic_000000000000038A" translate="true">ModMain Class<title translate="true">ModMain Class</title></link><br/>
<link displaytype="text" styleclass="Normal" defaultstyle="true" type="topiclink" href="topic_000000000000038A_members--" translate="true">ModMain ModMain Members<title translate="true">ModMain ModMain Members</title></link><br/>
</para>
</td>
</tr>
</table></para>
</body>
</topic>