home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_RunBasic_004.bas < prev    next >
BASIC Source File  |  2005-06-12  |  540b  |  19 lines
  1. ' Fortlaufende Nummerierung, bzw. Inhalt einer Datei
  2. If __FileNameHcWindow > " " Then
  3.     sFn = __FileNameHcWindow + ".nr"        ' Name = Name + .nr
  4.     fp = File.Open( sFn, "r" )
  5.     If fp <> 0 Then
  6.         iNr = AsInteger( File.Read( fp ))  ' letzten Wert lesen
  7.         File.Close( fp )
  8.     EndIf
  9.     iNr = iNr + 1                            ' + 1
  10.     fp = File.Open( sFn, "w" )
  11.     If fp <> 0 Then
  12.         File.Write( fp, iNr )                ' neuen Wert schreiben
  13.         File.Close( fp )
  14.     EndIf
  15.     Font.BkModeOpaque = TRUE
  16.     Font.Size = 40
  17.     Image(0).DrawText( 0, 0,0,0, iNr )        ' Wert in das Bild
  18. EndIf
  19.