developers-forum.de - Alle Foren

Hello I'm new here

Fri, 23 Jul 2010 20:24:28 +0200

Hello I'm new here and just wanted to say hi.

Hello I'm a new user here

Wed, 21 Jul 2010 12:02:15 +0200

Hello I'm a new user here. Just wanted to say hi.

Aktuellstes Bild immer als current.* speichern

Wed, 02 Jun 2010 12:31:50 +0200

Hi JK,

ich hab direkt nochmal einen Wunsch:

Also, eine Webcam legt alle 10 Sekunden ein Bild auf einem Webspace ab, nun m�chte ich dass immer das aktuellste Bild kopiert und als current.* gespeichert wird (in dem Fall hier ein *.jpg).

Nach 10 Sek. wenn dann ein neueres Bild da ist, soll das kopiert werden und als current.jpg gespeichert werden (das alte �berschrieben oder vorher gel�scht).

Jetzt bin ich mal auf deine Lsg. gespannt. ;)

Delphi Lekt�re

Sun, 23 May 2010 13:08:31 +0200

Hallo Leute,

ich bin auf der Suche nach einer geeigneten Fachlekt�re zum Thema Delphi.
Bei Amazon bin ich auf folgendes Buch gestossen : Der Delphi Programmierer
Da mir f�r Embarcadero Delphi als Entwicklungsumgebung das n�tige Kleingeld fehlt bin ich auf
Lazarus als Alternative gesto�en. Leider kann ich nicht beurteilen in wie fern beide kompatibel
zueinander sind und ob die obengenannte Lekt�re die richtige ist. M�chte ungern 60� in den Sand
setzen, wenn die H�lfte der dort behandelten Themen mit Lazarus nicht umsetzbar sind.

Gr��e

Wie viel wiegt das Internet?

Tue, 04 May 2010 23:27:11 +0200

0,7 mal 10-8 Kilogramm, also ein 14-milliardstel Kilogramm � wenn man dem P.M.-Magazin in einem Gedankenexperiment glauben mag. Wie mag man so eine Rechnung ansetzen? Man k�nnte Soft- und Hardware �wiegen�.

Bei Hardware w�re es, zumindest in der Theorie, verh�ltnism��ig nachvollziehbar: Man m�sste alle am Internet angeschlossenen Kabel, Router, Switche, Rechner auf eine gedanklich extrem gute Waage legen und das Ergebnis ablesen. Dann k�me man vermutlich auf ein gigantisch hohes Gewicht. Software zu �wiegen�, ist dann schon eher mit Theorie behaftet, beispielsweise auf magnetischen Datentr�gern (das hat ironischerweise auch das P.M.-Magazin einmal beschrieben, n�mlich im Novemberheft 1995).

An sich �ndert das Schreiben von Daten auf Disketten nur den Zustand von Magnetpartikeln, viele Daten w�rden die Diskette also zumindest nicht �schwerer machen�. Allerdings macht das Schreiben von Daten die Diskette leichter, weil hier die einsteinsche Formel E = mc� zuschlagen w�rde. Eine �leere� Diskette besitzt unsortierte Magnetpartikel, die ein bestimmtes Ma� an Energie besitzen. Das Beschreiben der Diskette sortiert Magnetpartikel in bestimmte Anordnungen an und da geordnete Strukturen physikalisch k�hler sind, w�rde die beschriebene Diskette folglich weniger wiegen. Allerdings alles weitgehend in unmerklichen Kategorien.

F�r die Berechnung des Gewichtes des Internet setzt das P.M.-Magazin auf atomarer Ebene an. Jegliche elektronischen Daten basieren auf 0 und 1 � also �Strom an� bzw. �Strom aus�. Das Beispiel geht von einer 50 Kilobyte gro�en E-Mail aus: Die besteht aus 4.096.000 Bit und folglich aus etwa 2.048.000 Einsen, f�r die Strom gebraucht w�rde. F�r deren Verarbeitung werden 8.000.000.000 (8 Milliarden) Elektronen ben�tigt. Ein Elektron wiegt 0,000.000.000.000.000.000.000.000.000.000.9 Kilogramm, folglich w�rde die Nachricht dann ein 18-Quadrillionstel Kilogramm wiegen. So viel wie doch schon immerhin 21.000 Blei-Atome.

