Passa ai contenuti principali

WP8 : Installare dinamicamente i Voice Command Definition, DynamicVCD

I Voice Command Definition sono dei file XML che permettono di configurare quali sono i comandi vocali, gestiti da Windows Phone 8, a cui la nostra applicazione risponde.

Per una trattazione più approfondita sull’argomento vi rimando al blog di Michele Locuratolo (anatomia del file VCD, registrazione del file VCD, Gestione del Voice Command).

In questo post vorrei suggerire un modo per gestire dinamicamente l’installazione e la configurazione di tali file.

Una app può installare un solo VCD e, una volta installato, si possono solamente modificare le phrase list e non si possono aggiungere o rimuovere i comandi (a meno di non reinstallare il file).

L’idea è quella di creare una struttura dati che descriva il voice command definition:

image

e, utilizzando, queste strutture costruire “al volo” i file VCD da salvare su storage e installare in maniera “canonica”.

  1. Public Shared Async Function InstallVoiceCommandDefinitionAsync(voiceCommandDefinition As VoiceCommandDefinition) As Task
  2.     If voiceCommandDefinition Is Nothing Then Throw New ArgumentNullException("voiceCommandDefinition")
  3.     Try
  4.         Dim xmlString = CreateXml(voiceCommandDefinition)
  5.         If Await SaveAsync(VCDFileName, xmlString) Then
  6.             Await MSSpeech.VoiceCommandService.InstallCommandSetsFromFileAsync(GetLocalUri(VCDFileName))
  7.         End If
  8.     Catch ex As Exception
  9.         Dim newEx = ExceptionFactory.CreateException(ex)
  10.         Throw newEx
  11.     End Try
  12. End Function

In questo contesto non stiamo a dettagliare i vari metodi utilizzati (anche perchè il codice è disponibile su Codeplex).

In sostanza potremo creare una nostra classe VoiceCommandService che fa da wrapper all’omologa fornita dalle Speech API di Windows Phone 8 e che fornisce, oltre alle funzioni di serie, anche la possibilità di creare ed installare al volo un VCD.

Un esempio può essere:

  1. Public Async Function InstallVCD() As task
  2.     Dim vcd = New VoiceCommandDefinition
  3.     ' Define command set
  4.     Dim cs = New CommandSet
  5.     cs.Name = "MyAppCommandSet"
  6.     cs.Culture = "en-US"
  7.     cs.CommandPrefix = "MyApp"
  8.     cs.Example = "Sample"
  9.     vcd.AddCommandSet(cs)
  10.     ' Define single Command
  11.     Dim c = New Command() With {.Name = "OpenDocument",
  12.                                 .Feedback = "I'm opening a document...",
  13.                                 .Example = "Open a document"}
  14.     c.ListenForList.Add("open [a] document")
  15.     c.ListenForList.Add("show [a] document")
  16.     cs.AddCommand(c)
  17.     ' Try to install the VCD
  18.     Try
  19.         Await VoiceCommandService.InstallVoiceCommandDefinitionAsync(vcd)
  20.         MessageBox.Show("VCD installed correctly")
  21.     Catch ex As Exception
  22.         MessageBox.Show(ex.Message)
  23.     End Try
  24. End Function

Sta alla nostra fantasia, poi, utilizzare le funzionalità di configurazione al volo in maniera opportuna. Ad esempio si potrebbero attivare comandi in base alle funzionalità acquistate dall’utente o permettere allo stesso di personalizzare i propri comandi.

Il progetto, il cui nome è DynamicVCD, è disponibile in licensa Ms-PL su CodePlex all’indirizzo https://dynamicvcd.codeplex.com/ ed è disponibile anche su NuGet (https://www.nuget.org/packages/DynamicVCD/).

Critiche, consigli e proposte di nuove funzionalità sono bene accetti! Winking smile

Commenti

Post popolari in questo blog

VB.NET : Aggregare stringhe con LINQ

Tip facile facile, ma a qualcuno potrebbe servire. Supponiamo di avere una lista di stringhe (magari come risultato di una query LINQ) e di voler ottenere una stringa con la concatenazione delle stesse: Dim list = CreateList() Dim concatStr = (From s In list _ Select s).Aggregate( Function (currentString, nextString) currentString + nextString) MessageBox.Show(concatStr) Il metodo CreateList non ci interessa, in questo momento, ma crea una lista di oggetti String. Protected Function CreateList() As IEnumerable( Of String ) Dim list As String () = {" stringa1 ", " stringa2 ", " stringa3 ", " stringa4 ", " stringa5 "} Return list.AsEnumerable() End Function Questo metodo potrebbe restituire una qualsiasi lista di oggetti di cui, nella select successiva recuperiamo solo stringhe. La stessa tecnica è utilizzabile per concatenare stringhe inserendovi un carattere separatore Dim list = CreateList() Dim

VB.NET: SplashScreen con effetto fade-in

In questo post vorrei proporvi un modo per realizzare una splash screen per le nostre applicazioni Windows Form che appare progressivamente con un effetto fade. Supponiamo di avere il nostro progetto VB.NET in una soluzione Visual Studio 2008 in cui abbiamo il sorgente della nostra applicazione Windows Form. Inseriamo una splash screen utilizzando il menù Progetto->Aggiungi Nuovo Elemento e selezionando il tipo di elemento “Schermata Iniziale” A questo punto Visual Studio creerà, automaticamente, la schermata iniziale che possiamo personalizzare graficamente come vogliamo. Per poter fare in modo che questa finestra appaia nel momento in cui avviamo l’applicazione, è necessario aprire le proprietà del progetto e impostare la maschera di avvio: In questo modo, all’avvio dell’applicazione, la schermata appare immediatamente e scompare un attimo prima della visualizzazione della finestra dell’applicazione. Possiamo far apparire la schermata iniziale con un ef

VB.NET: Convertire un file DOC in RTF e PDF con office interop

In questo post vorrei proporvi del codice per poter convertire un file .doc in un file .rtf oppure .pdf utilizzando le API di interoperabilità di Office. Creeremo una classe, DocConverter, che esporrà le due funzionalità sopra citate. Cominciamo con il prevedere un attributo privato della classe che rappresenterà l’applicazione Word che utilizzeremo per la conversione. Creeremo l’istanza dell’attributo privato all’interno del costruttore della classe: Public Sub New () If Not CreateWordApp() Then Throw New ApplicationException(" Assembly di interoperabilità con Office non trovato! ") End If End Sub Private _wordApp As Word.ApplicationClass Protected Function CreateWordApp() As Boolean Dim retval = True Try _wordApp = New Word.ApplicationClass() _wordApp.Visible = False Catch ex As System.Exception _wordApp = Nothing retval = False End Try Return retval End Function La conve