FreeBasic
Главная
Вход
Регистрация
Среда, 09.10.2024, 09:36Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Использование указателей на функции
haavДата: Суббота, 13.10.2012, 09:19 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 1363
Репутация: 49
Статус: Offline
Использование указателей на функции


Кто автор не знаю

Code

Dim As Integer sel

Sub show_time()
   ? Time$
    
End Sub

Sub show_date()
   ? Date$
    
End Sub

Sub show_rand()
   ? Rnd * 999999999
    
End Sub

Dim As Sub procs( 3 )

procs( 0 ) = @show_time
procs( 1 ) = @show_date
procs( 2 ) = @show_rand

? "0. Display the time."
? "1. Display the date."
? "2. Display a random number."
?
Do
   Locate 5
   ? space( 30 )
   Locate 5
   Input "Your selection? ", sel
Loop Until sel < 3

procs( sel )()
Sleep


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
  • Страница 1 из 1
  • 1
Поиск: