Suchergebnisse

Suchergebnisse 21-40 von insgesamt 45.

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Selection Sort mit GUI (Swing)

    SirKC - - Java, Scala & Android

    Beitrag

    Ähnlich wie BubbleSort, deshalb nur der Algo: [code:1] public void actionPerformed(java.awt.event.ActionEvent e) { int speicher = 0 ; for (int k = 0 ; k < 9 ; k++ ) { for (int n = k + 1 ; n < 10 ; n++ ) { if ( zahl[k] > zahl[n]) { speicher = zahl[n] ; zahl[n] = zahl[k] ; zahl[k] = speicher ; } } } for (int i = 0 ; i < 10 ; i++) { jTextPane1.setText(jTextPane1.getText() + String.valueOf(zahl) + '\n'); } }[/code:1]

  • Bubblesort mit GUI (Swing)

    SirKC - - Java, Scala & Android

    Beitrag

    Nicht durcheinander kommen, der meiste Source kommt durch die GUI, zwischendrin stecken noch ein paar Comments von Eclipse Die Main Class: [code:1] package bubblesort; public class Main { /** * @param args */ public static void main(String[] args) { // TODO Auto-generated method stub Window hauptfenster = new Window(); hauptfenster.pack(); hauptfenster.setSize( 400 , 240 ); hauptfenster.setLocation( 250 , 250 ); hauptfenster.setVisible( true ); hauptfenster.setResizable(false); } } [/code:1] Die…

  • Hallo erstmal,... ich muss zugeben mich nicht mehr 100% in der Materie Prolog zu befinden, dennoch würde ich mal 2 möglichkeiten in den Raum werfen. Ich weiß allerdings auchnicht genau was du zum schluss mit deinen Regeln bestimmen willst aber vielleicht gehts entweder mit Rekursion oder mit den Not und Cut anweisungen, beides im Prolog Arbeitsbuch bei Prolog Literatur zu finden. Hoffe ich konnte dir zumindest einen ansatz bieten

  • Berechnen von komplexen Zahlen

    SirKC - - Delphi & Pascal

    Beitrag

    Dieses Programm berechnet komplexe Zahlen (+,-,*,/): [code:1] var Form1: TForm1; rz1,rz2,iz1,iz2:integer; implementation {$R *.dfm} procedure TForm1.btnstartClick(Sender: TObject); begin rz1:=strtoint(edtrz1.text); rz2:=strtoint(edtrz2.text); iz1:=strtoint(edtiz1.text); iz2:=strtoint(edtiz2.text); //______________SUMME______________________________________ edtsumme.Text:=inttostr(rz1+rz2)+'+'+inttostr(iz1+iz2)+'i'; //______________DIFFERENZ___________________________________ edtdifferenz.Text:=i…

  • Möchte man das Einsteinrätsel mithilfe des PCs lösen braucht man zum einen dieses Programm und zum zweiten viiiiiiiiiiiiiiiiiiiiiiel zeit [code:1] EinsteinMatrix = array[1..5,1..5] of 0..5; AusgabeMatrix = array[1..5,1..5] of string; var Form1: TForm1; B: EinsteinMatrix; AusgText: AusgabeMatrix; implementation {$R *.dfm} function TextEig(Eigensch, Zuordn: integer):string; begin case Eigensch of 1: Case Zuordn of 1: TextEig:='rot'; 2: TextEig:='weiß'; 3: TextEig:='grün'; 4: TextEig:='gelb'; 5: Te…

  • Ich hab hier mal ein kleines Programm geschrieben zur Linearen Interpolation mit GUI: Die Main Class: [code:1] public class Main { public static void main(String[] args) { Window hauptfenster = new Window(); hauptfenster.pack(); hauptfenster.setSize( 200 , 150 ); hauptfenster.setLocation( 250 , 250 ); hauptfenster.setVisible( true ); hauptfenster.setResizable(false); } } [/code:1] Die Window Class: [code:1] import javax.swing.JButton; import javax.swing.JFrame; import javax.swing.JLabel; import …

  • Arbeiten mit Strings Part 3

    SirKC - - Delphi & Pascal

    Beitrag

    Gibt den n-ten Buchstaben eines Wortes aus: [code:1] procedure TfmEdStr4.btnAusfuehrungClick(Sender: TObject); var EinText, AusText: string; k, n, laenge: integer; begin EinText:=edtEingabe.Text; AusText:=EinText; laenge:=length(EinText); n:=strtoint(edtBuchstabe.Text); for k:=1 to laenge do if k<>n then AusText[k]:='*'; edtAusgabe.Text:=AusText; end; [/code:1]

  • Arbeiten mit Strings Part 2

    SirKC - - Delphi & Pascal

    Beitrag

    Dieses Programm gibt den eingegeben String rückwärts aus: [code:1] procedure TfmEdStr1.btnAusfuehrungClick(Sender: TObject); var EinText, AusText: string; k, laenge: integer; begin EinText:=edtEingabe.Text; AusText:=EinText; laenge:=length(EinText); for k:=1 to laenge do AusText[k]:=EinText[laenge-k+1]; edtAusgabe.Text:=AusText; end; [/code:1]

  • Arbeiten mit Strings Part 1

    SirKC - - Delphi & Pascal

    Beitrag

    Mal ein kurzes Beispiel für die ersten Schritte mit Strings und EditFeldern: [code:1] var EinText: string; //Variable für Inhalt (Text) von edtEingabe AusText: string; //Variable für Inhalt (Text) von edtAusgabe VerglBuchst: string; //Variable für Vergleichsbuchstabe k: integer; //Variable für die Position des Vergleichsbuchstabens (=Austauschbuchstabe) laenge: integer; //Variable für die Länge des eingegebenen Textes //Vereinbarungsteil-Ende begin //Anfang des Ausführungsteils EinText:=edtEinga…

  • Zeichnen mit der Maus

    SirKC - - Delphi & Pascal

    Beitrag

    Möchte man eine simple Art des Zeichnens mit der Maus realisieren geht man wie folgt vor: [code:1] procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if unten then begin form1.Canvas.LineTo(x,y); end; end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin form1.canvas.MoveTo(x,y); unten:=true; end; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integ…

  • Mauscursor ereignisse

    SirKC - - Delphi & Pascal

    Beitrag

    Dieses Programm zeigt die Aktuelle Position des Mauscursors an, sowie ob eine Taste gedrückt ist: [code:1] procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin edit3.Text:='unten'; end; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin edit3.Text:='oben'; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin edit1.Text:=inttostr(X); edit2…

  • Tasten Codes ausgeben

    SirKC - - Delphi & Pascal

    Beitrag

    Möchte man die Tastencodes herausfinden hilft dieses kleine Proggie: [code:1] var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin edit2.Text:=inttostr(key); case key of 38: form1.Color:=clblue; 37: form1.Color:=clred; 39: form1.Color:=clyellow; 40: form1.Color:=clgreen; else form1.Color:=clbtnface; end; end; end. [/code:1] Die Sache mit den Farbwerten ist nur eine kleine Spielerei um die Arbeit mit den Codes zu ver…

  • Oberflächenprogrammierung

    SirKC - - Java, Scala & Android

    Beitrag

    Ein kleines Beispiel für die GUI Programmierung in Java: Zunächst die Main Class: [code:1] import java.text.SimpleDateFormat; import java.util.Date; public class Main { /** * @param args */ public static void main(String[] args) { Window myWindow = new Window(); myWindow.pack(); //Fenster so groß, dass alles reinpasst myWindow.setSize( 400 , 150 ); myWindow.setLocation( 500 , 250 ); myWindow.setResizable( false ); myWindow.setVisible( true ); Date now = new Date(); myWindow.setTitle( now.toStrin…

  • Vector Klassen

    SirKC - - Java, Scala & Android

    Beitrag

    Vector Klassen sehen in Java wie folgt aus: [code:1] import java.util.Enumeration; import java.util.Vector; public class Testvector01 { /** * @param args */ public static void main(String[] args) { Vector hugo = new Vector(); hugo.add( new Konto( 1000 , "Hugo") ); hugo.add( new Konto( 1001 , "Paul") ); hugo.add( new Konto( 1002 , "Ernst") ); hugo.add( new Konto( 1003 , "Otto") ); System.out.println("Anzahl der Elemente: " + hugo.size()); System.out.println("Letztes Element: " + hugo.lastElement(…

  • Möchte man die Darstellung des Datums oder von Dezimalzahlen ändern geht man wie folgt vor: [code:1] import java.text.DecimalFormat; import java.text.SimpleDateFormat; import java.util.Date; public class Testformat01 { /** * @param args */ public static void main(String[] args) { double test = 1234567.1234567; DecimalFormat formatter = new DecimalFormat( "#,##0.00" ); String ausgabe = formatter.format( test ); System.out.println( ausgabe ); Date now = new Date(); System.out.println( now ); Simpl…

  • Arrays

    SirKC - - Java, Scala & Android

    Beitrag

    Das Arbeiten mit Arrays funktioniert wie folgt: [code:1]public class Testarray01 { /** * @param args */ public static void main(String[] args) { int hugo[] = new int[10]; int paul[] = { 1, 2, 3, 4 }; for (int temp = 0 ; temp < hugo.length ; temp++) { hugo[temp] = temp; System.out.println( hugo[temp] ); } } } [/code:1]

  • Mal ein kleines Beispiel wie man mit Klassen Arbeitet. Hierbei wird am beispiel eines Kontos gearbeitet: Zunächst die Main Funktion: package vhs; [code:1]public class Test01 { public static void main(String[] args) { Konto hugo = new Konto( 1000 , "Hugo"); hugo.einzahlen(500.0); System.out.println(hugo); } } [/code:1] Und hier die Klasse Konto: [code:1] public class Konto { /** * nummer - Kontonummer.... */ private long nummer; /** * name - Name des Inhabers */ private String name; /** * saldo -…

  • Fibonacci Zahlenfolge

    SirKC - - Java, Scala & Android

    Beitrag

    Hier nochmal die Fibonacci Folge mit Berechnung des Goldenen Schnitts (vgl Fibonacci im C++ Forum) [code:1]public class Fibonacci { /** * @param args */ public static void main(String[] args) { long zahl1 = 1; long zahl2 = 1; long zahl3 = 0; for( int zaehler = 0; zaehler < 100 ; zaehler++ ) { zahl3 = zahl1 + zahl2; double schnitt = (double)zahl3 / zahl2; zahl1 = zahl2; zahl2 = zahl3; if ( zahl3 < 0) { break; } System.out.println( "Zahl " + zaehler + ": " + zahl3 + "Schnitt: " + schnitt); } } } […

  • Will man eine bestimmte Stelle eines Strings ansprechen kann man wie folgt vorgehen: [code:1]public class Test02 { /** * @param args */ public static void main(String[] args) { String test = "Test"; char tester = test.charAt(2); System.out.println(tester); int size = test.length(); for (int n = 0 ; n < size ; n++) { System.out.println(test.charAt(n)); } } }[/code:1] mfg KC

  • Arbeiten mit Strings

    SirKC - - Java, Scala & Android

    Beitrag

    Hier mal ein kleines Beispiel wie man mit Strings umgeht,.... [code:1] public class Stringtest02 { /** * @param args */ public static void main(String[] args) { String hugo = "Hugo"; String paul = "Hugo"; System.out.println(hugo.equals(paul)); System.out.println(hugo.compareTo(paul)); if (hugo == paul) { System.out.println( "Gleich"); } else { System.out.println(" Net Gleich"); } } }[/code:1] Bei Fragen einfach fragen mfg KC