x-kom hosting

[Rozwiązany][TP] Kilka przydatnych dodatków

benkowik
utworzono
utworzono

Witam,

Zacząłem przygodę z Turbo Pascal. Napisałem już program znam podstawowe funkcje. Chciałbym ulepszyć swój program i chciałbym dodać (oczywiście jak takie coś istnieje):

- aktualna data i czas (pobierane z windows);

- imieniny;

Nie wiem czy takie coś istnieje ;P

Aha;

Jak dodać zdjęcie/grafikę z rozszerzeniem .gif lub .jpg do programu :)

Dziękuje z góry !

grucha
komentarz
komentarz
aktualna data i czas (pobierane z windows);

Problem na prawdę prościutki w rozwiązaniu :)

program odwroc;uses crt,dos;var c: array [1..4] of word; d: array [1..4] of word; m: string[15];begin GetTime(c[1],c[2],c[3],c[4]); GetDate(d[1],d[2],d[3],d[4]); case d[2] of  1: m:='Styczen';  2: m:='Luty';  3: m:='Marzec';  4: m:='Kwiecien';  5: m:='Maj';  6: m:='Czerwiec';  7: m:='Lipiec';  8: m:='Sierpien';  9: m:='Wrzesien';  10: m:='Pazdziernik';  11: m:='Listopad';  12: m:='Grudzien'; end; Write('Dzisiaj jest ',d[3],' ',m,' ',d[1],'r. godz. ',c[1],':',c[2],':',c[3]); readln;end.

Powyższy kod nie jest jednak w pełni odporny na błędy, ponieważ, jeżeli godzina, minuta lub sekunda będą <10, wtedy program wyświetli je w postaci np. '12:6:8' a powinien wyświetlić w postaci '12:06:08', czyli wystarczy dodać instrukcję warunkową i po problemie ;]

- imieniny;

Kiedy masz już dostęp do daty z imieninami nie powinien być problem. Datę imienin oraz solenizantów zapisujesz w pliku i to wszystko ;] Tutaj jedynie bym się skusił na pliki z podstrukturami, ponieważ, przeszukiwanie za każdym razem 365 wierszy może zajmować za dużo czasu ;]

Jak dodać zdjęcie/grafikę z rozszerzeniem .gif lub .jpg do programu smile.gif

Do programu napisanego w Turbo Pascalu pod dosem? :> Heh, nie wymagaj zbyt wiele ;] Osobiście kiedyś się spotkałem z wczytywaniem plików *.bmp, ale było to bardzo ubogie, plik nie mógł zawierać więcej niż chyba 16 kolorów ;] A o plikach jpeg czy gif nie masz co marzyć :D

Mam nadzieję, że wyczerpująco odpowiedziałem na Twoje pytania :]

Pozdrawiam,

gruch4

benkowik
komentarz
komentarz

Trochę z tą grafiką przesadziłem :P No tak jak powstał język Pascal to nie wiedziano co to windows :P heheh :D

Dzięki :P

A możesz opisać jak poprawić ten błąd ?

grucha
komentarz
komentarz
A możesz opisać jak poprawić ten błąd ?

No tutaj to jest już sprawa pomyślenia, dlatego nie będę zabierał Ci całej przyjemności z programowania :P

benkowik
komentarz
komentarz

Aha. Dobra :P Pomyśle :P:P:P

Dzięki i tak za pomoc

Wciąż szukasz rozwiązania problemu? Napisz teraz na forum!

Możesz zadać pytanie bez konieczności rejestracji - wystarczy, że wypełnisz formularz.

×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Strona wykorzystuje pliki cookies w celu prawidłowego świadczenia usług i wygody użytkowników. Warunki przechowywania i dostępu do plików cookies możesz zmienić w ustawieniach przeglądarki.