Italia
Foro

Erledigt: Bild wird Automatisch geladen

 

Roberto
Neu
Hallo
Ich habe hier ein Programm bei dem man auf eine Koordinate Klickt und dann ein Bild geladen wird.
Aber gleich wenn ich das Programm starte ist das Bild das erst geladen werden soll schon da.
Hier der Code
Woran potuto es liegen??
KompilierenMarkierenSeparieren
declare a%,b%
windowtitle "Microkosm 4 Create"
window 50,50-400,600
loadbmp "filesox.bmp",240,0;0
loadbmp "fileshaus1.bmp",290,20;0
loadbmp "fileshaus2.bmp",290,80;0
loadbmp "fileshaus3.bmp",290,140;0
erste Reihe
loadbmp "files
on.bmp",0,0;0 OBEN LINKS
loadbmp "files
on.bmp",50,0;0 OBEN MITTE
loadbmp "files
on.bmp",100,0;0 OBEN RECHTS
Zweite Reihe
loadbmp "files
on.bmp",0,50;0 MITTE LINKS
loadbmp "files
on.bmp",50,50;0 MITTE MITTE
loadbmp "files
on.bmp",100,50;0 MITTE RECHTS
Dritte Reihe
loadbmp "files
on.bmp",0,100;0 UNTEN LINKS
loadbmp "files
on.bmp",50,100;0 MITTE
loadbmp "files
on.bmp",100,100;0 UNTEN RECHTS

if clicked(290,20 - 340,70)

    loadbmp "fileshaus1.bmp",0,0;0 OBEN LINKS

endif

waitkey
end
 
24.07.2009  
 




Rolf
Koch
Sorry Clicked muss ein Handle erhalten und keine Koordinaten.
Du musst in diesem Fall wie gehabt schon Clicked durch Mouse ersetzen.
Getfocus würde da ja auch nicht funktionieren.
 
24.07.2009  
 




Roberto
Neu
Habe ich jetzt gemacht aber das Bild ist trotzdem schon bei Programmanfang da und nicht erst durch den klick
 
24.07.2009  
 




Rolf
Koch
Ohne Bilder kann ich nix testen.
Was soll das überhaupt? Ohne eine Schleife?
Bei Dir wird sowieso direkt bei Start auf das if abgefragt (so schnell kannst Du garnicht klicken) und zum waitkey gesprungen - dann Klick und Ende.
Whilenot und wend um das if fehlt.
 
24.07.2009  
 




Roberto
Neu
Machen wir es einfach mal minimal ^^
Kannst ja jedes beliebige BMP Bild nehmen.
Bei mir kommt immernoch das Bild am anfang
KompilierenMarkierenSeparieren
windowtitle "Microkosm 4 Create"
window 50,50-400,600

if Mouse(0,0 - 340,70)

    loadbmp "fileshaus1.bmp",0,0;0 OBEN LINKS

endif

waitkey
24.07.2009  
 




Rolf
Koch

KompilierenMarkierenSeparieren
windowtitle "Microkosm 4 Create"
window 50,50-400,600

While 1

    Waitinput

    if Mouse(0,0 - 340,70)

        loadbmp "fileshaus1.bmp",0,0;0OBEN LINKS

    endif

endwhile

waitkey
end

Ist doch logisch oder? Waitinput hat gefehlt und ausserdem eine Schleife wie bereits gesagt.
 
24.07.2009  
 




Roberto
Neu
So habs mal fertig geflickt ^^

15 kB
Kurzbeschreibung: Microkosm 4 Creator
Hochgeladen:24.07.2009
Downloadcounter71
Download
 
24.07.2009  
 




Rolf
Koch
gern geschehen Roberto
 
24.07.2009  
 




Roberto
Neu
OHHHHHHHHHHHHHHHHHHHHHHHHH Entschuldigung
Vielen dank per die HILFE Rolf
 
24.07.2009  
 




Rolf
Koch
War nicht böse gemeint - sollte nur auffrischen *lol*
 
24.07.2009  
 




Roberto
Neu
XD ^^
Naja ich gehe jetzt mal Off und überleg ein bisschen wie ich das Verbessern kann ^^
 
24.07.2009  
 




Roberto
Neu
So ich bin jetzt an einem Neuen Projekt.
Einen Internet Browser zu machen.(Mit minimalen Funktionen ^^)
Aber ich bekomme es nicht hin diesen Code in den Bisherigen reinzubauen
Ich habe es wie hier mit While Versucht und mit Proc und einfach so den Code
reinzuschreiben
KompilierenMarkierenSeparieren
While 2

    waitinput

    IF Mouse(620,15 - 650,45)

        end

    endif

e
e
 
26.07.2009  
 




Answer


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

7.692 Views

Untitledvor 0 min.

Themeninformationen

Dieses Thema hat 3 subscriber:

Roberto Neu (8x)
Rolf Koch (5x)
E.T. (1x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie