AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Fehler beim Programmieren

Ein Thema von Binary · begonnen am 16. Dez 2004 · letzter Beitrag vom 22. Dez 2004
Antwort Antwort
Seite 1 von 3  1 23   
Binary

Registriert seit: 30. Sep 2004
Ort: Köln
27 Beiträge
 
Delphi 5 Standard
 
#1

Fehler beim Programmieren

  Alt 16. Dez 2004, 10:27
Hallo Zusammen!

Mir sind beim Programmieren Fehler unterlaufen , ich füge euch auch noch ein Bild vom Programm rein, hier der qeulltext:

Code:
procedure Tf_such.b_erzeugeClick(Sender: TObject);
i : integer;
begin
 randomize;
 For i : 1 to 100 do
     begin
     zahlenfeld[i,0] := random(500)
     sg_suche.cells[i-1] := StrToInt(zahlenfeld[i]);
    end;

procedure Tf_such.b_normsucheClick(Sender: TObject);
var
date, ergebnis : integer;
begin
     date := StrToInt(e_gesucht.text)
     ergebnis := suche(date);
     If ergebnis < -1
        then e_pos.text := IntToStr(ergebnis)
        else e_pos.text := Nicht gefunden;
end;
Angehängte Grafiken
Dateityp: bmp bild_184.bmp (373,4 KB, 100x aufgerufen)
Kian
Viele Grüße

Binary
  Mit Zitat antworten Zitat
Benutzerbild von BluesKid
BluesKid

Registriert seit: 2. Sep 2003
Ort: NRW
133 Beiträge
 
Delphi 2005 Professional
 
#2

Re: Fehler beim Programmieren

  Alt 16. Dez 2004, 10:30
Moin moin,

wo, wie wenn, was geht denn nicht?

Fehlermeldungen?

Vorneweg aber mal zwei Hinweise:

1.) Randomize nur ein mal aufrufen und nicht bei jedem Buttonclick. Besser ins onCreate deines Forms.
2.) Strings in einfache Anführungszeichen


schönen Gruß
Sam
  Mit Zitat antworten Zitat
Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#3

Re: Fehler beim Programmieren

  Alt 16. Dez 2004, 10:33
1. Was ist der Fehler. Kriegs du ne Exception, oder rechnet er falsch. Was wird eigentlich gerechnet rsp. gesucht.
2. Was ist die Funktion "Suche". Da steckt doch wohl das Wesentlich drin.

Wir sind hier keine Hellseher
  Mit Zitat antworten Zitat
Binary

Registriert seit: 30. Sep 2004
Ort: Köln
27 Beiträge
 
Delphi 5 Standard
 
#4

Re: Fehler beim Programmieren

  Alt 16. Dez 2004, 10:35
ich kopier euch einfach mal den gesamten quelltext das porb. is das ich es noch nich in delphi geschrieben habe, mache das hier mit mehreren Leuten hat bisher noch keiner ins Delphi übertragen,

Delphi-Quellcode:
var
  f_lotto: Tf_lotto;
  lotto, zufall: array[1..6] of integer;
  urne: array [1..49] of integer;

implementation

{$R *.DFM}



procedure Tf_lotto.b_endClick(Sender: TObject);
begin
     close;
end;

procedure Tf_lotto.b_lottoClick(Sender: TObject);
var i,j, zufallszahl, tausche :integer;


begin
     lotto [1] := sp_1.value;
     lotto [2] := sp_2.value;
     lotto [3] := sp_3.value;
     lotto [4] := sp_4.value;
     lotto [5] := sp_5.value;
     lotto [6] := sp_6.value;

     for i:= 1 to 6 do

         begin
         repeat
         zufallszahl:=random (49)+1;
         until urne[zufallszahl]>0;
         urne[zufallszahl]:=0;
         zufall[i]:=zufallszahl;
         end;



     for i:= 1 to 6 do

         begin
              for j := 1 to 6 -i do
                  begin
                       if zufall [j] > zufall [j+1]
                          then
                              begin
                                   tausche := zufall[j];
                                   zufall[j] := zufall[j+1];
                                   zufall[j+1] := tausche;
                              end;
                  end;
        

         end;


         for i:= 0 to 5 do

            sg_lotto.cells[i,0]:=IntToStr(zufall[i+1]);


end;

procedure Tf_lotto.b_urneClick(Sender: TObject);

var i:integer;

begin
     for i:= 1 to 49 do
        urne[i]:=i;
end;

procedure Tf_lotto.Beenden1Click(Sender: TObject);
begin
     close;
end;

