Ako Invertovať Zlomky v jazyku Visual Basic

Visual Basic ( VB ) , programovací jazyk prichádza s húf integrovanými funkciami pre výrobu jednoduché výpočty , ako je sčítanie , odčítanie , násobenie a delenie celých čísel . Bohužiaľ VB nie je príliš zlomok priateľský , v tom , že všetky výpočty zahŕňajúce racionálne čísla musí byť vykonaná ručne . Najlepší spôsob , ako to urobiť , je tým , že vytvorí svoj ​​vlastný frakcie triedu a vkladanie ho s funkciou , ktorá bude obrátenie zlomky . Pokyny dovolená 1

Vytvorte nový modul triedy a názov FractionClass.cls .
2

Definujte premenné pre triedu . Tieto premenné budú zodpovedné za ukladanie čitateľa a menovateľa hodnoty .

Súkromná m_Numerator As Long

Súkromné ​​m_Denominator As Long
3

Inicializácia zlomok . To bude trvať reťazec v tvare A /B a pripraviť ich na možné rozdeliť do samostatných hodnôt . oddeliť to tým , že sa A do m_Numerator a B do m_Denominator . klipart

Public Sub FromString ( ByVal txt As String ) Spojené

Dim ks ( ) As String

ks = Rozdeliť ( txt , " /" )

m_Numerator = CLng ( kusov ( 0 ) )

m_Denominator = CLng ( ks ( 1 ) )

Zjednodušte

end Sub

Public Property Get čitateľ ( ) As Long

čitateľ = m_Numerator

end Property

Public Property Let čitateľ ( byVal hodnota As Long )

m_Numerator = hodnota

Zjednodušte

End Property

Public Property Get Menovateľ ( ) As Long

Menovateľ = m_Denominator

End Property

Public Property Let Menovateľ ( byVal hodnota As Long )

m_Denominator = hodnota

Zjednodušte

End Property
4

Oddeľte a a B z reťazca a /B do premenných m_Numerator a m_Denominator , resp .

Public Sub SetValues ​​( byVal numer As Long , byval DENOM Ako _

Long )

m_Numerator = numer

m_Denominator = DENOM

Zjednodušte

End Sub
5

Vytvorte funkciu Invertovať ( ) že bude mať reťazec a /B a obráťte sa na vzájomnej hodnota B /A.

Public Function Invertovať ( ) ako podiel

Dim výsledok ako nový zlomok

výsledok . SetValues ​​m_Denominator , m_Numerator

Set Obrátiť = výsledok

End Function
6

Prístup k funkcii invertný zlomky z vášho hlavného zdrojového kódu kedykoľvek pomocou to Invertovať ( ) s reťazcom . Poznamenajte si , že premenná drží reťazec by mal byť v dlhodobom dátovej podobe .

• Predchádzajúca strana: Ako používať XML s VB.NET 
• Ďalšia strana: Ako zastaviť VBA Loop Break