Entwickler-Ecke

Off Topic - Newsticker

DD - Di 14.10.03 17:07
Titel: Newsticker

Tag auch.

Kennt jmd. ein gutes Tutorial o.ä. zum Programmieren so eines kleinen Newstickers (beliebiger Text, der die ganze Zeit von rechts nach links läuft).
Wäre demjenigen, der mir weiterhelfen könnte sehr verbunden!

Gruß DD

StefanH - Di 14.10.03 17:18

So was?

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TFormLauf.ButtonLaufClick(Sender: TObject); 
begin 
   LabelLauf.Caption := EditEingabe.Text; 
end; 

procedure TFormLauf.TimerLaufTimer(Sender: TObject); 
VAR Text : STRING; 
begin 
   Text := Copy (LabelLauf.Caption,2,length(LabelLauf.Caption)-1)+ 
                LabelLauf.Caption[1]; 
   LabelLauf.Caption := Text; 
end; 

procedure TFormLauf.FormCreate(Sender: TObject); 
begin 
   ButtonLaufClick(Sender); 
end;

Stefan

DD - Di 14.10.03 17:29

Ups sorry...meine Schuld.
Meinte keinen Delphi-ticker. Das hätte ich dann selber geschafft.
Ich meine einen JavaScript ticker sprich für ne HP.
Aber trotzdem danke dir für deine Bemühungen.

Gruß, DD

NCortex - Di 14.10.03 19:58

in php hab ich mir mal nen ganz simplen newsscript gemacht, der alles inner textdatei speichert... das is relativ simple...

sonst gibt es fertige java- applets dafür...

fcg - Di 14.10.03 20:03

mal in PHP basierend auf na Textdatei die folgende Struktur hat:

Quelltext

1:
2:
3:

 news1
 news2
 news3

der PHP Code dafür, der zufällig einen der NewsZeilen ausgibt:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

<?php

$msg_file=file("news.txt");
$msg_count = count ($msg_file);

$rand_show=rand(0,$msg_count);

echo $msg_file[$rand_show];

?>

so geht es zumindest...

fcg

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!