Seite 2 von 5
Verfasst: 07.10.2006 16:09
von MVXA
einfach Bilder runter laden, wobei die url dann so aussieht:
http://lovepixel.t35.com/cover_07/x.png
wobei x dann von 0 bis 400 geht.
Verfasst: 07.10.2006 16:15
von Kiffi
MVXA hat geschrieben:einfach Bilder runter laden, wobei die url dann so aussieht:
[...]
genau. Ich wundere mich, dass das noch keiner von Euch in Form eines
PB-Programmes umgesetzt hat. Sollen wir mal einen inoffiziellen Contest
ausrufen?
Grüße ... Kiffi
Verfasst: 07.10.2006 16:19
von Kaeru Gaman
boah... iso bis zum abwinken.. is ja mal grell...
@MVXA
von wegen, so geht dat nich...
Verfasst: 07.10.2006 16:26
von winduff
das ist wirklich zu geil
Als game wäre des was tolles
Code: Alles auswählen
For x = 1 To 400
Debug "Downloading "+Str(x)
UrlDownloadToFile_(0,"http://lovepixel.t35.com/cover_07/"+Str(x)+".png",Str(x)+".png",0,0)
Next
@Kaeru... bei mir gehts
Verfasst: 07.10.2006 16:32
von Kaeru Gaman
ok.. downloaden geht, im browser anzeigen nich...
btw:
bessere ordnung auf der platte:
im dateinamen ändern:
PS:
der wird heut gucken, was er fürn tierischen traffic hat....
Verfasst: 07.10.2006 16:35
von winduff
Was doch ganz toll wäre:
Ein Sight-Seeing Programm, mit Index usw
Allerdings dürfte man die Grafiken nicht mitliefern im Programm, müsste sich jeder selber auf eigene Verantwortung saugen.
Nungut habe jetz meine 400 Bilder
Verfasst: 07.10.2006 16:39
von Kiffi
> Ein Sight-Seeing Programm
das wäre schon klasse. Es gab früher auf dem NDR so'ne Art Pausenfüller,
wo die Kamera über ein riesiges gezeichnetes Bild 'flog' und somit immer nur
einen kleinen Ausschnitt zeigte. Das wäre doch mit PB ein Klacks, oder?
> Allerdings dürfte man die Grafiken nicht mitliefern im Programm, müsste
> sich jeder selber auf eigene Verantwortung saugen.
das sowieso.
Grüße ... Kiffi
Verfasst: 07.10.2006 16:39
von #NULL
>>Das würde ich mal gerne als ganzes ansehen. Geht das irgendwie ?
naja, dazu bräuchtest du nen ziemlich großen bildschirm oder drucker.
wer will, könnte ja mal im fullscreen scrollen. dazu die müßte man seite speichern, und aus dem ordner, wo die bilder drin sind diesen code starten. mit rechter maustaste scrollt es schneller.
..aber wie kiffi schon sagte: copyright beachten! ..es also nicht ausprobieren!
Code: Alles auswählen
;#screenW=640 : #screenH=480 : _setRR=1
;#screenW=800 : #screenH=600 : _setRR=1
;#screenW=1024: #screenH=768
;#screenW=1152 : #screenH=864
;#screenW=1600 : #screenH=1200 : _setRR=1
#screenW=1280 : #screenH=1024 : _setRR=1
InitSprite()
InitMouse()
InitKeyboard()
If _setRR :: SetRefreshRate(60) :: EndIf
If Not OpenScreen(#screenW,#screenH,32,"lovepixel") :: MessageRequester("error","openscreen failed!") :: End :: EndIf
UsePNGImageDecoder()
Dim pics(19,19)
For k=0 To 19
For i=1 To 20
pics(i-1,k)=LoadSprite(#PB_Any,Str(i+20*k)+".png")
StartDrawing( ScreenOutput() )
Box(#screenW/2-200, #screenH/2, 404, 14, $ff0000)
Box(#screenW/2-198, #screenH/2+2, i+20*k, 10, $ff5555)
StopDrawing()
FlipBuffers()
Next
Next
Repeat
ExamineKeyboard()
ExamineMouse()
mx=MouseX()
my=MouseY()
mb2=MouseButton(2)
If mx=0 :: xOff+64+64*mb2
ElseIf mx=#screenW-1 :: xOff-64-64*mb2
EndIf
If my=0 :: yOff+64+64*mb2
ElseIf my=#screenH-1 :: yOff-64-64*mb2
EndIf
If xOff>100 :: xOff=100 :: EndIf
If xOff<20*-500-100+#screenW :: xOff=20*-500-100+#screenW :: EndIf
If yOff>100 :: yOff=100 :: EndIf
If yOff<20*-500-100+#screenH :: yOff=20*-500-100+#screenH :: EndIf
For k=0 To 19
For i=1 To 20
x = xOff + (i-1)*500
y = yOff + k*500
If x>=-500 And x<#screenW And y>=-500 And y<#screenH And pics(i-1,k)
DisplaySprite( pics(i-1,k), x, y )
EndIf
Next
Next
StartDrawing( ScreenOutput() )
Circle(mx,my,3,$00ff00)
StopDrawing()
FlipBuffers(1)
ClearScreen(0)
;Delay(1)
Until KeyboardReleased(#PB_Key_Escape)
<edit: huch, hier gibt's ja schon ne zweite seite
>
<edit2> bildschrimauflösung ( und refreshrate ) anpassen!
Verfasst: 07.10.2006 16:42
von winduff
Sicher geiler Code -> Allerdings kann ich keinen Screen öffnen
kA warum ich schaus mir gleich an
Verfasst: 07.10.2006 16:44
von #NULL
jip, mußt wahrscheinlich die auflösung ändern und/oder die refreshrate rausnehmen/ändern
<edit>die bilder werden als 1.png bis 400.png erwartet, aber der browser wird ja beim speichern sicherlich die originalnamen verwenden.
