Stilllegung des Forums
Das Forum wurde am 05.06.2023 nach über 20 Jahren stillgelegt (weitere Informationen und ein kleiner Rückblick).
Registrierungen, Anmeldungen und Postings sind nicht mehr möglich. Öffentliche Inhalte sind weiterhin zugänglich.
Das Team von spieleprogrammierer.de bedankt sich bei der Community für die vielen schönen Jahre.
Wenn du eine deutschsprachige Spieleentwickler-Community suchst, schau doch mal im Discord und auf ZFX vorbei!
Werbeanzeige
C-/C++-Quelltext |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 |
//--------------------------------------------------------------------------- #include <vcl.h>#pragma hdrstop #include "Projekt1.h"#include "Unit1.h"#include "Unit2.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma link "PERFGRAP"#pragma resource "*.dfm"TForm1 *Form1;int kataein,kataaus; // Spiel-Variablenint geld,wert; // Spieler-Variablenint kurs_alt_federal,kurs_alt_international,kurs_alt_direkt,kurs_alt_service; // Alte-Kurs-Variablenint kurs_akt_federal,kurs_akt_international,kurs_akt_direkt,kurs_akt_service; // Alte-Kurs-Variablenint anteil_federal,anteil_international,anteil_direkt,anteil_service; // Stückzahl-Variablenint sekunden,minuten,stunden,tag,monat,jahr;int tut,tat,tit;//---------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner){}//--------------------------------------------------------------------------- void __fastcall TForm1::SpielBeenden1Click(TObject *Sender){ Close(); }//--------------------------------------------------------------------------- void __fastcall TForm1::NeuesSpie1Click(TObject *Sender) { Form2->Visible=true; // Spiel wird gestartet kataein=1; // Variablen werden auf standard gesetzt kataaus=0; // die "Kurse" werden sichtbar tat=0; tut=0; sekunden=45; minuten=31; stunden=22; tag=16; monat=9; jahr=2000; geld=1000; Timer1->Enabled=true; // Aktualisierungstimer wird gestartet Timer2->Enabled=true; // Zyklus-Timer wird gestartet // Startbedingungen für International Bank anteil_international=0; kurs_alt_international=100; kurs_akt_international=150; Form2->Panel3->Height=kurs_akt_international; Form2->Panel3->Top=364-kurs_akt_international; Form2->Panel3->Caption=kurs_akt_international; // Startbedingungen für Federal Bank anteil_federal=0; kurs_alt_federal=150; kurs_akt_federal=200; Form2->Panel1->Height=kurs_akt_federal; Form2->Panel1->Top=364-kurs_akt_federal; Form2->Panel1->Caption=kurs_akt_federal; // Startbedingungen für Direkt Bank anteil_direkt=0; kurs_akt_direkt=100; kurs_alt_direkt=50; Form2->Panel4->Height=kurs_akt_direkt; Form2->Panel4->Top=364-kurs_akt_direkt; Form2->Panel4->Caption=kurs_akt_direkt; // Startbedingungen für Service Bank anteil_service=0; kurs_akt_service=50; kurs_alt_service=100; Form2->Panel2->Height=kurs_akt_service; Form2->Panel2->Top=364-kurs_akt_service; Form2->Panel2->Caption=kurs_akt_service; }//--------------------------------------------------------------------------- void __fastcall TForm1::Katastropen1Click(TObject *Sender){ // Katastrophen werden eingeschaltet - kataein = 1 ; kataaus = 0 kataein=1; kataaus=0;}//--------------------------------------------------------------------------- void __fastcall TForm1::KatastrophenAus1Click(TObject *Sender){// Katastrophen werden ausgeschaltet - kataein = 0 ; kataaus = 1 kataein=0; kataaus=1;}//--------------------------------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender){ tut++; // Alle beschriftungen werden aktualisiert // TIMER1 Intervall = 1 ms Label2->Caption=geld; Label3->Caption=wert; // Federal Bank Label24->Caption=kurs_alt_federal; Label16->Caption=kurs_akt_federal; Label5->Caption=anteil_federal; // Service Bank Label11->Caption=anteil_service; Label25->Caption=kurs_alt_service; Label19->Caption=kurs_akt_service; // International Bank Label27->Caption=kurs_alt_international; Label17->Caption=kurs_akt_international; Label7->Caption=anteil_international; // Direkt Bank Label9->Caption=anteil_direkt; Label26->Caption=kurs_alt_direkt; Label18->Caption=kurs_akt_direkt; //Spielzeit Anzeige Label28->Caption=stunden; Label29->Caption=minuten; Label30->Caption=sekunden; Label31->Caption=tag; Label32->Caption=monat; Label33->Caption=jahr; // Debug-Labels Label42->Caption=tut; Label43->Caption=tat; }//--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender){ // Anteilsscheine Kaufen // Federal Bank - Kaufen - wenn ausgewählt und genug geld vorhanden ist if(RadioButton3->Checked==true && geld>=kurs_akt_federal) { geld=geld-kurs_akt_federal; // Der Aktuelle Kurs wird abgezogen anteil_federal++; // EIN Anteilsschein wird hinzugefügt wert=wert+kurs_akt_federal; // Gesamtwert wird neu gebildet } // Service Bank - Kaufen - wenn ausgewählt und genug geld vorhanden ist if(RadioButton1->Checked==true && geld>=kurs_akt_service) { geld=geld-kurs_akt_service; // Der Aktuelle Kurs wird abgezogen anteil_service++; // EIN Anteilsschein wird hinzugefügt wert=wert+kurs_akt_service; // Gesamtwert wird neu gebildet } // International Bank - Kaufen - wenn ausgewählt und genug geld vorhanden ist if(RadioButton4->Checked==true && geld>=kurs_akt_international) { geld=geld-kurs_akt_international; // Der Aktuelle Kurs wird abgezogen anteil_international++; // EIN Anteilsschein wird hinzugefügt wert=wert+kurs_akt_international; // Gesamtwert wird neu gebildet } // Direkt Bank - Kaufen - wenn ausgewählt und genug geld vorhanden ist if(RadioButton2->Checked==true && geld>=kurs_akt_direkt) { geld=geld-kurs_akt_direkt; // Der Aktuelle Kurs wird abgezogen anteil_direkt++; // EIN Anteilsschein wird hinzugefügt wert=wert+kurs_akt_direkt; // Gesamtwert wird neu gebildet } }//--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender){ //Anteilsscheine Verkaufen //Federal Bank - Verkaufen - wenn anteilsscheine vorhanden sind if(RadioButton3->Checked==true && anteil_federal>=1) { geld=geld+kurs_akt_federal; // aktueller Kurswert wird dazu addiert anteil_federal--; // ÈIN Anteilsschein wird verkauft wert = wert - kurs_akt_federal; // Kurswert wird vom Gesamtwert abgezogen } //Service Bank - Verkaufen - wenn anteilsscheine vorhanden sind if(RadioButton1->Checked==true && anteil_service>=1) { geld=geld+kurs_akt_service; // aktueller Kurswert wird dazu addiert anteil_service--; // ÈIN Anteilsschein wird verkauft wert = wert - kurs_akt_service; // Kurswert wird vom Gesamtwert abgezogen } //Federal Bank - Verkaufen - wenn anteilsscheine vorhanden sind if(RadioButton4->Checked==true && anteil_international>=1) { geld=geld+kurs_akt_international; // aktueller Kurswert wird dazu addiert anteil_international--; // ÈIN Anteilsschein wird verkauft wert = wert - kurs_akt_international; // Kurswert wird vom Gesamtwert abgezogen } //Federal Bank - Verkaufen - wenn anteilsscheine vorhanden sind if(RadioButton2->Checked==true && anteil_direkt>=1) { geld=geld+kurs_akt_direkt; // aktueller Kurswert wird dazu addiert anteil_direkt--; // ÈIN Anteilsschein wird verkauft wert = wert - kurs_akt_direkt; // Kurswert wird vom Gesamtwert abgezogen } }//--------------------------------------------------------------------------- void __fastcall TForm1::Timer2Timer(TObject *Sender){ tat++; // Spieltimer /*sekunden++; if(sekunden>59) { minuten=minuten++; sekunden=0; if(minuten>59) { stunden=stunden++; minuten=0; if(stunden>23) { tag++; stunden=0; if(tag>29) { monat++; tag=0; if(monat>11) { jahr++; monat=0; } } } } }*/}//--------------------------------------------------------------------------- void __fastcall TForm1::GroupBox8Click(TObject *Sender){ Label2->Caption=geld; Label3->Caption=wert; // Federal Bank Label24->Caption=kurs_alt_federal; Label16->Caption=kurs_akt_federal; Label5->Caption=anteil_federal; // Service Bank Label11->Caption=anteil_service; Label25->Caption=kurs_alt_service; Label19->Caption=kurs_akt_service; // International Bank Label27->Caption=kurs_alt_international; Label17->Caption=kurs_akt_international; Label7->Caption=anteil_international; // Direkt Bank Label9->Caption=anteil_direkt; Label26->Caption=kurs_alt_direkt; Label18->Caption=kurs_akt_direkt; //Spielzeit Anzeige Label28->Caption=stunden; Label29->Caption=minuten; Label30->Caption=sekunden; Label31->Caption=tag; Label32->Caption=monat; Label33->Caption=jahr; // Debug-Labels Label42->Caption=tut; Label43->Caption=tat;}//--------------------------------------------------------------------------- void __fastcall TForm1::Timer3Timer(TObject *Sender){ tit++; Label44->Caption=tit;}//--------------------------------------------------------------------------- |
Administrator
Community-Fossil
Beruf: Teamleiter Mobile Applikationen & Senior Software Engineer
Werbeanzeige