fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

DataTest

Uploader:	ytwinky
Datum/Zeit:	02.06.2011 17:37:22

#include "crt.bi"

#include "vbcompat.bi"

#define ArgC ((*__p___argc())-1)

#undef GoTo 'Jojo hat Recht, danke ;-))

#ifndef False

    Const False=0, True=Not False

#endif



'+-----------------------------------------------------------------------------------+

'|    Header: Bestimmen der Übergabeparameter                                        |

'|    AnzeigeCheck:|Il1 sind:Alt-0124, Großes i, kleines L, Eins „ä”öüáßŽÄ™ÖšÜñ±ø°¸©|

Const Autor="DataTest.Bas v0.99 ¸2011 by ytwinky, MD"'                               |

'|           (Tastenkombination: keine)                                              |

'|    Zweck : Umrechner für die verschiedenen Zahlensystem die FreeBASIC beherrscht  |

'|    Getestet mit dem aktuellen fbc und dem aktuellen FBEdit                        |

'+-----------------------------------------------------------------------------------+

'(Anmerkung zu den Sonderzeichen: zuerst steht das DOS-Zeichen, danach das Windowszeichen)

Const CrLf=!"\r\n", Esc=!"\27"

Screen 0:Width 90, 30

Sub Test()

    Var s="", i=0, t="", d=""

    Read t, d

    Print "Data" &t &d

End Sub



Var s="", i=0, t=21, d=0.0

For i=1 To 10

    Read s

    Print "Data" &i &":"; s

Next

Restore myData

Test()

GetKey 'ist besser als Sleep, denn es löscht den Tastaturpuffer^^

myData:

Data "Hello,", " World!", "Hello," &" World!", ATan2(0, -1), 4*Atn(1), 17, 4, 2, 42, (17+4)*2

End

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.