mein erster Taschenrechner im Disney Style

[rosinchen4]

Ich schreibe eigentlich nur in Basic oder Pascal habe aber nun meine Architec delphy 2005 rausgekrammt und habe einen tachenrechner im Disney Style gemacht.

Was haltet ihr davon?

Ich hätte dazu auch eine Frage wie kann ich als Hintegrund ein Bild haben anstatt einer Farbe?

Mein hauptaugenmerk lag bei den Wurzeln, dafür danke an euch ahbe das im Forum gefunden.

Bei normaler Wurzel das im ertsen kasten eintragen bei n. Wurzel im 2 die n.Wurzel eintragen.

Vielk Spass

ISt doch ganz nett für den Anfang oder?

Und ich hoffe mit dem Hintegrund könnt ihr mir helfen.

[EDatabaseError]

Fürs erste ganz OK ich würd nur noch ne Exceptionbehandlung mit TRY und EXCEPT einbauen, und das ganze Fenster n bissel kleiner und kompakter!

MfgEDE

[turboPASCAL]

Zitat:

Zitat von rosinchen4

Was haltet ihr davon?

Für den Anfang schon mal nicht schlecht.

Zitat:

Zitat von rosinchen4

Ich hätte dazu auch eine Frage wie kann ich als Hintegrund ein Bild haben anstatt einer Farbe?

Ein TImage auf die Form legen und im OI Align auf alClient stellen, somit hast du ein Image auf dem kompletten Hintergrund. Ein wenig mit den Einstellungen zB.: Stretch herumspielen....

Zitat:

Ist doch ganz nett für den Anfang oder?

Jo.

Zitat:

Und ich hoffe mit dem Hintegrund könnt ihr mir helfen.

Jo.

//Edit: Eine Prüfung auf Zahlen und Buchstaben sollte man noch machen.

[rosinchen4]

Mh danke.

Und mit dem Hintegrund würde gerne ne Gragik oder so da ein bauen oder bei anderen proggs nur weiss nicht wie das mit delphi 2005 arvhitek geht. Hintegrundfarbe ja aber bild?

Und mit dem Fenster jo mklr solte zum testen sein. Mit der Wurzel ist ja ganz nett mit Formel,
habe dann aber doch unit math eingebunden und dann per power und per strq gemacht.

EDit:
habe gerade geschriebn da wurdes gepostet.Danke TurboPASCAL werde ich ausprobieren.
ich muss jetzt erstmal meine Ausarbeitung für die Schule zuende schreiben.
Schade das wir dort kein Informatik haben.
Pascal habe ich früher mit gearbeitet auch mit Turbo das war ein Aufwand dort ein Fenster hinzubekommen.

Bin für Verbesserungsvorschläge immer offen.

[EDatabaseError]

Du hast ein Image stellst den Align im Objektinspector auf alClient und dann siehe TurboPASCAL also Scretch oder Kacheln...

Mfg

EDE

//edit

Zitat:

Eine Prüfung auf Zahlen und Buchstaben sollte man noch machen.

Ja aber eigentlich das selbe wie ne Exception behandlung denn wenn man buchstaben eingint kommt ne exception :mrgreen:

[rosinchen4]

Mit den Buchstaben das die nciht vorkomen kan da einer bitte ein beispiel Script postenw ie man das unterbindet?

[EDatabaseError]

Nehm doch MaskEdits da kannst du bestimmen das nur Zahlen eingegeben werden und wie viele...

[rosinchen4]

Mh wo finde ich das das man das einstelt das das nicht geht anbei die neu Version.

[EDatabaseError]

Du brauchst die Komponente MaskEdit statt Edit dann kanst du eine EditMask hinterlegen.

//Mach die labels transparent. sieht besser aus. Im Objektinspector: Transparent := true

[rosinchen4]

Mit masken aheb ich gefunden abe rich möchte ja zahlen unn , und backspace etc ulasen nur kein buchstaben das finde ich vordefiniert nicht nur telefonumer etc udn weis nicht wie selebr definiern.
kann eienr ein beispiel posten dafür bitte.

Danke im Voraus

Okay probiere transparent.

[EDatabaseError]

Öhm drüch mal F1 aber glaub zahlen sind 00000;

