developers-forum.de - Alle Foren

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

Visual Basic /Vb.net Anregungen

Wed, 11 Jun 2008 20:29:22 +0200

WAS SOLL ICH PROGREMMIEREN

ich habe wirklich keine Ahnung mehr was ich noch Proggen k�nnte vll schreibt ihr einfach mal ein paar Anregungen.
Und noch was ich bin kein Profi aber zu leicht sollte es nicht sein !
So vieleicht weis ja jemand was.
schonmal Dank�

Registrierungs Eintr�ge schreiben/l�schen [Visual Basic 6]

Wed, 21 May 2008 12:11:35 +0200

So mal wieder ein Problem es gibt verschiedene Functionen um die Registrierung zu Bearbeiten welche ich aber nich kapiere ^^.
kennen (google gefunden) tu ich
1.Regestry Access
und noch so ne andere weis leider nimmer wies heist

ich W�rde gern f�r mein Programm ein Autostart punkt setzen heist das es beim start selber startet ^^
das w�r bei mir dieser schl�ssel f�r den br�uchte ich jetzt nur noch einen Code um dort einen Neuen eintrag zu machen

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
der wert der dort stehen sollte ist
Name : Charhandler v1.2.exe
Type ist glaub immer gleich
und im Wert : den pfad d.h.
C:\Programme\Character Handler v1.2\bin\Charhandler v1.2.exe

also wenn irgendjmd mir den Code sagen kann dann w�r des sehr nett ^^ schonmal Danke

Ein bl�des problem bei Visual Basic (studio 6.0) pro

Wed, 07 May 2008 14:50:10 +0200

Hallo Leute ich habe mal wieder ein Problem beim Visual Basic Programmieren
meine Basic version:
Visual Studio 6.0 Professionel�

mein Programm hat 5 Listboxen und wenn man auf ein BUtton klickt sollten aus einer Textdatei von Zeile
1-500 alle Daten die drinne stehen (nicht welche mit "") in "Prim1"
500-1000 in "Prim2"
1000-1500 in "Kochen"
1500-2000 in "Angeln" und
2000-2500 in "Erstehilfe"
Alle in "" sind Listboxen !!

so der code f�r die erste Listbox "prim1" heist

Code:
Public Sub Rezeptloadprim1(ByVal sCharname As String)

' ############# Deklarieren ########################
Dim i As Integer
Dim Readline1 As String
' ############# Ende ##############################

' ############# Alle gespeicherten Rezepte laden #####
For i = 1 To 500
    Readline1 = txt_ReadLine("C:\Rezepte" + sCharname + ".txt", i)
    If Readline1 = "" Then
    Else
    Prim1.AddItem Readline1
    Text320.Text = i
    End If
Next
' ############# Ende ##############################

End Sub

das ganze Wird aufgerufen mit

Code:
'############ Prim1 Berufe laden ############
Rezepte.Prim1.Clear
Charname = Charname1.Text
Rezeptloadprim1 (Charname)
Charnametext.Text = Charname
'############ Ende #########################

bis hierhin geht alles gut aber sobald ich jetzt die Zweite listbox F�llen will
code :

Code:
Public Sub Rezeptloadprim2(ByVal sCharname As String)

' ############# Deklarieren ########################
Dim i As Integer
Dim Readline1 As String
' ############# Ende ##############################

' ############# Alle gespeicherten Rezepte laden #####
For i = 500 To 1000
        Readline1 = txt_ReadLine("C:\Rezepte" + sCharname + ".txt", i)
        If Readline1 = "" Then
        Else
        Prim2.AddItem Readline1
        Text320.Text = i
        End If
Next
' ############# Ende ##############################

End Sub

schreibt er mir in die ERste Listbox ( "Prim1") den Ersten Eintrag der Zweiten bsp !!
Listbox 1 = Prim1
Listbox 2 = Prim2
in der :txt stehen 2 Eintr�ge f�r Jede Listbox
Listbox 1 = HALLO, TSCH�SS
Listbox 2 = WIE, GEHTS

so wenn ich jetzt auslese und in die Listbox f�llen will kommt dann das raus

Listbox 1.Inhalt = HALLO, TSCH�SS, WIE
Listbox 2.Inhalt = WIE, GEHTS
komisch oder ^^ bild !!
[attachment=2]

wenn ihr noch Daten braucht um mir zu helfen dann sagt es ansonsten danke f�r Antworten

Die Geilsten Signaturen Der WELT ^^ (vll nicht ganz)

Sun, 27 Apr 2008 02:35:32 +0200

ich mach mal wieder eine LISTE ^^

POstet neue Signaturen !!im Format
1. Signatur/plaplaplaplA

