1
Szkółka / Odp: Logo - programowanie ?
« dnia: Luty 02, 2006, 19:32:31 »
ale to jakiś program jest ?? ,... jak tak to podajcie linka :D
Ta sekcja pozwala Ci zobaczyć wszystkie wiadomości wysłane przez tego użytkownika. Zwróć uwagę, że możesz widzieć tylko wiadomości wysłane w działach do których masz aktualnie dostęp.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Menus;
type
Ttest = class(TForm)
PanelPytanie: TPanel;
PanelOdpowiedz: TPanel;
PanelStatystyka: TPanel;
tekstPytanie: TLabel;
Label1: TLabel;
tekst: TLabel;
tekst1: TLabel;
tekstLiczbaPytan: TLabel;
tekstLiczbaPoprawnych: TLabel;
tekstLiczbaBlednych: TLabel;
radioOdpowiedz1: TRadioButton;
radioOdpowiedz2: TRadioButton;
radioOdpowiedz3: TRadioButton;
przyciskOdpowiedz: TButton;
MainMenu1: TMainMenu;
Plik1: TMenuItem;
Zamknij1: TMenuItem;
Pomoc1: TMenuItem;
Wiedzainformacje1: TMenuItem;
Dodaj1: TMenuItem;
Pytanie1: TMenuItem;
procedure Zamknij1Click(Sender: TObject);
procedure uaktualnijnapisy(numerPytania:integer);
procedure Ttest.FormCreate(Sender: TObject);
procedure Ttest.przyciskOdpowiedzClick(Sender:TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const liczbaPytan=3
var
test: Ttest;
pytanie: array [1..liczbaPytan] of string;
odpowiedz1: array[1.liczbaPytan] of string;
odpowiedz2: array[1..liczbaPytan] of string;
poprawne: array [1.liczbaPytan] of integer;
aktualnePytanie:integer;
liczbaPoprawnych:integer;
implementation
{$R *.dfm}
procedure Ttest.Zamknij1Click(Sender: TObject);
begin
close;
end;
procedure uaktualnijnapisy(numerPytania:integer);
begin
test.Caption:='Wiedza' + intToStr(aktualnePytanie)+'/' +intToStr(liczbaPytan);
test.tekstPytanie.Caption:=pytanie[numerPytania];
test.radioOdpowiedz1.Caption:=pytanie[numerPytania];
test.radioOdpowiedz2.Caption:=pytanie[numerPytania];
test.radioOdpowiedz3.Caption:=pytanie[numerPytania];
test.tekstLiczbaPytan.Caption:=intToStr(aktualnePytanie-1);
test.tekstLiczbaPoprawnych.Caption:=intToStr(liczbaPoprawnych);
test.tekstLiczbaBlednych.Caption:=intToStr(aktualnePytanie-liczbaPoprawnych-1);
end;
procedure Ttest.FormCreate(Sender: TObject);
begin
pytanie [1]:='Jakies pytanie?';
odpowiedz1[1]:='odpowiedz1';
odpowiedz2[1]:='odpowiedz2';
odpowiedz3[1]:='odpowiedz3';
poprawne[1]:=2;
pytanie [2]:='Jakies pytankoooooooo?';
odpowiedz1[2]:='odpowiedz1';
odpowiedz2[2]:='odpowiedz2';
odpowiedz3[2]:='odpowiedz3';
poprawne[2]:=1;
pytanie [3]:='Jakies pytanieeeeeeeeeyyy?';
odpowiedz1[3]:='odpowiedz1';
odpowiedz2[3]:='odpowiedz2';
odpowiedz3[3]:='odpowiedz3';
poprawne[3]:=3;
liczbaPoprawnych:=0;
aktualnePytanie:=1;
uaktualnijNapisy(aktualnePytanie);
end;
function
begin
if test.radioOdpowiedz1.Checked then
begin
test.radioOdpowiedz1.Checked:=false;
ktoraOdpowiedzWybrano:=1;
end
else if test.radioOdpowiedz2.checked:= then
begin
test.radioOdpowiedz2.Checked:=false;
ktoraOdpowiedzWybrano:=2;
end
else if test.radioOdpowiedz3.checked:= then
begin
test.radioOdpowiedz3.Checked:=false;
ktoraOdpowiedzWybrano:=3;
end
else
ktoraOdpowiedzWybrano:=-1;
end;
procedure Ttest.przyciskOdpowiedzClick(Sender:TObject)
var wybranaOdpowiedz:integer;
begin
wybranaOdpowiedz:=ktoraOdpowiedzWybrano();
if wybranaOdpowiedz=-1 then
showMessage('Zaznacz jedną opcję')
else
begin
if wybranaOdpowiedz=poprawne[aktualnePytanie]then
liczbaPoprawnych:=liczbaPoprawnych+1;
aktualnePytanie:=aktualnePytanie+1
if aktualnePytanie<=liczbaPytan then
uaktualnijNapisy(aktualnePytanie)
else
begin
test.tekstLiczbaPytan.Caption:=intToStr(liczbaPytan);
test.tekstLiczbaPoprawnych.Caption:=intToStr(liczbaPoprawnych);
test.tekstLiczbaBlednych.Caption:=intToStr(liczbaPytan - liczbaPoprawnych);
showmessage('Odpowiedziałes już na wszystkie pytania');
close;
end;
W następnym półroczu będziemy uczyć się Logo
http://www.warsztat.gd/artykuly/get-article.html?ID=27Mam pytanie dlaczego nazwa tego arttykulu nie pokazuj sie jak chce wejsc przes strone glowna i klikam na artykuly to tego tam nie ma ktos wie czemu?