Scripts για LCDHype

[FrOsT]

Μιας και έγινε ο ομαδηκή ας βοηθήσουμε ο ένας τον άλλον να κάνουμε scriptακια της προκοπής για τις lcd μας

[street warrior]

Πολύ καλή η ιδέα σου πως θα αξιοποιήσω αλλιώς την οθονίτσα μου αλλωστε?Γιατί για να φτιάξω δικά μου scriptακια δεν το συζητώ είμαι πολύ άσκετος και νευρικός για αυτά

[FrOsT]

Και που ξέρεις ότι θα τεριάζουν με το δικόσου pc?

Πώς σας φένετε το Winamp μου?

[street warrior]

Η μητρική μου είναι DFI NF4 SLI-DR πάντως κάθε βοήθεια θα είναι ευπρόσδεκτη

[greekfragma]

frost θα τα πουμε καποια αλλη στιγμη......μικρο και αθωο παιδακι........ΑΞΙΟΣΣΣΣΣΣΣΣ

[vpapanik]

Μπράβο frost που άνοιξες το θέμα. Aπλά το έβαλες πολύ μακριά απο το modding, με search το βρήκα !! Ωράιο το scriptακι σου αλλά πολύ χώρο πιάνεις με τις πολλές μπάρες :) εγώ προτιμώ να χωράω πολύ πράμα στο ίδιο screen

[FrOsT]

To έβαλα εδώ γιατί έχει περησότερο σχέση με προγραμματισμό.

Βρήκα (ξημερώματα) και τι έπαιζε με τα UL Και DL

Στον server θα παίζουν όλα μαζί σε μία οθόνη αλλα στο άλλο pc θα τα έχω να εναλλάσοντε...

τώρα προσπαθώ να κάνω rss feed αλλά πάλι πολύ κάψημο το βλέπω...

γιατί να μην δουλέβει ποτέ με νην πρώτη? :fist:

[FrOsT]

WinAmp Script:

#Header

%Common.SetPriority(50)

%LCD.Gfx_SetRefreshArea(0,0,240,128)

%LCD.Gfx_SetTextArea(0,0,240,128)

%LCD.Gfx_LoadBitmap(logo.bmp,55,65,0,0,240,128,0,NONE)

#EndHeader

#GfxMode

%LCD.Gfx_SetOverlayMode()

%Param.RenderMode(Simple)

%LCD.Gfx_SetFont('Arial',10,1,Bold)

%Format.Offset(Horizontal,1)

%Format.Offset(Vertical,1)

%Param.EnableScrolling(Horizontal,Swing,1,155,1)

%WinAmp.RawTitle()

%Common.CreateNewLine()

%Format.Bar(Horizontal,237,10,0,%WinAmp.TrackLength(),%WinAmp.TrackPos(),1,1,1,19)

%Common.CreateNewLine()

%Format.Offset(Horizontal,1)

%Format.Offset(Vertical,1)

" "%WinAmp.BitRate() "kbps" " Left"

%Common.CreateNewLine()

" "%WinAmp.SampleFrequency()"khz" " Right"

%Common.CreateNewLine()

%Format.Offset(Horizontal,160)

%Format.Offset(Vertical,-64)

%Format.Time(%Mul(%WinAmp.TrackPos(),1000),'mm:ss')' / '

%Format.Time(%Mul(%WinAmp.TrackLength(),1000),'mm:ss')

%Format.Bar(Horizontal,100,10,0,100,%WinAmp.VU(1,Left),1,1,130,36)

%Format.Bar(Horizontal,100,10,0,100,%WinAmp.VU(1,Right),1,1,130,52)

%WinAmp.SpecAnalyzer(FFT,PeakedBarsFilled,42,60,2,10,2,5,1,1,67)

#EndGfxMode

και βάζετε το επισηναπτόμενο bmp στον φάκελο LCDHype\scripts

*απαρέτητη προϊπόθεση για να δουλέψει είναι να είναι ενεργοποιημένο το plugin του winamp.

Special Thx στον Chroma για το bmp, την παρέα και τη βοήθια.

Το αποτέλεσμα είναι το παρακάτω:

logo.rar

[vpapanik]

Με Priority 50 θα σου απασχολεί 20% την CPU σου μόνο το LCDHype. Tσέκαρε το

