Wiadomości

1

Szkółka / Odp: Logo - programowanie ?

« dnia: Luty 02, 2006, 19:32:31 »

ale to jakiś program jest ?? ,... jak tak to podajcie linka :D

2

Językoznawstwo / Odp: Tester

« dnia: Luty 02, 2006, 16:23:37 »

nie chodziło mi o to aby ktoś mi napisał kod :D :D :D
... zrobię tak jak Gorion pisał .. dzięki

3

Językoznawstwo / Odp: Tester

« dnia: Luty 02, 2006, 16:14:08 »

nie, nie

Zrobiłem program w Delphi (wiedza 1.1) i teraz chcę dodać do niej opcję "dodawanie pytań" . Jak to zrobić ??

4

Językoznawstwo / Odp: Tester

« dnia: Luty 02, 2006, 16:01:08 »

no tak ale jak dodać coś do kodu jak ta gra jest już zrobiona...(poplątałem ? :D )

5

Językoznawstwo / Odp: Tester

« dnia: Luty 02, 2006, 15:48:54 »

ściągnij program
www.gim3.net/Wiedza.zip

oo .. np. chcę zrobić coś takiego

1. W programie będzie opcja dodaj pytanie .. i to pytanie będzie się zapisywało w pliku .txt a potem będzie się samo dodawało do skryptu ... wogóle nie wiem jak to zrobić :D więc proszę o pomoc ...




pozdr.  ;D

6

Językoznawstwo / Tester

« dnia: Luty 02, 2006, 14:54:29 »

Witam !!

Muszę zrobić  grę "Tester 1.1" jest to gra która losowo zadaje pytanie... tu jest kod.. zrobione w Delphi ... wiem wiem, badziewie ale muszę przynieś to do szkoły

Kod: [Zaznacz]

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;



i teraz pytanie.. jak zrobić aby w tym programie można było dodawać pytania ?? ..

7

Szkółka / Odp: Logo - programowanie ?

« dnia: Luty 01, 2006, 14:42:59 »

widocznie tak :D
ale będą jaja na lekcjach :D

8

Szkółka / Odp: Logo - programowanie ?

« dnia: Luty 01, 2006, 13:53:43 »

Jak w przedszkolu :D :D

9

Szkółka / Logo - programowanie ?

« dnia: Luty 01, 2006, 13:47:25 »

Witajcie :D !

Moje profesorka od Informatyki powiedziała:

W następnym półroczu będziemy uczyć się Logo

Co to jest to Logo?? Ona powiedziała, że coś o programowaniu, ale co?? Nigdzie na google nie mogę znaleźć...


Pozdrawiam  :D

10

Szkółka / Odp: Od czego .. ?

« dnia: Luty 01, 2006, 13:35:22 »

A właśnie, jaki kompilator jest polecany przez waz? Bo ja teraz używam Dev-C++.....

11

Gry / Odp: W co gramy...

« dnia: Luty 01, 2006, 02:54:55 »

Gram lub grałem w:
GTA SA - znudziło się po 2 dniach
Age of empire 3 PL - znudziło się po 4 dniach
Elastomania - przeszedłem w 1 dzień...znudziło się grać 2 raz


uważam że gry które wychodzą teraz są nudne.. :(

12

Szkółka / Odp: Od czego .. ?

« dnia: Styczeń 31, 2006, 23:55:01 »

http://www.warsztat.gd/artykuly/get-article.html?ID=27

Mam 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?

U mnie działa..

Do Zariusa
Teraz w książce stanąłem na zmiennych string, greeting, const
i za cholerę nie mogę tego pojąć, czytałem to z 10 razy ze zrozumieniem i nic...
Ale nie tracę wiary, że mi się to uda :D :D :D

pozdr. ;)

13

Szkółka / Odp: Silnik Główny

« dnia: Styczeń 31, 2006, 21:23:43 »

A więc się myliłem..  :D

14

Szkółka / Odp: Silnik Główny

« dnia: Styczeń 31, 2006, 20:36:26 »

CSS odpowiada za
- czcionke
- ramki itd.

Silnik odpowiada za (chyba :D )
- grafikę
- muzyczkę
- i te inne dodatki


A więc podobne :D :D :D

15

Szkółka / Odp: Od czego .. ?

« dnia: Styczeń 31, 2006, 17:46:23 »

Już jestem ziomeczki :D :D

kupiłem książeczkę "C++ potęga języka" Andrew Koenig and Barbara E.Moo

książka wydaje mi się świetna ... zaczyna się od bardzo prostych  zadań (typu hello, world !) a kończy na bardzo trudnych
są opisy różnych bibliotek itd. (416 stron, 45 zł) ..

jak przeczytam to dam ocenę :D :D :D