Zhodnotenie videí do bakalarky

Grafika, webdesign, spracovanie videa a zvuku...
Bartran
Novice
Novice
Príspevky: 5
Registrovaný: 16 máj 2018, 15:33

Zhodnotenie videí do bakalarky

Príspevok od používateľa Bartran »

caute
chcel by som vás požiadať o zhodnotenie kvality videí pre potreby bakalárskej práce, videá si stiahnete spolu so skriptom ktorý vám ich bude prehrávať automaticky a v náhodnom poradí, a hneď po prehratí treba ohodnotiť číslom 1 až 5 ako sa vám páčila kvalita,(5= excelentna kvalita) je to celkom zaujímavé a netrvá to dlho.

vopred ďakujem ak si nájdete necelých 10 min času,
Celý postup je:

Podmienka: aspoň Full HD displej
1. Stiahnuť z google drive https://drive.google.com/file/d/1vbgyuv ... wZG90WXAA2 súbor „VideoQuality-Bakalarka“ a rozbaliť ho.

2. Postupne spúšťať videá podľa číselného poradia a po prehratí každého videa zapísať vaše zhodnotenie kvality videa číslom od 1 do 5 do priloženého excel súboru „VQ.xlsx“, pri čom:

5 = excelentná kvalita
4 = dobrá
3 = prijateľná (dostatočná)
2 = slabá (nízka)
1 = zlá

3. Zapísať v tom istom súbore „VQ.xlsx“ vaše krstné meno, vek a či používate okuliare.

4. Poslať excelový súbor na email: [email protected].

Postup som upravil a zjednodušil.

vašim hodnotením pomôžete v bakalárke, kde sa analyzuje kompresný formát VP9, ktorý sa používa napr. na youtube

Ďakujem
lowmanek
Light Professional
Light Professional
Používateľov profilový obrázok
Príspevky: 977
Registrovaný: 04 apr 2010, 8:53
Bydlisko: 221B Baker Street

Re: Zhodnotenie videí do bakalarky

Príspevok od používateľa lowmanek »

Ahoj
... aby ich mohli respondenti čo najjednoduchšie zhodnotiť ...
Stahovat si 500MB ZIPko a potom pustat skript od nahodneho cloveka mi nepride uplne najjednoduchsie a najoptimalnejsie riesenie. Hlavne powershell je myslim iba na win10.

Nebolo by ovela lepsie spravit jednoduchy web? V kazdom smere by to bolo pre respondentov jednoduchsie.
yoggy

Re: Zhodnotenie videí do bakalarky

Príspevok od používateľa yoggy »

