Aktualisieren eines Textes

Anfängerfragen zum Programmieren mit PureBasic.
Antworten
Benutzeravatar
Tsuki-Namida
Beiträge: 633
Registriert: 17.11.2005 13:27
Kontaktdaten:
Kontaktdaten von Tsuki-Namida

Aktualisieren eines Textes

Beitrag von Tsuki-Namida »

Hallo,
ich möchte in meinem Tool einen Text aktualisieren.
wie das funktioniert ist mir bekannt mit hilfe des CallDebugger habe ich auch gesehen das die Programm Zeilen durchgegangen werden, nur in der Tool oberfläche eindert sich der text nicht.... hier mal ein teil Quellentext:

Code: Alles auswählen

  If Time >= 9000
    CallDebugger
    IncludeFile "Lesen.pb"
  If Zuhorer$ = ""
    SetGadgetText(#Horer, "0")
  Else
    SetGadgetText(#Horer, Zuhorer$)
  EndIf
  SetGadgetText(#Nechste_Titel, Nechter$)
  SetGadgetText(#Titel_Spielt, Titel$)
  Zuhorer$ = "":Nechter$ = "":Titel$ = ""
    Time = 0
  EndIf
hier noch die gerufene "Lesen.pb":

Code: Alles auswählen

URLDownloadToFile_(0, "http://www.komoro.de/radio/php1/playing.php", GetExePath() + "Text.txt", 0, 0)
If ReadFile(0, GetExePath() + "Text.txt")
  ;Debug "Datei geöffnet"
 ; Debug Eof(0)
  While Eof(0) = 0
    html$ = ReadString()
    If FindString(html$, "Komoro beschallt soeben", 1)
      Temp$ = RemoveString(html$, "Das Schlossradio - Komoro beschallt soeben ")
      Zuhorer$ = RemoveString(Temp$, " Zuhörer !<br><br><p>Gesendet wird")
      Debug Zuhorer$
      ;MessageRequester("Information","Im Schlossradio sind zurzeit " + Zuhorer$ + " Zuhörer.")
    EndIf
    If FindString(html$,"<td ><font size=" + Chr(34) + "3" + Chr(34) , 1)
      Temp$ = RemoveString(html$, "    <td ><font size="); + Chr(34) + "3" + Chr(34) + "color=" + Chr(34) + "#003366" + Chr(34) + "><small>")
      Temp$ = RemoveString(Temp$, Chr(34) + "3" + Chr(34)); + "color=" + Chr(34) + "#003366" + Chr(34) + "><small>")
      Temp$ = RemoveString(Temp$, "color=" + Chr(34) + "#003366" + Chr(34) + "><small>")
      Temp$ = RemoveString(Temp$, "</small></font></td>")
      Debug Temp$
      If Titel$ = ""
        Titel$ = Temp$
      EndIf
      ;MessageRequester("Information","Im Schlossradio ist gerade "+ Titel$ + "zu hören.")
    EndIf
    If FindString(html$,"&nbsp; " , 1)
      Temp$ = RemoveString(html$, "&nbsp;")
      Temp$ = RemoveString(Temp$, "</b></font></td></tr></marquee>")
      Debug Temp$
      Nechter$ = Temp$
    EndIf
    If FindString(html$,"img id=" + Chr(34) + "Picture1", 1)
      Posi = FindString(html$,"http://www.komoro.de" , 1)
      Temp$ = Mid(html$, Posi, Len(html$))
      Temp$ = RemoveString(Temp$, Chr(34) + " alt=")
      Temp$ = RemoveString(Temp$, Chr(34) + "CD Kaufen!")
      Temp$ = RemoveString(Temp$, Chr(34) + " border=0></a>")
      Debug Temp$
      URLDownloadToFile_(0, Temp$, GetExePath() + "Cover.jpg", 0, 0)
      
    EndIf
  Wend
  CallDebugger

  CloseFile(0)
  If a <> 1
    If Zuhorer$ = ""
      SetGadgetText(#Horer, "0")
    Else
      SetGadgetText(#Horer, Zuhorer$)
    EndIf
    SetGadgetText(#Nechste_Titel, Nechter$)
    SetGadgetText(#Titel_Spielt, Titel$)
    Zuhorer$ = "":Nechter$ = "":Titel$ = ""
    a = 1
  EndIf
Else
  MessageRequester("Information","Konnte Datei nicht öffnen!")
EndIf
Nach oben
Benutzeravatar
Frogger
Beiträge: 425
Registriert: 14.03.2006 19:27
Kontaktdaten:
Kontaktdaten von Frogger

Beitrag von Frogger »

Füge mal hinter das letzte SetGadgetText() ein WindowEvent() ein

Dadurch werden alle Änderungen im Fenster aktualisiert.

Entweder hilft das was oder ich hab da was falsch verstanden. /:->

Gruß frogger
[PB4.20]
Nach oben
Benutzeravatar
Tsuki-Namida
Beiträge: 633
Registriert: 17.11.2005 13:27
Kontaktdaten:
Kontaktdaten von Tsuki-Namida

Beitrag von Tsuki-Namida »

Das klapt leider nicht :(

ich habe es jetzt auch anstat SetGadgetText, mit TextGadget also den text neu setzen versucht..... aber das klapt auch nicht :(
Nach oben
Benutzeravatar
mk-soft
Beiträge: 3855
Registriert: 24.11.2004 13:12
Wohnort: Germany

Beitrag von mk-soft »

Hi,

Vermisse zum Beispiel:

Code: Alles auswählen

Repeat
    Event = WaitWindowEvent()
Until event = #PB_Event_CloseWindow
Programme mit Fenstern müssen die Event´s (Messages von Betriebssystem) abgearbeitet werden. Das wird nur erledigt wenn WaitWindowEvent() oder WindowEvent() auch aufgerufen wird. Einmal aufrufen reicht nicht, denn es kommen einige Messages zusammen wenn zum Beispiel der Inhalt eines Fensters geändert wird.

Sollte damit funktionieren.

FF :wink:
Alles ist möglich, fragt sich nur wie...
Projekte ThreadToGUI / EventDesigner V3 / OOP-BaseClass-Modul
Downloads auf MyWebspace / OneDrive
Nach oben
Benutzeravatar
mk-soft
Beiträge: 3855
Registriert: 24.11.2004 13:12
Wohnort: Germany

Beitrag von mk-soft »

P.S.
Bitte wenn es geht dein Code so reinstellen das man ihn auch ausprobieren kann und nicht erst noch was basteln muss wie "GetExePath()"

FF :allright:
Alles ist möglich, fragt sich nur wie...
Projekte ThreadToGUI / EventDesigner V3 / OOP-BaseClass-Modul
Downloads auf MyWebspace / OneDrive
Nach oben
Benutzeravatar
Tsuki-Namida
Beiträge: 633
Registriert: 17.11.2005 13:27
Kontaktdaten:
Kontaktdaten von Tsuki-Namida

Beitrag von Tsuki-Namida »

okay hier der ganze code:
Fenster.pb

Code: Alles auswählen

;
; PureBasic Visual Designer v3.92 build 1460


;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Text_0
  #Text_1
  #Horer
  #Text_3
  #Text_4
  #Text_5
  #Image_1
  #Nechste_Titel
  #Text_7
  #Cover
  #Titel_Spielt
  #RadioStart
  #RadioStop
  #Home
  #Chat
  #Button_5
  #Text_9
  #Volume
EndEnumeration

;- Fonts
Global FontID1
FontID1 = LoadFont(1, "Times New Roman", 28)
Global FontID2
FontID2 = LoadFont(2, "Times New Roman", 16)
;- Image Plugins

;- Image Globals
Global Image0
Global Image1

;- Catch Images
Image0 = CatchImage(0, ?Image0)
Image1 = CatchImage(1, ?Image1)

;- Images
DataSection
Image0:
  IncludeBinary "img\mp3pro.ico"
Image1:
  IncludeBinary "img\mp3pro.ico"
EndDataSection

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 202, 77, 600, 300,  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar , "Schlossradio")
    If CreateGadgetList(WindowID())
      TextGadget(#Text_0, 70, 5, 445, 35, "Schlossradio www.komoro.de ")
      SetGadgetFont(#Text_0, FontID1)
      TextGadget(#Text_1, 20, 115, 90, 15, "Es werden Zurzeit")
      TextGadget(#Horer, 110, 115, 20, 15, "0",#PB_Text_Center)
      TextGadget(#Text_3, 133, 115, 100, 15, "Zuhörer Regestriert")
      TextGadget(#Text_4, 20, 135, 125, 15, "Als nächstes wird gespielt:")
      TextGadget(#Text_5, 65, 65, 285, 25, "Gesendet und Empfangen wird im")
      SetGadgetFont(#Text_5, FontID2)
      ImageGadget(#Image_1, 360, 50, 114, 62, Image0)
      TextGadget(#Nechste_Titel, 150, 135, 440, 30, "")
      TextGadget(#Text_7, 20, 170, 70, 15, "Gespielt Wird:")
      ImageGadget(#Cover, 25, 195, 80, 80, Image1)
      TextGadget(#Titel_Spielt, 90, 170, 220, 30, "")
      ButtonGadget(#RadioStart, 245, 235, 75, 25, "Starten")
      ButtonGadget(#RadioStop, 245, 260, 75, 25, "Stop")
      ButtonGadget(#Home, 490, 220, 75, 25, "Strat Seite")
      ButtonGadget(#Chat, 490, 245, 75, 25, "Chat/Forum")
      ButtonGadget(#Button_5, 245, 210, 75, 25, "Audio Config")
      TextGadget(#Text_9, 325, 170, 20, 15, "Vol")
      TrackBarGadget(#Volume, 325, 185, 25, 110, 0, 255, #PB_TrackBar_Vertical)
      
    EndIf
  EndIf
EndProcedure
Exe_finder.pb

Code: Alles auswählen

Procedure.s GetExePath()
  Prg.s = Space(#MAX_PATH)
  GetModuleFileName_(GetModuleHandle_(0), @Prg, #MAX_PATH)
  Prg = GetPathPart(Prg)
  If (FindString(prg,"\PureBasic\Compilers\", 1))
    Prg.s = Space(#MAX_PATH)
    GetCurrentDirectory_(#MAX_PATH,@Prg)
  EndIf
If Right(Prg, 1) <> "\" : Prg + "\" : EndIf
  ProcedureReturn Prg
  teste$ = Prg.s
EndProcedure
Lesen.pb

Code: Alles auswählen

URLDownloadToFile_(0, "http://www.komoro.de/radio/php1/playing.php", GetExePath() + "Text.txt", 0, 0)
If ReadFile(0, GetExePath() + "Text.txt")
  ;Debug "Datei geöffnet"
 ; Debug Eof(0)
  While Eof(0) = 0
    html$ = ReadString()
    If FindString(html$, "Komoro beschallt soeben", 1)
      Temp$ = RemoveString(html$, "Das Schlossradio - Komoro beschallt soeben ")
      Zuhorer$ = RemoveString(Temp$, " Zuhörer !<br><br><p>Gesendet wird")
      Debug Zuhorer$
      ;MessageRequester("Information","Im Schlossradio sind zurzeit " + Zuhorer$ + " Zuhörer.")
    EndIf
    If FindString(html$,"<td ><font size=" + Chr(34) + "3" + Chr(34) , 1)
      Temp$ = RemoveString(html$, "    <td ><font size="); + Chr(34) + "3" + Chr(34) + "color=" + Chr(34) + "#003366" + Chr(34) + "><small>")
      Temp$ = RemoveString(Temp$, Chr(34) + "3" + Chr(34)); + "color=" + Chr(34) + "#003366" + Chr(34) + "><small>")
      Temp$ = RemoveString(Temp$, "color=" + Chr(34) + "#003366" + Chr(34) + "><small>")
      Temp$ = RemoveString(Temp$, "</small></font></td>")
      Debug Temp$
      If Titel$ = ""
        Titel$ = Temp$
      EndIf
      ;MessageRequester("Information","Im Schlossradio ist gerade "+ Titel$ + "zu hören.")
    EndIf
    If FindString(html$,"&nbsp; " , 1)
      Temp$ = RemoveString(html$, "&nbsp;")
      Temp$ = RemoveString(Temp$, "</b></font></td></tr></marquee>")
      Debug Temp$
      Nechter$ = Temp$
    EndIf
    If FindString(html$,"img id=" + Chr(34) + "Picture1", 1)
      Posi = FindString(html$,"http://www.komoro.de" , 1)
      Temp$ = Mid(html$, Posi, Len(html$))
      Temp$ = RemoveString(Temp$, Chr(34) + " alt=")
      Temp$ = RemoveString(Temp$, Chr(34) + "CD Kaufen!")
      Temp$ = RemoveString(Temp$, Chr(34) + " border=0></a>")
      Debug Temp$
      URLDownloadToFile_(0, Temp$, GetExePath() + "Cover.jpg", 0, 0)
      
    EndIf
  Wend
  CallDebugger

  CloseFile(0)
  If a <> 1
    If Zuhorer$ = ""
      SetGadgetText(#Horer, "0")
    Else
      SetGadgetText(#Horer, Zuhorer$)
    EndIf
    SetGadgetText(#Nechste_Titel, Nechter$)
    SetGadgetText(#Titel_Spielt, Titel$)
    Zuhorer$ = "":Nechter$ = "":Titel$ = ""
    a = 1
  EndIf
Else
  MessageRequester("Information","Konnte Datei nicht öffnen!")
EndIf
Examples.pb

Code: Alles auswählen

; PureBasic Visual Designer v3.92 build 1460

IncludeFile "Fenster.pb"
IncludeFile "Exe_finder.pb"


Open_Window_0()
IncludeFile "Lesen.pb"
Repeat ; Start of the event loop
  
  Event = WindowEvent() ; This line waits until an event is received from Windows
  Delay(1)
  Time + 1
  WindowID = EventWindowID() ; The Window where the event is generated, can be used in the gadget procedures
  
  GadgetID = EventGadgetID() ; Is it a gadget event?
  
  EventType = EventType() ; The event type
  If Time >= 9000
    
    IncludeFile "Lesen.pb"
  If Zuhorer$ = ""
    TextGadget(#Horer, 110, 115, 20, 15, "0", #PB_Text_Center)
  Else
    TextGadget(#Horer, 110, 115, 20, 15, Zuhorer$,#PB_Text_Center)
  EndIf
  TextGadget(#Nechste_Titel, 150, 135, 440, 30, Nechter$,#PB_Text_Center)
  TextGadget(#Titel_Spielt, 90, 170, 220, 30, Titel$,#PB_Text_Center)
  WindowEvent()
  Zuhorer$ = "":Nechter$ = "":Titel$ = ""
    Time = 0
  EndIf
  ;You can place code here, and use the result as parameters for the procedures
  
  If Event = #PB_EventGadget
    
    If GadgetID = #Image_1
      
    ElseIf GadgetID = #Cover
      
    ElseIf GadgetID = #RadioStart
      
    ElseIf GadgetID = #RadioStop
      
    ElseIf GadgetID = #Home
      
    ElseIf GadgetID = #Chat
      
    ElseIf GadgetID = #Button_5
      
    ElseIf GadgetID = #Volume
      
    EndIf
    
  EndIf
  
Until Event = #PB_Event_CloseWindow ; End of the event loop

End
;
Nach oben
Antworten

Zurück zu „Anfänger“