fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Textmodus - noch schneller ;)

Uploader:	AndT
Datum/Zeit:	02.12.2007 17:12:46

        Dim SCRW As Integer = Width And &hffff

        Dim SCRH As Integer = (Width Shr 16) And &hffff



        Locate ,, 0



          '' fill page 1

          Screen , 1

          Color 15, 1

          Locate 1, 1

          Print String(SCRW * SCRH, Asc("1"));



          '' fill page 2

          Screen , 2

          Color 14, 2

          Locate 1, 1

          Print String(SCRW * SCRH, Asc("2"));



          '' fill page 3

          Screen , 3

          Color 13, 3

          Locate 1, 1

          Print String(SCRW * SCRH, Asc("3"));



          '' copy to page 0

          Dim As Integer pg = 0, fpscnt = 0, fps = 0

          Dim As Double tini = Timer

          Do

                  Pcopy 1 + pg

                  pg = (pg + 1) Mod 3



                  fps += 1

                  If Timer - tini >= 1 Then

                          fpscnt = fps

                          fps = 0

                          tini = Timer

                  End If

          Loop Until Len(Inkey) > 0



        Screen , 0

        Cls

        Print "fps:"; fpscnt

        Sleep

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.