OT: Neviete niekto, ako je mozne, ze mi zmizlo z penazenky 10 BTC? :( :roll:

Ale inak ako pise lowmanek, 99% vsetkych potencionalnych ludi to odradi, ze si to musia stiahnut, nehovoriac o velmi nestastnom rieseni, co sa tyka narusenia bezpecnosti.
Aiden
Darca
Darca
Používateľov profilový obrázok
Príspevky: 2213
Registrovaný: 06 apr 2007, 14:28

Re: Zhodnotenie videí do bakalarky

Príspevok od používateľa Aiden »

Bartran napísal: Ubezpečujem vás, že je to seriózne
Source: Dude trust me
Bartran
Novice
Novice
Príspevky: 5
Registrovaný: 16 máj 2018, 15:33

Re: Zhodnotenie videí do bakalarky

Príspevok od používateľa Bartran »

áno, uznávam, že hodnotenie cez web by bolo jednoduchšie pre respondentov, ale momentálne nemám znalosti ani čas niečo také vytvoriť. zaoberám sa videom, skript som dostal už hotový na zbieranie hodnotení od vedúceho práce.

skript ide spustiť vo win 8 a 10, dal som ho pre vás ešte skontrolovať cez virustotal
https://www.virustotal.com/sk/file/b842 ... 526490498/

vopred ďakujem za pochopenie a prípadnú pomoc s hodnotením
CheZteR
Redeemer
Redeemer
Používateľov profilový obrázok
Príspevky: 10232
Registrovaný: 25 feb 2009, 6:54
Bydlisko: KE/BA

Re: Zhodnotenie videí do bakalarky

Príspevok od používateľa CheZteR »

a nemozes tie videa niekde uploadnut?
.zip som naposledy stahoval okolo roku 2005 na 10 partov z rapidshare [emoji3]
baldorex
Addict
Addict
Príspevky: 3703
Registrovaný: 27 máj 2016, 0:13

Re: Zhodnotenie videí do bakalarky

Príspevok od používateľa baldorex »

Ako študent dnešnej doby by si mohol byť "user friendly" úmerne roku 2018. Nehovoriac o bezpečnosti....

Nad tvojimi požiadavkami som sa pousmial, veľmi mi pripomenuli požiadavky daňového úradu pri inštalácii softu na komunikáciu s nimi pár rokov dozadu....
Gothar
Moderátor
Moderátor
Používateľov profilový obrázok
Príspevky: 19413
Registrovaný: 21 feb 2005, 21:19
Bydlisko: KE

Re: Zhodnotenie videí do bakalarky

Príspevok od používateľa Gothar »

Tu je cely ten skript, nezda sa mi, ze by tam bolo nieco podozrive. Len to dookola pusta videa. Moze na to pozriet niekto skusenejsi, ja s PowerShellom vela nerobim. Jedine co ma zaujalo je pozadovane HW info, neviem ako pomoze, ze budes vediet aky mam CPU, volnu RAM, uptime a login. Rozlisenie a GPU akceptujem.
Spoiler

Kód: Vybrať všetko

################################################################################
# Created by Zagoslav
# Date : [2017.01.06]
# Version : 1.0
# For others OS download : "insert link to bash script when aviable"
# Email: [email protected]
# This script checks some basic system informations and saves them to desktop
# then start video quality rating
# Intended to be used for "inset url to webpage when aviable"
################################################################################

# alternatives/old/updates
# "Model: " + $System.Manufacturer + $System.Model
# *needs testing
# $RES = Get-CimInstance  Cim_VideoController
# *bug
# $user = $(Get-WMIObject -class Win32_ComputerSystem | select username).username
# *clean, but formated HOSTNAME\user


# Console fullscreen and colors + Clear the hosts shell
mode 300
$Host.UI.RawUI.BackgroundColor = ($bckgrnd = 'Gray')
$Host.UI.RawUI.ForegroundColor = 'DarkBlue'
$Host.PrivateData.ErrorForegroundColor = 'Red'
$Host.PrivateData.ErrorBackgroundColor = $bckgrnd
$Host.PrivateData.WarningForegroundColor = 'Magenta'
$Host.PrivateData.WarningBackgroundColor = $bckgrnd
$Host.PrivateData.DebugForegroundColor = 'Yellow'
$Host.PrivateData.DebugBackgroundColor = $bckgrnd
$Host.PrivateData.VerboseForegroundColor = 'Green'
$Host.PrivateData.VerboseBackgroundColor = $bckgrnd
$Host.PrivateData.ProgressForegroundColor = 'Cyan'
$Host.PrivateData.ProgressBackgroundColor = $bckgrnd
Clear-Host

# Playlist
# Change to test video when aviable
$video1 = '01_Bund_Nightscape_FHD_30fps_420_8bit_VP9_10M.mp4'
$video2 = '02_Bund_Nightscape_FHD_30fps_420_8bit_VP9_3M.mp4'
$video3 = '03_Bund_Nightscape_FHD_30fps_420_8bit_VP9_1M.mp4'
$video4 = '04_Bund_Nightscape_FHD_30fps_420_8bit_VP9_15M.mp4'
$video5 = '05_Bund_Nightscape_FHD_30fps_420_8bit_VP9_5M.mp4'
$video6 = '06_Campfire_Party_FHD_30fps_420_8bit_VP9_5M.mp4'
$video7 = '07_Campfire_Party_FHD_30fps_420_8bit_VP9_10M.mp4'
$video8 = '08_Campfire_Party_FHD_30fps_420_8bit_VP9_15M.mp4'
$video9 = '09_Campfire_Party_FHD_30fps_420_8bit_VP9_3M.mp4'
$video10 = '10_Campfire_Party_FHD_30fps_420_8bit_VP9_1M.mp4'
$video11 = '11_Construction_Field_FHD_30fps_420_8bit_VP9_10M.mp4'
$video12 = '12_Construction_Field_FHD_30fps_420_8bit_VP9_1M.mp4'
$video13 = '13_Construction_Field_FHD_30fps_420_8bit_VP9_5M.mp4'
$video14 = '14_Construction_Field_FHD_30fps_420_8bit_VP9_3M.mp4'
$video15 = '15_Construction_Field_FHD_30fps_420_8bit_VP9_15M.mp4'
$video16 = '16_Fountains_FHD_30fps_420_8bit_VP9_15M.mp4'
$video17 = '17_Fountains_FHD_30fps_420_8bit_VP9_5M.mp4'
$video18 = '18_Fountains_FHD_30fps_420_8bit_VP9_10M.mp4'
$video19 = '19_Fountains_FHD_30fps_420_8bit_VP9_3M.mp4'
$video20 = '20_Fountains_FHD_30fps_420_8bit_VP9_1M.mp4'
$video21 = '21_Marathon_FHD_30fps_420_8bit_VP9_5M.mp4'
$video22 = '22_Marathon_FHD_30fps_420_8bit_VP9_1M.mp4'
$video23 = '23_Marathon_FHD_30fps_420_8bit_VP9_15M.mp4'
$video24 = '24_Marathon_FHD_30fps_420_8bit_VP9_3M.mp4'
$video25 = '25_Marathon_FHD_30fps_420_8bit_VP9_10M.mp4'
$video26 = '26_Runners_FHD_30fps_420_8bit_VP9_3M.mp4'
$video27 = '27_Runners_FHD_30fps_420_8bit_VP9_5M.mp4'
$video28 = '28_Runners_FHD_30fps_420_8bit_VP9_15M.mp4'
$video29 = '29_Runners_FHD_30fps_420_8bit_VP9_1M.mp4'
$video30 = '30_Runners_FHD_30fps_420_8bit_VP9_10M.mp4'
$video31 = '31_Tall_Buildings_FHD_30fps_420_8bit_VP9_5M.mp4'
$video32 = '32_Tall_Buildings_FHD_30fps_420_8bit_VP9_15M.mp4'
$video33 = '33_Tall_Buildings_FHD_30fps_420_8bit_VP9_3M.mp4'
$video34 = '34_Tall_Buildings_FHD_30fps_420_8bit_VP9_10M.mp4'
$video35 = '35_Tall_Buildings_FHD_30fps_420_8bit_VP9_1M.mp4'
$video36 = '36_Wood_FHD_30fps_420_8bit_VP9_3M.mp4'
$video37 = '37_Wood_FHD_30fps_420_8bit_VP9_10M.mp4'
$video38 = '38_Wood_FHD_30fps_420_8bit_VP9_5M.mp4'
$video39 = '39_Wood_FHD_30fps_420_8bit_VP9_1M.mp4'
$video40 = '40_Wood_FHD_30fps_420_8bit_VP9_15M.mp4'


# DETECT INFORMATION
$user = $env:UserName
$System = Get-CimInstance CIM_ComputerSystem
$BIOS = Get-CimInstance CIM_BIOSElement
$OS = Get-CimInstance CIM_OperatingSystem
$CPU = Get-CimInstance CIM_Processor
$osup = Get-WmiObject win32_operatingsystem
$uptime = (Get-Date) - ($osup.ConvertToDateTime($osup.lastbootuptime))
$GPU= (Get-CimInstance CIM_VideoController | %{$_.Name}) -join("; ")
  # Monitor model (not implemented on Unix version)
$Mon=(Get-WmiObject -Class Win32_DesktopMonitor | %{"$($_.Name)"}) -join("; ")
$used = ($System.TotalPhysicalMemory/1MB)-($OS.FreePhysicalMemory/1KB)
# Works for multiple monitors.
# Add-Type -AssemblyName "System.Windows.Forms"
# $RES = ([system.windows.forms.screen]::AllScreens | ForEach-Object {"$($_.Bounds.width)x$($_.Bounds.Height)"}) -join("; ")
# *Bug with HiDPI monitors
$RES = Get-WmiObject -Class Win32_VideoController
# *Not working for multiple monitors

# Output
$PSDefaultParameterValues['Out-File:Encoding'] = 'utf8'
$EXTXT = "$env:USERPROFILE\Desktop\vq.txt"

# Clear the hosts shell
Clear-Host

# # Save information
$user + "@" + $system.Name >> $EXTXT
"OS: " + $OS.caption + " " + $osup.OSArchitecture >> $EXTXT
"Model: " + $System.Model >> $EXTXT
"Kernel: " + $OS.Version >> $EXTXT
"Uptime: " + $Uptime.Days + "d " + $Uptime.Hours + "h " + $Uptime.Minutes + "m " >> $EXTXT
# Used with forms screen
# "Resolution: " + $RES >> $EXTXT
"Resolution: " + $RES.CurrentHorizontalResolution + "x" + $RES.CurrentVerticalResolution >> $EXTXT
"Monitor: " + $Mon >> $EXTXT
"CPU: " + $CPU.Name >> $EXTXT
"GPU: " + $GPU >> $EXTXT
"Memory: " + "{0:N0}" -f $used + "MB" + " / " + "{0:N0}" -f ($System.TotalPhysicalMemory/1MB) + "MB" >> $EXTXT


# Play video
.\ffmpeg\ffplay playlist\$video1 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout1 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime1 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime1 = Get-Date
        if ($currentTime1 -gt $startTime1 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response1 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response1)
    }
    else {
        $response1 = $default
    }
    Write-Output "You rated video 1 as $($response1.toUpper())"
    $video1 + ": " + $response1 >> $EXTXT
}

