| |
| |
|
Roberto
Neu | je voudrais un Programme faire cela qui Windows-Dossier imitiert
alors si je sur une Dossier klicke devoir unten qui Bilder qui dans dem Dossier sommes angezeigt volonté.
cela hab je aussi déjà hinbekommen.
mais je bekomme qui bilder ensuite pas plus weg
j'ai es déjà avec GOTO et repaint versucht, mais qui Bilder gingen pas weg |
|
| |
| |
| |
|
|
 | | simple drübermalen (z.B. rectangle) ou bien avec create("Bitmap",... erzeugte Bilder avec destroyWindow entfernen. |
|
| |
| |
| |
|
|
Roberto
Neu | Hab je maintenant la fois alles versucht mais hat nocht funktioniert
là venez toujours qui Fehlermeldung Endif/D'autre fehlt
ensuite mach je endif hin et ensuite schliesst sich cela Programme toujours. |
|
| |
| |
| |
|
|
Roberto
Neu | |
| |
| |
| |
|
|
Rolf
Koch | Hey, kuck Dir fois le Zeit entre Deinen 2 Beiträgen à.
aider peut Dir ici viele, mais übe d'abord einmal une Grundstruktur qui Profanprogrammierung.
Sei Je ne böse, mais exposition Dir doch la fois Dein GOTO à, ist schrecklich.
vais dans qui Aider de Profan et lese Dir den paragraphe Prozeduren par. Strukturiere cela Gerüst et lerne sinnvoll un IF/ELSEIF/ENDIF einzusetzen.
Vorkauen eines Codes ist pas cela richtige et wird toi niemals à cela but apporter. |
|
| |
| |
| |
|
|
Rolf
Koch | avec cela Du mais pas denkst, je wäre un Unmensch, ici la fois (mais aussi kapieren pas seulement kopieren) un Anfang:
KompilierenMarqueSéparationdeclare Name$, text$, titeltext$, text2$, titeltext2$, ende%, e%
WindowTitle "VWPRG 1"
Window 50,20 - 600,500
LoadBMP "Bilder.BMP",0,0;0
LoadBMP "Music.BMP",100,0;0
LoadBMP "Videos.BMP",200,0;0
Proc GETCLICKEDICON
if Mouse(0,0 - 98,121)
loadbmp "bild1.BMP",0,120;0
elseif Mouse(0,0 - 98,121)
War von Dir Blösinn, wenn es oben reingeht, kann es nicht mehr
die selbe Bedingung auslösen
endif
ENDPROC
whilenot e%
WaitInput
GetClickedIcon
endwhile
|
|
| |
| |
| |
|
|
Roberto
Neu | je versuche cela andauernd avec GOTO
mais es klappt pas j'ai es derrière GetklickedIcon platziert mais es Passiert rien ??
whilenot e%
WaitInput
GetClickedIcon
endwhile |
|
| |
| |
| |
|
|
Thomas
Freier | Du devrait Rolfs Worte ernst prendre et toi dans den Kurs vertiefen. GOTO ist une olle Kamelle aus DOS-Zeiten. aujourd'hui avons wir Proceduren, trop denen du springst, si du den Namen qui Procedur, ici GETCLICKEDICON , dans dein Programme einfügst. tu as doch XProfan 10 free. alors nutze es et erarbeite dir den Sinn qui SCHLEIFEN et ABFRAGEN.
KompilierenMarqueSéparationdeclare text&, ende%
Declare Bild1&,Bild2&,Bilder&
WindowTitle "VWPRG 1"
Window 50,20 - 600,500
Bild1& = Create("hPic",-1,"Bilder.BMP")
Bilder& = Create("Bitmap", %hWnd, Bild1&, 0,0)
LoadBMP "Music.BMP",100,0;0
LoadBMP "Videos.BMP",200,0;0
text& = Create("Text",%hWnd,"",0,390,600,30)
Proc GETCLICKEDICON Bild anzeigen
Bild1& = Create("hPic",-1,"bild1.BMP")
Bild2& = Create("Bitmap", %hWnd, Bild1&, 0,120)
SetText text&,"Linksklick löscht das Bild"
ENDPROC
whilenot Ende%
WaitInput
If %key= 2 Schließen Kreuz
Ende%= 1
Elseif Mouse(0,0 - 98,121)
GetClickedIcon hier wird zur PROC "edur" GetClickedIcon = Bild anzeigen gesprungen
und zurück wenn abgearbeitet
Elseif Mouse(0,99 - 98,210)
DestroyWindow(Bild2&) Bild löschen direkt eingebunden
SetText text&,""
EndIf
endwhile
DeleteObject Bild1&
Fin
|
|
| |
| |
| |
|
|
Frank
Abbing |
GOTO ist une olle Kamelle aus DOS-Zeiten.
eh bien, pas entier richtig. chacun native Exe benutzt aussi aujourd'hui dans Wirklichkeit unzählige "Gotos". il y a rein technique gesehen oui seulement Sprünge im Code, et qui passer z.B. chez chacun Si-Abfrage.
XProfans Umsetzung cette Gotos ist mais (eh bien) droite insuffisant, deswegen sollte puis verzichtet volonté, quand toujours und dir. et c'est eigentlich si bien comment toujours. |
|
| |
| |
| |
|
|
Thomas
Freier | | la hâte oui droite et probablement étions sa ersten Versuche aufm sharp, casio, hp, .. . seulement chez seinem Code, den du dir probablement pas angesehen la hâte, sträubten sich chez Rolf et mir qui Haare. |
|
| |
| |
| |
|
|
Roberto
Neu | j'ai es maintenant enfin avec GOTO geschafft ^ ^
mais j'ai un d'autre Problem.
je Habe dans mon Programme un POPUP menu gemacht,
et voudrais cela on par cela menu un d'autre Xprofan Programme ouvrir peux.
j'ai déjà qui Quellcodesammlung durchsucht, mais là peux on seulement EXE. Programme ouvrir.
mais je muss un xprf. Programme ouvrir |
|
| |
| |
| |
|
|
Dietmar
Horn | |
| |
| 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: [...] | 08.07.2009 ▲ |
|
| |
|
(929)
Deutsch
English
Français
Español
Italia