 |
Das deutsche QBasic- und FreeBASIC-Forum Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Sippo

Anmeldungsdatum: 17.04.2008 Beiträge: 125
|
Verfasst am: 14.06.2008, 21:39 Titel: rechenfehler??? |
|
|
Also das Problem ist dass ich versuche einprogramm mit verschiedenen Bildschirmeinstellungen versuche zu schreiben. und nun habe ich die zahl 1015 durch 1280 geteilt und dann wieder mal eine Variable genommen elche auch 1280 entspricht. Müsste also eigentlich wieder 1015 rauskomen. schauts euch mal an vll findet wer den Fehler. Danke schon mal.
Code: |
Dim shared as integer x, y, a, grx, gry , beex1, beex2, beey1, beey2, s, mpx, mpy, norm
dim shared as double fx, fx1, fx2, fy, fy1, fy2, mfx, mfy
sub bild1
screen 21, 32
grx = 1280
gry = 1024
s = 1
bload "DATA/menue.bmp"
beex1 = 1015 / 1280*grx
beex2 = 1226 / 1280*grx
beey1 = 903 / 1280*gry
beey2 = 967 / 1280*gry
locate 10, 5, 0
print beey1
print beey2
print beey1
print beey2
end sub
sub bild2
screen 20, 32
grx = 1024
gry = 786
s = 1
bload "DATA/menue2.bmp"
end sub
sub bild3
screen 16, 32
grx = 512
gry = 384
s = 1
bload "DATA/menue3.bmp"
end sub
sub menue
beex1 = 1015 / 1280*grx
beex2 = 1226 / 1280*grx
beey1 = 903 / 1280*gry
beey2 = 967 / 1280*gry
locate 10, 5, 0
print s
print gry
print beey1
print beey2
'------------------------menue--------------------------------------------------
do
GETMOUSE (x,y, ,a)
LOCATE 1,1
PRINT USING "####:####"; x,y
'-----------------------------Beenden-----------------------------------------
if a AND 1 AND x >= beex1 AND x <= beex2 AND y >= beey1 AND y <= beey2 THEN end
if inkey = chr(27) then end
loop
end sub
'--------------------------------Bildschirmgröße--------------------------------
if s = 1 then menue
SCREEN 14, 32
BLOAD "DATA\Bildschirm.bmp"
norm = 1280
DO
GETMOUSE (x,y, ,a)
LOCATE 1,1
PRINT USING "####:####"; x,y
if a AND 1 AND x >= 24 AND x <= 293 AND y >= 24 AND s = 0 and y <= 71 THEN bild1
if a AND 1 AND x >= 24 AND x <= 293 AND y >= 93 AND s = 0 and y <= 139 THEN bild2
if a AND 1 AND x >= 24 AND x <= 293 AND y >= 122 AND s = 0 and y <= 210 THEN bild3
if inkey = chr(27) then end
loop
|
|
|
Nach oben |
|
 |
ThePuppetMaster

Anmeldungsdatum: 18.02.2007 Beiträge: 1839 Wohnort: [JN58JR]
|
Verfasst am: 14.06.2008, 22:24 Titel: |
|
|
Rechne doch mal mit dem Taschenrechner 1015 / 1280 aus
Dort wird sicher keien Ganzzahl (1 ... 4 ... 10 ... usw.) raus, sondern eine gleitkommazahl (1,342 ... 4,948 ... 10,8329 ... usw.)
Das macht es nötig, das die Variable, welche diese Nummer aufnehmen soll min. ein Single oder ein Double ist. Du dimensioniertst jedoch die notwendige variable als Integer, welche zwar ein Vorzueichen besitzt (- zahlen möglich) jedoch kein Gleitkomma.
MfG
TPM _________________ [ WebFBC ][ OPS ][ ToOFlo ][ Wiemann.TV ] |
|
Nach oben |
|
 |
Sippo

Anmeldungsdatum: 17.04.2008 Beiträge: 125
|
Verfasst am: 14.06.2008, 22:45 Titel: |
|
|
oh mist danke hab ich in die falsche zeile geschrieben wies aussieht aber das war auch ein rießen durcheinander. Danke für die antwort. habe ewig probiert
edit: geht irgendwie zwar immer noch nicht aber das mach ich dann morgen^^
edit:geht immer noch nich könnte vll nochmal jmd bitte drüberschaun? |
|
Nach oben |
|
 |
|
|
Du kannst keine Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum nicht antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|