HTPC-Menu V0.1 - gelöscht

Hier könnt Ihr gute, von Euch geschriebene Codes posten. Sie müssen auf jeden Fall funktionieren und sollten möglichst effizient, elegant und beispielhaft oder einfach nur cool sein.
Antworten
Benutzeravatar
dysti
Beiträge: 656
Registriert: 10.02.2006 18:34
Wohnort: Schlicktown

Re: HTPC-Menu V0.1 - gelöscht

Beitrag von dysti »

@dater, ich würde es begrüßen wenn du den Code wieder hinein setzt, dann können wir alle helfen.
PB5 / Spiderbasic / WB14 / Win7 / Win8.1 / Win10 / Debian 9
Nach oben
dater
Beiträge: 43
Registriert: 14.01.2006 15:22

Re: HTPC-Menu V0.1 - undeleted !!!

Beitrag von dater »

Hallo,
noch mal der Code !!!

(Geht nur mit MP3D Engine und installiertem DX9)

http://sites.google.com/site/fastclipv2 ... ects=0&d=1




Code: Alles auswählen

;[Global]
;screenwindow_breite=1920            ; Screen/Fenster Breite
;screenwindow_hoehe=1080            ; Screen/Fenster Höhe
;screenwindow=0                    ; 0-Vollbildmodus, 1-Fenstermodus mit Titelzeile,
                        ; 2-Fenstermodus mit Titelzeile und Minimieren-Gadget und 3-Fenstermodus (skalierbar)

;fontname=Times                    ; Font für das Menü
;fontsize=60                    ; Menufont größe
;fontbold=1                    ; Fobt Bold    
;fontitalic=1                    ; Font Italic
;abstand=150                    ; Abstand in Pixel - Teilbar durch 10
;zoom=6                        ; Menü Eintrag vergrößern. 2-10 
;menu_xpos=760                    ; Menü abstand von Links in Pixel
;farbe1=$aaffff                    ; Menü Farbe1 R G B
;farbe2=$4444ff                    ; Menü Farbe1 R G B

;hintergrundbild=./Menu-Bilder/hintergrund.jpg    ; Pfad zum Hintergrund Bild. ( Bildgröße = Window/Screen größe)

;bilderpfad=./Diaschaubilder            ; Pfad zum Diaschau Ordner 
;bilderpfad_x=70                ; x Position der Diaschau (Feste Breite der Bilder 480 x 360)
;bilderpfad_y=650                ; Y Position der Diaschau (Großer bilder werden skalliert)

;-> ;bilderpfad=./Diaschaubilder     -> Pfadangabe für Ordner im Stammordner von HTPC-Menu
;-> ;bilderpfad=d:/Bilder/kinder     -> Pfadangabe für Ordner z.B. d:/Bilder/kinder/ 

;wuerfelbild=./Menu-Bilder/wuerfel.jpg        ; Würfel Bild -> ca. 500 x 500 Pixel reicht.
;wuerfelpos_x=-3.2                ; Würfel Position im Raum
;wuerfelpos_y=1.7                ; Würfel Position im Raum
;wuerfelpos_z=5                    ; Würfel Position im Raum

;menu_sound_wav=./sound/sound.wav        ; Menü Sound -> nur .wav
;back_sound_wav=./sound/Mozart.wav        ; Hintergrund Musik -> nur wav

;memo_fontname=Comic Sans MS            ; Memo (Beschreibung) Font Name
;memo_fontsize=20                ; Schrift größe
;memo_fontbold=0                ; Schrift typ
;memo_fontitalic=0                ; Schrift Typ
;memo_farbe=$44ff88                ; Schrift Farbe R G B

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Der Quell Code für BP 4.3 mit MP Lib.
;
;HTPC-Menu von Markus Maiwald
;Source - Open Source
;DX9-Lib für BP von (c) Michael Paulwitz
;Stand 10.02.10
;Version 0.1


UseJPEG2000ImageDecoder()
UseJPEGImageDecoder()
UseTGAImageDecoder()
UsePNGImageDecoder()
UseTIFFImageDecoder()

