http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net%2FClass%2FOperator_Overload
VB.Net/Class/Operator Overload - История изменений
2026-04-05T15:54:20Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VB.Net/Class/Operator_Overload&diff=358&oldid=prev
в 16:40, 26 мая 2010
2010-05-26T16:40:06Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VB.Net/Class/Operator_Overload&diff=359&oldid=prev
Admin: 1 версия
2010-05-26T12:42:43Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Operator Overload Demo==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Public Class MainClass<br />
Shared Sub Main(ByVal args As String())<br />
Dim X, Y As Complex<br />
X = New Complex(1, 2)<br />
Y = New Complex(3, 4)<br />
Console.WriteLine( (X + Y).ToString )<br />
Console.WriteLine( (X - Y).ToString )<br />
Console.WriteLine( (X * Y).ToString )<br />
Console.WriteLine( (X = Y).ToString )<br />
Console.WriteLine( (X <> Y).ToString )<br />
Console.WriteLine( (-X).ToString )<br />
Dim abs_x As Double = CDbl(X)<br />
Console.WriteLine( abs_x.ToString )<br />
End Sub<br />
End Class<br />
Public Class Complex<br />
Public realPart As Double<br />
Public imaginaryPart As Double<br />
" Constructors.<br />
Public Sub New()<br />
End Sub<br />
Public Sub New(ByVal real_part As Double, ByVal imaginary_part As Double)<br />
realPart = real_part<br />
imaginaryPart = imaginary_part<br />
End Sub<br />
" ToString.<br />
Public Overrides Function ToString() As String<br />
Return realPart.ToString & " + " & imaginaryPart.ToString & "i"<br />
End Function<br />
" Operators.<br />
Public Shared Operator *(ByVal c1 As Complex, ByVal c2 As Complex) As Complex<br />
Return New Complex( _<br />
c1.realPart * c2.realPart - c1.imaginaryPart * c2.imaginaryPart, _<br />
c1.realPart * c2.imaginaryPart + c1.imaginaryPart * c2.realPart)<br />
End Operator<br />
Public Shared Operator +(ByVal c1 As Complex, ByVal c2 As Complex) As Complex<br />
Return New Complex( _<br />
c1.realPart + c2.realPart, _<br />
c1.imaginaryPart + c2.imaginaryPart)<br />
End Operator<br />
Public Shared Operator -(ByVal c1 As Complex, ByVal c2 As Complex) As Complex<br />
Return New Complex( _<br />
c1.realPart - c2.realPart, _<br />
c1.imaginaryPart - c2.imaginaryPart)<br />
End Operator<br />
Public Shared Operator =(ByVal c1 As Complex, ByVal c2 As Complex) As Boolean<br />
Return (c1.realPart = c2.realPart) AndAlso (c1.imaginaryPart = c2.imaginaryPart)<br />
End Operator<br />
Public Shared Operator <>(ByVal c1 As Complex, ByVal c2 As Complex) As Boolean<br />
Return (c1.realPart <> c2.realPart) OrElse (c1.imaginaryPart <> c2.imaginaryPart)<br />
End Operator<br />
Public Shared Operator -(ByVal c1 As Complex) As Complex<br />
Return New Complex(c1.imaginaryPart, c1.realPart)<br />
End Operator<br />
Public Shared Narrowing Operator CType(ByVal c1 As Complex) As Double<br />
Return System.Math.Sqrt(c1.realPart * c1.realPart + c1.imaginaryPart * c1.imaginaryPart)<br />
End Operator<br />
End Class<br />
<br />
</source></div>
Admin