Thursday, September 18th 2025, 1:25am UTC+2
You are not logged in.
*extremer bettler*
Date of registration: Sep 2nd 2001
Bike: Aprilia RS125, Aprilia RSVmille, Fiat ohne Auspuff "leise iss scheisse"
Location: Noale - Italy
Quoted
// Philip Hensel
// Projekt TAXI
// Aufgabe 3
import java.awt.*;
import java.applet.*;
public class Taxi extends Applet {
int [] a;
int Tag, Kosten, GKosten, max, maxTag;
TextField TfTag = new TextField(2);
TextField TfKosten = new TextField(5);
Button BtSpeichern = new Button("Speichern");
Button BtKontrolle = new Button("Kontrolle");
Button BtNeu = new Button("Neu");
Button BtGKosten = new Button("GKosten");
Button BtMaxKosten = new Button("MaxKosten");
Label LbAusgabe = new Label(" ");
Label LbPunkt = new Label("<- Tag, Kosten -> ");
Label LbMaxAusgabe = new Label(" ");
public void init() {
setLayout(new FlowLayout());
add (TfTag);
add (LbPunkt);
add (TfKosten);
add (BtSpeichern);
add (BtKontrolle);
add (BtGKosten);
add (BtNeu);
add (BtMaxKosten);
add (LbAusgabe);
add (LbMaxAusgabe);
a = new int[6];
}
public boolean action(Event e, Object o){
if(e.target == BtSpeichern){
Tag = Integer.parseInt(TfTag.getText());
Kosten = Integer.parseInt(TfKosten.getText());
a[Tag] = Kosten;
}
if(e.target == BtKontrolle){
Tag = Integer.parseInt(TfTag.getText());
LbAusgabe.setText ((String.valueOf (a[Tag]))+ " Euro");
LbMaxAusgabe.setText (" ");
}
if(e.target == BtNeu){
TfTag.setText("");
TfKosten.setText("");
LbAusgabe.setText ("");
LbMaxAusgabe.setText ("");
}
if(e.target == BtGKosten){
GKosten = 0;
for(int Tag=1; (Tag <=5); Tag=Tag+1){
GKosten = (a[Tag] + GKosten);
}
LbAusgabe.setText ((String.valueOf (GKosten))+ " Euro Gesamt");
LbMaxAusgabe.setText (" ");
}
if(e.target == BtMaxKosten){
max = 0;
for(int Tag=1; (Tag<=5); Tag=Tag+1){
max = Math.max(a[Tag], max);
if(max == a[Tag]){
maxTag = Tag;
}
}
LbAusgabe.setText ((String.valueOf (max))+ " Euro ");
LbMaxAusgabe.setText (" am "+(String.valueOf (Tag))+ ". ");
}
return true;
}
}
Date of registration: Sep 2nd 2001
Bike: Bobbycar (intercooler turbo)
Location: Adelssitz Rbg im Freistaat Bayern, ehemals Königreich
This post has been edited 1 times, last edit by "Stefan" (Apr 25th 2002, 4:08pm)