Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Jak zamienic nominał na banknoty i bilon?
Goły




Typ: neutral
Postów: 8
Zarejestrowany: Dec 2003
Jak zamienic nominał na banknoty i bilon?

Jak zamienic nominał na banknoty i bilon tak aby program przedstawiał wszystkie możliwe sposoby jego zamiany. Używamy 1,2,5,10,20,50,100 zł
Wszystkie podpowiedzi i rozwiazania mile widziane. Dzieki pozdrawiam.

31-12-2003 15:55
Pokaż profil Goły  Wyślij email do Goły        478762
Mariusz



Typ: neutral
Postów: 17
Zarejestrowany: May 2003

Rozwiązanie ale nie wiem czy oto chodziło
-----------------------------------
    Private Sub zamiana()
        '************************************************
        '*  ZAMIANA NOMINAŁU NA BANKNOTY I BILON        *
        '*  Mariusz Michalski () *
        '*  www.m2.z.pl                                *
        '*  UWAGA !!! źródło w Visual Basic NET        *
        '************************************************
        Dim kwota As Double  'zdefiniowanie kwoty do przeliczenia
        Dim z200, z100, z50, z20, z10, z5, z2, z1, g50, g20, g10, g5, g2, g1  'banknoty i bilon - ile sztuk
        kwota = TextBox1.Text 'pobranie kwoty z textboxa
        kwota = Math.Round(kwota, 2) 'zaokrąglenie kwoty do 2 miejsc po przecinku

        'liczenie ile banknotów po 200zł zmienna z200
        z200 = Math.Round(kwota / 200, 0)
        If 200 * z200 > kwota Then
            z200 = z200 - 1
        End If
        kwota = kwota - (z200 * 200)  'zmiana wartości kwoty aby później liczył bez tego nominału

        'liczenie ile banknotów po 100zł zmienna z100
        z100 = Math.Round(kwota / 100, 0)
        If 100 * z100 > kwota Then
            z100 = z100 - 1
        End If
        kwota = kwota - (z100 * 100)

        'liczenie ile banknotów po 50zł zmienna z50
        z50 = Math.Round(kwota / 50, 0)
        If 50 * z50 > kwota Then
            z50 = z50 - 1
        End If
        kwota = kwota - (z50 * 50)

        'liczenie ile banknotów po 20zł zmienna z20
        z20 = Math.Round(kwota / 20, 0)
        If 20 * z20 > kwota Then
            z20 = z20 - 1
        End If
        kwota = kwota - (z20 * 20)

        'liczenie ile banknotów po 10zł zmienna z10
        z10 = Math.Round(kwota / 10, 0)
        If 10 * z10 > kwota Then
            z10 = z10 - 1
        End If
        kwota = kwota - (z10 * 10)

        'liczenie ile bilonu po 5zł zmienna z5
        z5 = Math.Round(kwota / 5, 0)
        If 5 * z5 > kwota Then
            z5 = z5 - 1
        End If
        kwota = kwota - (z5 * 5)

        'liczenie ile bilonu po 2zł zmienna z2
        z2 = Math.Round(kwota / 2, 0)
        If 2 * z2 > kwota Then
            z2 = z2 - 1
        End If
        kwota = kwota - (z2 * 2)

        'liczenie ile bilonu po 1zł zmienna z1
        z1 = Math.Round(kwota / 1, 0)
        If 1 * z1 > kwota Then
            z1 = z1 - 1
        End If
        kwota = kwota - (z1 * 1)

        'liczenie ile bilonu po 50gr zmienna g50
        g50 = Math.Round(kwota / 0.5, 0)
        If 0.5 * g50 > kwota Then
            g50 = g50 - 1
        End If
        kwota = kwota - (g50 * 0.5)

        'liczenie ile bilonu po 20gr zmienna g20
        g20 = Math.Round(kwota / 0.2, 0)
        If 0.2 * g20 > kwota Then
            g20 = g20 - 1
        End If
        kwota = kwota - (g20 * 0.2)

        'liczenie ile bilonu po 10gr zmienna g10
        g10 = Math.Round(kwota / 0.1, 0)
        If 0.1 * g10 > kwota Then
            g10 = g10 - 1
        End If
        kwota = kwota - (g10 * 0.1)

        'liczenie ile bilonu po 5gr zmienna g5
        g5 = Math.Round(kwota / 0.05, 0)
        If 0.05 * g5 > kwota Then
            g5 = g5 - 1
        End If
        kwota = kwota - (g5 * 0.05)

        'liczenie ile bilonu po 2gr zmienna g2
        g2 = Math.Round(kwota / 0.02, 0)
        If 0.02 * g2 > kwota Then
            g2 = g2 - 1
        End If
        kwota = kwota - (g2 * 0.02)

        'liczenie ile bilonu po 1gr zmienna g1
        g1 = Math.Round(kwota / 0.01, 0)
        If 0.01 * g1 > kwota Then
            g1 = g1 - 1
        End If
        kwota = kwota - (g1 * 0.01)

    End Sub

08-02-2004 19:33
Pokaż profil Mariusz  Wyślij email do Mariusz   Odwiedź stronę Mariusz  
Goły




Typ: neutral
Postów: 8
Zarejestrowany: Dec 2003
Dzięki...

Ale cos nie chodzi cos z TextBox1.Text, podaje że nie jest zdefiniowane a reszta chyba jest ok

08-02-2004 19:51
Pokaż profil Goły  Wyślij email do Goły        478762
Mariusz



Typ: neutral
Postów: 17
Zarejestrowany: May 2003

U mnie działało, w każdyn razie to jest po prostu przykład skąd pobrać kwotę (zawsze może być inne miejsce).

09-02-2004 09:35
Pokaż profil Mariusz  Wyślij email do Mariusz   Odwiedź stronę Mariusz  
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1