procedure Tf_lotto.FormCreate(Sender: TObject);
var
i:integer;
begin


         for i:=1 to 49 do
         urne [i]:=i;

end;

procedure Tf_lotto.b_neuClick(Sender: TObject);
var i:integer;
begin
randomize;
for i:=0 to 5 do
    sg_lotto.cells[i,0]:='';

for i:=1 to 49 do
    urne[i]:=i;


end;

procedure Tf_lotto.e_auswertenClick(Sender: TObject);
          var i,j:integer;
          richtige:integer;
begin

     richtige:=0;

     for i:=0 to 6 do
         begin
             for j:=1 to 6 do
             begin
                  if lotto[i]=zufall[j]
                      then richtige:=richtige+1;
         end;
         end;
         e_ausgabe.text:= 'Sie haben ' + inttostr (richtige)+ ' Richtige';
         end;


end.
Kian
Viele Grüße

Binary
  Mit Zitat antworten Zitat
Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#5

Re: Fehler beim Programmieren

  Alt 16. Dez 2004, 10:39
Damit können wir immer noch nix mit anfangen. In welchem Zusammenhand steht denn deine zuerst geposteter Code mit dem aus vorigem Beitrag. Was soll das Programm denn eigentlich berechnen. Wenn du denkst, daß wir hier für dich die Umschreibarbeit übernehmen, da muss ich dich enttäuschen.
  Mit Zitat antworten Zitat
Binary

Registriert seit: 30. Sep 2004
Ort: Köln
27 Beiträge
 
Delphi 5 Standard
 
#6

Re: Fehler beim Programmieren

  Alt 16. Dez 2004, 10:42
nene, pass auf, also der erste code sind paar ausschnitte vom gesamten, der andere is der komplette,

wollt ihr die aufgaben auch noch?

b) Korrigieren Sie den Quelltext:
- Beim Programmieren der Funktion suche Prozedur b_erzeugeClick haben sich 7 Fehler, bei der Programmierung von b_normsucheClick haben sich 3 Fehler eingeschlichen. Finden und korrigieren Sie die Fehler.
- Die Prozedur b_sortiereClick soll die Zahlen in dem Array Zahlenfeld sortieren. Obwohl es beim Kompilieren keine Fehlermeldung gibt, behauptet eine Schülerin, dass die Prozedur nicht das Gewünschte leistet. Stimmt das?
Kian
Viele Grüße

Binary
  Mit Zitat antworten Zitat
Benutzerbild von BluesKid
BluesKid

Registriert seit: 2. Sep 2003
Ort: NRW
133 Beiträge
 
Delphi 2005 Professional
 
#7

Re: Fehler beim Programmieren

  Alt 16. Dez 2004, 10:49
klick
  Mit Zitat antworten Zitat
Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#8

Re: Fehler beim Programmieren

  Alt 16. Dez 2004, 10:51
Zitat von Binary:
nene, pass auf, also der erste code sind paar ausschnitte vom gesamten, der andere is der komplette
Das kann ich in den Codeschnippsel aber nicht erkennen.

Zitat von Binary:
Korrigieren Sie den Quelltext:
- Beim Programmieren der Funktion suche Prozedur b_erzeugeClick haben sich 7 Fehler, bei der Programmierung von b_normsucheClick haben sich 3 Fehler eingeschlichen. Finden und korrigieren Sie die Fehler.
- Die Prozedur b_sortiereClick soll die Zahlen in dem Array Zahlenfeld sortieren. Obwohl es beim Kompilieren keine Fehlermeldung gibt, behauptet eine Schülerin, dass die Prozedur nicht das Gewünschte leistet. Stimmt das?
Siehe ein 2 Beiträge höher. Wir sind nicht hier um deine Hausaufgaben zu machen. Entweder du wirst jetzt konkreter, was dein Problem ist, oder ich brech für meinen Teil die Diskussion hier ab.
  Mit Zitat antworten Zitat
Binary

Registriert seit: 30. Sep 2004
Ort: Köln
27 Beiträge
 
Delphi 5 Standard
 
#9

Re: Fehler beim Programmieren

  Alt 16. Dez 2004, 11:04
sry ich glaube ich nerv euch, ich habe jetzt selber alles geschafft, sitze gerade in Informatik, machen Gruppenarbeit, trotzdem Danke für eure Hilfe!
Kian
Viele Grüße

Binary
  Mit Zitat antworten Zitat
Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: München
11.513 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#10

Re: Fehler beim Programmieren

  Alt 16. Dez 2004, 11:13
Ändere bitte mal den Titel, da der aktuelle keine inhaltliche Aussage liefert

......
Daniel W.
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 10:55 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf