| |
| |
|
Nico
Madysa | cela venez raus, si je ennui hab  :
EX% / EY% = Anzahl qui Spalten / Zeilen, jeweils -1
var ex% = 4
var ey% = 3
qui reste ergibt sich de selbst
var dx% = %MaxX / (ex% + 1)
var dy% = %MaxY / (ey% + 1)
var x% = ex%
var y% = ey%
var altdir% = 0
declare dir% , bed% , gis%
Fenêtre Style 1024 + 240
Fenêtre 0 , 0 - %MaxX , %MaxY + 5
Titre de la fenêtre Bildschirmschoner
Randomiser
UseBrush 1 , 0
ShowCursor 0
Entfernen qui unbenötigten Teile
Rectangle (ex%+1)*dx%,0 - %MaxX,%MaxY
Rectangle 0,(ey%+1)*dy% - %MaxX,%MaxY
Rectangle ex%*dx%,ey%*dy%-(ex%+1)*dx%,(ey%+1)*dy%
tandis que gis% < 10
clear bed%
altdir% = dir%
repeat
dir% = Tour(4) ^0 v1 <2 >3
cas ((dir% = 0) and (y% <> 0)) : inc bed%
cas ((dir% = 1) and (y% <> ey%)) : inc bed%
cas ((dir% = 2) and (x% <> 0)) : inc bed%
cas ((dir% = 3) and (x% <> ex%)) : inc bed%
cas ((altdir% + dir% = 1) or (altdir% + dir% = 5)) : clear bed%
until bed%
Select dir%
CaseOf 0 HOCH
whileloop ((y% - 1) * dy%) , ((y% * dy%) - 1) , 1
CopyBMP (x% * dx%) , &loop - dx% , dy% > (x% * dx%) , (&loop + 1) ; 0
Line (x% * dx%) , &loop - (((x% + 1) * dx%) - 1) , &loop
cas %GetInputState : inc gis%
Sleep 1
Endwhile
dec y%
CaseOf 1 RUNTER
whileloop ((y% + 1) * dy%) , ((y% * dy%) + 1) , (-1)
CopyBMP (x% * dx%) , &loop - dx% , dy% > (x% * dx%) , (&loop - 1) ; 0
Line (x% * dx%) , (&loop + dy% - 1) - (((x% + 1) * dx%) - 1) , (&loop + dy% - 1)
cas %GetInputState : inc gis%
Sleep 1
Endwhile
inc y%
CaseOf 2 LINKS
whileloop ((x% - 1) * dx%) , ((x% * dx%) - 1) , 1
CopyBMP &loop , (y% * dy%) - dx% , dy% > (&loop + 1) , (y% * dy%) ; 0
Line &loop , (y% * dy%) - &loop , (((y% + 1) * dy%) - 1)
cas %GetInputState : inc gis%
Sleep 1
Endwhile
dec x%
CaseOf 3 RECHTS
whileloop ((x% + 1) * dx%) , ((x% * dx%) + 1) , (-1)
CopyBMP &loop , (y% * dy%) - dx% , dy% > (&loop - 1) , (y% * dy%) ; 0
Line (&loop + dx% - 1) , (y% * dy%) - (&loop + dx% - 1) , (((y% + 1) * dy%) - 1)
cas %GetInputState : inc gis%
Sleep 1
Endwhile
inc x%
EndSelect
cas %GetInputState : inc gis%
Wend
ShowCursor 1
end
|
 |
