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