Jibberish

Automatic creation of GUI Radio Buttons based on input from a file

3 posts in this topic

#1 ·  Posted

Hi,

I am automating the testing of a video player. I search a file for ".mp4" and want to create a GUI with radio buttons to select what video to play. The number of videos can change based on the user's library so this must be created automatically.  I have searched for how to accomplish this and there are several posts out there that help a little but I can't figure out the solution. I pulled the offending code from my main script and created the file below to make this easier to read. I am sure one of our experts here can help!

#include <MsgBoxConstants.au3>
#include <StringConstants.au3>
#include <array.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>


Local $sMediaFile = "D:\MediaFiles\MediaFiles.txt"
Local $iStrReturn = 0
Local $aText
Local $aArrayFile
Local $iMax = 6 ;Default number of Videos - 1 for the array counter
Local $aVideoName[$iMax] = [0]
Local $sCheckBox1
Local $iT = 0, $iVideoCount = 0, $iCount
Local $ix = 0
Local $iy = 0
Local $idClose1
Const $iL = 10  ; Count from Left for GUI so all buttons line up

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;
;   Read a list of video file names and create a GUI with Radio Buttons to select a single video.
;   Problem: We don't know how many video names will be in the text file, so we can't hard code Case Statements & their variables

; Put the Video File Names into an Array
_FileReadToArray($sMediaFile, $aArrayFile)
For $a = 1 To $aArrayFile[0]    ; Step through the array looking for .mp4
    If StringInStr($aArrayFile[$a], ".mp4") Then
        $iVideoCount = $iVideoCount + 1
        $aText = StringSplit($aArrayFile[$a],"\\")  ; This video player reads double backslashes
        For $a1 = 1 to $aText[0]
        ; Check that the array is big enough
            If StringInStr($aText[$a1], ".mp4") Then
                ;MsgBox(0,"","Video is " & $aText[$a1])
                If UBound($aVideoName) = $iVideoCount Then
                    ; Resize the array when $iCount is equal to the element count in the array to prevent subscript error
                    ReDim $aVideoName[$aVideoName[0] + $iMax]
                EndIf

                $aVideoName[$iVideoCount] = $aText[$a1]; add data to new index element

                $aVideoName[0] = $a1 ; update the index count for future reference

                ;   The idea is to create a GUI width to accommodate long video file names
                $it = StringLen($aVideoName[$iVideoCount])
                If $iT > $ix Then
                    $ix = $iT
                EndIf
            EndIf
        Next
    EndIf
Next
; Move backwards through the array deleting blank rows
For $iCount = UBound($aVideoName) - 1 To 0 Step -1
    If $aVideoName[$iCount] = "" Then
        _ArrayDelete($aVideoName, $iCount)
    EndIf
Next
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;
;   Create the GUI - Names and Radio Button counts will vary - How do I do this?
;
;_ArrayDisplay($aVideoName)
;Local $aVarName[$aVideoName[0]]
Local $iRows = UBound($aVideoName, $UBOUND_ROWS)
$iRows = $iRows -1
$aVideoName[0] = $iRows
; Prep the GUI to display the FileNames with Radio Buttons - Can only select one at a time.
$a = 0
$ix = $ix + 200
$iy = ($aVideoName[0] * 30) + 60
$hGUI = GUICreate("Videos", $ix, $iy)
;$iT = $iT+30

;   Create the variable names for the Case statement - Video count may change so Video Names displayed and GUICtrlCreateRadio count may change.

;~ For $a = 1 to $aVarName[0]
;~  If UBound($aVarName) = $aVarName Then
;~      ; Resize the array when $iCount is equal to the element count in the array to prevent subscript error
;~      ReDim $aVarName[$aVarName[0] + $iMax]
;~  EndIf

