| |
|
|
« Dieser Contribución wurde como Solución gekennzeichnet. » |
|
- Página 1 - |
|
Julian Schmidt | Yo bin No sicher como Si es usted el genau media o. wo genau el problema liegt. Ein Code con beiliegenden Gráficos sería como ya mehr Aufschluss geben.
Yo versuchs todavía veces. Hilft dir evtl. el? KompilierenMarcaSeparaciónCLS
Declare bm&, pic&[]
pic&[1]=Create("hNewPic", width(%hwnd)-20, 110, RGB(255,255,255))
pic&[2]=Create("hNewPic", width(%hwnd)-20, 110, RGB(255,255,255))
pic&[3]=Create("hNewPic", width(%hwnd)-20, 110, RGB(255,255,255))
bm&=Create("Bitmap", %hwnd, pic&[1], 10, 10)
Whileloop 3
StartPaint pic&[&loop]
UsePen 0,0,0
UseBrush 4,RGB(255,0,0)
Rectangle 0,0 - (%BmpX/3)*&loop,110
EndPaint
Sendmessage(bm&,$172,0,pic&[&loop])
Waitinput
EndWhile
end
|
|
|
| |
|
|
|
|
E.T. | Lauffähiges Ejemplo ?? Aus el 3 Zeilen Gewusel probablemente keiner schlau |
|
|
| XProfan X2Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 07.01.2014 ▲ |
|
|
|
|
Tommy | @ Julian: Besten Dank, genau así quería ich's hacer.... Hab Yo wohl a simplemente vorgestellt. @ E.T.: Gracias fürs Ansehen. Anbei nochmals el Geschnipsel lauffähig rausgeschnitten: El Bmp's son igual große Gráficos, el el Fortschrittbalken jeweils en una Drittel größer zeigen. ¿Por qué Yo el Gráficos no übereinander legen kann???? KompilierenMarcaSeparaciónDeclare eins%,zwei%,drei%,F%
cls
eins%=@Create("hSizedPic", -1, "eins.bmp",128, 20, 1)
zwei%=@Create("hSizedPic", -1, "zwei.bmp",128, 20, 1)
drei%=@Create("hSizedPic", -1, "drei.bmp",128, 20, 1)
while f%<>3
f%=f%+1
print f%
if f%=1:@Create("Bitmap", %hWnd, eins%, 240, 110):DeleteObject eins%:endif
if f%=2:@Create("Bitmap", %hWnd, zwei%, 240, 110):DeleteObject zwei%:endif
if f%=3:@Create("Bitmap", %hWnd, drei%, 240, 110):DeleteObject drei%:endif
SLEEP 1500
| 07.01.2014 ▲ | |
|
|
|
|
Thomas Freier | Yo sería el Grafik sustituir KompilierenMarcaSeparacióncls rgb(0,0,255)
MCls 100, 30 ,rgb(255,255,255)
var pic0&=Create("hPic",0,"&MEMBMP" )
MCls 100, 30 ,rgb(0,255,0)
var pic1&=Create("hPic",0,"&MEMBMP" )
MCls 100, 30 ,rgb(255,0,0)
var pic2&=Create("hPic",0,"&MEMBMP" )
MCls 100, 30 ,rgb(155,155,155)
var pic3&=Create("hPic",0,"&MEMBMP" )
var f%=0
var bmp&=Create("Bitmap", %hwnd, pic0&, 20, 20)
inc f%
case f%=1: Sendmessage(Bmp&,$0172,0,Pic1&)
waitinput
inc f%
case f%=2: Sendmessage(Bmp&,$0172,0,Pic2&)
waitinput
inc f%
case f%=3: Sendmessage(Bmp&,$0172,0,Pic3&)
waitinput
f%=0
case f%=0: Sendmessage(Bmp&,$0172,0,Pic0&)
waitinput
DeleteObject bmp&, pic1&,pic2&,pic3&
|
|
|
| |
|
|
|
E.T. | |
|
| XProfan X2Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 07.01.2014 ▲ |
|
|
|
|
Julian Schmidt | E.T. (07.01.14)
Yo sería el Gráficos weglassen y 'nen Fortschrittsbalken nehmen
Wäre auch mein nächster Gedanke gewesen.
Passend dazu Progressbar.inc [...] |
|
|
| |
|
|
|
Jörg Sellmeyer | y yo sería media Code en entsprechende Code-Tags conjunto, Luego se él erstens mejor lesbar y zweitens no "versmileyiet". Yo hab's veces para dich gemacht. |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08.01.2014 ▲ |
|
|
|
|
Tommy | Besten Dank a todos! Diese Unterstützung en meiner ersten Anfrage hätte Yo no esperado. Code-Tags abgeschaut, se así gemacht y el Möglichkeiten el Anzeige hinzukriegen "lade" Yo veces... |
|
|
| |
|
|
|
p.specht
| Hi Landsmann! Viel Spass con X2! |
|
|
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 13.02.2014 ▲ |
|
|
|
|
Tommy | ¡Hola auch! Yo bin sí desafortunadamente en Profano todavía Principiante, aber el Lingua liegt me como altem prozeduralen Programmierer. Kann como auch todavía media Spaghetti-Code ausleben y muss no zwingend objektorientiert werkeln. Bin en gute Ratschläge siempre angewiesen y habe en efecto ya tolle Unterstützung en el Foro obtener. Wünsche auch Usted weiterhin viel Spaß y danke para Su Wünsche! |
|
|
| |
|
|