If FileSize("./menu.ini")=-1 : MessageRequester("DateiFehler!", "Menu.ini nicht gefunden !", #PB_MessageRequester_Ok)  :End : EndIf
If FileSize("./einstellungen.ini")=-1 :MessageRequester("DateiFehler!", "einstellungen.ini nicht gefunden !", #PB_MessageRequester_Ok) : End : EndIf



;*********************************************************************************************************
;*********************************************************************************************************
;*********************************************************************************************************
Procedure.s regex(text$,match$,nr)
  If CreateRegularExpression(0, match$)
  Dim res$(0)
       f = ExtractRegularExpression(0, text$,res$())
      FreeRegularExpression(0) 
      If nr=>f : nr=f-1 : EndIf
      ProcedureReturn res$(nr) 
  EndIf
   ProcedureReturn ""
EndProcedure
;*********************************************************************************************************
;*********************************************************************************************************
;*********************************************************************************************************
Delay(500)
Dim datentabelle$(100)
Dim datentabelle2$(100)
Dim textdatentabelle$(100)
i=0
;*********************************************************************************************************
;*********************************************************************************************************
If OpenPreferences("menu.ini")
  If ExaminePreferenceGroups()
    While (NextPreferenceGroup() = #True) 
      datentabelle2$(i)=ReadPreferenceString("text","")
      datentabelle$(i)=ReadPreferenceString("datei","")
      textdatentabelle$(i)=ReadPreferenceString("memo","")
      i+1
      Wend
   EndIf
EndIf
ClosePreferences()
spnr=i    ; Anzahl der Menu-Einträge
;*********************************************************************************************************
;*********************************************************************************************************
;*********************************************************************************************************
;- ProgrammStart

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

OpenPreferences("einstellungen.ini")
PreferenceGroup("Global")
SCREEN_W        =        ReadPreferenceLong ("screenwindow_breite"            , 1920)
SCREEN_H        =        ReadPreferenceLong ("screenwindow_hoehe"        , 1080)
modus                =        ReadPreferenceLong ("screenwindow"                , 0)
fontname$            =        ReadPreferenceString("fontname"                        ,"Arial")
fontsize            =        ReadPreferenceLong("fontsize"                        ,80)
fontbold            =        ReadPreferenceLong("fontbold"                        ,0)
fontitalic            =        ReadPreferenceLong("fontitalic"                        ,0)
abstand            =        ReadPreferenceLong("abstand"                        ,150)
bb                     =        ReadPreferenceLong("zoom"                            ,8)
x                    =        ReadPreferenceLong("menu_xpos"                    ,760)
farbe1                =        Val(ReadPreferenceString("farbe1"                    ,"$aaffff"))
farbe2                =        Val(ReadPreferenceString("farbe2"                    ,"$4444ff"))
hintergrundbild$    =        ReadPreferenceString("hintergrundbild"                ,"")
bilderpfad$            =        ReadPreferenceString("bilderpfad"                        ,"")
bilderpfad_x        =        ReadPreferenceLong("bilderpfad_x"                    ,70)
bilderpfad_y        =        ReadPreferenceLong("bilderpfad_y"                    ,650)
wuerfelbild$        =        ReadPreferenceString("wuerfelbild"                    ,"")
wuerfelpos_x.f        =        ReadPreferenceFloat("wuerfelpos_x"                    ,-3.2)
wuerfelpos_y.f        =        ReadPreferenceFloat("wuerfelpos_y"                    ,1.7)
wuerfelpos_z.f        =        ReadPreferenceFloat("wuerfelpos_z"                    ,5)
menu_sound_wav$=        ReadPreferenceString("menu_sound_wav"            ,"")
back_sound_wav$=        ReadPreferenceString("back_sound_wav"                ,"")
fontname2$        =        ReadPreferenceString("memo_fontname"                ,"Arial")
fontsize2            =        ReadPreferenceLong("memo_fontsize"                ,20)
fontbold2            =        ReadPreferenceLong("memo_fontbold"                ,0)
fontitalic2            =        ReadPreferenceLong("memo_fontitalic"                ,0)
memo_farbe        =        Val(ReadPreferenceString("memo_farbe"                ,"$4444ff"))

ClosePreferences()

If FileSize(bilderpfad$)<>-2        : bilderpfad$=""                : EndIf  ; Pfad Prüfen
If FileSize(hintergrundbild$)=-1     : hintergrundbild$=""         : EndIf  ; Datei Prüfen
If FileSize(wuerfelbild$)=-1         : wuerfelbild$=""             : EndIf  ; Datei Prüfen
If FileSize(menu_sound_wav$)=-1    : menu_sound_wav$=""     : EndIf  ; Datei Prüfen
If FileSize(back_sound_wav$)=-1    : back_sound_wav$=""     : EndIf  ; Datei Prüfen

;--------------------------------------------------------------------------------------------------------------------------------------------------
; Bilder Pfad-Verseichnis einlesen !! Achtung keine Datei-Typ Prüfung , am besten JPG

If bilderpfad$
    Dim file$(1000)
    i=0
    Directory$ = bilderpfad$   
      If ExamineDirectory(0, Directory$, "*.*")  
        While NextDirectoryEntry(0)
          If DirectoryEntryType(0) = #PB_DirectoryEntry_File
             i+1
             file$(i)= bilderpfad$+"/"+DirectoryEntryName(0) 
            EndIf
        Wend
        FinishDirectory(0)
        file$(0)=Str(i)
      EndIf
EndIf
;--------------------------------------------------------------------------------------------------------------------------------------------------
If MP_Graphics3D (SCREEN_W,SCREEN_H,0,modus) = #False : ; Erstelle ein WindowsFenster #Window = 0
    MessageRequester("Screen Fesnter Fehler !", "Screen oder Fenster könnte nicht geöffnet werden. Bitte einstellungen.ini bearbeiten.", #PB_MessageRequester_Ok)
    End
EndIf
SetWindowTitle(0, "HTPC- Menu 0.1 (c) Markus Maiwald 02/10 - QuellCode und Programm Open Source >>DX9-Lib für BP (c) Michael Paulwitz<<")
;--------------------------------------------------------------------------------------------------------------------------------------------------
;    Hintergrund
If hintergrundbild$ : Sprite1 = MP_LoadSprite(hintergrundbild$)  : EndIf
;--------------------------------------------------------------------------------------------------------------------------------------------------
;    Würfel
Mesh        =    MP_CreateCube() ; Und jetzt eine Würfel
If wuerfelbild$ :    texture=MP_LoadTexture(wuerfelbild$) : MP_EntitySetTexture (Mesh, Texture ) : EndIf
;--------------------------------------------------------------------------------------------------------------------------------------------------
;     Sounds
InitSound()
If menu_sound_wav$    :    LoadSound(0,menu_sound_wav$) : EndIf
If back_sound_wav$    :    LoadSound(1,back_sound_wav$)     : PlaySound(1,#PB_Sound_MultiChannel) : EndIf
;--------------------------------------------------------------------------------------------------------------------------------------------------
camera    =    MP_CreateCamera() ; Kamera erstellen
light        =    MP_CreateLight(1) ; Es werde Licht
;--------------------------------------------------------------------------------------------------------------------------------------------------
; Font
font1     =         MP_loadFont (fontname$,fontsize,fontbold,fontitalic); "Fontname",Groesse,bold,italic
font2     =         MP_loadFont (fontname2$,fontsize2,fontbold2,fontitalic2); "Fontname",Groesse,bold,italic
font3_uhr    =     MP_loadFont ("Arial",15,0,0); "Fontname",Groesse,bold,italic
;--------------------------------------------------------------------------------------------------------------------------------------------------
xx        =    100
;x=(SCREEN_W/2)-200
y        =    (SCREEN_H/2)-80
y2        =    (SCREEN_H/2)-80
;abstand=150
b        =    abstand/15 ; =10 Pixel scrollen bei abstand 150 
;bb        =    6
tol1    =    0
toladd    =    5
wi        =    0
xw.f    =    -50.0
xwadd.f=    1.0
col        =    0
colladd    =    1
uhrzoom.f=    1
uhrzoomadd.f=0.1
loadedsmallimage=0
loadedsmallimage_fade=0
memo_y=    0
memo_y_add=1
memosx.f=0
memosy.f=0
evenodd=0
memo_x=10
memotimer=0
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

        If file$(bildtimername+1)
            If loadedsmallimage : MP_FreeSprite(loadedsmallimage) : EndIf
                If  IsImage(99) : FreeImage(99) : EndIf
                If bild_texture : MP_FreeTexture(bild_Texture) : EndIf
                If LoadImage(99,file$(bildtimername+1))
                If ImageWidth(99)<>480
                    ResizeImage(99,480,360,#PB_Image_Raw)
                EndIf
                bild_Texture = MP_ImageToTexture(99)
                loadedsmallimage=MP_SpriteFromTexture(bild_texture)
            EndIf
            bildtimer=0
            loadedsmallimage_fade=0
            bildtimername+1
        Else
            bildtimername=1    
        EndIf
        bildtimer=1

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
MP_PositionEntity (Mesh,wuerfelpos_x,wuerfelpos_y,wuerfelpos_z) ; Position des Würfels
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
While Not MP_KeyDown(#PB_Key_Return) And Not MP_WindowEvent() = #PB_Event_CloseWindow; Return abfrage oder Windows Schliessen

;-------------------------------------------------------------------------------
If hintergrundbild$ : MP_DrawSprite(Sprite1,0,0,128) : EndIf
;-------------------------------------------------------------------------------
If bilderpfad$
    bildtimer+1
    
    If bildtimer=2000
        If file$(bildtimername+1)
            If loadedsmallimage : MP_FreeSprite(loadedsmallimage) : EndIf
                If  IsImage(99) : FreeImage(99) : EndIf
                If bild_texture : MP_FreeTexture(bild_Texture) : EndIf
                If LoadImage(99,file$(bildtimername+1))
                If ImageWidth(99)<>480
                    ResizeImage(99,480,360,#PB_Image_Raw)
                EndIf
                bild_Texture = MP_ImageToTexture(99)
                loadedsmallimage=MP_SpriteFromTexture(bild_texture)
            EndIf
            bildtimer=0
            loadedsmallimage_fade=0
            bildtimername+1
        Else
            bildtimername=1    
        EndIf
        bildtimer=1
    EndIf
    
EndIf
;-------------------------------------------------------------------------------
If loadedsmallimage 
If bildtimer>1750 : loadedsmallimage_fade-1
Else
    If loadedsmallimage_fade<255 : loadedsmallimage_fade+1 : EndIf
EndIf

MP_DrawSprite(loadedsmallimage,bilderpfad_x,bilderpfad_y,loadedsmallimage_fade)
EndIf

;-------------------------------------------------------------------------------
If ok=1
         If menu_sound_wav$ : PlaySound(0,#PB_Sound_MultiChannel) : EndIf
         ok=0
          If evenodd=0 : evenodd=1 : Else : evenodd=0 : EndIf
EndIf    
;-------------------------------------------------------------------------------



a$=textdatentabelle$(counter)
a$ = ReplaceString(a$,"~",Chr(10)) 
zeilen = CountString(a$,Chr(10))
h=MP_TextGetHeight(a$) 
MP_DrawText (-100,-100,"X",font2)

ystop=(SCREEN_H/2)*0.8
    If memo_y>=ystop
         memo_y = ystop 
    Else
        memo_y+memo_y_add
    EndIf
    If memosx<100
    memosx+0.5
    memosy+0.5
    EndIf
    MP_ScaleText(memosx,memosx)
    MP_DrawText (memo_x+10,0-h-50+memo_y,a$,font2,$99000000+memo_farbe,0,0)
    MP_ScaleText(100,100)    

If fadememo=0
    mem_text$=a$
    mem_x=memo_x+10
    mem_y=0-h-50+memo_y
Else
    MP_DrawText (mem_x,mem_y,mem_text$,font2,$99000000+memo_farbe,0,0)
    mem_x-4
    If mem_x<-1000 : fadememo=0 : EndIf
EndIf

;-------------------------------------------------------------------------------
            
If y2=y 
      If counter<spnr-1
            If MP_KeyDown(#PB_Key_Down)     : y2=y-150     : last=counter    : counter+1 : exittimer=0 : ok=1 :  EndIf
        EndIf
        If counter>0
            If MP_KeyDown(#PB_Key_Up)    : y2=y+150    : last=counter    : counter-1 : exittimer=0 : ok=1   : EndIf
     EndIf
     sc=100
      sc2=(bb*(abstand/b))+sc
      sc2ok=sc2
      memotimer+1
 EndIf


If y2<y    : y = y - b    : EndIf
If y2>y    : y = y + b     : EndIf    
;-------------------------------------------------------------------------------
xw.f=xw.f+xwadd.f
If xw=50    : xwadd=-1    : EndIf
If xw=-50     : xwadd=1    : EndIf
;-------------------------------------------------------------------------------
If y2<>y
memotimer=0
fadememo=1
memo_y=0
memosx=0
memosy=0
sc=sc+bb
sc2=sc2-bb
For i=0 To spnr-1
        If i=last
            MP_ScaleText(sc2,sc2)
            MP_DrawText (x+xw,y+(abstand*i),datentabelle2$(i),font1,$aa000000+farbe2,0,0)
            Continue
        EndIf
        If i<>counter
            MP_ScaleText(100,100)
            MP_DrawText (x,y+(abstand*i),datentabelle2$(i),font1,$aa000000+farbe2,0,0)
        Else
            ;Debug sc
            MP_ScaleText(sc,sc) 
            MP_DrawText (x+xw,y+(abstand*i),datentabelle2$(i),font1,$ff000000+farbe1,0,0)
        EndIf
Next i
EndIf

If y2=y
    For i=0 To spnr-1
        If i<>counter
            MP_ScaleText(100,100)
            MP_DrawText (x,y+(abstand*i),datentabelle2$(i),font1,$aa000000+farbe2,0,0)
        Else
            MP_ScaleText(sc2ok,sc2ok) 
            MP_DrawText (x+xw,y+(abstand*i),datentabelle2$(i),font1,$ff000000+farbe1,0,0)
        EndIf
Next i
EndIf
;-------------------------------------------------------------------------------
col=col+coladd
If col=255    : coladd=-1    : EndIf
If col=0     : coldd=1    : EndIf
;-------------------------------------------------------------------------------
tol1=tol1+toladd
If tol1=255    : toladd=-5    : EndIf
If tol1=0     : toladd=5    : EndIf

;-------------------------------------------------------------------------------
wi+1 : If wi=361 : wi=0 : EndIf


;MP_ScaleText(36000/wi,36000/wi)
MP_ScaleText(100,100)
MP_DrawText(1820,30-(xw/2),FormatDate("%hh:%ii:%ss", Date()),font3_uhr,$ff45CDBA,2,-wi)
MP_DrawText(1820,60+(xw/2),FormatDate("%dd:%mm:%yy", Date()),font3_uhr,$ff9FD560,2,wi)

;-------------------------------------------------------------------------------

MP_TurnEntity (Mesh,0.3,0.3,0.3) 


;MP_PositionEntity (plane,-3,-1,5) 
;MP_TurnEntity (plane,0.3,0.3,0.3) 
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
     MP_RenderWorld() ; Erstelle die Welt
     MP_Flip () ; Stelle Sie dar
Wend

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
fadeout.f=128
fadeout2.f=255
ende=1
x1=x
col=$ffaaffff
z.f=5
bildtimer=256
While ende=1
x+10
fadeout-0.5
fadeout2-1
xw=xw-2
col=col-100
For i=0 To spnr-1
        If i<>counter
            MP_ScaleText(100,100)
            MP_DrawText (x,y+(abstand*i),datentabelle2$(i),font1,$ff000000+farbe2,0,0)
        Else
            MP_ScaleText(sc2ok,sc2ok) 
            rr=Red(farbe1)
            gg=Green(farbe1)
            bb=Blue(farbe1)
            MP_DrawText (x1+xw,y+(abstand*i),datentabelle2$(i),font1,MP_ARGB(fadeout2,rr,gg,bb),0,0)
        EndIf

Next i
If fadeout=0 : fadeout=0.5 : EndIf
If fadeout2=0 : fadeout2=1 : EndIf
MP_DrawSprite(Sprite1,0,0,fadeout)
If x=3800 : ende=0 : EndIf
z=z-0.01
MP_PositionEntity(Mesh,-3.2,1.7,z) ; Position des Würfels
MP_TurnEntity (Mesh,0.3,0.3,0.3) 



If loadedsmallimage 
If loadedsmallimage_fade<>1
    If bildtimer>255 : loadedsmallimage_fade-1
    Else
        If loadedsmallimage_fade<255 : loadedsmallimage_fade+1 : EndIf
    EndIf
    MP_DrawSprite(loadedsmallimage,bilderpfad_x,bilderpfad_y,loadedsmallimage_fade)
    EndIf
EndIf

MP_RenderWorld() ; Erstelle die Welt
     MP_Flip () ; Stelle Sie dar
Wend
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Delay(500)

a1$=StringField(datentabelle$(counter),1,Chr(44))
a2$=StringField(datentabelle$(counter),2,Chr(44))
a3$=StringField(datentabelle$(counter),3,Chr(44))

If a1$
    Ergebnis = RunProgram(a1$,a2$,a3$)
EndIf
End
Nach oben
Benutzeravatar
Tur0k
Beiträge: 187
Registriert: 16.02.2009 21:41
Computerausstattung: 4.00 GB RAM, 2x 2.20Ghz, 340GB+500GB

Re: HTPC-Menu V0.1 - gelöscht

Beitrag von Tur0k »

Finde ich gar nicht so schlecht! :allright:
Der Menu-Effekt gefällt mir sehr.
buuh* :D
Nach oben
Antworten

Zurück zu „Code, Tipps und Tricks“