[St.Pauli]

Zitat:

Zitat von rosinchen4

Mit masken aheb ich gefunden abe rich möchte ja zahlen unn , und backspace etc ulasen nur kein buchstaben das finde ich vordefiniert nicht nur telefonumer etc udn weis nicht wie selebr definiern.
kann eienr ein beispiel posten dafür bitte.

Danke im Voraus

Okay probiere transparent.

Hier ma ne Funktion die Überprüft, ob dein Text nur aus Zahlen besteht...

Delphi-Quellcode:

function NurZahlen(Uebergabe : string) : boolean;
VAR i : integer;
begin
  i := 1;
  Result := True;

  while (i <= Length(Uebergabe)) AND (Result = True) do
    begin
      IF (Uebergabe[i] IN ['0'..'9']) = False THEN
        begin
          ShowMessage('Fehler: Zeichen "' + Uebergabe[i] + '" an Stelle ' + IntToStr(i));
          Result := False;
        end;
      i := i + 1;
    end;

end;

Per Forensuche findest du auch das hier, was genau das bringt, was du willst - es werden nur Zahlen und Backspace im Edit zugelassen (#46 ggf. entfernen):

Zitat:

Zitat von PierreB

Das geht einfach mit nem ganz normalen TEdit. Im OnKeyPress prüfst du einfach nur ob die Taste eine von dir gewünschte ist, wenn nicht dann wird sie ignoriert.


Hier hast du mal den Code, nur Zahlen & der "." werden akzeptiert:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin
  if not (key in[#08,#46,#48..#57]) then key:=#0;
end;

Noch kurz zur Erklärung: #46 ist der Punkt, #48 bis #57 sind die Ziffern von 0 bis 9.
Die jeweiligen # - Werte kannst du z.B. aus jeder beliebigen ASCII-Code Tabelle ablesen. ;)

[rosinchen4]

Gut danke probiere ich nur prob ist ahbe die englische version das ist manchmal ein bissel seltsam.

Aber die Deutsche ist so grauenhaft das ist die englische doch besser.

[EDatabaseError]

Aber MaskEdits sin am leichtesten kannst du mal ne aktuelle Version hochladen?

[EDatabaseError]

Ahh mir isc da gerade was aufgefallen:

1. Man kann die Fenstergröße ändern dann bleibt das Bild normal aber der Hintergrund wird Blau arbeitest du etwa nicht mit alClient???
2. Wenn man die größe nicht ändern soll bitte BorderStyle auf bsDialog!

[rosinchen4]

Neue Version mit maskedit mache ich später mus noch für die Schule eine Ausarbeitung schriebn.
Mit fenster wurde geändert.
Und mit dem maske schön aber wos tell ich bei maske ein das nur zahlen und -+ eingegbn werden können?


Rosinchen4

PS:
WOW ist ein giles Spiel spiel leidenschaftlich.

[EDatabaseError]

Hier ne Anwendung. Led dir in der MaskEdit die EditMask durch. Un Kopier se!

Meine Wünsche:
-Labels Transparent
-Position beim Start Form1.Position := ScreenCenter; Also im Objektinspektor!
-Exceptionbehandlung (TRY EXCEPT)

[rosinchen4]

Den neun rechner ist hochglden disney 4 beim Start beitrag.

Nur danke nochmal mit dem editmask das ist ein prob weeil beid eienr version hört anch 4 stelln oder so auf.

Da muss ich wol den langenw eg gehn wei beschriebn diese Verison wird warscheinlciha ber erst Morgen fertig.

Da ich jetzt gleich weg muss.

Rosinchen4

Danke nochmal PS dein Spiel das mit der Wirtschaft und den Aktien mdas ist cool nettter zeit Vertreib.

[Stanlay Hanks]

Hi. Hat zwar nichts mit dem Thema zu tun, aber würde es dir etwas ausmachen, bei deinen Beiträgen etwas mehr auf Recht-/Groß-/Kleinschreibung und Grammatik zu achten? Das würde mir (und wohl auch vielen anderen) das Lesen leichter machen ;)

[rosinchen4]

Ja werde ich versuchen.
Das liegt daran das ich zu schnell tippe.

Ansosnten wie gefällt dir der Rechner?