AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Anfänger sucht Programmideen

Ein Thema von GroZ · begonnen am 5. Aug 2015 · letzter Beitrag vom 6. Aug 2015
Antwort Antwort
GroZ

Registriert seit: 6. Jul 2015
Ort: Harz
167 Beiträge
 
Delphi 7 Personal
 
#1

AW: Anfänger sucht Programmideen

  Alt 5. Aug 2015, 09:35
Okay ich werd mal Tic Tac Toe versuchen. danke jungs
Julian
  Mit Zitat antworten Zitat
Bambini
(Gast)

n/a Beiträge
 
#2

AW: Anfänger sucht Programmideen

  Alt 5. Aug 2015, 11:18
Okay ich werd mal Tic Tac Toe versuchen. danke jungs
http://www.delphipraxis.net/55052-ti...fuer-1vs1.html
  Mit Zitat antworten Zitat
GroZ

Registriert seit: 6. Jul 2015
Ort: Harz
167 Beiträge
 
Delphi 7 Personal
 
#3

AW: Anfänger sucht Programmideen

  Alt 5. Aug 2015, 13:37
Hab jetzt nen Taschenrechner geproggt. Ist nich sonderlich gut^^.
Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Math, Menus;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    BeendenBtn: TButton;
    Zahl1Edit: TEdit;
    Zahl2Edit: TEdit;
    Panel2: TPanel;
    PlusBtn: TButton;
    MinusBtn: TButton;
    LabeledEdit1: TLabeledEdit;
    MalBtn: TButton;
    DiviBtn: TButton;
    Label1: TLabel;
    Label2: TLabel;
    QuadratBtn: TButton;
    Wurzel: TButton;
    Button1: TButton;
    ClearBtn: TButton;
    Panel3: TPanel;
    ListBox1: TListBox;
    SpeicherBtn: TButton;
    DelBtn: TButton;
    Panel4: TPanel;
    procedure PlusBtnClick(Sender: TObject);
    procedure BeendenBtnClick(Sender: TObject);
    procedure MinusBtnClick(Sender: TObject);
    procedure MalBtnClick(Sender: TObject);
    procedure DiviBtnClick(Sender: TObject);
    procedure QuadratBtnClick(Sender: TObject);
    procedure WurzelClick(Sender: TObject);
    procedure ClearBtnClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DelBtnClick(Sender: TObject);
    procedure SpeicherBtnClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  a, b, c, d : real;
implementation

{$R *.dfm}

procedure TForm1.PlusBtnClick(Sender: TObject);
begin
  a := StrToFloat(Zahl1Edit.Text);
  b := StrToFloat(Zahl2Edit.Text);
  c := a + b;
  LabeledEdit1.Text := FloatToStr(c);
end;

procedure TForm1.BeendenBtnClick(Sender: TObject);
begin
close;
end;

procedure TForm1.MinusBtnClick(Sender: TObject);
begin
  a := StrToFloat(Zahl1Edit.Text);
  b := StrToFloat(Zahl2Edit.Text);
  c := a - b;
  LabeledEdit1.Text := FloatToStr(c);
end;

procedure TForm1.MalBtnClick(Sender: TObject);
begin
  a := StrToFloat (Zahl1Edit.Text);
  b := StrtoFloat (Zahl2Edit.Text);
  c := a * b;
  LabeledEdit1.Text := FloatToStr(c);
end;

procedure TForm1.DiviBtnClick(Sender: TObject);
begin
  a := StrToFloat (Zahl1Edit.Text);
  b := StrToFloat (Zahl2Edit.Text);
  C := a / b;
  LabeledEdit1.text := FloatToStr(c);
end;

procedure TForm1.QuadratBtnClick(Sender: TObject);
begin
  a := StrToFloat (Zahl1Edit.Text);
  c := sqr(a);
  LabeledEdit1.Text := FloatToStr(c);
end;


procedure TForm1.WurzelClick(Sender: TObject);
begin
  a := StrToFloat (Zahl1Edit.Text);
  d := sqrt(a);
  LabeledEdit1.Text := FloatToStr(d);
end;

procedure TForm1.ClearBtnClick(Sender: TObject);
begin
  Zahl1Edit.Clear;
  Zahl2Edit.Clear;
  LabeledEdit1.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;

begin
  Listbox1.Items.Add(Zahl1Edit.Text);
  s := Listbox1.Items[0];
  s := s+'+'+(Zahl2Edit.Text)+ '=' + (LabeledEdit1.Text);
  ListBox1.Items[0] := s;
end;

procedure TForm1.DelBtnClick(Sender: TObject);
begin
  Listbox1.clear;
end;

procedure TForm1.SpeicherBtnClick(Sender: TObject);
begin
//Listbox1.Items.SaveToFile('Speicherort');
end;

end.
Julian

Geändert von GroZ ( 5. Aug 2015 um 13:40 Uhr)
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.880 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Anfänger sucht Programmideen

  Alt 5. Aug 2015, 13:49
Ich würde die StrToFloat() durch TryStrToFloat() oder StrToFloatDef() ersetzen.
Markus Kinzler
  Mit Zitat antworten Zitat
GroZ

Registriert seit: 6. Jul 2015
Ort: Harz
167 Beiträge
 
Delphi 7 Personal
 
#5

AW: Anfänger sucht Programmideen

  Alt 5. Aug 2015, 13:51
Was ist der Unterschied? Hatte bisher immer richtige Ergebnisse
Julian
  Mit Zitat antworten Zitat
Benutzerbild von baumina
baumina

Registriert seit: 5. Mai 2008
Ort: Oberschwaben
1.275 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: Anfänger sucht Programmideen

  Alt 5. Aug 2015, 14:00
Kannst du einfach ausprobieren, in dem du einen Buchstaben statt einer Zahl eingibst.
Hinter dir gehts abwärts und vor dir steil bergauf ! (Wolfgang Ambros)
  Mit Zitat antworten Zitat
GroZ

Registriert seit: 6. Jul 2015
Ort: Harz
167 Beiträge
 
Delphi 7 Personal
 
#7

AW: Anfänger sucht Programmideen

  Alt 5. Aug 2015, 14:01
Ihr seht ja in etwa meinen Wissensstand bei Delphi. Was empfehlt ihr mir jetzt für ein Programm zu schreiben?
Julian
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#8

AW: Anfänger sucht Programmideen

  Alt 5. Aug 2015, 18:43
Mach bitte dafür einen neuen Thread auf. Das gehört thematlich nicht mehr hier her.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:53 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz