Delphi 7 - aktualizacja danych co 10 sekund, użycie PC Speaker, pobieranie czasu

Question

1. Napisałem sobie w Delphi 7 programik, który wyświetla w oknie informacje dotyczące wolnego miejsca na HD. Jak jednak zrobić, by informacje aktualizowały się np. co 10 sekund?
Włożenie wszystkiego pod pętlę Repeat-until nie skutkuje.

2. Jak używać głośnika komputera (PC Speaker)? Znam nieco Turbo Pascala, ale w Delphi jest nieco inaczej.

3. Jak można, pobrać czas (godzina/minuta) do zmiennej i do jakiego typu?

nanotech · Answer

Chyba bardziej odpowiednm miejscem na takie pytania bedzie to podforum Pozdrawiam ∫

Łuk_F · Answer

Odpowiedź do pierwszego pytania:

Jest taki komponent jak Timer. Znajduje się on na zakładce System.
Posiada on funkcje OnTimer która jest wykonywana co pewien czas. Ten czas ustawiasz nadając zmiennej Interval wartość (w milisekundach).

A co do trzeciego to jest funkcja Gettimer. Poczytaj w pomocy Delphi o tej funkcji dokładnie.

Mam nadzieje że ci pomogłem.

mun · Answer

Witam, Datę i czas pobiera sie do zmiennej typu TDateTime za pomocą funkcji Date() i Time() Pozdrawiam

R_Przemek · Answer

:: Dajesz na formę komponent TTimer i wrzucasz do niego tom procedurkę która jest odpowiedzialna za aktualizowanie. Komponent ten ma taką właściwość jak Interval, podaje się tam częstotliwość odświerzanie w milisekundach. Więc jeśli chcesz odświerzać np. co 10 sekund to trzeba tam wpisać 10000. (bo 10s to 10000ms ) Taki przykład: chce żeby TEdit czyścił mi się co 30s Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka procedure TForm1.Timer1Timer(Sender: TObject); begin Edit1.Text := ''; end; A właściwość Interval znajduje się w Inspektorze objektów :: Wydobywanie dzwięków z głośnika w komputerze. - Najpierw do katalogu Lib dodajesz pliki które zamieściłem w załączniek sound. Katalog ten znajduje się w miejscu instalacji Delphiego. - Następnie Tworzysz nową formę i w uses dodajesz: uses Bleeper, BleepInt, GWBleep, StdCtrls; - A potem np. w buttonie piszesz: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkaprocedure TForm1.Button1Click(Sender: TObject); var   I : Integer; Begin   For I := 100 To 150 Do DoBleep (I * 10, I Div 10);   For I := 150 Downto 100 Do DoBleep (I * 10, I Div 10); end; i to by było na tyle... Zamieszczam jeszcze demo, gdzie jest troche więcej dzwięków

marek_kkk · Answer

tu dowiesz sie troche wiecej

Delphi 7 - aktualizacja danych co 10 sekund, użycie PC Speaker, pobieranie czasu

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6