Visualizza wikitesto di Conoscere il numero di linee e di colonne costituenti la corrente dimensione di un terminale o console

Per conoscere il numero di linee e di colonne costituenti la corrente dimensione di un terminale o di una console, potremo utilizzare la funzione "iocl()" della libreria C.

 Library "libc:6"
 
 Public Struct winsize
   ws_row As Short
   ws_col As Short
   ws_xpixel As Short
   ws_ypixel As Short
 End Struct
 
 Private Const STDOUT_FILENO As Integer = 1
 Private Const TIOCGWINSZ As Integer = &5413
 
 <FONT Color=gray>' ''int ioctl (int __fd, unsigned long int __request, ...)''
 ' ''Perform the I/O control operation specified by REQUEST on FD.''</font>
 Private Extern ioctl(__fd As Integer, __request As Long, w As Winsize) As Integer 
 
 
 Public Sub Main()
 
  Dim ws As New Winsize
 
  ioctl(STDOUT_FILENO, TIOCGWINSZ, ws)
 
  Print "Linee:   "; ws.ws_row
  Print "Colonne: "; ws.ws_col
 
 End