AWANS INFORMACJE FORUM Dla nauczyciela Dla ucznia LOGOWANIE


Katalog

Tomasz Jarosz, 2014-05-05
Trzebnica

Informatyka, Ćwiczenia

Maszyna do głosowania - ćwiczenia w VBA

- n +

Maszyna do głosowania

1. W programie Word uruchom moduł Visual Basic for Applications (Alt+F11), wstaw formę dla nowej
aplikacji (‘Insert-->UserForm’) oraz przygotuj następujący układ elementów składający się z:
napisu (np. „Mistrzostwa świata w której dyscyplinie sportu chciałbyś, żeby zostały
zorganizowane w Twoim kraju?”) w etykiecie (‘Label’ ), w kolorze innym niż standardowo
czarny (zmiana koloru czcionki w etykiecie: ‘Properties-->ForeColor’),
dwóch obrazków (‘Image’ ) przedstawiających propozycje kandydatów w wyborach (obrazy
musisz wcześniej przygotować i dostosować rozmiar do parametrów elementu ‘Image’, czyli
szerokość ‘Properties-->Width’ oraz wysokość ‘Properties-->Height’),
dwóch etykiet (‘Label’ ) umieszczonych pod każdym obrazkiem, w celu wyświetlania liczby
oddanych głosów.

2. Kliknij dwukrotnie w pierwszy z obrazków i w okienku do kodowania wpisz kod wyróżniony
czcionką pogrubioną (zwróć uwagę na pisownię słów ‘Label1’,‘Label2’, ‘Label3’ itd.; label=etykieta):
Dim kosz As Integer
Dim noga As Integer
Private Sub Image1_Click()
kosz = kosz + 1
Label2 = kosz
End Sub

3. Kliknij dwukrotnie w drugi obrazek i wpisz kod wyróżniony czcionką pogrubioną:
Private Sub Image2_Click()
noga = noga + 1
Label3 = noga
End Sub

4. Uruchom aplikację (F5) i przetestuj poprawność jej działania. Kliknięcie w obrazek powinno
spowodować wyświetlenie pod obrazkiem aktualnej liczby głosów oddanych na danego kandydata.
Na ocenę dostateczną
2 etykiety
(Label2, Label3 )
1 etykieta
(Label1 )
2 obrazki
(Image1, Image2 )

5. Uzupełnij swoją aplikację o jeszcze jednego kandydata. Wstaw obrazek, etykietę pod obrazkiem
i oprogramuj zdarzenie polegające na kliknięciu w obrazek.

6. Uzupełnij swoją aplikację o przycisk powodujący zerowanie wyników oraz o przycisk, który sprawi,
że wyświetlony zostanie zwycięzca wyborów.
Wskazówka
Do sprawdzenia, kto został zwycięzcą, wykorzystaj instrukcję warunkową (If ... Then ... End If).
Fragment kodu, który możesz wykorzystać:
If noga > kosz Then
If noga > hokej Then
Label5 = "Piłka nożna"
End If
End If
Zgłoś błąd    Wyświetleń: 353


Uwaga! Wszystkie materiały opublikowane na stronach Profesor.pl są chronione prawem autorskim, publikowanie bez pisemnej zgody firmy Edgard zabronione.


BAROMETR


1 2 3 4 5 6  
Oceń artukuł!



Ilość głosów: 0

Serwis internetowy, z którego korzystasz, używa plików cookies. Są to pliki instalowane w urządzeniach końcowych osób korzystających z serwisu, w celu administrowania serwisem, poprawy jakości świadczonych usług w tym dostosowania treści serwisu do preferencji użytkownika, utrzymania sesji użytkownika oraz dla celów statystycznych i targetowania behawioralnego reklamy (dostosowania treści reklamy do Twoich indywidualnych potrzeb). Informujemy, że istnieje możliwość określenia przez użytkownika serwisu warunków przechowywania lub uzyskiwania dostępu do informacji zawartych w plikach cookies za pomocą ustawień przeglądarki lub konfiguracji usługi. Szczegółowe informacje na ten temat dostępne są u producenta przeglądarki, u dostawcy usługi dostępu do Internetu oraz w Polityce prywatności plików cookies.
Dowiedz się więcej.