Read-KeyOrTimeOut1

# Play video
.\ffmpeg\ffplay playlist\$video2 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout2 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime2 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime2 = Get-Date
        if ($currentTime2 -gt $startTime2 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response2 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response2)
    }
    else {
        $response2 = $default
    }
    Write-Output "You rated video 2 as $($response2.toUpper())"
    $video2 + ": " + $response2 >> $EXTXT
}

Read-KeyOrTimeOut2

# Play video
.\ffmpeg\ffplay playlist\$video3 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout3 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime3 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime3 = Get-Date
        if ($currentTime3 -gt $startTime3 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response3 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response3)
    }
    else {
        $response3 = $default
    }
    Write-Output "You rated video 3 as $($response3.toUpper())"
    $video3 + ": " + $response3 >> $EXTXT
}

Read-KeyOrTimeOut3

# Play video
.\ffmpeg\ffplay playlist\$video1 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout4 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime4 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime4 = Get-Date
        if ($currentTime4 -gt $startTime4 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response4 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response4)
    }
    else {
        $response4 = $default
    }
    Write-Output "You rated video 4 as $($response4.toUpper())"
    $video4 + ": " + $response4 >> $EXTXT
}

Read-KeyOrTimeOut4

# Play video
.\ffmpeg\ffplay playlist\$video5 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout5 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime5 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime5 = Get-Date
        if ($currentTime5 -gt $startTime5 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response5 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response5)
    }
    else {
        $response5 = $default
    }
    Write-Output "You rated video 5 as $($response5.toUpper())"
    $video5 + ": " + $response5 >> $EXTXT
}