;~  Assign("$bVideoName" & $a, $a)
;~  Local $aVarName[$a] = Eval($bVideoName[$a])
;~ ;    $aVarName[$a] = GUICtrlCreateRadio($aVarName[$a], $iL, $iT)
;~ Next
$iCount = 1
;MsgBox(0,"","VideoName[0] is "&$aVideoName[0])
;_ArrayDisplay($aVideoName)
Local $bVideoName1
If $iCount < $aVideoName[0] Then
    $bVideoName1 = GUICtrlCreateRadio($aVideoName[$iCount], $iL, $iT)
    GUICtrlSetState($bVideoName1, $GUI_CHECKED)
    $iT = $iT+30
EndIf
$iCount = $iCount + 1
If $iCount <= ($aVideoName[0]) Then
    Local $bVideoName2 = GUICtrlCreateRadio($aVideoName[$iCount],$iL,$iT)
    $iT = $iT+30
EndIf
$iCount = $iCount + 1
If $iCount <= ($aVideoName[0]) Then
    Local $bVideoName3 = GUICtrlCreateRadio($aVideoName[$iCount],$iL,$iT)
    $iT = $iT+30
EndIf
$iCount = $iCount + 1
If $iCount <= ($aVideoName[0]) Then
    Local $bVideoName4 = GUICtrlCreateRadio($aVideoName[$iCount],$iL,$iT)
    $iT = $iT+30
EndIf
$iCount = $iCount + 1
If $iCount <= ($aVideoName[0] -1) Then
    Local $bVideoName5 = GUICtrlCreateRadio($aVideoName[$iCount],$iL,$iT)
    $iT = $iT+30
EndIf
$iCount = $iCount + 1
If $iCount <= ($aVideoName[0] -1) Then
    Local $bVideoName6 = GUICtrlCreateRadio($aVideoName[$iCount],$iL,$iT)
    $iT = $iT+30
EndIf
$iCount = $iCount + 1
If $iCount <= ($aVideoName[0] -1) Then
    Local $bVideoName7 = GUICtrlCreateRadio($aVideoName[$iCount],$iL,$iT)
    $iT = $iT+30
EndIf

$iT = $iT + 30
$idClose1 = GUICtrlCreateButton("Go!", $iL, $iT)
GUISetState(@SW_SHOW)

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;
;   Switch Statement
;
;Local $nMsg = ""
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $bVideoName1

        Case $bVideoName2

        Case $bVideoName3

        Case $bVideoName4

        Case $bVideoName5

        ;Case $bVideoName6 <- Fails because there are only 5 videos - Need variable $bVideoNames

        ;Case $bVideoName7 <- Fails because there are only 5 videos

        Case $idClose1
            $bVideoName1 = GUICtrlRead($bVideoName1)
            $bVideoName2 = GUICtrlRead($bVideoName2)
            $bVideoName3 = GUICtrlRead($bVideoName3)
            $bVideoName4 = GUICtrlRead($bVideoName4)
            $bVideoName5 = GUICtrlRead($bVideoName5)
            ;$bVideoName6 = GUICtrlRead($bVideoName6)
            ;$bVideoName7 = GUICtrlRead($bVideoName7)
        ExitLoop
    EndSwitch
WEnd
GUIDelete($nMsg)
MsgBox(0,"","Case " & $nMsg & " was selected.") ;   Always returns 8. ???

This is the "MediaFiles.txt" file I am reading:

D:\\MediaFiles\\BigBuckBunny.mp4
D:\\MediaFiles\\BigBuckBunny60fps.mp4
D:\\MediaFiles\\Sintel.mp4
D:\\MediaFiles\\sintel-2048-surround.mp4
D:\\MediaFiles\\TearsOfSteel.mp4
D:\\MediaFiles\\tearsofsteel_4K.mp4

I'm sure I have several mistakes (or poor coding methods) in my AutoIt file.

Share this post


Link to post
Share on other sites



#2 ·  Posted

This subject has been discussed lately. I have posted some example code in the following thread.

 


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

#3 ·  Posted

Thanks Water. I am reviewing your code to try to understand it!

