Re: 2D-Bilder in 3D nach hinten kippen
Verfasst: 18.10.2018 13:07
In SpiderBasic gibt es kein OSVersion(). Jetzt schon:
Hauptseite > Betriebssystem-Version ermitteln:
Hauptseite > Betriebssystem-Version ermitteln:
Code: Alles auswählen
EnableExplicit
;https://stackoverflow.com/questions/38241480/detect-macos-ios-windows-android-and-linux-os-with-js
Procedure OSVersion()
Protected pb_os_windows_2000 = #PB_OS_Windows_2000
Protected pb_os_windows_xp = #PB_OS_Windows_XP
Protected pb_os_windows_server_2003 = #PB_OS_Windows_Server_2003
Protected pb_os_windows_vista = #PB_OS_Windows_Vista
Protected pb_os_windows_7 = #PB_OS_Windows_7
Protected pb_os_windows_8 = #PB_OS_Windows_8
Protected pb_os_windows_8_1 = #PB_OS_Windows_8_1
Protected pb_os_windows_10 = #PB_OS_Windows_10
! var userAgent = window.navigator.userAgent;
! var platform = window.navigator.platform;
! var macosPlatforms = ['Macintosh', 'MacIntel', 'MacPPC', 'Mac68K'];
! var windowsPlatforms = ['Win32', 'Win64', 'Windows', 'WinCE'];
! var iosPlatforms = ['iPhone', 'iPad', 'iPod'];
! var userAgentpart;
! if (macosPlatforms.indexOf(platform) !== -1) {
! //...
! } else if (iosPlatforms.indexOf(platform) !== -1) {
! //...
! } else if (windowsPlatforms.indexOf(platform) !== -1) {
! userAgentpart = userAgent.split(/\s*[;)(]\s*/);
! switch(userAgentpart[1]) {
! case 'Windows NT 10.0': return v_pb_os_windows_10;
! case 'Windows NT 6.3': return pb_os_windows_8_1;
! case 'Windows NT 6.2': return pb_os_windows_8;
! case 'Windows NT 6.1': return pb_os_windows_7;
! case 'Windows NT 6.0': return pb_os_windows_vista;
! case 'Windows NT 5.2': return pb_os_windows_server_2003;
! case 'Windows NT 5.1': return pb_os_windows_xp;
! case 'Windows NT 5.0': return pb_os_windows_2000;
! }
! } else if (/Android/.test(userAgent)) {
! //...
! } else if (/Linux/.test(platform)) {
! //...
! }
EndProcedure
;================================================== Beispielcode ==================================================
If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_ScreenCentered | #PB_Window_SystemMenu | #PB_Window_SizeGadget)
Select OSVersion()
Case #PB_OS_Windows_2000
Debug "Windows 2000"
Case #PB_OS_Windows_XP
Debug "Windows XP"
Case #PB_OS_Windows_Server_2003
Debug "Windows Server 2003"
Case #PB_OS_Windows_Vista
Debug "Windows Vista"
Case #PB_OS_Windows_7
Debug "Windows 7"
Case #PB_OS_Windows_8
Debug "Windows 8"
Case #PB_OS_Windows_8_1
Debug "Windows 8.1"
Case #PB_OS_Windows_10
Debug "Windows 10"
Case #PB_OS_Linux_2_2
;...
Case #PB_OS_MacOSX_10_0
;...
EndSelect
EndIf