Read-KeyOrTimeOut5

# Play video
.\ffmpeg\ffplay playlist\$video6 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout6 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime6 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime6 = Get-Date
        if ($currentTime6 -gt $startTime6 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response6 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response6)
    }
    else {
        $response6 = $default
    }
    Write-Output "You rated video 6 as $($response6.toUpper())"
    $video6 + ": " + $response6 >> $EXTXT
}

Read-KeyOrTimeOut6

# Play video
.\ffmpeg\ffplay playlist\$video7 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout7 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime7 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime7 = Get-Date
        if ($currentTime7 -gt $startTime7 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response7 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response7)
    }
    else {
        $response7 = $default
    }
    Write-Output "You rated video 7 as $($response7.toUpper())"
    $video7 + ": " + $response7 >> $EXTXT
}

Read-KeyOrTimeOut7

# Play video
.\ffmpeg\ffplay playlist\$video8 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout8 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime8 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime8 = Get-Date
        if ($currentTime8 -gt $startTime8 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response8 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response8)
    }
    else {
        $response8 = $default
    }
    Write-Output "You rated video 8 as $($response8.toUpper())"
    $video8 + ": " + $response8 >> $EXTXT
}

Read-KeyOrTimeOut8

# Play video
.\ffmpeg\ffplay playlist\$video9 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout9 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime9 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime9 = Get-Date
        if ($currentTime9 -gt $startTime9 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response9 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response9)
    }
    else {
        $response9 = $default
    }
    Write-Output "You rated video 9 as $($response9.toUpper())"
    $video9 + ": " + $response9 >> $EXTXT
}

Read-KeyOrTimeOut9

# Play video
.\ffmpeg\ffplay playlist\$video10 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout10 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime10 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime10 = Get-Date
        if ($currentTime10 -gt $startTime10 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response10 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response10)
    }
    else {
        $response10 = $default
    }
    Write-Output "You rated video 10 as $($response10.toUpper())"
    $video10 + ": " + $response10 >> $EXTXT
}

Read-KeyOrTimeOut10

# Play video
.\ffmpeg\ffplay playlist\$video11 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout11 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime11 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime11 = Get-Date
        if ($currentTime11 -gt $startTime11 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response11 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response11)
    }
    else {
        $response11 = $default
    }
    Write-Output "You rated video 11 as $($response11.toUpper())"
    $video11 + ": " + $response11 >> $EXTXT
}

Read-KeyOrTimeOut11

# Play video
.\ffmpeg\ffplay playlist\$video12 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout12 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime12 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime12 = Get-Date
        if ($currentTime12 -gt $startTime12 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response12 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response12)
    }
    else {
        $response12 = $default
    }
    Write-Output "You rated video 12 as $($response12.toUpper())"
    $video12 + ": " + $response12 >> $EXTXT
}

Read-KeyOrTimeOut12

# Play video
.\ffmpeg\ffplay playlist\$video13 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout13 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime13 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime13 = Get-Date
        if ($currentTime13 -gt $startTime13 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response13 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response13)
    }
    else {
        $response13 = $default
    }
    Write-Output "You rated video 13 as $($response13.toUpper())"
    $video13 + ": " + $response13 >> $EXTXT
}

Read-KeyOrTimeOut13

# Play video
.\ffmpeg\ffplay playlist\$video14 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout14 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime14 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime14 = Get-Date
        if ($currentTime14 -gt $startTime14 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response14 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response14)
    }
    else {
        $response14 = $default
    }
    Write-Output "You rated video 14 as $($response14.toUpper())"
    $video14 + ": " + $response14 >> $EXTXT
}