Of course I am reading a .json file and not a .ini file so I will have to replace the IniReadSection lines...

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now

  • Similar Content

    • Skeletor
      By Skeletor
      MS Splash Screens
      The office 2016/17 office suite has made many people turn heads with its functions and especially their splash screen.
      I now present to you, the MS Style Splash Screen. For Rookies, Novices and anyone who wants a ready made splash screen for your gui application.

      You can now download it and also try it out yourself.
      You have three colors to choose from:
      Blue
      Red
      Green
      All three colours are from the famous programs.
      I also included the KODA form to you can have freedom with this splash screen.
      Note: the KODA form does not have the three colours as well as the correct blue. 

      Have fun and enjoy.
      Note:
      I will update the splash to add the automated 3 dots animation at a later stage. 
       
       
    • Skeletor
      By Skeletor
      A gui splash screen. Themed after the famous MS Office Suite.
      Three colours to choose from, Red, Blue and Green.
      You can change the labels to your own application.

      Also bundled with this is the KODA form. So you can open up and see the basic structure of this splash screen.
       
      Splash Screen GUI.zip
    • BlazerV60
      By BlazerV60
      Hello all,
      I've been trying to figure out how to launch Google Chrome in the background (hidden) but it doesn't seem possible. I've tried the following methods:
      ShellExecute("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "", "", "", @SW_HIDE) Also I've tried:
      ShellExecute(@ComSpec, "/c start chrome.exe","","",@SW_HIDE) Lastly I tried:
      RunWait('"'&@ProgramFilesDir&'\Google\Chrome\Application\chrome.exe" --silent-launch',@ScriptDir)  
      But all of them launch my chrome browser without hiding it. Does anyone know a workaround for this or if AutoIT just can't Chrome? 
      Bonus points if you know how to make it launch chrome hidden and make it go to https://www.autoitscript.com
       
      Thank you,
      Brian
    • SteveJM
      By SteveJM
      I have a working program currently driven largely through menu selections. I would like to add a toolbar where most of the tollbar button actions are basically the same as menu items, but quicker to access. I have been wading around in toolbar examples, MSDN pages etc, it's clearly going to be a bit of a slog to get everything right, including tooltips etc. I thought I would start with something simple to prove the principle.
      Using bits from the help file examples I have a small program that successfully displays a toolbar. However, what seemed like the most elegant way to deal with the button commands does not seem to work. My understanding was that a toolbar button fires a WM_COMMAND message, with the command Id set by the second parameter in the call to
      _GUICtrlToolbar_AddButton ( $hWnd, $iID, $iImage)
      so I though it would be a good idea to set this Id to the same value as my menu item Id; then it would run the same task which is what I wanted. This did not work. I am using message loop mode and would like to stick with this because some of my scripts run hardware at the same time as the gui; it is easier if I don't have to worry about code being interrupted with the hardware in an unknown state . So I added a handler for WM_COMMAND, with some cribbed display code to try and see why. The toolbar button defintely fired a WM_COMMAND message and the Id looked the same, so no explanation there.
      I guess the issue is with GUIGetMsg() which may be constructed to ignore all but a limited number of control handles, i.e. those made with the GuiCtrlCreate... commands; this is speculation.
      I would dearly love to find a tidy way to get around this. Having some controls handled in the message loop and some in a WM_COMMAND handler, performing the same task, feels ugly. I would be very grateful for further insight from someone experienced with handling a toolbar. Perhaps I should be trying to fire the menu item. I have attached a code snippet to try and illustrate the issue.
       
       
       
      ToolbarTrial.au3
    • XinYoung
      By XinYoung
      Hello all,
      I've been working on 4 standalone scripts. They each have their own GUI and are now independent .exe's. But instead of having 4 separate icons on my computer, is it possible to put them all together into one .exe?
      What I want is one interface with tabs. Each script's GUI would be on their own respective tab. Is this possible?
      The different scripts don't need to communicate with one another. I just want them all in one .exe.
      I can't find this anywhere... Any help would be greatly appreciated. Thank you!