Um nun das Internet zu gewichten, bedienen sich die Autoren einer Aussage von Clifford Holliday, dem Autor des Buches �Internet Growth 2006″, der sch�tzt, dass der t�gliche Datenverkehr im Internet 40 Petabyte betr�gt. Und daraus ergibt sich dann das 14-milliardstel Kilogramm.

2-sprachig

Tue, 04 May 2010 23:14:14 +0200

Wieso ist das Forum in zwei Sprachen ... die Buttons ... die Benutzer�bersicht ... alles eben ein deutsch-englisch Mix ... =)

Bild von WebCam mit "Web-Server"

Tue, 04 May 2010 23:13:19 +0200

Hi Ihr,

ich habe mal eine Frage.

Und zwar geht es um eine Webcam mit integriertem Web-"Server" (d.h. es wird alle X Sec. ein Bild gemacht, und auf dem Kamera"Space" gespeichert und ist dann von �berall auf der Welt abrufbar).

Dieses Bild soll nun von dem Lokalen Space auf einen WebSpace geladen werden (automatisch per Script) umbenannt werden (z.B.: HH_MM_SS-TT_MM_JJJJ) und auch als current.jpg gespeichert werden. Wenn dann nach X Sec ein neues Bild da ist, dann soll das selbe Passieren. Umbenennung und das "alte" current.jpg �berschrieben werden.

Hoffe es kann jem. helfen.

pfad bei playsound erst im programm eingeben

Sun, 07 Mar 2010 16:56:50 +0100

Hallo Leute,

ich wollte ein Programm schreiben, wo man den pfad f�r playsound erst im programm selber angibt. K�nnt ihr mir da weiterhelfen?? (C / Konsolenprogramm)

Calculator

Sat, 30 Jan 2010 17:05:59 +0100

Ein fr�hliches Hallo!

Ich interessiere mich f�r den Taschenrechner im Quellcodebereich, ich m�chte n�mlich schon lange �hnliches Programmieren, krieg es aber nicht hin. Als ich mir ihn runtergeladen habe, stie� ich auf ein Problem: Wenn ich calc.cpp compilierte und linkte (?) erhielt ich Linkerfehler, wahrscheinlich, weil die Implentationen von vielen (allen?) "Klassenfunktionen" nicht gefunden wurden (Ich hab keine Ahnung was ein Linker macht).

K�nnte es sein, dass calc.cpp "calculator.cpp" einbinden sollte und nicht "calculator.h", und ebenso calculator.cpp "bigint.cpp" einbinden sollte und nicht "bigint.h"?

Nach diesen 2 �nderungen lief das Programm jedenfalls einwandfrei.

Und wie das Programm l�uft. Boah, Coooool. :D
Genauso wollte ich das auch programmieren.
Danke f�r das geile Programm.

Ist es in Ordnung wenn ich den Quellcode modifiziere, verwende, kopiere, ohne ihn in irgendeiner Weise kommerziell zu gebrauchen, und wenn ich jederzeit auf N43 vermerke?

Ach ja, und wie genau lassen sich nun mit dem Taschenrechner Dateien wie calc.txt w�hrend der Laufzeit einbinden?

Ich hoffe, ich hab nichts vergessen.
Ganz ganz ganz viel doll liebe Gr��e, euer Wurfmaul.

PS :
Ich h�tte das auch unter Calculator einen Kommentar erstellen k�nnen, aber ich dachte, ich bekomme hier mehr Aufmerksamkeit...

[SDL] Problem mit Parameter�bergabe

Mon, 10 Aug 2009 19:38:30 +0200

N23 Tutorial zu SDL und ASM ist spitze. Beim Selbstprobieren bin ich auf ein Problem gesto�en, dass ich l�sen konnte, aber mir nicht erkl�ren kann.

Die Funktion SDL_MapRGB (const SDL_Pixelformat * const format, const Uint8 r, const Uint8 g, const Uint8 b) w�rde ich intiutiv wie folgt aufrufen:

C-Aufruf:
Code C :
SDL_Surface *screen = SDL_SetVideoMode (...);
[....]
SDL_MapRGB (screen->format, 255, 0, 0);

NASM:
Code ASM :
screen DW 0
[...]
call SDL_SetVideoMode
[...] ; Fehlerabfang
mov [screen], eax
[...]
push DWORD 0
push DWORD 0
push DWORD 255
push [screen+4]
call SDL_MapRGB

