kostenloser Webspace werbefrei: lima-city


Suche auf lima-city

  • in: ADT Liste

    geschrieben von myiceteaplanet

    Hi Leute,
    ich will für einen Vortrag @school nen Programm schreiben, das die Funktionsweise einer ADT-Liste simuliert.
    Nur Leider scheint nicht alles so zu funktionieren, wie es soll. Um genau zu sein, passiert nichts.
    Hier der Code:

    procedure refresh(); //Aktualiesieren der Listbox (mit Liste abgleichen)
     var i: integer;   //Zählvariable für Schleife
    begin
      Listbox1.clear;
      list.findfirst;
      for i:=1 to list.count do
       begin
        Form1.Listbox1.items.Add(inttostr(list.get));
        list.findnext;
       end;
    end;
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
     list:=tliste.create;
    end;
    
    procedure TForm1.Button1Click(Sender: TObject);
     var zahl: integer;
    begin
       list.findfirst;
     try
       zahl:=strtoint(edit1.text);
       if radiobutton1.Checked then
          list.putbehind(zahl)
        else
         list.putbefore(zahl);
     except
       showmessage('Ungültige Eingabe!');
     end;
     refresh;
    end;


    und die Klasse TListe ist so deffiniert:

    unit liste2;
    
    interface
    
    type pzeiger=^tElement;
         tElement=record
                    next:pZeiger;
                    inhalt:integer;
                  end;
         tListe=class
          private
                  anfang:pZeiger;
                  aktuell:pZeiger;
                  zahl:Integer;
    
          public
    
    
           constructor create();
           function get():integer;
           procedure putbehind(var Inh:integer);
           procedure putbefore(var  Inh:integer);
           procedure delete();
           function empty():BOOLEAN;
           function full:BOOLEAN;
           function count():Integer;
           function last():Boolean;
           procedure findfirst();
           procedure findnext();
           end;
    
    implementation
    
    constructor TListe.create;
    BEGIN
      inherited create;
      anfang:=NIL;
      aktuell:=NIL;
      zahl:=0;
    END;
    
    PROCEDURE TListe.putbehind;
    VAR neu:pZeiger;
    BEGIN
      NEW(neu);
      neu^.Inhalt:=Inh;
        IF empty() THEN BEGIN
          anfang:=neu;
          neu^.next:=NIL;
        END
        ELSE
          BEGIN
            neu^.next:=aktuell^.next;
            aktuell^.next:=neu;
          END;
        aktuell:=neu;
        zahl:=zahl+1;
    END;
    
    PROCEDURE TListe.putbefore;
    VAR neu,lauf:pZeiger;
    BEGIN
      NEW(neu);
      neu^.Inhalt:=Inh;
        IF aktuell=anfang THEN
          anfang:=neu
        ELSE
          BEGIN
            lauf:=anfang;
            WHILE lauf^.next<>aktuell DO
              lauf:=lauf^.next;
            lauf^.next:=neu;
          END;
        neu^.next:=aktuell;
        aktuell:=neu;
        zahl:=zahl+1;
    END;
    
    
    PROCEDURE TListe.delete;
    VAR lauf:pZeiger;
    BEGIN
        IF aktuell=anfang THEN
          anfang:=anfang^.next
        ELSE
          BEGIN
            lauf:=anfang;
            WHILE lauf^.next<>aktuell DO
              lauf:=lauf^.next;
            lauf^.next:=aktuell^.next;
          END;
        DISPOSE(aktuell);
        aktuell:=anfang;
        zahl:=zahl-1;
    END;
    
    function TListe.get():integer;
    BEGIN
      result:=aktuell^.Inhalt;
    END;
    
    FUNCTION TListe.empty;
    BEGIN
      empty:=anfang=NIL;
    END;
    
    FUNCTION TListe.full;
    BEGIN
      full:=SizeOf(tElement)>AllocmemSize;
    END;
    
    FUNCTION TListe.count;
    BEGIN
      count:=zahl;
    END;
    
    FUNCTION TListe.last;
    BEGIN
      Last:=aktuell^.next=NIL;
    END;
    
    PROCEDURE TListe.Findfirst;
    BEGIN
      aktuell:=anfang;
    END;
    
    PROCEDURE TListe.Findnext;
    BEGIN
      aktuell:=aktuell^.next;
    END;
    
    
    BEGIN
    END.
  • in: Applet bleibt weiß

    geschrieben von myiceteaplanet

    Habs jetzt zum Laufen gebracht! War wirklich nochn Fehler im html.
    Danke für eure Hilfe Leute!
    Grüße!
  • in: Applet bleibt weiß

    geschrieben von myiceteaplanet

    pawnee schrieb:
    Moin,

    ohne Deine Code extra getestet zu haben:

    Ändere mal bitte ínit in init um.
    Ziemlich trivial aber daran sollte sich bereits der Compiler die Zähne ausbeißen.

    Gruß,
    Pawnee


    Danke, das war wirklich blöd XD
    Aber leider funktioniert es immernoch nicht.

    Und hab mal andern Browser genomme, der mir die Fehlermeldung "NoClassDefFoundError" ausspuckt.
  • in: Applet bleibt weiß

    geschrieben von myiceteaplanet

    Hi Leute!

    Ich hab hier mal ein Applet ausprobiert. Es startet ohne Fehlermeldung, bleibt aber weiß.
    Ich hoffe ihr könnt mir helfen.

    package main;
    
    
    import java.applet.*;
    import java.awt.*;
    import java.awt.event.*;
    
    public class Malen2 extends Applet implements ActionListener {
    
    
        Panel Bereich1, Bereich2;
        Button a,b,c,d;
        Leinwand l;
      
      public void ínit() {
        setBackground(Color.yellow);
        Bereich1 = new Panel();
        Bereich2 = new Panel();
        Bereich1.setBounds(0,0,100,100);
        Bereich2.setBounds(100,0,100,100);
        add(Bereich1);
        add(Bereich2);
        l = new Leinwand(Color.yellow);
        l.setSize(200,200);
        add(l);
        Bereich2.setLayout(new GridLayout(4,1,10,10));
        a = new Button("orange"); 
        a.setBackground(Color.white);
        b = new Button("pink"); 
        b.setBackground(Color.white);
        c = new Button("grau"); 
        c.setBackground(Color.white);
        d = new Button("blau"); 
        d.setBackground(Color.white);
        add(a);
        add(b);
        add(c);
        add(d);
        a.addActionListener(this);
        b.addActionListener(this);
        c.addActionListener(this);
        d.addActionListener(this);
      }
      
      public void actionPerformed(ActionEvent e) {
        
        String s=e.getActionCommand();
        char ch = s.charAt(0);
        Color f;
        switch((int)ch){
           case 111: f=Color.orange; break;
           case 112: f=Color.pink; break;
           case 103: f=Color.gray; break;
           case 98: f=Color.blue; break;
           default: f=Color.black;
        }
        l.gibF(f);
      }
    
    
    }
     class Leinwand extends Canvas implements MouseMotionListener {
    
       Color farbe = Color.black;
    
       public Leinwand(Color hgFarbe) {
        
         addMouseMotionListener(this);
         setBackground(hgFarbe);
       }
    
       public void mouseDragged(MouseEvent e){
    
    	 int x=e.getX();
         int y=e.getY();
         Graphics pen  = getGraphics();
         pen.setColor(farbe);
         pen.fillOval(x, y, 4, 4);
       }
      
       public void mouseMoved(MouseEvent e) {
         }
      
       public void gibF(Color fa) {
        farbe = fa;
       }
     }
  • in: Turing-Maschine programmieren

    geschrieben von myiceteaplanet

    Danke fü die Hilfe und die Links! Habs hinbekomme^^
  • in: Turing-Maschine programmieren

    geschrieben von myiceteaplanet

    naja da diese maschine nich wirklich existiert, soll ein programm im pseudocode entwickelt werden.

    Vorgegeben soll eine Reihe von Bits sein (ich nehm mal einsen). Nen möglichens Speicherband könnte so aussehen:

    ##111111############## (bei # ist das band leer)
  • in: Führerschein schwer?

    geschrieben von myiceteaplanet

    Also ich selbst habe den Führerschein mit 17 nicht gemacht, aber aus meinem Freundeskreis kenne ich eine Menge Leute, die gute Erfahrungen damit gemacht haben. Auch ist man dann die Probezeit schon mit 19 los^^.
  • in: Mainboard defekt?

    geschrieben von myiceteaplanet

    Wenn dus mit verschiedenen Netzteilen getestet hast, gehe ich mal davon aus, dass du auch darauf geachtet hast, alle Kabel richtig zu stecken... Du liegst glaube mit einem defekten Mainboard schon ziemlich nahe. Ich würd allerdings (sicherheitshalber) noch den Prozessor und den/die ram-riegel anschaun^^
  • in: Turing-Maschine programmieren

    geschrieben von myiceteaplanet

    Hi Leute,
    ich soll für den Informatikunterricht eine Turing machine programmieren, die auf dem Speicherband eine endliche Anzahl von
    Bits verdoppelt.
    Hat jemand von dem Thema plan?
    Danke schonmal im Vorraus! xD
  • in: usb wlan stick treiber fehler

    geschrieben von myiceteaplanet

    hast du schon nach einen win7-treiber für deinen stick gesucht? Wenn nicht, versuch mal auf der Herstellerseite oder Goggle einen zu finden!
  • in: Polens Staatsoberhaupt abgestürzt

    geschrieben von myiceteaplanet

    Ein neues Staatsoberhaupt in Polen könnte durchaus einiges in Sachen Beziehungen mit Deutschland und in der Europapolitik einiges ändern. Ich wohne nicht weit von der Grenze, bin also gespannt...
  • in: Joomla: Template bearbeiten

    geschrieben von myiceteaplanet

    Am Layout soll sich an sich nichts ändern, nur Fraben, Textformatierung, header usw...
  • in: Joomla: Template bearbeiten

    geschrieben von myiceteaplanet

    thx erstmal
    Eine Frage noch: muss ich ne Kopie der ganzen page oder nur das templete in die xampp umgebung pappen?
  • in: Erste Kassen kündigen Zusatzbeitrag an

    geschrieben von myiceteaplanet

    Das war doch von Anfang an abzusehen, dass das Geld im Gesundheitstopf nicht ausreicht. Die größte Schweinerei ist meiner Meinung nach jedoch, das Arbeitgeber sich an den Zusatzbeiträgen nicht beteiligen. Und wie solls nach unserer Bundesregierung laufen? Richtig, der Arbeitgeber wird voll aus der Verantwortung genommen.

    gruß
  • in: Joomla: Template bearbeiten

    geschrieben von myiceteaplanet

    Hallo Leute,
    ich möchte an meiner Side (mit Joomla) das Design verändern. Ich weiß nur nicht ganz wie ich am besten am Templete rumschraube und zwischendurch teste, ohne das die Page an sich beeinträchtigt wird.
    Kann ich das irgendwie innerhalb von Joomla machen?

    Gruß
  • in: Werbung was macht ihr wenn die läuft?

    geschrieben von myiceteaplanet

    Werbung hat den selben gruseligen effekt bei mir wie Downloadbalken: Ich sitzte die ganze Zeit über davor, ohne eine Beschäftigungsidee zu haben. Kurz vor Ende fallen mir dann immer tausend Sachen ein, die ich hätte machen können xD
  • in: Kann mir jemand ein Programm schreiben.

    geschrieben von myiceteaplanet

    Wozu willst du das nachgeschrieben haben? Wenn du es verwenden willst, lads dir runter (Link haste ja schon). Wenn du wissen willst, wie das Teil funktioniert, frag doch den Webmaster von der entsprechenden Seite, wo er das Programm her hat und wer es geschrieben hat.

    gruß
  • in: "Neustart" von Schwarz-Gelb

    geschrieben von myiceteaplanet

    Die ersten 100 Tage der Koalition aus FDP und CDU/CSU sind vorbei. Die Kanzlerin und alle anderen Mitglieder der Regierung sprechen von einem geplantem Neustart. Wie seht ihr das?
  • in: Facharbeit John Nash

    geschrieben von myiceteaplanet

    Hi,
    Bilder solltest du generell in den Anhang tun. (genaue Quellenangabe zu jedem Bild!)

    Bei dem Thema würde ich zunächst etwas über die Person erwarten (Leben, Historischer Kontext) und dann Details zu seiner Arbeit bzw. zu seinen Erkenntnissen.

    Gruß
  • in: Netbooks im Schulunterricht

    geschrieben von myiceteaplanet

    In meiner Schule verwenden wir keine Net- bzw. Notebooks. Stattdessen haben wir mehrere gut ausgestattete Computerräume, die sowohl für den Informatikunterricht als auch für alle anderen Fächer verwendet werden können.
    Ich finde besonders in der Sek I ist das ständige Arbeiten mit Pcs nicht notwendig.
  • in: Suche Anfängerbuch für OOP

    geschrieben von myiceteaplanet

    Hallo Leute!

    Wie siehts denn mit Online-Büchern bzw. Tutorials aus? Ich steh nämlich nicht so auf herkömmliche Bücher (außer natürlich Romane und so....)
    Kann mir wer in diese Richtung was empfehlen?
    thx schonmal

Login zum Webhosting ohne Werbung!