Type | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|
type(cluster) | :: | my_pc |
program test
use :: forclust
implicit none
type(cluster) :: my_pc
call my_pc%select()
call my_pc%backlight%select()
call my_pc%backlight%set_debug('on')
call my_pc%backlight%get_actual_brightness()
call my_pc%backlight%get_max_brightness()
! call my_pc%backlight%set_brightness(200)
call my_pc%deselect()
end program test