Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

IF-Antwort 1.Versuch

Uploader:Redakteurytwinky
Datum/Zeit:31.08.2010 21:30:20

Dim As Integer breite = 800, hoehe = 450
?breite/hoehe-16/9
'Hat wohl was mit der internen Darstellung der Quotienten zu tun: 1.Beispiel-1. Quotient 2 Integers, Quotient Double/Single, 2.Quotient 2Reals, Quotient Double
If (breite/hoehe-16/9)<1E-15 Then
    Print "erfolgreich"
Else
    Print "mist"
EndIf
GetKey

''Dieses Beispiel hingegen schon:
'1.Quotient 2 Reals, Quotient Double, 2.Qutient 2 Reals, Quotient Double
If (800/450) = (16/9) Then
    Print "erfolgreich"
Else
    Print "mist"
EndIf
'Integerquotienten und Realquotienten besser niemals mit = testen, lieber <> oder < und > etc benutzen
GetKey 'ist besser als Sleep, denn der Tastaturpuffer wird gelöscht^^