Read-KeyOrTimeOut14

# Play video
.\ffmpeg\ffplay playlist\$video15 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout15 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime15 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime15 = Get-Date
        if ($currentTime15 -gt $startTime15 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response15 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response15)
    }
    else {
        $response15 = $default
    }
    Write-Output "You rated video 15 as $($response15.toUpper())"
    $video15 + ": " + $response15 >> $EXTXT
}

Read-KeyOrTimeOut15

# Play video
.\ffmpeg\ffplay playlist\$video16 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout16 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime16 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime16 = Get-Date
        if ($currentTime16 -gt $startTime16 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response16 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response16)
    }
    else {
        $response16 = $default
    }
    Write-Output "You rated video 16 as $($response16.toUpper())"
    $video16 + ": " + $response16 >> $EXTXT
}

Read-KeyOrTimeOut16

# Play video
.\ffmpeg\ffplay playlist\$video17 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout17 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime17 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime17 = Get-Date
        if ($currentTime17 -gt $startTime17 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response17 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response17)
    }
    else {
        $response17 = $default
    }
    Write-Output "You rated video 17 as $($response17.toUpper())"
    $video17 + ": " + $response17 >> $EXTXT
}

Read-KeyOrTimeOut17

# Play video
.\ffmpeg\ffplay playlist\$video18 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout18 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime18 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime18 = Get-Date
        if ($currentTime18 -gt $startTime18 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response18 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response18)
    }
    else {
        $response18 = $default
    }
    Write-Output "You rated video 18 as $($response18.toUpper())"
    $video18 + ": " + $response18 >> $EXTXT
}

Read-KeyOrTimeOut18

# Play video
.\ffmpeg\ffplay playlist\$video19 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout19 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime19 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime19 = Get-Date
        if ($currentTime19 -gt $startTime19 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response19 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response19)
    }
    else {
        $response19 = $default
    }
    Write-Output "You rated video 19 as $($response19.toUpper())"
    $video19 + ": " + $response19 >> $EXTXT
}

Read-KeyOrTimeOut19

# Play video
.\ffmpeg\ffplay playlist\$video20 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout20 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime20 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime20 = Get-Date
        if ($currentTime20 -gt $startTime20 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response20 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response20)
    }
    else {
        $response20 = $default
    }
    Write-Output "You rated video 20 as $($response20.toUpper())"
    $video20 + ": " + $response20 >> $EXTXT
}

Read-KeyOrTimeOut20

# Play video
.\ffmpeg\ffplay playlist\$video21 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout21 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime21 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime21 = Get-Date
        if ($currentTime21 -gt $startTime21 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response21 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response21)
    }
    else {
        $response21 = $default
    }
    Write-Output "You rated video 21 as $($response21.toUpper())"
    $video21 + ": " + $response21 >> $EXTXT
}

Read-KeyOrTimeOut21

# Play video
.\ffmpeg\ffplay playlist\$video22 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout22 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime22 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime22 = Get-Date
        if ($currentTime22 -gt $startTime22 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response22 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response22)
    }
    else {
        $response22 = $default
    }
    Write-Output "You rated video 22 as $($response22.toUpper())"
    $video22 + ": " + $response22 >> $EXTXT
}

Read-KeyOrTimeOut22

# Play video
.\ffmpeg\ffplay playlist\$video23 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout23 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime23 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime23 = Get-Date
        if ($currentTime23 -gt $startTime23 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response23 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response23)
    }
    else {
        $response23 = $default
    }
    Write-Output "You rated video 23 as $($response23.toUpper())"
    $video23 + ": " + $response23 >> $EXTXT
}

Read-KeyOrTimeOut23

# Play video
.\ffmpeg\ffplay playlist\$video24 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout24 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime24 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime24 = Get-Date
        if ($currentTime24 -gt $startTime24 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response24 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response24)
    }
    else {
        $response24 = $default
    }
    Write-Output "You rated video 24 as $($response24.toUpper())"
    $video24 + ": " + $response24 >> $EXTXT
}

Read-KeyOrTimeOut24

# Play video
.\ffmpeg\ffplay playlist\$video25 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout25 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime25 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime25 = Get-Date
        if ($currentTime25 -gt $startTime25 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response25 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response25)
    }
    else {
        $response25 = $default
    }
    Write-Output "You rated video 25 as $($response25.toUpper())"
    $video25 + ": " + $response25 >> $EXTXT
}

Read-KeyOrTimeOut25

# Play video
.\ffmpeg\ffplay playlist\$video26 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout26 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime26 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime26 = Get-Date
        if ($currentTime26 -gt $startTime26 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response26 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response26)
    }
    else {
        $response26 = $default
    }
    Write-Output "You rated video 26 as $($response26.toUpper())"
    $video26 + ": " + $response26 >> $EXTXT
}