Doch beim Ausf�hren kommt es zum Absturz des Programms, es funktioniert mit 'push screen+4'. Mit diesen Befehl habe ich aber meine Probleme. 'push screen' bedeutet, dass die Speicheradresse von screen auf den Stack gelegt wird, nicht die Adresse, auf die er referenziert, dies m�sste n�mlich 'push [screen]' hei�en. 'push screen+4' m�sste mich danach nicht zu screen->format bringen, sondern auf das DoubleWord nach screen.

Irgendwie bin ich ganz durcheinander, vorallem da format selbst ein Pointer ist. K�nnte mir bitte jemand weiterhelfen? Google spuckte kein kl�rendes Ergebnis aus.

Summenberechnung

Fri, 29 May 2009 19:05:33 +0200

Ich habe seid einiger Zeit probiert folgendes Problem mit Pascal zu l�sen

Wie viel Summanden von Sn = 1+1/2+1/3+1/4+ � +1/n muss man addieren, bis die Summe zum ersten Mal eine einzugebende Zahl (Sn) �bersteigt? Die Berechnung soll nach h�chstens
100 000 Summanden abgebrochen werden.
Ausgegeben werden soll die Summe Sn und die ben�tigte Anzahl Summanden.

Rein mathematisch ist mir klar, was ich machen soll, die Berechnung der Summe an sich im Einzelfall (wenn ich eine Zahl n eingebe funktioniert auch)

Nur so komm ich bei dem Programm nicht weiter...

Ich hatte folgendes ohne Erfolg probiert
wei� nicht ob das mit der Schranke eine so gute Idee ist.
Vielleicht k�nnte man es mit while i

Datum ausgeben

Tue, 19 May 2009 17:22:58 +0200

HI....
kann mir vielleicht einer bei fogender Aufgabe weiterhelfen:
Nach Eingabe des Datums eines Tages, soll das Datum des folgenden Tages
ausgegeben werden!
Dabei m�ssen halt Jahreswechsel, Monatswechsel, sowie ein m�gliches Schaltjahr
ber�cksichtigt werden.

danke
mfg. Danny

Pascal: Buchstaben im Wort umdrehen

Fri, 15 May 2009 21:24:29 +0200

Hey

ich mal ne frage. Ich sitze seit geraumer Zeit an einer Aufgabe. Diese lautet: Lesen sie ein Wort in einer Prozedur ein. Wandeln sie dieses in einer extra Prozedur um sodass z.B. "Haus" zu "suaH". Geben sie dieses in einer extra Prozedur wieder aus. Verwenden sie dabei globale und lokale Variablen.

K�nnte mir jemand dabei helfen? Das w�r klasse. So mit meinem einfachen Wissen komme ich da nicht weiter.

Ps: Das Programm darf keine eindimensionalen Felder beinhalten...

MfG Calli

Geschwindigkeit eines Programms

Thu, 23 Oct 2008 18:00:29 +0200

Moin,

Wie kann man in C++ rausfinden, wie schnell ein Programm / Funktion / Algo ist?

Beispiel:
Code CPP :
#include
#include

void swap_int(int& z1, int& z2){
z1 ^= z2;
z2 ^= z1;
z1 ^= z2;
}

int main(){
int i = 1;
int j = 2;
swap_int(i, j);
std::cout< std::cin.get();
}

Ist diese Funktion schneller als std::swap(i, j)?

btw: Wie w�rs mit einem Monospace-font in den Codetags? Und ein highlightning ohne hellblaue Farbe :)

Stringl�nge mit strlen()

Sat, 20 Sep 2008 18:27:14 +0200

Hallo ihr,

ich bin C-Anf�nger und versuche grade meine ersten Schritte. :?
Ich m�chte bin�re Zahlen ins Dezimalsystem umrechnen, bin allerdings nicht sonderlich weit gekommen. Ich brauche die L�nge der eingegeben (bin�ren) Zahl (die erstmal als String vorliegt).

Code:
#include
#include
#include

using namespace std;

int main() {
    char binar[100];
    scanf("%s", &binar);
    size_t laenge = strlen(binar);

    printf("\nLaenge: %u", laenge);
}

Dieser Code gibt mir die L�nge, kein Problem. Wenn ich das allerdings in meinem Programm machen m�chte...

Code:
#include
#include
#include

using namespace std;

