Forum Klasa W06A Strona Główna Klasa W06A
Informatyka
 
 FAQFAQ   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy   GalerieGalerie   RejestracjaRejestracja 
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

C++
Idź do strony 1, 2  Następny
 
Napisz nowy temat   Odpowiedz do tematu    Forum Klasa W06A Strona Główna -> Ważne informacje...
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
przemek




Dołączył: 15 Paź 2006
Posty: 29
Przeczytał: 0 tematów

Pomógł: 1 raz
Ostrzeżeń: 0/5
Skąd: Ruda Śląska
PostWysłany: Nie 12:29, 09 Gru 2007    Temat postu: C++
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (Edit1->Text=="czerwony")
{
Label1->Caption="Czerwien";
Label1->Color=clRed;
}
if (Edit1->Text=="zielony")
{
Label1->Caption="Zielen";
Label1->Color=clGreen;
}
if (Edit1->Text=="zolty")
{
Label1->Caption="Zoltek";
Label1->Color=clYellow;
}
if (Edit1->Text=="niebieski")
{
Label1->Caption="Jestesmy w Niebie";
Label1->Color=clBlue;
}
if (Edit1->Text=="fioletowy")
{
Label1->Caption="Fiolet";
Label1->Color=clFuchsia;
}
if (Edit1->Text=="szary")
{
Label1->Caption="Szaro Mi";
Label1->Color=clGray;
}if (Edit1->Text=="srebrny")
{
Label1->Caption="Srebro";
Label1->Color=clSilver;
}if (Edit1->Text=="brazowy")
{
Label1->Caption="Braz";
Label1->Color=clMaroon;
}if (Edit1->Text=="limonka")
{
Label1->Caption="Limonka";
Label1->Color=clLime;
}if (Edit1->Text=="morski")
{
Label1->Caption="Morski";
Label1->Color=clAqua;
}
}

Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
przemek




Dołączył: 15 Paź 2006
Posty: 29
Przeczytał: 0 tematów

Pomógł: 1 raz
Ostrzeżeń: 0/5
Skąd: Ruda Śląska
PostWysłany: Nie 12:30, 09 Gru 2007    Temat postu:
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Label1->Caption="Mariusz";
Label1->Color=clRed;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Label1->Caption="Tesla";
Label1->Color=clGreen;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Label1->Caption="Iza";
Label1->Color=clSilver;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Label1->Caption="Format";
Label1->Color=clLime;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
Label1->Caption="Marian";
Label1->Color=clOlive;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
Label1->Caption="Uga Buga";
Label1->Color=clAqua;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
Label1->Caption="LOL";
Label1->Color=clYellow;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
Label1->Caption="Deuter";
Label1->Color=clTeal;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{
Label1->Caption="Bodzio";
Label1->Color=clFuchsia;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button10Click(TObject *Sender)
{
Label1->Caption="Polak";
Label1->Color=clMoneyGreen;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{

}

Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
przemek




Dołączył: 15 Paź 2006
Posty: 29
Przeczytał: 0 tematów

Pomógł: 1 raz
Ostrzeżeń: 0/5
Skąd: Ruda Śląska
PostWysłany: Sob 12:54, 15 Gru 2007    Temat postu:
Button wpisujący tekst

Label1->Caption="Polak";

Button zmieniający kolor

Label1->Color=clRed;

Button zmieniajacy rozmiar czcionki

Label1->Font->Size=23;

Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Tesla
Gość
PostWysłany: Nie 10:32, 03 Lut 2008    Temat postu:
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int x,y;
x=StrToInt(Edit1->Text);
y=StrToInt(Edit2->Text);
Label1->Caption=x+y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int x,y;
x=StrToInt(Edit1->Text);
y=StrToInt(Edit2->Text);
Label2->Caption=x-y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
int x,y;
x=StrToInt(Edit1->Text);
y=StrToInt(Edit2->Text);
Label3->Caption=x*y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
int x,y;
x=StrToInt(Edit1->Text);
y=StrToInt(Edit2->Text);
Label4->Caption=x/y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{

}
//---------------------------------------------------------------------------
Powrót do góry
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Magik
Gość
PostWysłany: Nie 9:34, 17 Lut 2008    Temat postu: Mnozenie
Oblicz pole Prostokątu

czyli a*b

Potrzebne
2xpole do wpisywania
1xLabel na wynik
1xButton

Wpisujemy :


void __fastcall TForm1::Button1Click(TObject *Sender)
{
float x,y;
x=StrToFloat(Edit1->Text);
y=StrToFloat(Edit2->Text);
Label1->Caption=x*y;
}
//---------------------------------------------------------------------------
Powrót do góry
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
MagiK
Gość
PostWysłany: Nie 9:50, 17 Lut 2008    Temat postu:
Oblicz Pole Trujkata


Jak wyzej dokładasz 1 button i wpisujesz w niego :


{
float x,y;
x=StrToFloat(Edit1->Text);
y=StrToFloat(Edit2->Text);
Label1->Caption=0.5*x*y;
}
Powrót do góry
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Gość
PostWysłany: Nie 9:59, 17 Lut 2008    Temat postu:
Oblicz Pole Koła

Jak wyzej z nowum guzikiem



{
float x ;
x=StrToFloat(Edit1->Text);
Label1->Caption=3.14*(x*x);
}
Powrót do góry
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Tesla
Gość
PostWysłany: Nie 10:08, 17 Lut 2008    Temat postu:
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int x,y;
x=StrToInt(Edit1->Text);
y=StrToInt(Edit2->Text);
Label1->Caption=x*y;
Label11->Caption=x*y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int x,y;
x=StrToInt(Edit3->Text);
y=StrToInt(Edit4->Text);
Label6->Caption=x*y/2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
int x,y,z;
x=StrToInt(Edit5->Text);
y=StrToInt(Edit6->Text);
z=StrToInt(Edit7->Text);
Label4->Caption=((x+y)/2)*z;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button5Click(TObject *Sender)
{
int x;
x=StrToInt(Edit8->Text);
Label9->Caption=3.14*(x*x);
Label12->Caption=2*3.14*x;
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button3Click(TObject *Sender)
{
int x,y;
x=StrToInt(Edit9->Text);
y=StrToInt(Edit10->Text);
Label13->Caption=x*y;
}
//---------------------------------------------------------------------------
Powrót do góry
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Gość
PostWysłany: Nie 11:05, 17 Lut 2008    Temat postu:
radio buttony

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
float x;
x=StrToFloat(Edit1->Text);
Label1->Caption=3.14*(x*x);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{
float x;
x=StrToFloat(Edit1->Text);
Label1->Caption=(x*x);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton3Click(TObject *Sender)
{
float x,y;
x=StrToFloat(Edit1->Text);
y=StrToFloat(Edit2->Text);
Label1->Caption=x*y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton4Click(TObject *Sender)
{
float x,y;
x=StrToFloat(Edit1->Text);
y=StrToFloat(Edit2->Text);
Label1->Caption=0.5*x*y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton5Click(TObject *Sender)
{
float x,y,z;
x=StrToFloat(Edit1->Text);
y=StrToFloat(Edit2->Text);
z=StrToFloat(Edit3->Text);
Label1->Caption=(((x+y)*z)/2);
}
//---------------------------------------------------------------------------
Powrót do góry
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Gość
PostWysłany: Nie 11:16, 17 Lut 2008    Temat postu:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
float a,b,h ;
a=StrToFloat (Edit1->Text);
b=StrToFloat (Edit2->Text);
if(RadioButton1->Checked) Label1->Caption=a*a;
if(RadioButton2->Checked) Label1->Caption=a*b;
if(RadioButton3->Checked) Label1->Caption=0,5*a*b;
if(RadioButton4->Checked) Label1->Caption=3,14*(a*a);
if(RadioButton5->Checked) Label1->Caption=0,5(a+b)*h;
Powrót do góry
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Tesla
Gość
PostWysłany: Nie 11:54, 17 Lut 2008    Temat postu:
Odejmowanie pol 2 figur.

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Button1Click(TObject *Sender)
{
float x,y,z,m,n,b;
x=StrToFloat(Edit1->Text);
y=StrToFloat(Edit2->Text);
z=StrToFloat(Edit3->Text);
m=StrToFloat(Edit4->Text);
n=StrToFloat(Edit5->Text);
b=StrToFloat(Edit6->Text);
if (RadioButton1->Checked) Label2->Caption=x*y;
if (RadioButton2->Checked) Label2->Caption=x*y/2;
if (RadioButton3->Checked) Label2->Caption=((x+y)/2)*z;
if (RadioButton4->Checked) Label2->Caption=x*y;
if (RadioButton5->Checked) Label2->Caption=3.14*(x*x);


if (RadioButton6->Checked) Label3->Caption=m*n;
if (RadioButton7->Checked) Label3->Caption=m*n/2;
if (RadioButton8->Checked) Label3->Caption=((m+n)/2)*b;
if (RadioButton9->Checked) Label3->Caption=m*n;
if (RadioButton10->Checked) Label3->Caption=3.14*(m*n);

float k,l;
k=StrToFloat (Label2->Caption);
l=StrToFloat(Label3->Caption);
Label1->Caption=k-l;


}
//---------------------------------------------------------------------------
Powrót do góry
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Tesla
Gość
PostWysłany: Nie 14:09, 17 Lut 2008    Temat postu:
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button1Click(TObject *Sender)
{

int x;

x=0;
if (RadioButton1->Checked) x+=1;
if (RadioButton7->Checked) x+=1;
if (RadioButton10->Checked) x+=1;
if (RadioButton16->Checked) x+=1;
if (RadioButton20->Checked) x+=1;
if (RadioButton22->Checked) x+=1;
if (RadioButton25->Checked) x+=1;
if (RadioButton32->Checked) x+=1;
if (RadioButton33->Checked) x+=1;


ShowMessage ("Zdobyles "+ IntToStr(x)+ " pkt" ) ;
}
//---------------------------------------------------------------------------
Powrót do góry
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Tesla
Gość
PostWysłany: Nie 14:12, 17 Lut 2008    Temat postu:
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button1Click(TObject *Sender)
{


if (RadioButton1->Checked) Label6->Caption=1;
if (RadioButton7->Checked) Label7->Caption=1;
if (RadioButton10->Checked) Label8->Caption=1;
if (RadioButton16->Checked) Label9->Caption=1;
if (RadioButton20->Checked) Label10->Caption=1;
if (RadioButton22->Checked) Label15->Caption=1;
if (RadioButton25->Checked) Label16->Caption=1;
if (RadioButton32->Checked) Label17->Caption=1;
if (RadioButton33->Checked) Label18->Caption=1;

float a,b,c,d,e,f,g,h,i;
a=StrToFloat (Label6->Caption);
b=StrToFloat(Label7->Caption);
c=StrToFloat(Label8->Caption);
d=StrToFloat(Label9->Caption);
e=StrToFloat(Label10->Caption);
f=StrToFloat(Label15->Caption);
g=StrToFloat(Label16->Caption);
h=StrToFloat(Label17->Caption);
i=StrToFloat(Label18->Caption);
Label19->Caption=a+b+c+d+e+f+g+h+i;
}
//---------------------------------------------------------------------------
Powrót do góry
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Tesla
Gość
PostWysłany: Nie 11:17, 02 Mar 2008    Temat postu:
CheckBox - 5 Pytań kilka prawidłowych odpowiedzi.


void __fastcall TForm1::Button1Click(TObject *Sender)
{

int a,b,c,d,e,x;
a=0;
b=0;
c=0;
d=0;
e=0;
x=0;



if (CheckBox1->Checked)a+=1;
if (CheckBox2->Checked)a-=1;
if (CheckBox3->Checked)a+=1;
if (CheckBox4->Checked)a-=1;
if (a<0) a=0;
if (CheckBox5->Checked)b-=1;
if (CheckBox6->Checked)b-=1;
if (CheckBox7->Checked)b+=1;
if (CheckBox8->Checked)b+=1;
if (b<0) b=0;
if (CheckBox9->Checked)c+=1;
if (CheckBox10->Checked)c+=1;
if (CheckBox11->Checked)c-=1;
if (CheckBox12->Checked)c-=1;
if (c<0) c=0;
if (CheckBox13->Checked)d+=1;
if (CheckBox14->Checked)d-=1;
if (CheckBox15->Checked)d+=1;
if (CheckBox16->Checked)d+=1;
if (d<0) d=0;
if (CheckBox17->Checked)e+=1;
if (CheckBox18->Checked)e+=1;
if (CheckBox19->Checked)e+=1;
if (CheckBox20->Checked)e-=1;
if (e<0) e=0;
x=x+a+b+c+d+e;

ShowMessage ("Zdobyles "+ IntToStr(x)+ " pkt" ) ;
}
Powrót do góry
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Gość
PostWysłany: Nie 12:02, 02 Mar 2008    Temat postu:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Canvas->Pen->Color=clRed;
Canvas->MoveTo (0,0);
Canvas->LineTo (100,100);

rysowanie lini!!
Powrót do góry
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum Klasa W06A Strona Główna -> Ważne informacje... Wszystkie czasy w strefie EET (Europa)
Idź do strony 1, 2  Następny
Strona 1 z 2

 
Skocz do:  
Możesz pisać nowe tematy
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach

fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2005 phpBB Group
Regulamin
Na skróty:Jakaś kategoriaWażne informacje...Hyde Park