Read-KeyOrTimeOut26

# Play video
.\ffmpeg\ffplay playlist\$video27 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout27 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime27 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime27 = Get-Date
        if ($currentTime27 -gt $startTime27 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response27 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response27)
    }
    else {
        $response27 = $default
    }
    Write-Output "You rated video 27 as $($response27.toUpper())"
    $video27 + ": " + $response27 >> $EXTXT
}

Read-KeyOrTimeOut27

# Play video
.\ffmpeg\ffplay playlist\$video28 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout28 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime28 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime28 = Get-Date
        if ($currentTime28 -gt $startTime28 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response28 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response28)
    }
    else {
        $response28 = $default
    }
    Write-Output "You rated video 28 as $($response28.toUpper())"
    $video28 + ": " + $response28 >> $EXTXT
}

Read-KeyOrTimeOut28

# Play video
.\ffmpeg\ffplay playlist\$video29 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout29 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime29 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime29 = Get-Date
        if ($currentTime29 -gt $startTime29 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response29 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response29)
    }
    else {
        $response29 = $default
    }
    Write-Output "You rated video 29 as $($response29.toUpper())"
    $video29 + ": " + $response29 >> $EXTXT
}

Read-KeyOrTimeOut29

# Play video
.\ffmpeg\ffplay playlist\$video30 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout30 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime30 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime30 = Get-Date
        if ($currentTime30 -gt $startTime30 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response30 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response30)
    }
    else {
        $response30 = $default
    }
    Write-Output "You rated video 30 as $($response30.toUpper())"
    $video30 + ": " + $response30 >> $EXTXT
}

Read-KeyOrTimeOut30

# Play video
.\ffmpeg\ffplay playlist\$video31 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout31 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime31 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime31 = Get-Date
        if ($currentTime31 -gt $startTime31 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response31 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response31)
    }
    else {
        $response31 = $default
    }
    Write-Output "You rated video 31 as $($response31.toUpper())"
    $video31 + ": " + $response31 >> $EXTXT
}

Read-KeyOrTimeOut31

# Play video
.\ffmpeg\ffplay playlist\$video32 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout32 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime32 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime32 = Get-Date
        if ($currentTime32 -gt $startTime32 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response32 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response32)
    }
    else {
        $response32 = $default
    }
    Write-Output "You rated video 32 as $($response32.toUpper())"
    $video32 + ": " + $response32 >> $EXTXT
}

Read-KeyOrTimeOut32

# Play video
.\ffmpeg\ffplay playlist\$video33 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout33 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime33 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime33 = Get-Date
        if ($currentTime33 -gt $startTime33 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response33 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response33)
    }
    else {
        $response33 = $default
    }
    Write-Output "You rated video 33 as $($response33.toUpper())"
    $video33 + ": " + $response33 >> $EXTXT
}

Read-KeyOrTimeOut33

# Play video
.\ffmpeg\ffplay playlist\$video34 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout34 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime34 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime34 = Get-Date
        if ($currentTime34 -gt $startTime34 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response34 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response34)
    }
    else {
        $response34 = $default
    }
    Write-Output "You rated video 34 as $($response34.toUpper())"
    $video34 + ": " + $response34 >> $EXTXT
}

Read-KeyOrTimeOut34

# Play video
.\ffmpeg\ffplay playlist\$video35 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout35 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime35 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime35 = Get-Date
        if ($currentTime35 -gt $startTime35 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response35 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response35)
    }
    else {
        $response35 = $default
    }
    Write-Output "You rated video 35 as $($response35.toUpper())"
    $video35 + ": " + $response35 >> $EXTXT
}

Read-KeyOrTimeOut35

# Play video
.\ffmpeg\ffplay playlist\$video36 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout36 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime36 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime36 = Get-Date
        if ($currentTime36 -gt $startTime36 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response36 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response36)
    }
    else {
        $response36 = $default
    }
    Write-Output "You rated video 36 as $($response36.toUpper())"
    $video36 + ": " + $response36 >> $EXTXT
}

Read-KeyOrTimeOut36

# Play video
.\ffmpeg\ffplay playlist\$video37 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout37 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime37 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime37 = Get-Date
        if ($currentTime37 -gt $startTime37 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response37 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response37)
    }
    else {
        $response37 = $default
    }
    Write-Output "You rated video 37 as $($response37.toUpper())"
    $video37 + ": " + $response37 >> $EXTXT
}

Read-KeyOrTimeOut37

# Play video
.\ffmpeg\ffplay playlist\$video38 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout38 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime38 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime38 = Get-Date
        if ($currentTime38 -gt $startTime38 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response38 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response38)
    }
    else {
        $response38 = $default
    }
    Write-Output "You rated video 38 as $($response38.toUpper())"
    $video38 + ": " + $response38 >> $EXTXT
}