[FrOsT]

Ναι αλλά με priority 50 είναι πανέμορφο...

όποιος θέλει το αλλάζει βέβεα...

Στο άλλο με το σύστημα που το θέλω να αλλάζει ποιο αργά priority 1000 (1fps) είναι ότι πρέπει...

[FrOsT]

Winamp 1.1 script:

#Header

%Common.SetPriority(90)

%LCD.Gfx_SetRefreshArea(0,0,240,128)

%LCD.Gfx_SetTextArea(0,0,240,128)

%LCD.Gfx_LoadBitmap(logo.bmp,55,70,0,0,240,128,0,NONE)

#EndHeader

#GfxMode

%LCD.Gfx_SetOverlayMode()

%Param.RenderMode(Simple)

%LCD.Gfx_SetFont('Arial',10,1,Bold)

%Format.Offset(Horizontal,1)

%Format.Offset(Vertical,1)

%Param.EnableScrolling(Horizontal,Swing,1,155,1)

%WinAmp.RawTitle()

%Common.CreateNewLine()

%Format.Bar(Horizontal,237,10,0,%WinAmp.TrackLength(),%WinAmp.TrackPos(),1,1,1,19)

%LCD.Gfx_SetFont('Arial',8,1)

%Common.CreateNewLine()

%Common.CreateNewLine()

%Format.Offset(Horizontal,2)

%Format.Offset(Vertical,2)

" "%WinAmp.BitRate() "kbps" " |"

" "%WinAmp.SampleFrequency()"khz"

%LCD.Gfx_SetFont('Arial',10,1,Bold)

%Common.CreateNewLine()

%Format.Offset(Horizontal,160)

%Format.Offset(Vertical,-64)

%Format.Time(%Mul(%WinAmp.TrackPos(),1000),'mm:ss')' / '

%Format.Time(%Mul(%WinAmp.TrackLength(),1000),'mm:ss')

%LCD.Gfx_SetFont('Comic Sans MS',15,1,Bold)

%Common.CreateNewLine()

%Format.Offset(Horizontal,50)

%Format.Offset(Vertical,8)

%LCD.Gfx_SetFont('Comic Sans MS',15,1,Bold)

%If((%WinAmp.Status() = 0)) Then{Playing}

%If((%WinAmp.Status() = 1)) Then{Paused}

%If((%WinAmp.Status() = 2)) Then{Stoped}

%Common.CreateNewLine()

%Format.Offset(Horizontal,10)

%Format.Offset(Vertical,-25)

%LCD.Gfx_SetFont('Comic Sans MS',11,1,Bold)

"Now: "

%Common.CreateNewLine()

%Format.Offset(Horizontal,1)

%Format.Offset(Vertical,11)

%LCD.Gfx_SetFont('Comic Sans MS',7,1,Bold)

"Repeat "

%If((%WinAmp.Repeat() = 0)) Then{OFF}

%If((%WinAmp.Repeat() = 1)) Then{ON}

" | "

"Shuffle "

%If((%WinAmp.Shuffle() = 0)) Then{OFF}

%If((%WinAmp.Shuffle() = 1)) Then{ON}

%LCD.Gfx_SetFont('Arial',9,1,Bold)

%Common.CreateNewLine()

%Format.Offset(Horizontal,123)

%Format.Offset(Vertical,-37)

"L:"

%Common.CreateNewLine()

%Format.Offset(Horizontal,123)

%Format.Offset(Vertical,5)

"R:"

%Format.Bar(Horizontal,100,10,0,100,%WinAmp.VU(1,Left),1,1,135,40)

%Format.Bar(Horizontal,100,10,0,100,%WinAmp.VU(1,Right),1,1,135,60)

%WinAmp.SpecAnalyzer(FFT,PeakedBarsFilled,42,60,2,10,2,5,1,1,67)

#EndGfxMode

*απαρέτητη προϊπόθεση για να δουλέψει είναι να είναι ενεργοποιημένο το plugin του winamp.

Το αποτέλεσμα είναι το παρακάτω:

[vpapanik]

Για όποιον χρησιμοποιεί το Live365 επισυνάπτω αυτό το plugin μαζί με τις οδηγίες του :

Copy the DLL file to the plugins directory under

a seperate directory Live365LCD.

This plugin logs in the Live365 online database

