fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

IF-Antwort 2.Versuch

Uploader:	ytwinky
Datum/Zeit:	31.08.2010 21:49:58

Dim As Integer breite = 800, hoehe = 450

Var a=4/3, b=4.0/3.0, c=1.0/0.75

Print breite/hoehe-16/9

If (breite/hoehe-16/9)<1E-15 Then

    Print "erfolgreich"

Else

    Print "mist"

EndIf

'Dieses Beispiel hingegen schon:

If (800/450) = (16/9) Then

    Print "erfolgreich"

Else

    Print "mist"

EndIf

Print a &!"\n" & b &!"\n" &c

Print "a=b " &*IIF(a=b, @"Ja", @"Nein")

Print "a=c " &*IIf(a=c, @"Ja", @"Nein")

Print "b=c " &*IIf(b=c, @"Ja", @"Nein")

Breite=4

Hoehe=3

Print "Breite/Hoehe=a " &*IIf(Breite/Hoehe=a, @"Ja", @"Nein")

GetKey

'berichtigt am 05.01.2011

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.