Liste anfang
1. Ich vermute mal, das ist ein falscher Fehler. Der taucht n�mlich pl�tzlich nicht mehr auf.

2. Wenn Windows die Antwort ist, muss es eine doofe Frage gewesen sein.

3. Wenn Architekten so bauen w�rden, wie Programmierer ihre Programme schreiben, k�nnte ein einziger Specht ganze St�dte zerst�ren.

4. Sie haben die Position des Mauszeigers ver�ndert. Starten Sie Windows neu, um die �nderungen wirksam werden zu lassen.

5. Ein Experte ist ein Mann, der hinterher genau sagen kann, warum seine Prognose nicht gestimmt hat.

6. Hardware sind die Teile vom Computer gegen die man tretten kann, wenn er abgest�rzt ist.

7. Ich vermute mal, das ist ein falscher Fehler. Der taucht n�mlich pl�tzlich nicht mehr auf.

8. Alles w�re viel einfacher und schneller erledigt, wenn wir gleich am Ende anfagen w�rden!!!

9. Oft erledigen sich viele Dinge, die man auf die l�ngste Bank geschoben hat, allein dadurch, dass sie am anderen Ende herunterfallen.

10. Das Leben ist grausam und hart und manchmal noch viel schlimmer!

[Visual Basic] Frage: wie kann ich (so �nlich wie in Excel) eine Liste anfertigen

Sun, 27 Apr 2008 00:25:35 +0200

