| |
| |
|
Roberto
Neu | Yo möchte una Programa hacer el el Windows-Ordner imitiert
Also si yo en una Ordner klicke debería unten el Bilder el en el Ordner son adecuado voluntad.
Das tener Yo auch ya hinbekommen.
Aber Yo bekomme el bilder entonces no mehr weg
Yo habe lo ya con GOTO y repaint intenta, aber el Bilder gingen no weg |
|
| |
| |
| |
|
|
 | | Einfach drübermalen (z.B. rectangle) oder con create("Mapa de bits",... erzeugte Bilder con destroyWindow entfernen. |
|
| |
| |
| |
|
|
Roberto
Neu | Hab Yo ahora veces alles intenta aber ha nocht funktioniert
Como kommt siempre el Fehlermeldung Endif/Más fehlt
Dann mach Yo endif hin y luego schliesst se el Programa siempre. |
|
| |
| |
| |
|
|
Roberto
Neu | |
| |
| |
| |
|
|
Rolf
Koch | Hey, kuck Dir veces el Tiempo zwischen Su 2 Beiträgen a.
Helfen puede Usted hier viele, aber übe zuerst una vez una Grundstruktur el Profanprogrammierung.
Sei No böse, aber mostrar Usted doch veces Su GOTO a, es schrecklich.
Gehe en el Ayuda de Profano y lese Usted el Abschnitt Prozeduren por. Strukturiere el Gerüst y lerne sinnvoll una IF/ELSEIF/ENDIF einzusetzen.
Vorkauen uno Codes es no el richtige y se Usted niemals a el Ziel bringen. |
|
| |
| |
| |
|
|
Rolf
Koch | Damit Usted pero no denkst, Yo wäre una Unmensch, hier veces (aber auch kapieren no sólo kopieren) una Anfang:
KompilierenMarcaSeparacióndeclare 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 | Yo versuche el andauernd con GOTO
pero klappt no Yo lo hinter GetklickedIcon platziert pero Passiert nichts ??
whilenot e%
WaitInput
GetClickedIcon
endwhile |
|
| |
| |
| |
|
|
Thomas
Freier | Usted debe Rolfs Worte ernst nehmen y dich en el Kurs vertiefen. GOTO es una olle Kamelle de DOS-Veces. Heute haben wir Proceduren, donde se springst, si du el Namen el Procedur, hier GETCLICKEDICON , en dein Programa einfügst. Usted hast doch XProfan 10 free. Also nutze lo y erarbeite dir el Sinn el SCHLEIFEN y ABFRAGEN.
KompilierenMarcaSeparacióndeclare 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&
End
|
|
| |
| |
| |
|
|
Frank
Abbing |
GOTO es una olle Kamelle de DOS-Veces.
Na sí, no bastante correcto. Jede native Exe benutzt auch heute en Wirklichkeit unzählige "Gotos". Hay rein technisch gesehen sí sólo Sprünge en el Code, y el passieren z.B. en cada If-Abfrage.
XProfans Umsetzung dieser Gotos es aber (na sí) bastante mangelhaft, deswegen debería darauf verzichtet voluntad, wann siempre lo va. Und el es eigentlich casi siempre. |
|
| |
| |
| |
|
|
Thomas
Freier | | Hast sí Recht y vermutlich waren seine ersten Versuche aufm sharp, casio, hp, .. . Nur en seinem Code, el du dir vermutlich no angesehen hast, sträubten se en Rolf y me el Haare. |
|
| |
| |
| |
|
|
Roberto
Neu | Yo habe lo ahora endlich con GOTO geschafft ^ ^
Aber Yo una más Problema.
Yo Posesiones en mi Programa una POPUP Menü gemacht,
y möchte el uno por el Menü una más Xprofan Programa abierto kann.
Yo habe ya el Quellcodesammlung durchsucht, aber como puede ser sólo EXE. Programa abierto.
Aber Yo muss una xprf. Programa abierto |
|
| |
| |
| |
|
|
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 ▲ |
|
| |
|
(931)
Deutsch
English
Français
Español
Italia