Ikony do programow + ocena programu

Witam przedstawiam wam moje najnowszy a zarazem najbardziej profesionalny program !

napisałem go zmysla o koledze !

pisałemjakies 3 godzinki :)

prosze oceńcie co sądzicie onim

powiem ze jestem poczatkujacym dopiero i znam tylko podstawy delphi niewiem czy uzyłem optymalnych algorytmów czy moze dało by rade zrobic cos z tym jeszcze

i mam jeszcze taką prośbe do was wytłumaczcie mi co zrobic zeby po wpisaniu litery
wyskakiwał jakis komunikat a nie zawieszał się program !

oraz jak zrobic ikone do tego programu tj. zeby był jakis rysunek zamiast tego standartowego bialego

a tutaj macie link do programu ! exe jak i dpr

http://pmail.pl/~bartek24m/program/

POZDRAWIAM WSZYTKICH

Jak chcesz zmienić ikonę programu, to po kolei Project->Options->Aplication->Load Icon

W menu, do wyboru figury zamiast readln użyj ReadKey, wtedy opcja zostanie wybrana bezpośrednio po wciśnięciu klawisza 1-6.

repeat pole := Ord(ReadKey) - 48 until pole in [1..6];

Po wyborze figury dobrze by było wyczyścić ekran.

Zamiast tych if'ów (if pole = kolo, if pole = trojkat ...) użyj case.

Proponowałbym jeszcze to wszystko złapać w while'a jakby ktoś chciał sprawdzić pola kilku figur ;)

zgadza sie chciałem case uzyc ale strasznei sie głowiłem nad tym
i niewiedziałem jak zrobic zeby było case of dałem te opcje i potem co zrobci zeby akurat te wybrało !

ten program nauczył mnie ze programowanie neizna granic na wszytkie programy jest miliony sposobów i kazdy mozna inaczej napisać !

co do opcji while nie wiem czy w ogole bedzie ona tu potrzebna przeciez tej konnstrukcji sie uzywa
identycznie jak if !

bo np. if = jeśli, then = wtedy

while = podczas gdy , do = rob

jak widzicie programisci niewiem czym sie rozni tak samo wystepuje po tym else

oświeccie mnie ale piszcie zrozumiale bo ja ledwo co kojarze temat delphi

dziekuje za wszytkie komentarze i czekam na wiecej

zaraz sprobuje tą ikone zrobić ! dziekuje jeszcze raz pozdrawiam

edit :::::::::::::::::::::::

a jednach tych ikon niemoge zrobic poniewaz sami zobaczcie !

To konsolowy program, pewnie dlatego (choc w delphi nie pisze).
Ja bym jeszcze dodal zabezpieczenie przed wpisywaniem liter i nieodpowiednich znakow.

Dopisz {$R *.RES} i w tedy będziesz miał możliwość dodania ikony.

gdzie mam dopisać ? {$R *.RES}

bartek24m napisał(a)

gdzie mam dopisać ? {$R *.RES}

wpisz to pod uses.
W twoim przypadku:

uses
  SysUtils;
{$R *.RES}

Wpisując może wyskoczyć błąd informujący że plik *.res nie istnieje, ale delphi powinien go stworzyć i Project->Options będziesz mógł zmienić ikone.