Read-KeyOrTimeOut38

# Play video
.\ffmpeg\ffplay playlist\$video39 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout39 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime39 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime39 = Get-Date
        if ($currentTime39 -gt $startTime39 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response39 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response39)
    }
    else {
        $response39 = $default
    }
    Write-Output "You rated video 39 as $($response39.toUpper())"
    $video39 + ": " + $response39 >> $EXTXT
}

Read-KeyOrTimeOut39

# Play video
.\ffmpeg\ffplay playlist\$video40 -fs -autoexit

# Clear the hosts shell
Clear-Host

# Rating
function Read-KeyOrTimeout40 {
    Param(
           [int]$seconds = 10,
        [string]$prompt = 'Rate quality 1-5 where 1 = WORST and 5 = BEST',
        [string]$default = '0'
    )
    $startTime40 = Get-Date
    $timeOut = New-TimeSpan -Seconds $seconds

    Write-Host $prompt

    while (-not $host.ui.RawUI.KeyAvailable) {
        $currentTime40 = Get-Date
        if ($currentTime40 -gt $startTime40 + $timeOut) {
            Break
        }
    }
    if ($host.ui.RawUI.KeyAvailable) {
        Do { [string]$response40 = ($host.ui.RawUI.ReadKey("IncludeKeyDown,NoEcho")).character}
        while ((1..5) -notcontains $response40)
    }
    else {
        $response40 = $default
    }
    Write-Output "You rated video 40 as $($response40.toUpper())"
    $video40 + ": " + $response40 >> $EXTXT
}

Read-KeyOrTimeOut40



# Clear the hosts shell
Clear-Host

# End
# Please add url when aviable
Write-host 'Thank you very much. You can find output file on your desktop (vq.txt). Please upload it to website.'
Write-host 'Press any key to exit...'
$x = $host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown")
Vystup vyzera takto (mozes ho pouzit vo svojej praci, okuliare nenosim):
Spoiler

Kód: Vybrať všetko

peter@DESKTOP
OS: Microsoft Windows 10 Pro 64-bit
Model: Z97X-SLI
Kernel: 10.0.17134
Uptime: 3d 10h 20m 
Resolution: 2560x1440
Monitor: Generic PnP Monitor
CPU: Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz
GPU: NVIDIA GeForce GTX 1060 6GB
Memory: 4,240MB / 12,215MB
01_Bund_Nightscape_FHD_30fps_420_8bit_VP9_10M.mp4: 5
02_Bund_Nightscape_FHD_30fps_420_8bit_VP9_3M.mp4: 4
03_Bund_Nightscape_FHD_30fps_420_8bit_VP9_1M.mp4: 3
04_Bund_Nightscape_FHD_30fps_420_8bit_VP9_15M.mp4: 4
05_Bund_Nightscape_FHD_30fps_420_8bit_VP9_5M.mp4: 3
06_Campfire_Party_FHD_30fps_420_8bit_VP9_5M.mp4: 3
07_Campfire_Party_FHD_30fps_420_8bit_VP9_10M.mp4: 4
08_Campfire_Party_FHD_30fps_420_8bit_VP9_15M.mp4: 4
09_Campfire_Party_FHD_30fps_420_8bit_VP9_3M.mp4: 1
10_Campfire_Party_FHD_30fps_420_8bit_VP9_1M.mp4: 1
11_Construction_Field_FHD_30fps_420_8bit_VP9_10M.mp4: 4
12_Construction_Field_FHD_30fps_420_8bit_VP9_1M.mp4: 3
13_Construction_Field_FHD_30fps_420_8bit_VP9_5M.mp4: 4
14_Construction_Field_FHD_30fps_420_8bit_VP9_3M.mp4: 3
15_Construction_Field_FHD_30fps_420_8bit_VP9_15M.mp4: 5
16_Fountains_FHD_30fps_420_8bit_VP9_15M.mp4: 3
17_Fountains_FHD_30fps_420_8bit_VP9_5M.mp4: 2
18_Fountains_FHD_30fps_420_8bit_VP9_10M.mp4: 2
19_Fountains_FHD_30fps_420_8bit_VP9_3M.mp4: 1
20_Fountains_FHD_30fps_420_8bit_VP9_1M.mp4: 1
21_Marathon_FHD_30fps_420_8bit_VP9_5M.mp4: 4
22_Marathon_FHD_30fps_420_8bit_VP9_1M.mp4: 1
23_Marathon_FHD_30fps_420_8bit_VP9_15M.mp4: 5
24_Marathon_FHD_30fps_420_8bit_VP9_3M.mp4: 2
25_Marathon_FHD_30fps_420_8bit_VP9_10M.mp4: 4
26_Runners_FHD_30fps_420_8bit_VP9_3M.mp4: 3
27_Runners_FHD_30fps_420_8bit_VP9_5M.mp4: 4
28_Runners_FHD_30fps_420_8bit_VP9_15M.mp4: 5
29_Runners_FHD_30fps_420_8bit_VP9_1M.mp4: 1
30_Runners_FHD_30fps_420_8bit_VP9_10M.mp4: 5
31_Tall_Buildings_FHD_30fps_420_8bit_VP9_5M.mp4: 4
32_Tall_Buildings_FHD_30fps_420_8bit_VP9_15M.mp4: 5
33_Tall_Buildings_FHD_30fps_420_8bit_VP9_3M.mp4: 3
34_Tall_Buildings_FHD_30fps_420_8bit_VP9_10M.mp4: 4
35_Tall_Buildings_FHD_30fps_420_8bit_VP9_1M.mp4: 2
36_Wood_FHD_30fps_420_8bit_VP9_3M.mp4: 2
37_Wood_FHD_30fps_420_8bit_VP9_10M.mp4: 3
38_Wood_FHD_30fps_420_8bit_VP9_5M.mp4: 4
39_Wood_FHD_30fps_420_8bit_VP9_1M.mp4: 1
40_Wood_FHD_30fps_420_8bit_VP9_15M.mp4: 4
Bartran
Novice
Novice
Príspevky: 5
Registrovaný: 16 máj 2018, 15:33