int toDecimal() {
    int decimal = 0;
    int zaehler = 1;
    char binar[100];

    printf("\n\nPlease enter binary number: ");
    scanf("%s", &binar);
    printf("\nEingegebene Zahl: %s", binar);

    size_t laenge = strlen(binar);

    printf("\nLaenge: %u", laenge);
...

...gehts nicht mehr. toDecimal() wird von main() aufgerufen. Die Funktion gibt eine Zahl aus, deren Anfang die L�nge des Strings ist (z.B. 532 wenn der String 5 Zeichen hat).
Da frage ich mich nat�rlich: Warum? :(

Gru�, Gast

Login / Registerierungsbereich erstellen

Mon, 18 Aug 2008 11:10:35 +0200

ich habe mir eine eigene homepage erstellt
und m�chte einen login bereich haben da wo nur registrierte besucher in meiner homepage kommen.

dazu brauch ich ausserdem einen script da wo ich die leute auf meine mitgliedsliste tun kann damit der login auch funktioniert.

ich w�re echt froh wenn ihr mir da weiterhelfen k�nnt
danke vorraus

ps. meine seite >>http://scharnhorsta.npage.de

Antwort von UDP Verbindung �bersetzen?!

Wed, 23 Jul 2008 13:39:44 +0200

Moinsen,

also ich habe nen Prob und der N43 ist gerade nicht in ICQ ^^

Folgendes Programm erzeugt folgende Ausgabe... nur wie �bersetzt man das Zahlengewirr wieder in einen lesbaren STring?? habe sowas noch nie gesehen ^^ Mein HexEditor kann das aber ich brauche f�r mein Programm auch ne funktion daf�r... Wahrscheinlich gibts die irgendwo wieder vorgebaut nur ich wei� nicht wo nach ich suchen muss xD

Code:
unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,UdpSockUtil, StdCtrls,Winsock;

type
  TForm3 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
    Socket : TUdpSockUtil;
    procedure Recieve(Sender:TObject);
    procedure Error(Sender:TObject;Error:Integer);
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);
var char : PChar;
begin
Socket := TUdpSockUtil.Create(Form3);
Socket.LocalPort := 10000;
Socket.Listen := true;
Socket.OnReceive := Recieve;
Socket.OnError := Error;
Socket.RemoteHost := '77.87.189.185';
Socket.RemotePort := 1717;
end;

function HexDump(const S: String): String;
  var
    i: Integer;
    buf,buf2 : string;
begin
  Result := '';
  for i := 1 to Length(S) do begin
    Result := Result +IntToHex(Ord(S[i]),2)+#32;
    if ((i mod 16) = 0) then
      Result := Result +#13#10;
  end;
end;

procedure TForm3.FormDestroy(Sender: TObject);
begin
Socket.Close;
end;

procedure TForm3.Recieve(Sender: TObject);
  var
    IP: in_addr;
    Msg: String;

begin
  Msg := Socket.ReceiveText(IP);
  Memo1.Lines.Add('Empfang: '+IntToStr(Length(Msg))+' Zeichen');
  Memo1.Lines.Add(HexDump(Msg));
end;

procedure TForm3.Button1Click(Sender: TObject);
var query : shortstring;
begin
  Socket.SendText(#$FE#$FD#$00+'PiNG'+#$FF#$00#$00);
  Memo1.Lines.Add('Anfrage gesendet');
end;

procedure TForm3.Error(Sender: TObject; Error: Integer);
begin
  Memo1.Lines.Add(IntToStr(Error));
end;

end.

00 50 69 4E 47 68 6F 73 74 6E 61 6D 65 00 41 41
53 41 20 7C 20 3D 5B 47 4D 5D 3D 20 45 55 20 48
6F 6E 6F 72 73 65 72 76 65 72 20 62 79 20 77 77
77 2E 67 65 72 6D 61 6E 2D 6D 61 6A 6F 72 73 2E
64 65 00 67 61 6D 65 6E 61 6D 65 00 61 72 6D 79
67 61 6D 65 00 67 61 6D 65 76 65 72 00 32 2E 38
2E 33 2E 31 00 68 6F 73 74 70 6F 72 74 00 31 37
31 36 00 6D 61 70 6E 61 6D 65 00 44 75 73 6B 00
67 61 6D 65 74 79 70 65 00 41 41 47 50 5F 47 61
6D 65 54 65 61 6D 4F 62 6A 65 63 74 69 76 65 00
6E 75 6D 70 6C 61 79 65 72 73 00 30 00 6E 75 6D
74 65 61 6D 73 00 32 00 6D 61 78 70 6C 61 79 65
72 73 00 31 38 00 67 61 6D 65 6D 6F 64 65 00 6F
70 65 6E 70 6C 61 79 69 6E 67 00 70 61 73 73 77
6F 72 64 00 30 00 74 6F 75 72 00 38 00 6F 66 66
69 63 69 61 6C 00 31 00 6C 65 61 73 65 64 00 31
00 6E 61 74 6F 00 30 00 6D 69 6C 65 73 00 30 00
63 68 65 61 74 73 00 30 00 6D 69 6E 68 6F 6E 6F
72 00 31 30 00 6D 61 78 68 6F 6E 6F 72 00 31 30
30 00 67 72 6F 75 70 73 00 41 4C 4C 00 63 75 72
72 65 6E 74 5F 72 6F 75 6E 64 00 30 2F 31 34 00
6D 69 73 73 69 6F 6E 5F 74 69 6D 65 00 36 3A 33
30 00 73 76 5F 70 75 6E 6B 62 75 73 74 65 72 00
31 00 74 6F 75 72 6E 61 6D 65 6E 74 00 30 00 65
78 70 6C 6F 72 65 5F 74 68 65 5F 61 72 6D 79 00
30 00 74 68 69 72 64 70 61 72 74 79 00 30 00 63
75 73 74 6F 6D 00 30 00 41 64 6D 69 6E 4E 61 6D
65 00 3D 5B 47 4D 5D 3D 21 63 65 54 00 41 64 6D
69 6E 45 4D 61 69 6C 00 61 64 6D 69 6E 40 67 65
72 6D 61 6E 2D 6D 61 6A 6F 72 73 2E 64 65 00 72
65 71 75 69 72 65 73 5F 61 75 74 68 6F 72 69 7A
61 74 69 6F 6E 00 31 00 63 6F 6F 70 00 30 00 61
76 65 72 61 67 65 5F 68 6F 6E 6F 72 00 2D 31 00
63 75 72 72 65 6E 74 5F 72 6F 75 6E 64 5F 69 6E
74 00 30 00 72 6F 75 6E 64 73 5F 70 65 72 5F 6D
61 74 63 68 00 31 34 00 6C 6F 63 61 6C 65 00 28
75 6E 6B 6E 6F 77 6E 29 00 6F 70 65 72 61 74 69
6E 67 5F 73 79 73 74 65 6D 00 78 38 36 20 4C 69
6E 75 78 00 61 76 65 72 61 67 65 5F 70 6C 61 79
65 72 5F 70 69 6E 67 00 2D 31 00 6D 69 73 73 69
6F 6E 5F 74 69 6D 65 5F 72 65 6D 61 69 6E 69 6E
67 00 33 39 30 00 00

Batch datei + mysql

Mon, 07 Jul 2008 16:10:46 +0200

Hallo
Hab ein kleines Problem ich will doch gerne eine kleine Datei schreiben die ich dazu nehmen kann bestimmte SQL batch dateien in meine Datenbank zu batchen das funktioniert auch super

ICh will das mit einer Stapelverarbeitungs datei machen
batch datei

Code:
ECHO [Importieren der Test-Datanbank-Struktur] Gestartet...
%mysqlpath%\mysql -h %server% --user=%user% --password=%pass% --port=%port% %wdb% < %devpath%\ItemsTest.sql
ECHO.

das Importiert sch�n und funktioniert nun Will ich aber die Tabelle "items" l�schen
hab nur keine Ahnung welchen Befehl ich benutzen muss
vll kann mir ja jmd. helfen w�r super.

VB.net Programm h�ngt sich auf (warscheinlich eine Schleife)

Tue, 17 Jun 2008 20:00:15 +0200

Hallo erst mal Ich hab mal wieder ein Problem bekommen
mit meinem boule Programm

Ich habe
ein Array um alle Gegner zu speichern

Dim Gegner(200) As Integer ' Das Array das alle Gegner aufnimt !

und in einem Integer steht die Anzahl der Manschaften

Dim AnzManschaften As Integer

Jetzt noch die anderen Variablen die sich von selbst erkl�ren

Code:
Dim Freilos As String ' noch nicht benutzt (dort steht drinne ob mit oder ohne Freilos)
Dim oZahl As New System.Random ' Sp�ter f�r die zufallszahl
Dim oList As New SortedList ' Liste f�r runde 1
Dim oList1 As New SortedList ' Liste f�r runde 2
Dim oList2 As New SortedList ' Liste f�r runde 3
Dim oList3 As New SortedList ' Liste f�r runde 4
Dim Gegner1 As String ' Dort wird Sp�ter die Gegner Nummer Zwischengespeichert !
Dim b As Integer ' Ein Integer der die Anzahl von manschaften nochmal aufnimt !

Danach lese ich die Anzahl der Manschaften aus und speicher sie
so Bsp. Anzahl manschaften = 10

Jetzt kommt die Auslosung f�r die Erste Runde

Code:
For i = 1 To AnzManschaften
            Do
                Randomize() ' damit ist es warscheinlicher das nicht zweimal die gleiche zusammen setzung beim Losen entsteht
                b = AnzManschaften + 1
                Gegner1 = oZahl.Next(1, b) ' Zuf�llige zahl von 1 und Anzahl der Manschaften !
                If Not oList.ContainsValue(Gegner1) Then ' wenn gegner noch nicht gezogen dann
                    oList.Add(Gegner1, Gegner1) ' schreibe ihn in die Liste
                    Gegner(i) = Gegner1 ' und in das Array
                    Exit Do ' N�chster Gegner
                End If ' Fals nicht nochmal Losen
            Loop
Next

Das Funktioniert wol ich weis nicht WO in dem Programm er sich aufh�ngt (Vb zeigt nichts an keine Fehler Meldung oder so was das programm h�ngt einfach und ich muss es durch Taskmanager zumachen)

danach schreib ich alle Gegner in Textboxen (da sollte es keine Probleme geben immer nur)
Textbox1.text = Gegner(1)
....
usw.

Danach Zweite Runde

Code:
For i = 1 To AnzManschaften
            Do
                Randomize()
                b = AnzManschaften + 1
                Gegner1 = oZahl.Next(1, b) ' Zuf�llige zahl von 1 und Anzahl der Manschaften !
                If Not oList1.ContainsValue(Gegner1) Then ' wenn gegner noch nicht gezogen dann
                    If Not Gegner1 = Gegner(i) Then ' Darf Dieser Gegner nicht der Gegner von Letzter Runde sein !! dann
                        oList1.Add(Gegner1, Gegner1) ' schreibe ihn in die Liste
                        Gegner(i + 50) = Gegner1 ' und in das Array
                        Exit Do ' N�chster Gegner
                    End If
                End If ' Fals nicht nochmal Losen
            Loop
Next

N�chste Runde

Code:
For i = 1 To AnzManschaften
            Do
                Randomize()
                b = AnzManschaften + 1
                Gegner1 = oZahl.Next(1, b) ' Zuf�llige zahl von 1 und Anzahl der Manschaften !
                If Not oList2.ContainsValue(Gegner1) Then ' wenn gegner noch nicht gezogen dann
                    If Not Gegner1 = Gegner(i) Then ' Darf Dieser Gegner nicht der Gegner von Runde 1 sein !! dann
                        If Not Gegner1 = Gegner(i + 50) Then ' Darf Dieser Gegner nicht der Gegner von Runde 2 sein !! dann
                            oList2.Add(Gegner1, Gegner1) ' schreibe ihn in die Liste
                            Gegner(i + 100) = Gegner1 ' und in das Array
                            Exit Do ' N�chster Gegner
                        End If
                    End If
                End If ' Fals nicht nochmal Losen
            Loop
Next

Letzte Runde

Code:
For i = 1 To AnzManschaften
            Do
                Randomize()
                b = AnzManschaften + 1
                Gegner1 = oZahl.Next(1, b) ' Zuf�llige zahl von 1 und Anzahl der Manschaften !
                If Not oList2.ContainsValue(Gegner1) Then ' wenn gegner noch nicht gezogen dann
                    If Not Gegner1 = Gegner(i) Then ' Darf Dieser Gegner nicht der Gegner von Runde 1 sein !! dann
                        If Not Gegner1 = Gegner(i + 50) Then ' Darf Dieser Gegner nicht der Gegner von Runde 2 sein !! dann
                            If Not Gegner1 = Gegner(i + 100) Then ' Darf Dieser Gegner nicht der Gegner von Runde 3 sein !! dann
                                oList3.Add(Gegner1, Gegner1) ' schreibe ihn in die Liste
                                Gegner(i + 150) = Gegner1 ' und in das Array
                                Exit Do ' N�chster Gegner
                            End If
                        End If
                    End If
                End If ' Fals nicht nochmal Losen
            Loop
Next

Ich hab ja die Vermutung das es eine Warscheinlichkeit gibt das er z.b. am Anfang die falsche Zahl nimt und dann am Ende nicht mehr weiter kommt (er h�ngt sich dann in einer loop schleife auf weil er nur noch eine zahl als Gegner nehmen darf diese aber schon wo anders eingesetzt ist ????) k�nnte doch sein w�r echt super wenn ihr ne L�sung findet.
Danke schonmal

Visual Basic .net Auslosung ohne Doppelte Gegner

Mon, 16 Jun 2008 20:19:07 +0200

Hallo erst mal
ich h�t da mal gern ein Problem

da ist so ein Code der will net so wie ich will
Erst mal die Erkl�rung was er Tuhen soll

Also ich schreib an einem Boule Programm (Boule ist ein Spiel mit Kugeln die man an eine Bestimmte (kleinere) Kugel so nah wie m�glich legen muss) so dieses Programm soll nun Auslosen wer gegen wen Spielt.

und da ist ein problem das erste habe ich wol gel�st mit diesem Code (er soll verhindern das die Gleichern Manschaften nochmal gegen einander SPielen)

Code:
For i = 1 To AnzManschaften
            Do
                Randomize()
                Dim Gegner1 As String
                Dim b As Integer
                b = AnzManschaften + 1
                Gegner1 = oZahl.Next(1, b) ' Zuf�llige zahl von 1 und Anzahl der Manschaften !
                If Not oList.ContainsValue(Gegner1) Then
                    oList.Add(Gegner1, Gegner1)
                    Gegner(i) = Gegner1
                    Exit Do
                End If
            Loop
        Next

Das funktioniert ohne Probleme (vll gibt es eine Bessere L�sung aber egal) das ist nicht das Poblem ^^

das problem liegt hier
Ich habe ein Array das beim Start des Programmes den Wert Anzahl der Manschaften bekommt also wenn es 4 Manschaften sind ist das Array
dim AnzManschaften(4) as integer
und jetzt hab ich 30 Textboxen in die Sp�ter die Manschafts Nummern Rein kommen d.h. 1-4.
Um nicht sp�ter das problem mit FAlscher Index des Arrays oder so zu begegnen schreib ich am Anfang in jedes Array dingens (kann mir mal einer sagen wie das heist !!)
"0" rein
heist

Code:
For i = 1 To 30
        Gegner(i) = 0
        Next

so jetzt schreib ich in die Textboxen folgendes rein

Code:
TextBox1.Text = Gegner(1)
        TextBox2.Text = Gegner(2)
        TextBox3.Text = Gegner(3)
        TextBox4.Text = Gegner(4)
        TextBox5.Text = Gegner(5)
        TextBox6.Text = Gegner(6)
        TextBox7.Text = Gegner(7)
        TextBox8.Text = Gegner(8)
        TextBox9.Text = Gegner(9)
        TextBox10.Text = Gegner(10)
        TextBox11.Text = Gegner(11)
        TextBox12.Text = Gegner(12)
        TextBox13.Text = Gegner(13)
        TextBox14.Text = Gegner(14)
        TextBox15.Text = Gegner(15)
        TextBox16.Text = Gegner(16)
        TextBox17.Text = Gegner(17)
        TextBox18.Text = Gegner(18)
        TextBox19.Text = Gegner(19)
        TextBox20.Text = Gegner(20)
        TextBox21.Text = Gegner(21)
        TextBox22.Text = Gegner(22)
        TextBox23.Text = Gegner(23)
        TextBox24.Text = Gegner(24)
        TextBox25.Text = Gegner(25)
        TextBox26.Text = Gegner(26)
        TextBox27.Text = Gegner(27)
        TextBox28.Text = Gegner(28)
        TextBox29.Text = Gegner(29)
        TextBox30.Text = Gegner(30)

Sollte klar sein das das Die Nummern der Gegner sind die Ausgelost worden sind
nur hab ich jetzt in den Textboxen die nicht benutzt werden
in unserem Fall werden Plos textbox1-4 benutzt- "0" Drinn stehen das ist halt ein Sch�nheits Fehler den ich gerne NICHT h�tte !!

Freu mich wenn ihr Antwortet Bitte w�r echt super wenn es nicht mehr w�r Problem
EINEM INTEGER KANN MAN NICHT KEINEN INHALT ZUWEISEN (oder ??)
sonst w�r das kein Problem ^^XD