| |
| |
| |
|
|
Paul
Glatz | Giebts cela aussi pour XProfan 8.0
Paul |
|
| |
| |
| |
|
|
Dietmar
Horn | allô Paul,
ici qui Code pour XProfan 8, avec cela Du jusqu'à vendredi pas allzu viel ennui la hâte:
EX% / EY% = Anzahl qui Spalten / Zeilen, jeweils -1
declare ex%,ey%
ex% = 4
ey% = 3
cela sieht aussi droite gentil aus:
ex% = 19
ey% = 13
qui reste ergibt sich de selbst
declare dx%,dy%,x%,y%,altdir%
dx% = %MaxX / (ex% + 1)
dy% = %MaxY / (ey% + 1)
x% = ex%
y% = ey%
altdir% = 0
declare dir% , bed% , gis%
###########################################################
Fenêtre Style 1024 + 240
Fenêtre 0 , 0 - %MaxX , %MaxY + 5
Titre de la fenêtre Bildschirmschoner
Randomiser
UseBrush 1 , 0
ShowCursor 0
Entfernen qui unbenötigten Teile
Rectangle (ex%+1)*dx%,0 - %MaxX,%MaxY
Rectangle 0,(ey%+1)*dy% - %MaxX,%MaxY
Rectangle ex%*dx%,ey%*dy%-(ex%+1)*dx%,(ey%+1)*dy%
tandis que gis% < 10
clear bed%
altdir% = dir%
whilenot bed%
dir% = Tour(4)^0 v1 <2 >3
cas ((dir% = 0) and (y% <> 0)) : inc bed%
cas ((dir% = 1) and (y% <> ey%)) : inc bed%
cas ((dir% = 2) and (x% <> 0)) : inc bed%
cas ((dir% = 3) and (x% <> ex%)) : inc bed%
cas ((altdir% + dir% = 1) or (altdir% + dir% = 5)) : clear bed%
endwhile
si dir% = 0HOCH
whileloop ((y% - 1) * dy%) , ((y% * dy%) - 1) , 1
CopyBMP (x% * dx%) , &loop - dx% , dy% > (x% * dx%) , (&loop + 1) ; 0
Line (x% * dx%) , &loop - (((x% + 1) * dx%) - 1) , &loop
cas %GetInputState : inc gis%
Sleep 1
Endwhile
dec y%
elseif dir% = 1RUNTER
whileloop ((y% + 1) * dy%) , ((y% * dy%) + 1) , (-1)
CopyBMP (x% * dx%) , &loop - dx% , dy% > (x% * dx%) , (&loop - 1) ; 0
Line (x% * dx%) , (&loop + dy% - 1) - (((x% + 1) * dx%) - 1) , (&loop + dy% - 1)
cas %GetInputState : inc gis%
Sleep 1
Endwhile
inc y%
elseif dir% = 2LINKS
whileloop ((x% - 1) * dx%) , ((x% * dx%) - 1) , 1
CopyBMP &loop , (y% * dy%) - dx% , dy% > (&loop + 1) , (y% * dy%) ; 0
Line &loop , (y% * dy%) - &loop , (((y% + 1) * dy%) - 1)
cas %GetInputState : inc gis%
Sleep 1
Endwhile
dec x%
elseif dir% = 3RECHTS
whileloop ((x% + 1) * dx%) , ((x% * dx%) + 1) , (-1)
CopyBMP &loop , (y% * dy%) - dx% , dy% > (&loop - 1) , (y% * dy%) ; 0
Line (&loop + dx% - 1) , (y% * dy%) - (&loop + dx% - 1) , (((y% + 1) * dy%) - 1)
cas %GetInputState : inc gis%
Sleep 1
Endwhile
inc x%
elseif %GetInputState
inc gis%
endif
endwhile
ShowCursor 1
end
qu'est-ce qu'il ne faut pas faire alles pour son jüngstes Lieblings-Paulchen 
Salut
Dietmar  |
|
| |
| Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]  Windows 95 bis Windows 7 Profan² 6.6 bis XProfan X2 mit XPSE Das große XProfan-Lehrbuch: [...] | 19.02.2008 ▲ |
|
| |
|
|
Paul
Glatz | Läuft sous Vue pas
venez seulement un schwartzer bildschirm
Paul |
|
| |
| |
| |
|
|
Dietmar
Horn | Salut,
je peux en supplément pas viel dire, car malheureusement habe je ne...aucune Vue zum Testen. mais lente venez mir cela avec XProfan et Vue droite spanisch avant, car urplötzlich devoir plusieurs meiner Programme sous Vue pas plus korrekt marcher, qui jusqu'à XP einwandfrei courir.
j'ai déjà de mehreren Vue-Usern est, qui chez dem une un XProfan-Programme sous Vue funktioniert, et chez dem anderen pas (Beispiel XProfan-Manager).
peut-être peux sich un erfahrener XProfaner et Vue-User la fois obigen relativ kurzen Code la ligne pour la ligne vornehmen et chercher, wohin oui c'est ca là qui Säge klemmt?
@Paul: j'ai Nicos Code la fois avec XProfan 11 compilé et zur EXE gelingt. Läuft cet Programme sur Deinem Laptop sous Vue?
Salut
Dietmar |
|
| |
| Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...] Windows 95 bis Windows 7 Profan² 6.6 bis XProfan X2 mit XPSE Das große XProfan-Lehrbuch: [...] | 21.02.2008 ▲ |
|
| |
|
|
Paul
Glatz | und dir pas venez immernoch seulement qui schwartze bildschrim
Paul |
|
| |
| |
| |
|
|
Paul
Glatz | allô
je crois cela problem ist Windowstyle.
Paul |
|
| |
| |
| |
|
|
Dietmar
Horn | bon alors peux cela seulement un generelles XProfan-Problem, un allgemeines Vue-Problem, ou bien irgendein Problem avec Deinem Vue-Laptop son ... sous XP courir beide Codes jedenfalls correcte et qui zweite Code sogar avec XProfan 8.0.
la fois abwarten, quelle Ergebnisse autre Vue-User ici peut-être. encore posten ...
Salut
Dietmar |
|
| |
| Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...] Windows 95 bis Windows 7 Profan² 6.6 bis XProfan X2 mit XPSE Das große XProfan-Lehrbuch: [...] | 21.02.2008 ▲ |
|
| |
|
|
Paul
Glatz | Windowstyle 32 allez garnicht sous Vue könte cela problem auslösen
Paul     |
|
| |
| |
| |
|
|
Paul
Glatz | |
| |
| |
| |
|
|
Frank
Abbing | Style 32 mais est seulement un Flag, avec cela cela la fenêtre beim Erstellen pas avec einer la couleur pleine wird. seulement weil du den Hintergrund pas voyons peux, est es oui pas, dass cet Flag pas funktioniert....
quoi oui c'est ca est allez pas? Absturz? Programmabbruch? s'il te plaît la fois genauer volonté. |
|
| |
| |
| |
|
|
Rolf
Koch | et c'est qui Windowsstyle
non Frank il y a keinen Absturz sous Vue. seulement qui Hintergrund wird noir teinté et qui Kästchen volonté oui dans noir gezeichnet. Bedeutet: noir sur noir = JO quoi soll je car là voyons?
So z.b. sieht on alles:
Windowstyle 16+64+128
Weiser Hintergrund avec den schwarzen Kästchen. |
|
| |
| |
| |
|
(1.112)
Deutsch
English
Français
Español
Italia