Re: Zhodnotenie videí do bakalarky

Príspevok od používateľa Bartran »

treba stiahnúť celý archív inak skript nefunguje, súčasťou je aj ffmpeg prehrávač.
práve to som nechcel, aby ste museli videá po jednom prehrávať a ku každému pracne značiť hodnotenie.
skript vám videá automaticky a v náhodnom poradí spúšťa, po prehratí vám nechá 10 sekúnd na zadanie hodnotenia, keď hodnotenie zadáte ihneď sa spustí ďalšie video
hojko
Site Admin
Site Admin
Používateľov profilový obrázok
Príspevky: 38515
Registrovaný: 24 apr 2004, 18:29
Bydlisko: Európa
Kontaktovať používateľa:

Re: Zhodnotenie videí do bakalarky

Príspevok od používateľa hojko »

Ked uz mam nieco pozerat, tak mali byt vsetky videa napr. na YouTube pod jednym kanalom, aby sa prehravali rad radom. Takto sa to veru nerobi :nono:
Gothar
Moderátor
Moderátor
Používateľov profilový obrázok
Príspevky: 19413
Registrovaný: 21 feb 2005, 21:19
Bydlisko: KE

Re: Zhodnotenie videí do bakalarky

Príspevok od používateľa Gothar »

Youtube zasahuje do kompresie, tym by sa mohli skreslit vysledky. Chcelo by to web, kde by sa prehravalo priamo zdrojove video.
Bartran
Novice
Novice
Príspevky: 5
Registrovaný: 16 máj 2018, 15:33

Re: Zhodnotenie videí do bakalarky

Príspevok od používateľa Bartran »

radil som sa ešte s vedúcim práce a povedal mi, že to nesmie byť nahraté na Youtube, lebo videá by mohli byť ovplyvňované aspektom siete, mohlo by dôjsť k vzniku nežiadúcich artefaktov pri pomalšom prenose napr. kockovanie videa. v rámci práce neskúmam vplyv siete na kvalitu videa, preto je potrebné videa prehrať lokálne z PC respondenta
ohodnotili by ste mi to niekto?
ďakujem
Gothar
Moderátor
Moderátor
Používateľov profilový obrázok
Príspevky: 19413
Registrovaný: 21 feb 2005, 21:19
Bydlisko: KE

Re: Zhodnotenie videí do bakalarky

Príspevok od používateľa Gothar »

V mojom prispevku vyssie som pridal vysledky. Kvoli transparentnosti som to dal takto verejne, aby ostatni videli, aky je vystup.
Bartran
Novice
Novice
Príspevky: 5
Registrovaný: 16 máj 2018, 15:33

Re: Zhodnotenie videí do bakalarky

Príspevok od používateľa Bartran »

Nový postup hodnotenia je bez skriptu. Treba si len stiahnuť videá z priloženého súboru, spustiť a hodnotenia zaznamenať do excel súboru.
mirak2
Hardcore addict
Hardcore addict
Používateľov profilový obrázok
Príspevky: 6719
Registrovaný: 18 sep 2005, 13:44
Bydlisko: Prague, CZE / Kosice, SVK

Re: Zhodnotenie videí do bakalarky

Príspevok od používateľa mirak2 »

Gothar napísal:Youtube zasahuje do kompresie, tym by sa mohli skreslit vysledky. Chcelo by to web, kde by sa prehravalo priamo zdrojove video.
napr. streamable.com ?
Napísať odpoveď