to get the desired data. Hence, it should not be

run every (SetPriority) for example 1sec because

it will mess things up. It is better to make it run every

10 seconds or so.

This is the syntax :

%UsePlugin('Live365LCD\Live365LCD.dll','dagfari_15')

The plugin parameter is as follows :

<StationIdentifier>_<VIP 0 or 1><Display Type>

The station identifier is unique for every station name. For example

I am listening to WarriorRadio, which has a station identifier "dagfari".

This identifier is displayed both at the respective Live365 station page

and in the top of the Radio365 application.

VIP should be 0 or 1, because all these stations have a free stream

(VIP=0) and a VIP stream (VIP=1). If you don't have a VIP account

and listen freely, just put 0 for this.

The <Display Type> is as follows

1 : Title

2 : Artist - Title

3 : Artist - Album - Title

4 : Title (Time)

5 : Artist - Title (Time)

6 : Artist - Album - Title (Time)

For example I am using dagfari_15 which means that I want to

monitor the WarriorRadio station, I am a VIP member and I want

to display Artist - Title (Time).

live365lcd.zip

[FrOsT]

Ξέρει κανένας τύπο που να μετατρέπει τα πακέτα του lan σε ΜΒ???

[vpapanik]

Τσίμπα :

στο header

/DL-UL/

%DefVar(Net,Local=1)

%DefVar(NowTime,Local=%System.UpTime())

%DefVar(PrevTime,Local=0)

%DefVar(TimeDiff,Local=0)

%DefVar(PrevDL,Local=0)

%DefVar(CurrDL,Local=0)

%DefVar(PrevUL,Local=0)

%DefVar(CurrUL,Local=0)

στο gfx

/DL-UL/

%Assign(PrevTime,%NowTime())

%Assign(NowTime,%System.Uptime())

%Assign(TimeDiff,%Dec(%NowTime(),%PrevTime()))

%Assign(PrevDL,%CurrDL())

%Assign(CurrDL,%System.Network(%Net(),PacketsIn))

%Assign(PrevUL,%CurrUL())

%Assign(CurrUL,%System.Network(%Net(),PacketsOut))

%PrintCenter(%Trunc(%Div(%Dec(%CurrDL(),%PrevDL()),%Mul(1.024,%TimeDiff())),1),207,238,-86)

%PrintCenter(%Trunc(%Div(%Dec(%CurrUL(),%PrevUL()),%Mul(1.024,%TimeDiff())),1),207,238,14)

Βάλε το DU Meter και κάνε σύγκριση. Εμένα βγάζει τα ίδια.

[vpapanik]

ΣΕ ΜΒ ?????????????? σε ΜΒ/s θα μετράς τα download σου ? Είσαι ιδιοκτήτης της forthnet ? Αυτό βγάζει KB αλλα είναι προφανής η μετατροπή... :)

[vpapanik]

Το παραπάνω script δουλεύει σε priority 1000. αν έχεις άλλο Priority, αλλάζεις το 1.024 ανάλογα...

[FrOsT]

Τα έκανα λίγο διαφορετικά αυτά...

θέλω έναν τύπο για μετατροπή των πακέτων σε ΜΒ για να βλέπω πόσα ΜΒ έχουν μετακινηθεί συνολικά...

Δηλ το PacketsOut και in θέλω να να το βλέπω σε MB

[vpapanik]

Όποιος θέλει να δείχνει και τα email που λαμβάνει, ας στήσει και να ρυθμίσει πρώτα το freeware PopTray 3.1 και μετά να μου πεί να στείλω το Plugin μου ...

[vpapanik]

’ντε κάτι ακόμα, splash screen !!! Που εμφανίζεται πρίν το main script σας.

Δίνετε ΙD 1 στο main script, και στο ΙD 0 βάζετε τα εξής :

#Header

%Common.SetPriority(1000)

%Graph.LoadBitmap('Splash.bmp',0,0,0,0,240,128,1,NONE)

#EndHeader

#GfxMode

%Common.ChangeScreen(3000,1)

#EndGfxMode

Κάνω attach το splash που έχω βάλει, το πήρα απο το site του LCDStudio...

splash.zip

[FrOsT]

Για splash screen βπορείτε να βάλετε και αυτά:

Made by Chroma (στο 2 πρόσθεσα το dfi)