hallo,
ich m�chte gerne eine programm schreiben mit dem man daten verwalten kann (in einer anderen hinsicht nicht (text dokumente usw) sondern Zeichenfolgen beispiel ein programm (so �nlich sollte es aussehen)
[attachment=1]

Da diese einzelnen felder sollen zur eingabe dienen z.b.
waffe eins = plaplapla
waffe zwei= plaplapla
R�stung = plaplapla
usw und am ende soll er eine Text datei speichern mit allen Variablen drinne ^^

in einem zweiten Teil des Programmes soll er diese text datei wieder lesen k�nnen und sie auflisten

ich weis bissle Kompliziertes Programm w�re trotzdem nett wenn ihr mir helft Danke

Programmiersprache ^^
Visual Basic
Programm: Microsoft Visual Basic 6.0

Tutorials einmal aufgelistet

Sat, 26 Apr 2008 08:11:31 +0200

Hallo hier einmal ein paar TuT seiten zu Visual Basic ihr k�nnt hier als Antwort schreiben welche TuT seiten noch Hinzugef�gt werden sollen (auch andere Programme)

bitte in diesem format
1. Programmiersprache : Link/Adresse
Beispiel
1. Visual Basic : http://www.vb-seminar.de/

Also hier f�ngt die Liste an :

Visual Basic:
1. Visual Basic Online Seminar
2. VB4Kids - Trainingsmodul

C++:
1. C++ Online Kurs des FB Mathe/Info Uni Marburg
2. Einf�hrung in C++ Gratis C++ Programmieren lernen

Pascal:
1. Programmiersprache Pascal

Delphi:
1. Noebis - Delphi Noob KursNierder�sterr
2. Delphi 2.0 f�r Einsteiger
3. Der Delphi-Treff :: Tutorials

Java:
1. Crazy Team Javakurs
2. Kurs (Java)
3. Programmieren mit Java
4. Uni HH: FB Mathematik: Java-Kurs
5. Java am GZG
6. Objektorientierung und GUI-Programmierung mit Java
7. JAVA.ProgrammersBase.NET

�bersicht Tutorials (die meisten):
Tutorials �bersicht

Tutorial: Dateien mit Visual Basic �ffnen

Thu, 24 Apr 2008 14:55:27 +0200

Dateien durch ein Programm mit Visual Basic �ffnen

Dieses TuT gibt es auch als Word Datei f�r alle die schon Word 2007 haben hier der Link zur Datei
Dateien/Programme �ffnen VB
Die dies nicht haben Fragen bitte nach (icq steht hier 2 mal ^^)

Bin �leider� kein Profi in Sachen VB aber es gibt so wenig TuT�s in Deutsch �ber die wichtigsten Befehle und Funktionen (die auch wirklich f�r �Anf�nger� erkl�rt sind).
Deswegen mach ich mein eigenes und teile es mit jedem. Trotzdem bestehe ich darauf das ich eine Benachrichtigung bekomme wenn ihr mein TuT Kopiert (es z.B. in eure Homepage kopiert) oder einen Link macht. Danke
Ich lass hier meine ICQ nummer weil ich will das ihr mich fragt. ^^ Bitte nicht zu viel (hab auch noch ein Leben). Also hier ist sie ICQ Nr. 232-200-630

Erkl�rung Farben:
Rot = Links oder wichtige Angaben
Gr�n = Befehle/Kommandos

Als erstes einmal die Voraussetzungen um dies benutzen zu k�nnen:
Ein Programm f�r VB z.B. Microsoft Visual Basic 6.0, dass ich benutzen werde.
Eine Hilfreiche Seite w�re diese:
http://www.microsoft.com/germany/express...fault.aspx
Das ist die Express Version sollte dort aber auch funktionieren
Ich gebe KEINE Garantie, dass diese Codes bei allen VB Programmen funktionieren.

Um ein Programm zu starten benutzen die meisten in VB den Befehl:

Shell()

Dieser funktioniert super man kann nur keine Fehlermeldungen zur�ck geben (um darauf zu reagieren) oder eine Datei z.B. ein Textdokument mit einem bestimmten Programm z.B. Notepad (oder auch Editor genannt) �ffnen.

Deswegen benutze ich hier den Befehl:

ShellExecute()

Mit ihm kann man Fehlermeldungen wie z.B. (Datei nicht gefunden) zur�ckgeben
und eine Datei mit Notepad (auch mit anderen Dateien/Programmen) �ffnen.

�ffnet ein Neues Projekt (wie das geht solltet ihr Wissen ^^)
Und macht einen Button (mehr brauchen wir erst einmal nicht)
Dann doppel Klickt auf den Button und macht weiter

Um diesen Befehl benutzen zu k�nnen m�ssen wir erst einmal die Funktion Deklarieren
1.
Die Funktion wird Deklariert indem wir vor allen Befehlen im Programm diese Zeilen rein kopieren

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Bisschen einfacher ist es mit diesem Bild
[attachment=4]

So jetzt geht es weiter um keine Fehler zu haben (ich habe keine Ahnung welche Codes was bringen ich wei� nur das sie das Aussehen des Fensters was ge�ffnet wird bestimmen)
M�sst ihr hinter die Deklaration noch diese Zeilen kopieren

Private Const SW_HIDE = 0
Private Const SW_MAXIMIZE = 3
Private Const SW_MINIMIZE = 6
Private Const SW_NORMAL = 1
Private Const SW_SHOW = 5
Private Const SW_RESTORE = 9
Private Const SW_SHOWMAXIMIZED = 3
Private Const SW_SHOWMINIMIZED = 2
Private Const SW_SHOWMINNOACTIVE = 7
Private Const SW_SHOWNA = 8
Private Const SW_SHOWNOACTIVATE = 4
Private Const SW_SHOWNORMAL = 1

Private Const ERROR_BAD_FORMAT = 11&
Private Const SE_ERR_ACCESSDENIED = 5
Private Const SE_ERR_ASSOCINCOMPLETE = 27
Private Const SE_ERR_DDEBUSY = 30
Private Const SE_ERR_DDEFAIL = 29
Private Const SE_ERR_DDETIMEOUT = 28
Private Const SE_ERR_DLLNOTFOUND = 32
Private Const SE_ERR_FNF = 2
Private Const SE_ERR_NOASSOC = 31
Private Const SE_ERR_OOM = 8
Private Const SE_ERR_PNF = 3
Private Const SE_ERR_SHARE = 26

So sollte es aussehen
[attachment=5]
So die Deklaration ist fertig jetzt kommen wir zum Befehl der das ganze ausf�hrt
Wie schon gesagt heist er

ShellExecute()

Dieser wird nun zwischen

Private Sub Command1_Click()

Und

End Sub

Geschrieben und f�hrt dann die Funktion �ShellExecute� aus die wir gerade Deklariert haben.
Nun zum Befehl.
Die Zeilen in meinem Beispiel sind um ein Textdokument das in �C:\� liegt d.h. also in keinem Unterordner, namens �Test.txt� mit dem Editor auch Notepad genannt zu �ffnen.
(wenn ihr kein Textdokument mit Namen �Test� in �C:\� habt keine Angst macht einfach weiter mit Programmieren der Befehl wird selbst�ndig eines erstellen.)

Also die Zeilen sind

Retval = ShellExecute(Me.hwnd, "open", "C:\Windows\Notepad.exe", _
"C:\Test.txt", "c:\", SW_SHOWNORMAL)

Die m�sst ihr nun dort rein kopieren und dann k�nnt ihr es schon ausprobieren
[attachment=6]

So sollte es aussehen wenn ihr es laufen lasst

[attachment=3]
Dann auf �Ja� und ein neues Text Dokument Namens �Test� wird in �C:\� erstellt
falls dieses Dokument schon besteht wird es einfach ge�ffnet (keine Daten gehen verloren)

Das wars von meinem TuT zum �ffnen von Dateien bitte Bewertet es usw. gibt ja eine Umfrage ^^
Bis zum n�chsten TuT euer TuT maker ICQ: 232-200-630