Kalkulator

Należy utworzyć nowy projekt, wstawić obiekt typu Shape oraz trzy obiekty Line, które będą odpowiednio tarczą oraz wskazówkami zegara . Właściwość Shape ustawić na wartość 3-Circle a wysokość i szerokość na 8000. Aby wskazówki znajdowały się w środku tarczy zegara należy do funkcji Load formatki wprowadzić następujący kod:

Line1.X1 = Shape1.Left + Shape1.Width / 2

Line1.Y1 = Shape1.Top + Shape1.Height / 2

Dla pozostałych wskazówek wprowadzić kod według wzoru powyżej.

Wstawić 12 etykiet, stworzyć z nich tablice (wysokość oraz szerokość każdej etykiety

powinna mieć wartość 500, czcionka pogrubiona, typu Times New Roman o rozmiarze 24, tekst wyśrodkowany – aby zaoszczędzić czas najlepiej zmiany te wprowadzić w postaci

zapisu w kodzie programu) a następnie rozmieścić na tarczy zegara poprzez wprowadzenie kodu:

For i = 1 To 12

Label1(i - 1).Left = -250 + Shape1.Left + Shape1.Width / 2 + 3556 * Sin(6.28 * i / 12) Label1(i - 1).Top = -250 + Shape1.Top + Shape1.Height / 2 - 3556 * Cos(6.28 * i / 12) Next

Za ruch strzałki sekundowej odpowiada kod:

Line1.X2 = Line1.X1 + 3000 * Sin(6.28 * Second(Time) / 60)

Line1.Y2 = Line1.Y1 - 3000 * Cos(6.28 * Second(Time) / 60)

wprowadzony w funkcji odsługującej Timer. Analogicznie należy wprowadzić kod

odpowiedzialny za poruszanie się pozostałych wskazówek (funkcje Minute(Time),

Hour(Time) zwracają aktualną minutę oraz godzinę).

Wstawić kolejne etykiety oraz wprowadzić kod umożliwiający wyświetlenie w nich aktualnej daty oraz godziny. Pomocne będą funkcje:

Format(Date, "dd mmm yyyy")

Format(Time, "hh:mm:ss")

Do wprowadzenia animacji zmieniających się faz księżyca można wykorzystać obiekty

Image. Należy wstawić osiem takich kontrolek, do każdej z nich wprowadzić za pomocą właściwości Picture odpowiedni obrazek, wstawić kolejny obiekt, w którym będzie wyświetlana animacja a następnie wprowadzić kod wyświetlający kolejne fazy księżyca

wykorzystując do tego funkcję Timer.

Zadanie

Dodać możliwość sterowania szybkością odmierzania czasu.

Wprowadzić płynne przesuwanie wskazówki minutowej i godzinnej.

Wstawić aktualną datę oraz czas do paska tytułu programu.