Home

Manual Tecnico - Repositorio CISC

1. report AttachFile fileName attachmentName mimeType description PublishReport OpenReport Catch ex As Exception MsgBox ex ToString End Try End Sub Procedimiento que invoca procedimiento que crear un pdf Private Sub Tpdf_Click ByVal sender As System Object ByVal e As System EventArgs Handles Tpdf Click pdf End Sub Procedimiento que llama al procedimiento que imprime informacion Private Sub Timprimir_Click ByVal sender As System Object ByVal e As System EventArgs Handles Timprimir Click imprimiendo End Sub Procedimiento que configure la hoja a imprimir Private Sub PrintDocument1_PrintPage ByVal sender As System Object ByVal e As System Drawing Printing PrintPageEventArgs Handles PrintDocumentl PrintPage Dim numCaract As Integer Dim numLineas As Integer Dim strParaPagina As String Dim strFormato As New StringFormat define un rect ngulo bas ndose en la configuraci n de p gina 43 Dim rectDibujar As New RectangleF _ e MarginBounds Left e MarginBounds Top _ e MarginBounds Width e MarginBounds Height Define un rea para calcular el texto que cabe en una p gina Disminuye en una l nea la altura para asegurar el texto no se sale Dim medidaTama o As New SizeF e MarginBounds Width _ e MarginBounds Height Fuentelmpr GetHeight e Graphics Cuando escribe cadenas largas las separa entre palabras strFormato Trimming StringTrimming Word Calcula cuantos caracteres y l neas pueden caber ba
2. 16 Me hablado TabStop False Tguardar Me Tguardar Location New System Drawing Point 754 697 Me Tguardar Name Tguardar Me Tguardar Size New System Drawing Size 124 41 Me Tguardar TabIndex 18 Me Tguardar Text Guardar Timprimir Me Timprimir Location New System Drawing Point 1056 697 Me Timprimir Name Timprimir Me Timprimir Size New System Drawing Size 128 40 Me Timprimir TabIndex 20 69 Me Timprimir Text Imprimir 1 Tpdf Me Tpdf Location New System Drawing Point 910 697 Me Tpdf Name Tpdf Me Tpdf Size New System Drawing Size 124 41 Me Tpdf TabIndex 19 Me Tpdf Text Exportar a Pdf PrintDialog1 t Me PrintDialog1 UseEXDialog True T PrintDocumentl 1 RadMenultem1 Me RadMenultem1 Items AddRange New Telerik WinControls RadItem Me u_Ingresar Me u_modificar Me RadMenultem1 Name RadMenultem1 Me RadMenultem1 Text Usuario u_Ingresar 1 Me u_Ingresar Name u_Ingresar Me u_Ingresar Text Ingresar 1 u_modificar 70 1 Me u_modificar Name u_modificar Me u_modificar Text Moficar 1 ayuda Me ayuda Name ayuda Me ayuda Text Ayuda 1 RadLabell Me RadLabell Font New System Drawing Font Microsoft Sans Serif 12 0 System Drawing FontStyle Regular System Drawing GraphicsUnit Point CType 0 Byte Me RadLabell Location New System Drawing Point 745 43 Me RadLabell Name Rad
3. Me observacion New Telerik WinControls UI RadTextBox Me Scopel New Mitov PlotLab Scope Me components Me aprender New Telerik WinControls UI RadMenultem Me color New Telerik WinControls RadColorDialog Me menuprincipal New Telerik WinControls ULRadMenu Me menutemas New Telerik WinControls UI RadMenultem Me Menu_Letras New Telerik WinControls UI RadMenultem Me Menu_Color New Telerik WinControls ULRadMenultem Me RadMenultem2 New Telerik WinControls UI RadMenultem Me menu_Ingreso New Telerik WinControls UI RadMenultem Me RadMenultem4 New Telerik WinControls UI RadMenultem Me menuAprender New Telerik WinControls UI RadMenultem Me informacion New System Windows Forms RichTextBox Me DsAudioOut1 New Mitov AudioLab DS AudioOut Me components Me DsAudioPlayerl New Mitov AudioLab DS AudioPlayer Me components Me DsAudioOut2 New Mitov AudioLab DS AudioOut Me components Me DsAudioPlayer2 New Mitov AudioLab DS AudioPlayer Me components Me PictureBox1 New System Windows Forms PictureBox 67 CType Me hablado System ComponentModel ISupportInitialize BeginInit CType Me Tguardar System ComponentModel ISupportInitialize BeginInit CType Me Timprimir System ComponentModel ISupportlnitialize Beginlnit CType Me Tpdf System ComponentModel ISupportInitialize BeginInit CType Me RadLabell System ComponentModel ISupportInitialize BeginInit CType Me volumen System ComponentModel ISuppor
4. New System Drawing Font Microsoft Sans Serif 12 0 System Drawing FontStyle Regular System Drawing GraphicsUnit Point CType 0 Byte Me RadLabel4 Location New System Drawing Point 754 500 Me RadLabel4 Name RadLabel4 Me RadLabel4 Size New System Drawing Size 118 22 Me RadLabel4 TabIndex 27 Me RadLabel4 Text Observaciones Me RadLabel4 ThemeName Desert 72 1 fuente Me fuente Enabled False Me fuente Location New System Drawing Point 751 628 Me fuente Multiline True Me fuente Name fuente 1 1 1 Me fuente RootElement StretchVertically True Me fuente Size New System Drawing Size 426 45 Me fuente TabIndex 29 Me fuente TabStop False 1 RadLabel5 Me RadLabel5 Font New System Drawing Font Microsoft Sans Serif 12 0 System Drawing FontStyle Regular System Drawing GraphicsUnit Point CType 0 Byte Me RadLabel5 Location New System Drawing Point 754 590 Me RadLabel5 Name RadLabel5 Me RadLabel5 Size New System Drawing Size 59 22 Me RadLabel5 TabIndex 30 Me RadLabel5 Text Fuente Me RadLabel5 ThemeName Desert 1 observacion t Me observacion Enabled False Me observacion Location New System Drawing Point 749 530 73 Me observacion Multiline True Me observacion Name observacion 1 1 Me observacion RootElement StretchVertically True Me observacion Size New System Drawing Size 426 43 Me observacion TabInd
5. confi color Dim insertText As String informacion Text Dim range As Microsoft Office Interop Word Range doc Range Start 0 End 0 range Text insertText doc SaveAs c SEUZ DOCUMENTOS SEUZ DOC doc Close True Process Start c SEUZ DOCUMENTOS SEUZ DOC Catch ex As Exception MessageBox Show Error accessing Word document 51 End Try End Sub Procedimiento que me permite crear un archivo de word 2007 Public Sub WORD_20070 Dim word As New Microsoft Office Interop Word Application Dim doc As Microsoft Office Interop Word Document Try doc word Documents Add word Selection Font Name confi tipo_letra word Selection Font Size confi tamafo_letra word Selection Font Color confi color Dim insertText As String informacion Text Dim range As Microsoft Office Interop Word Range doc Range Start 0 End 0 range Text insertText doc SaveAs c SEUZ DOCUMENTOS SEUZ DOCX doc Close True Process Start c SEUZ DOCUMENTOS SEUZ DOCX Catch ex As Exception MessageBox Show Error accessing Word document End Try End Sub Procedimiento que me permite crear un archivo txt Public Sub ARCHIVO Try Crea el archivo FileOpen 1 c SEUZ DOCUMENTOS SEUZ TXT OpenMode Output escribe el contenido PrintLine 1 informacion Text 52 FileClose 1 Process Start c SEUZ DOCUMENTOS SEUZ TXT Catch ex As Exception End Try End Sub Procedimiento que me permite guardar la informaci n del sistema en
6. Byte Integer OptionalLabell Font New Vcl VclFont System Drawing Color FromArgb CType CType 255 Byte Integer 76 CType CType 255 Byte Integer CType CType 255 Byte Integer Arial Vcl FontCharset Default Vcl FontPitch Default True 11 New Vcl FontStyles 0 OptionalLabell Text ChannelMouseHitPoint1 PointLabel OptionalLabell DisplayHighlighting1 MouseHitPoint ChannelMouseHitPointl DisplayltemHighlighting5 Color System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 255 Byte Integer CType CType 0 Byte Integer DisplayHighlighting1 Zones DisplayItemHighlighting5 Me Scopel Highlighting DisplayHighlighting 1 PinList1 ConnectionData CType resources GetObject PinList1 ConnectionData OpenWire PinConnections Me Scopel InputPins PinListl Me Scopel InternalData CType resources GetObject Scopel InternalData Vcl VclBinaryData ScopeLegend View 1 Align Mitov PlotLab ViewAlign Right Display ViewBackground2 Color System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 0 Byte Integer CType CType 0 Byte Integer ScopeLegend View 1 Background Display ViewBackground2 LegendViewButtonSettings 1 BorderColor System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer LegendViewButtonSettings1 ButtonColor System Drawing Color FromArgb CType CType 0 Byte Integ
7. CType CType 255 Byte Integer CType CType 0 Byte Integer ViewButtonSettings2 MouseOverColor System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer ScopeY Axisl Button ViewButtonSettings2 ScopeY Axis1 Color System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 255 Byte Integer ScopeY Axisl CursorSettings DisplayAxisCursorSettings2 87 DisplayGridLineSettings4 Pen New Vcl VclPen System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer Vel PenMode Copy Vel PenStyle Solid 1 DisplayGridDirectionalLinesSettings2 Lines DisplayGridLineSettings4 DisplayGridLineSettings5 Pen New Vel VelPen System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 255 Byte Integer Vcl PenMode Copy Vel PenStyle Solid 1 DisplayGridDirectionalLinesSettings2 ZeroLine DisplayGridLineSettings5 ScopeY Axis1 DataView DisplayGridDirectionalLinesSettings2 ScopeY Axisl Font New Vel VelFont System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 255 Byte Integer Arial Vcl FontCharset Default Vcl FontPitch Default True 11 New Vcl FontStyles 0 AxisFormat2 Precision 3 ScopeY Axisl Format AxisFormat2 Sco
8. CType Me RadLabel3 System ComponentModel ISupportInitialize BeginInit CType Me RadLabel4 System ComponentModel ISupportInitialize BeginInit CType Me key System ComponentModel ISupportInitialize BeginInit CType Me rkey System ComponentModel ISupportInitialize BeginInit CType Me RadLabel5 System ComponentModel ISupportInitialize BeginInit CType Me apellido System ComponentModel ISupportInitialize BeginInit CType Me grabar System ComponentModel ISupportInitialize BeginInit CType Me cancelar System ComponentModel ISupportlnitialize Beginlnit CType Me RadPanell System ComponentModel ISupportInitialize BeginInit Me RadPanell SuspendLayout CType Me PictureBox1 System ComponentModel ISupportInitialize BeginInit CType Me System ComponentModel ISupportInitialize BeginInit Me SuspendLayout nick Me nick Location New System Drawing Point 302 12 Me nick Name nick Me nick Size New System Drawing Size 231 20 Me nick TabIndex 0 Me nick TabStop False 1 RadLabell Me RadLabell Location New System Drawing Point 217 12 Me RadLabell Name RadLabell Me RadLabell Size New System Drawing Size 31 18 Me RadLabell TabIndex 1 Me RadLabell Text NICK 116 1 nombre Me nombre Location New System Drawing Point 302 139 Me nombre Name nombre Me nombre Size New System Drawing Size 264 20 Me nombre TabIndex 2 Me nombre TabStop False 1 RadLabel2 Me
9. Fuente 1 fuente 154 Me fuente Location New System Drawing Point 61 385 Me fuente Multiline True Me fuente Name fuente 1 1 1 Me fuente RootElement StretchVertically True Me fuente Size New System Drawing Size 446 33 Me fuente TabIndex 14 Me fuente TabStop False 1 RadLabel 6 Me RadLabel6 Location New System Drawing Point 14 424 Me RadLabel6 Name RadLabel6 Me RadLabel6 Size New System Drawing Size 82 16 Me RadLabel6 TabIndex 15 Me RadLabel6 Text Observaciones Me RadLabel6 ThemeName Desert 1 observacion 1 Me observacion Location New System Drawing Point 102 424 Me observacion Multiline True Me observacion Name observacion 1 1 Me observacion RootElement StretchVertically True Me observacion Size New System Drawing Size 422 103 155 Me observacion TabIndex 16 Me observacion TabStop False contenido Me contenido Location New System Drawing Point 78 179 Me contenido Name contenido Me contenido Size New System Drawing Size 429 200 Me contenido TabIndex 17 nm Me contenido Text Aprender Me AutoScaleDimensions New System Drawing SizeF 6 0 13 0 Me AutoScaleMode System Windows Forms AutoScaleMode Font Me ClientSize New System Drawing Size 536 575 Me Controls Add Me contenido Me Controls Add Me observacion Me Controls Add Me RadLabel6 Me Controls Add Me fuente Me Control
10. New Mitov PlotLab DisplayToolBarButton 64 Dim DisplayToolBarButton19 As Mitov PlotLab DisplayToolBarButton New Mitov PlotLab DisplayToolBarButton Dim DisplayToolBarButton20 As Mitov PlotLab DisplayToolBarButton New Mitov PlotLab DisplayToolBarButton Dim DisplayViewSize4 As Mitov PlotLab DisplayViewSize New Mitov PlotLab Display ViewSize Dim DisplayAxisZoom2 As Mitov PlotLab DisplayAxisZoom New Mitov PlotLab DisplayAxisZoom Dim DisplayValueRange6 As Mitov PlotLab Display ValueRange New Mitov PlotLab Display V alueRange Dim DisplayOptionalValuell As Mitov PlotLab DisplayOptional Value New Mitov PlotLab DisplayOptional Value Dim DisplayOptional Valuel2 As Mitov PlotLab DisplayOptional Value New Mitov PlotLab DisplayOptional Value Dim DisplayZoom1 As Mitov PlotLab DisplayZoom New Mitov PlotLab DisplayZoom Dim DsAudioOutputDevicel As Mitov AudioLab DS AudioOutputDevice New Mitov AudioLab DS AudioOutputDevice Dim SourcePinl As OpenWire Proxy SourcePin New OpenWire Proxy SourcePin Dim StatePinl As OpenWire Proxy StatePin New OpenWire Proxy StatePin Dim DsGraphl As Mitov AudioLab DSGraph New Mitov AudioLab DSGraph Dim SourcePin2 As OpenWire Proxy SourcePin New OpenWire Proxy SourcePin Dim SinkPinl As OpenWire Proxy SinkPin New OpenWire Proxy SinkPin Dim MasterPumpingl As Mitov AudioLab MasterPumping New Mitov AudioLab MasterPumping Dim SinkPin2 As OpenWire Proxy SinkPin Ne
11. conexion comandos CommandText consultas Como el comando no es almacenado ni vinculado a un tabla elegimos el tipo Text comandos CommandType CommandType Text Creamos un lector de datos IDataReader y lo inicializamos con el lector del objeto MySQLCommand Dim dr As System Data IDataReader dr comandos ExecuteReader Mientras haya datos para leer los mostramos While dr Read Al igual de los objetos DataRow la clase IDataReader tambi n tiene un m todo por defecto Item que funciona exactamente igual ctema dr tema 130 ctama o_letra dr tama_Letra ctipo_Letra dr tipo letra ccolor dr color End While Cerramos la conexi n con el servidor conexion Close Catch ex As Exception mostramos los errores si susedieran MsgBox ex ToString MsgBoxStyle Information End Try End Sub Metodo para cambiar las configuraciones del sistema Public Sub establecer_letra ByVal tama o As Integer ByVal letra As String ByVal color As String Try conexion ConnectionString server localhost amp database seuz amp user id root amp password dar conexion Open comandos Connection conexion comandos CommandText update configuracion set tama_letra tamafio ToString m tipo_Letra letra color color where id 1 comandos CommandType CommandType Text comandos ExecuteNonQuery conexion Close Catch ex As Exception MsgBox ex ToString MsgBoxStyle Information End
12. dr comandos ExecuteReader Mientras haya datos para leer los mostramos While dr Read Al igual de los objetos DataRow la clase IDataReader tambi n tiene un m todo por defecto Item que funciona exactamente igual uid dr id unick dr user 17 unombre dr nombre If unick lt gt Then valor 1 End If End While Cerramos la conexi n con el servidor conexion Close Catch ex As Exception mostramos los errores si sucedieran MsgBox ex ToString MsgBoxStyle Information End Try Return valor End Function Metodo que me permite Guardar un Nuevo usuario en la base de datos Public Function grabar As Integer Dim retorno As Integer 0 Try conexion ConnectionString server localhost userid root password dar database seuz Abrimos la conexi n y comprobamos que no hay error conexion Open comandos Connection conexion Dim adap As New MySqlDataAdapter SELECT FROM seuz usuarios where m mm nombre unombre and apellido uapellido conexion Dim user As New DataSet adap Fill user usuarios If user Tables usuarios Rows Count 0 Then user Dispose comandos CommandText SELECT max id 1 as maximo FROM seuz usuarios 18 comandos CommandType CommandType Text Dim dr As System Data IDataReader dr comandos ExecuteReader Dim ultimo As Integer While dr Read ultimo dr maximo End While dr Dispose Dim fecha As String TE TY fecha Now Year
13. itemC itemD itemE itemF creo el documento de ejemplo Dim doc As New Speech Recognition SrgsGrammar SrgsDocument agrego la regla y la pongo como regla por defecto doc Rules Add rule doc Root rule cargo la gramatica de la aplicacion engSR LoadGrammar New Speech Recognition Grammar doc End Sub Procedimiento que me permite reconocer el comando que le dicte al sistema Private Sub engSR_SpeechRecognized ByVal sender As Object ByVal e As System Speech Recognition SpeechRecognizedEventArgs Handles engSR SpeechRecognized Select Case e Result Text Case grabar ingresar Case nick Me nick Focus Case repetir clave Me rkey Focus 113 Case clave Me key Focus Case nombre Me nombre Focus Case apellido Me apellido Focus End Select End Sub Procemiento que me permite cerrar la ventana actual Private Sub cancelar_Click ByVal sender As System Object ByVal e As System EventArgs Handles cancelar Click Me Close End Sub End Class Dise o Esta parte se genera autom ticamente cuando se esta dise ando la ventana lt Global Microsoft VisualBasic CompilerServices DesignerGenerated gt _ Partial Class ingresar_usuario Inherits Telerik WinControls UI RadForm Form overrides dispose to clean up the component list lt System Diagnostics DebuggerNonUserCode gt _ Protected Overrides Sub Dispose ByVal disposing As Boolean Try If disposing AndAlso components IsNot Nothing Then com
14. DisplayOptional Value New Mitov PlotLab DisplayOptional Value Dim DisplayOptional Value4 As Mitov PlotLab DisplayOptional Value New Mitov PlotLab DisplayOptional Value Dim BasicAxisValue2 As Mitov PlotLab BasicAxisValue New Mitov PlotLab BasicAxis Value Dim MinorTicks1 As Mitov PlotLab MinorTicks New Mitov PlotLab MinorTicks Dim AxisToolBarl As Mitov PlotLab AxisToolBar New Mitov PlotLab AxisToolBar Dim AxisToolBarButtons1 As Mitov PlotLab AxisToolBarButtons New Mitov PlotLab AxisToolBarButtons Dim DisplayToolBarButton13 As Mitov PlotLab DisplayToolBarButton New Mitov PlotLab DisplayToolBarButton Dim DisplayToolBarButton14 As Mitov PlotLab DisplayToolBarButton New Mitov PlotLab DisplayToolBarButton Dim DisplayToolBarButton15 As Mitov PlotLab DisplayToolBarButton New Mitov PlotLab DisplayToolBarButton Dim DisplayToolBarButton16 As Mitov PlotLab DisplayToolBarButton New Mitov PlotLab DisplayToolBarButton Dim ScopeXAxisUnitScalel As Mitov PlotLab ScopeXAxisUnitScale New Mitov PlotLab ScopeXAxisUnitScale Dim DisplayViewSize3 As Mitov PlotLab DisplayViewSize New Mitov PlotLab Display ViewSize 62 Dim DisplayAxisZooml As Mitov PlotLab DisplayAxisZoom New Mitov PlotLab DisplayAxisZoom Dim DisplayValueRange3 As Mitov PlotLab Display ValueRange New Mitov PlotLab DisplayV alueRange Dim DisplayOptional Value5 As Mitov PlotLab DisplayOptional Value New Mitov PlotLab DisplayOptional Val
15. Friend WithEvents volumen As Telerik WinControls UI RadTrackBar 99 Friend WithEvents RadLabel2 As Telerik WinControls UI RadLabel Friend WithEvents RadLabel4 As Telerik WinControls UI RadLabel Friend WithEvents fuente As Telerik WinControls ULRadTextBox Friend WithEvents RadLabel5 As Telerik WinControls UI RadLabel Friend WithEvents observacion As Telerik WinControls UI RadTextBox Friend WithEvents Scopel As Mitov PlotLab Scope Friend WithEvents aprender As Telerik WinControls UI RadMenultem Friend WithEvents color As Telerik WinControls RadColorDialog Friend WithEvents menuprincipal As Telerik WinControls UI RadMenu Friend WithEvents menutemas As Telerik WinControls UI RadMenultem Friend WithEvents Menu_Letras As Telerik WinControls UI RadMenultem Friend WithEvents Menu Color As Telerik WinControls UI RadMenultem Friend WithEvents RadMenultem2 As Telerik WinControls UI RadMenultem Friend WithEvents menu_Ingreso As Telerik WinControls UI RadMenultem Friend WithEvents RadMenultem4 As Telerik WinControls UI RadMenultem Friend WithEvents menuAprender As Telerik WinControls UI RadMenultem Friend WithEvents informacion As System Windows Forms RichTextBox Friend WithEvents DsAudioOutl As Mitov AudioLab DSAudioOut Friend WithEvents DsAudioPlayerl As Mitov AudioLab DS AudioPlayer Friend WithEvents DsAudioOut2 As Mitov AudioLab DSAudioOut Friend WithEvents DsAudioPlayer2 As Mitov AudioLab DS AudioPlayer End Class Modulo Estem dulo creo todas
16. Handles grabar Click ingresar End Sub Procedimiento que me permite librerar los recursos utilizados por esta ventana Private Sub ingresar_usuario_FormClosed ByVal sender As Object ByVal e As System Windows Forms FormClosedEventArgs Handles Me FormClosed Dispose engSR Dispose End Sub Procedimiento que me permite cargar las configuraciones del sistema para luego ser aplicadas a la ventana actual Private Sub ingresar_usuario_Load ByVal sender As Object ByVal e As System EventArgs Handles Me Load Me ThemeName confi tema Me nick ThemeName confi tema Me RadPanell ThemeName confi tema Me apellido ThemeName confi tema Me nombre ThemeName confi tema Me rkey ThemeName confi tema Me key ThemeName confi tema Me grabar ThemeName confi tema Me cancelar ThemeName confi tema creo los comandos con los que voy a trabajar 112 Dim itemA As New Speech Recognition SrgsGrammar SrgsItem nick Dim itemB As New Speech Recognition SrgsGrammar SrgsItem clave Dim itemC As New Speech Recognition SrgsGrammar SrgsItem repertir clave Dim itemD As New Speech Recognition SrgsGrammar SrgsItem nombre Dim itemE As New Speech Recognition SrgsGrammar SrgsItem apellido Dim itemF As New Speech Recognition SrgsGrammar SrgsItem grabar creo la regla con los comandos que tengo q incorporar Dim rule As New Speech Recognition SrgsGrammar SrgsRule Comandos _ New Speech Recognition SrgsGrammar SrgsOneOf itemA itemB
17. Me fecha MinDate New Date 1900 1 1 0 0 O 0 Me fecha Name fecha Me fecha NullDate New Date 1900 1 1 0 0 O 0 Me fecha Size New System Drawing Size 195 20 Me fecha TabIndex 7 Me fecha TabStop False Me fecha Text RadDateTimePicker1 Me fecha Value New Date 2010 11 30 0 0 0 0 1 RadLabel3 Me RadLabel3 Location New System Drawing Point 12 143 Me RadLabel3 Name RadLabel3 Me RadLabel3 Size New System Drawing Size 38 16 Me RadLabel3 TabIndex 8 Me RadLabel3 Text Fecha Me RadLabel3 ThemeName Desert 1 RadLabel4 Me RadLabel4 Location New System Drawing Point 14 191 Me RadLabel4 Name RadLabel4 Me RadLabel4 Size New System Drawing Size 58 16 153 Me RadLabel4 TabIndex 9 Me RadLabel4 Text Contenido Me RadLabel4 ThemeName Desert 1 b_Aceptar Me b_Aceptar Location New System Drawing Point 192 533 Me b_Aceptar Name b_Aceptar Me b_Aceptar Size New System Drawing Size 99 30 Me b_Aceptar TabIndex 11 Me b_Aceptar Text Aceptar Cerrar Me Cerrar Location New System Drawing Point 408 533 Me Cerrar Name Cerrar Me Cerrar Size New System Drawing Size 99 30 Me Cerrar TabIndex 12 Me Cerrar Text Cerrar RadLabel5 Me RadLabel5 Location New System Drawing Point 14 385 Me RadLabel5 Name RadLabel5 Me RadLabel5 Size New System Drawing Size 40 18 Me RadLabel5 TabIndex 13 Me RadLabel5 Text
18. UsuarioS ene neenneneeneneenenenseenenneenenseersn ven eanereenneeennenenseeeenneeenneevenee 4 Scripts de Tablas eternet as 5 Tabla Config Ci craneo mGA 5 Tabla Caterina ida 5 Tabla ConociMintO EE 5 Tabla Palabras sinensis a ria 6 Tabla Usuarios stand 6 DDos cotidianeidad dto anales 8 Clase MOT aa Ai 9 Clases MOS td da 13 Pantalla temas cti 19 Clase rela ant a R EE E E E E a EEEE 32 Pantalla princi a 35 NY of 0 o ERA 99 IO in AAA AA A A eee AA erde 101 DISENO ti 103 Ingresar USUARIO rsv succes an haha Aa aa aan bn 109 Clase CONOCIMIENTO cutres Att iia 121 Clase configuraciones tii llos 128 Pantalla bienvenida ai an Aa did 134 Pantallade Ayuda an er AA ALTA eten nnee NG ADAN BANANA NAAN 139 Pantalla APTO A esas A KA ANG BNG seeden 143 MANUAL DE USUARlO ee iia dl ii 158 Pantalla de Bienvenida NGABA NEA NANANG BA AGA BANA ANAN 159 Pantalla delgada ta bt ice 160 Pantalla principals res eeta a ea nee eee Kana Lasang 161 Mod EEn 161 A NN 162 Pantalla de Guardar Como oooooocccccccccnonnnnonnnonanaccnnanonannnnnnon cnn nn anna i a a aaa aai aiaa a aandie 162 Pantalla de Impresi n cian DA AG Aena BIND LIGA a 163 Pantalla de Tiporde letra essen NATA anne hae Hanna tn c a 163 PeTo e 2A EE 163 MOJO 2 iii A Aia 163 Pantalla de Color de Texto iii rs 164 AY efa 0 54 EE 164 Mods Aia 164 Pantalla de Temas its 165 AA EEE 165 MOdO A 165 Pantalla de Ingreso de Nuevo USUAL iO c cccccccecssssssssececececeseeesececece
19. consultas comandos CommandType CommandType Text Dim conver As System Data IDataReader conver comandos ExecuteReader While conver Read conversacion Add conver tema End While conexion Close conexion Open comandos Connection conexion creamos una consulta para la base de datos consultas select tema from seuz conocimiento comandos CommandText consultas Como el comando no es almacenado ni vinculado a un tabla elegimos el tipo Text comandos CommandType CommandType Text Creamos un lector de datos IDataReader y lo inicializamos con el lector del objeto MySQLCommand Dim dr As System Data IDataReader dr comandos ExecuteReader combinamos las palabras con el conocimiento Dim conocimiento As New Choices 35 While dr Read conocimiento Add dr tema End While conexion Close Agrego las palabras clave con el conocimiento del sistema Dim buscar New GrammarBuilder BUSCAR buscar Append conocimiento Dim cuente New GrammarBuilder COMO PASO cuente Append conocimiento Dim diga New GrammarBuilder CUENTE diga Append conocimiento Dim hable New GrammarBuilder HABLE hable Append conocimiento Dim permutations New Choices permutations Add buscar permutations Add cuente permutations Add diga permutations Add hable permutations Add ejecutar permutations Add conversacion rules Append permutations Catch ex As Exception MsgBox ex ToString End Try End Su
20. d voz y Conversi n de voz a preguntas Reglas Gramaticales Descarga de informaci n B D T N Informacion N Guardar informaci n txt doc Imprimir Informacion d Conversi n de informaci n en audio z Guardar de audio l Conversi n de Se ales de Audio y Reproducci n de audio Representar N sefiales de Audio Clase Voz Esta clase me permite cargar las voces que posee el sistema operativo Librer as que me permiten sintetizar la voz y guardar archivos de audio Imports SpeechLib librer a que me permite interactuar con las voces de loquendo Imports System Environment Imports ACTIVEVOICEPROJECTLib Imports System Threading Public Class voz Atributo que me permite interactuar con una voz determinada Private WithEvents pvoz As New SpVoice Atributo que contiene la velocidad de la voz Private pvelocidad As Integer 2 Contiene todas las voces del sistema Private pvoces As New ComboBox Contiene la velocidad el volumen de la voz Private pvolumen As Integer 50 Atributo que me permite guardar la voz Dim voz As New DirectSS M todo que me permite seleccionar la voz con la que va a trabajar el sistema Public Sub cargar Cargo todas las voces del sistema Dim Token As ISpeechObjectToken For Each Token In pvoz GetVoices pvoces Items Add Token GetDescription Next Escojo la
21. las Variables y objeto de tipo p blico que voy a usar en todo el sistema Module Modulel Objeto para manipular los usuarios Public usuario As New usuarios 100 Objeto para manipilar la voz del sistema Public habla As New voz Objeto para manejar las reglas gramaticales Public regla As New reglas Objeto para guardar y cargar las configuraciones del sistema Public confi As New configuraciones Objecto para buscar y guardar el conocimiento del sistema Public infor As New conocimiento Objeto de los temas del sistema Public aqua As New Telerik WinControls Themes AquaTheme Public vista As New Telerik WinControls Themes VistaTheme Public breeze As New Telerik WinControls Themes BreezeTheme Public Office2007Silver As New Telerik WinControls Themes Office2007SilverTheme Public Windows7 As New Telerik WinControls Themes Windows7 Theme Public Office2010 As New Telerik WinControls Themes Office2010Theme Public HighContrastBlack As New Telerik WinControls Themes HighContrastBlackTheme Public office2007black As New Telerik WinControls Themes Office2007BlackTheme Variable que me permite saber si recarge el sistema Public recarga As Integer 0 Public r As String Objeto para manipular el tipo de letra Public letras As Font Objeto que crear la pantalla principal Public principal As New principal Variable que guarda el nombre del tema actual Public tema_actual As String End Module 101 Ingreso Pantalla para el ingreso al sistema Public C
22. primera voz que tiene instalado el sistema operativo pvoces SelectedIndex 0 Cargo los modos de la voz 10 Dim i As Integer Dim tipoVoz As String For i 1 To voz CountEngines tipoVoz voz ModeName 1 Next End Sub M todo que me permite transformar una cadena de caracteres en audio Public Sub leer ByVal cadena As String Try Selecciono la primera voz del sistema pvoz Voice pvoz GetVoices Item 0 Dim dt As DateTime dt Now Establezco la velocidad de la voz pvoz Rate pvelocidad Establezo el volumen de la voz pvoz Volume pvolumen Preparo el dispositivo de audio pvoz Speak ToString Speech VoiceSpeakFlags S VSFPurgeBeforeSpeak Try Transformo la cadena de caracteres a audio pvoz Speak cadena SpeechVoiceSpeakFlags S VSFPurgeBeforeSpeak Catch ex As Exception MsgBox ex ToString MsgBoxStyle Exclamation I m Speechless End Try Catch ex As Exception Esta parte es la misma que la anterior pero funci n si la primer try dio error esto puede suceder si estamos trabajando en Windows server Try voz Speed pvelocidad voz VolumeLeft pvolumen voz Speak cadena Catch exx As Exception MsgBox exx ToString End Try End Try End Sub M todo que me permite cambiar u obtener la propiedad del volumen Public Property volumen As Integer bloque Get para devolver el valor de la propiedad Get Return pvolumen End Get bloque Set para asignar valor a la propiedad Set ByVal Value As Integer pvolumen Val
23. 0R Me Carousell CarouselPath CarouselEllipsePath1 Me Carousell Dock System Windows Forms DockStyle Fill Me Carousell EasingType Telerik WinControls RadEasingType OutQuart Me Carousell EnableAutoLoop True Me Carousell Font New System Drawing Font Times New Roman 14 25 System Drawing FontStyle Regular System Drawing GraphicsUnit Point CType 0 Byte Me Carousell ForeColor System Drawing Color White Me Carousell Items AddRange New Telerik WinControls RadItem Me tVista Me tDesert Me tOffice2010 Me tWindows7 Me tAqua Me tBreeze Me tHighContrasBlack Me tOffice2007Black Me tOffice2007Silver Me Carousell Location New System Drawing Point 0 0 Me Carousell Name Carousell 29 Me Carousell OpacityChangeCondition Telerik WinControls UI OpacityChangeConditions SelectedIndex 1 1 1 Me Carousell RootElement ForeColor System Drawing Color White Me Carousell SelectedIndex 0 Me Carousell Size New System Drawing Size 776 453 Me Carousell TabIndex 0 Me Carousell Text Temas de SEUZ Me Carousel 1 ThemeName ControlDefault tVista Me tVista Name tVista Me tVista Text Vista Me tVista TextOrientation System Windows Forms Orientation Horizontal 1 Desert Me tDesert Name tDesert Me tDesert Text Desert 1 tOffice2010 Me tOffice2010 Name tOffice2010 Me tOffice2010 Text Office 2010 1 tWindows7 1 Me tWindows7 Name tWindows7 Me tWi
24. A WORD 2007 If informacion Text Then DsAudioPlayerl Close habla guardar NO hay informacion para guarda informacion wma DsAudioPlayerl FileName c SEUZ informacion wma DsAudioPlayer1 Start Else 48 WORD_20070 End If Case Is EXPORTAR A TXT If informacion Text Then DsAudioPlayerl Close habla guardar NO hay informacion para guarda informacion wma DsAudioPlayerl FileName c SEUZ informacion wma DsAudioPlayerl Start Else ARCHIVO End If Case Is DE NUEVO DsAudioPlayer1 Start Case Is SEUZ PRESENTATE DsAudioPlayerl Close habla guardar HOLA YO SOY El SISTEMA DE INTELIGENCIA ARTIFICIAL QUE POSEE LA TECNOLOGIAS RECONOCIMIENTO DE VOZ Y SINTETIZACION DE VOZ SEUZ presentate wma DsAudioPlayerl FileName C SEUZ presentate wma DsAudioPlayer1 Start Case Else DsAudioPlayer1 Close habla guardar Buscando Informacion ordenes wma DsAudioPlayerl FileName C SEUZ ordenes wma DsAudioPlayerl Start infor buscar e Result Text ToLower If infor observacion Equals A Then habla guardar infor contenido infor tema wma Else 49 habla guardar infor tema Contenido infor contenido Observacion infor observacion Fuente infor fuente infor tema wma Me informacion Text infor tema infor contenido Me observacion Text infor observacion Me fuente Text infor fuente End If DsAudioPlayer1 FileName C SEUZ infor tema wma DsAud
25. As Telerik WinControls UI RadButtonElement Friend WithEvents tOffice2010 As Telerik WinControls UI RadButtonElement Friend WithEvents tWindows7 As Telerik WinControls UI RadButtonElement Friend WithEvents tAqua As Telerik WinControls UI RadButtonElement Friend WithEvents tBreeze As Telerik WinControls UI RadButtonElement Friend WithEvents tHighContrasBlack As Telerik WinControls UI RadButtonElement Friend WithEvents tOffice2007Black As Telerik WinControls UI RadButtonElement Friend WithEvents tOffice2007Silver As Telerik WinControls UI RadButtonElement 32 End Class Clase reglas Clase que me permite cargar las reglas basadas en el conocimiento que est en la base de datos y las palabras que se utiliza para el reconocimiento de frase clase para cargar las reglas Librer as que me permite cargar las reglas gramaticales del sistema Imports MySql Data MySqlClient Imports SpeechLib Imports System Speech Recognition SrgsGrammar Imports System Speech Recognition Public Class reglas Atributos que me permiten manipular la base de datos Private conexion As New MySqlConnection Creamos una variable para las consultas Private consultas As String Private comandos As New MySqlCommand Metodo para cargar la configuraci n Private matriz1 matriz2 As New ArrayList Private rules As New Speech Recognition GrammarBuilder Metodo que me permite obtener las reglas Gramaticales Public Property regla As Speech Recognition GrammarBuilder bloque Ge
26. Button Dim DisplayToolBarButton6 As Mitov PlotLab DisplayToolBarButton New Mitov PlotLab DisplayToolBarButton Dim DisplayToolBarButton7 As Mitov PlotLab DisplayToolBarButton New Mitov PlotLab DisplayToolBarButton Dim DisplayToolBarButton8 As Mitov PlotLab DisplayToolBarButton New Mitov PlotLab DisplayToolBarButton Dim DisplayToolBarButton9 As Mitov PlotLab DisplayToolBarButton New Mitov PlotLab DisplayToolBarButton Dim DisplayToolBarButton10 As Mitov PlotLab DisplayToolBarButton New Mitov PlotLab DisplayToolBarButton Dim DisplayToolBarButton11 As Mitov PlotLab DisplayToolBarButton New Mitov PlotLab DisplayToolBarButton Dim DisplayToolBarButton12 As Mitov PlotLab DisplayToolBarButton New Mitov PlotLab DisplayToolBarButton Dim ToolBarPositionl As Mitov PlotLab ToolBarPosition New Mitov PlotLab ToolBarPosition Dim DisplayTrails1 As Mitov PlotLab DisplayTrails New Mitov PlotLab DisplayTrails 59 60 Dim ScopeXAxisl As Mitov PlotLab ScopeXAxis New Mitov PlotLab ScopeXAxis Dim DisplayTitleLabell As Mitov PlotLab DisplayTitleLabel New Mitov PlotLab DisplayTitleLabel Dim Display ViewBackground4 As Mitov PlotLab Display ViewBackground New Mitov PlotLab Display ViewBackground Dim ViewButtonSettingsl As Mitov PlotLab ViewButtonSettings New Mitov PlotLab ViewButtonSettings Dim DisplayAxisCursorSettings1 As Mitov PlotLab DisplayAxisCursorSettings New Mitov PlotLab DisplayA xisCursorSett
27. DisplayLabel5 Text LegendGroup5 Caption DisplayLabel5 ScopeLegend View 1 Ellipses LegendGroup5 ScopeLegendView1 Font New Vel VelFont System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 255 Byte Integer Arial Vel FontCharset Default Vcl FontPitch Default True 11 New Vcl FontStyles 0 ScopeLegend View 1 InternalData CType resources GetObject ScopeLegend View 1 InternalData Vel VelBinaryData DisplayLabel6 Font New Vel VelFont System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 255 Byte Integer Arial Vcl FontCharset Default Vcl FontPitch Default True 13 New Vcl FontStyles 0 DisplayLabel6 Text 79 LegendGroup6 Caption DisplayLabel6 ScopeLegend View 1 MarkerGroups LegendGroup6 Display ViewSizel Size CType 100UI Ulnteger ScopeLegend View 1 ViewSize DisplayViewSizel DisplayLabel7 Font New Vel VelFont System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 255 Byte Integer Arial Vcl FontCharset Default Vcl FontPitch Default True 13 New Vcl FontStyles 0 DisplayLabel7 Text LegendGroup7 Caption DisplayLabel7 ScopeLegend View 1 Zones LegendGroup7 Me Scopel Legend ScopeLegendViewl Me Scopel Location New System Drawing Point 32 496 Me Scopel Name Scopel Me Scop
28. Dispose principal Show End Sub Procedimiento que carga el tema HighContrasBlach Private Sub tHighContrasBlack_Click ByVal sender As Object ByVal e As System EventArgs Handles tHighContrasBlack Click confi temas HighContrastB lack confi tema HighContrastBlack Me ThemeName confi tema recarga principal Dispose 25 principal Show End Sub Procedimiento que carga el tema Office2007Black Private Sub tOffice2007Black_Click ByVal sender As Object ByVal e As System EventArgs Handles tOffice2007Black Click confi temas Office2007Black confi tema Office2007Black Me ThemeName confi tema recarga principal Dispose principal Show End Sub Procedimiento que carga el tema Aqua de MAC OS Private Sub tAqua Click ByVal sender As Object ByVal e As System EventArgs Handles tAqua C lick confi temas Aqua confi tema Aqua Me ThemeName confi tema recarga principal Dispose principal Show End Sub Procedimiento que carga el tema Office 2007 Silver Private Sub tOffice2007Silver_Click ByVal sender As Object ByVal e As System EventArgs Handles tOffice2007Silver Click confi temas Office2007Silver confi tema Office2007Silver 26 Me ThemeName confi tema recarga 1 principal Dispose principal Show End Sub End Class Dise o de la pantalla Temas esto se genera autom ticamente cuando se a ade un Nuevo componente en el modo Dise o del Visual Studio lt Global Micros
29. Initialize BeginInit CType Me RadLabell System ComponentModel ISupportInitialize BeginInit CType Me l_tema System ComponentModel ISupportInitialize BeginInit CType Me t_tema System ComponentModel ISupportInitialize BeginInit CType Me RadLabel2 System ComponentModel ISupportInitialize BeginInit CType Me combo_categoria System ComponentModel ISupportlnitialize Beginlnit CType Me fecha System ComponentModel ISupportInitialize BeginInit CType Me RadLabel3 System ComponentModel ISupportInitialize BeginInit CType Me RadLabel4 System ComponentModel ISupportInitialize BeginInit CType Me b_Aceptar System ComponentModel ISupportInitialize BeginInit CType Me Cerrar System ComponentModel ISupportInitialize BeginInit 150 CType Me RadLabel5 System ComponentModel ISupportInitialize BeginInit CType Me fuente System ComponentModel ISupportInitialize BeginInit CType Me RadLabel6 System ComponentModel ISupportlnitialize Beginlnit CType Me observacion System ComponentModel ISupportInitialize BeginInit CType Me System ComponentModel ISupportInitialize BeginInit Me SuspendLayout Li t usuario Me t usuario Enabled False Me t usuario Location New System Drawing Point 73 12 Me t usuario Name t usuario Me t usuario Size New System Drawing Size 200 20 Me t usuario TabIndex 0 Me t usuario TabStop False 1 RadLabell Me RadLabell Location New System Drawing Point 12 16 Me
30. Initialize EndInit CType Me RadLabel6 System ComponentModel ISupportInitialize EndInit CType Me observacion System ComponentModel ISupportInitialize EndInit CType Me System ComponentModel ISupportInitialize EndInit Me ResumeLayout False Me PerformLayout End Sub 157 Friend WithEvents t_usuario As Telerik WinControls UI RadTextBox Friend WithEvents RadLabell As Telerik WinControls UI RadLabel Friend WithEvents I_tema As Telerik WinControls UI RadLabel Friend WithEvents t_tema As Telerik WinControls UI RadTextBox Friend WithEvents RadLabel2 As Telerik WinControls UI RadLabel Friend WithEvents combo_categoria As Telerik WinControls UI RadDropDownList Friend WithEvents fecha As Telerik WinControls UI RadDateTimePicker Friend WithEvents RadLabel3 As Telerik WinControls UI RadLabel Friend WithEvents RadLabel4 As Telerik WinControls UI RadLabel Friend WithEvents b Aceptar As Telerik WinControls ULRadButton Friend WithEvents Cerrar As Telerik WinControls UI RadButton Friend WithEvents RadLabel5 As Telerik WinControls UI RadLabel Friend WithEvents fuente As Telerik WinControls ULRadTextBox Friend WithEvents observacion As Telerik WinControls UI RadTextBox Friend WithEvents RadLabel6 As Telerik WinControls UI RadLabel Friend WithEvents contenido As System Windows Forms RichTextBox End Class MANUAL DE USUARIO 158 159 Pantalla de Bienvenida Esperar que llegue la barra de progreso hasta el 100 y da hay sale la pantalla de log
31. Labell Me RadLabell Size New System Drawing Size 83 22 Me RadLabell TabIndex 22 Me RadLabell Text Contenido Me RadLabell ThemeName Desert 1 volumen Me volumen Location New System Drawing Point 45 709 Me volumen Maximum 100 Me volumen Minimum 1 Me volumen Name volumen Me volumen Size New System Drawing Size 374 31 Me volumen SliderAreaColorl System Drawing Color FromArgb CType CType 140 Byte Integer CType CType 137 Byte Integer CType CType 118 Byte Integer 71 Me volumen SliderAreaColor2 System Drawing Color FromArgb CType CType 140 Byte Integer CType CType 137 Byte Integer CType CType 118 Byte Integer Me volumen TabIndex 23 Me volumen Text RadTrackBar1 Me volumen TicksColor System Drawing Color FromArgb CType CType 140 Byte Integer CType CType 137 Byte Integer CType CType 118 Byte Integer Me volumen TickStyle Telerik WinControls Enumerations TickStyles BottomRight Me volumen Value 50 1 RadLabel2 Me RadLabel2 Font New System Drawing Font Microsoft Sans Serif 12 0 System Drawing FontStyle Regular System Drawing GraphicsUnit Point CType 0 Byte Me RadLabel2 Location New System Drawing Point 45 673 Me RadLabel2 Name RadLabel2 Me RadLabel2 Size New System Drawing Size 73 22 Me RadLabel2 TabIndex 24 Me RadLabel2 Text Volumen Me RadLabel2 ThemeName Desert 1 RadLabel4 Me RadLabel4 Font
32. New Vcl FontStyles 0 AxisFormat1 Precision 3 ScopeXAxis1 Format AxisFormatl ScopeXAxis1 InternalData CType resources GetObject ScopeXAxis 1 InternalData Vcl VclBinaryData TicksStartl StartFrom 0 0R 83 MajorTicks1 StartFrom TicksStartl MajorTicks1 Step 10 0R ScopeXAxis1 MajorTicks MajorTicks1 MaxScopeAxisValuel DataValue 1024 0R MaxScopeAxisValuel InternalData CType resources GetObject MaxScopeAxisValuel InternalData Vcl VclBinaryData DisplayOptionalValuel Enabled False DisplayOptionalValuel Value 1000 0R DisplayValueRangel High DisplayOptionalValuel DisplayOptionalValue2 Enabled False DisplayOptionalValue2 Value 1000 0R DisplayValueRangel Low DisplayOptionalValue2 MaxScopeAxisValuel Range DisplayValueRangel BasicAxisValuel InternalData CType resources GetObject BasicAxisValuel InternalData Vcl VcIBinaryData BasicAxisValuel Value 1024 0R MaxScopeAxisValuel Tick BasicAxisValuel MaxScopeAxisValuel Value 1024 0R ScopeXAxisl Max MaxScopeAxisValuel ScopeMaxSamplel Value CType 1024UI Ulnteger ScopeXAxis1 MaxSample ScopeMaxSamplel ScopeAxisValuel DataValue 0 0R ScopeAxisValuel InternalData CType resources GetObject ScopeAxis Value 1 InternalData Vcl VclBinaryData DisplayOptional Value3 Enabled False DisplayOptional Value3 Value 1000 0R Display ValueRange2 High DisplayOptional Value3 DisplayOptional Value4 Enabled False DisplayOptiona
33. Pin8 As OpenWire Proxy SourcePin New OpenWire Proxy SourcePin Dim SourcePin9 As OpenWire Proxy SourcePin New OpenWire Proxy SourcePin Dim StatePin7 As OpenWire Proxy StatePin New OpenWire Proxy StatePin Dim StatePin8 As OpenWire Proxy StatePin New OpenWire Proxy StatePin 65 Dim SourcePin10 As OpenWire Proxy SourcePin New OpenWire Proxy SourcePin Me Temas New Telerik WinControls UI RadMenultem Me FontTIPO New Telerik WinControls UI RadMenultem Me hablado New Telerik WinControls UI RadTextBox Me Tguardar New Telerik WinControls UI RadButton Me Timprimir New Telerik WinControls UI RadButton Me Tpdf New Telerik WinControls UI RadButton Me dletras New System Windows Forms FontDialog Me PrintDialog1 New System Windows Forms PrintDialog 66 Me PrintDocumentl New System Drawing Printing PrintDocument Me Save New System Windows Forms SaveFileDialog Me RadMenultem1 New Telerik WinControls UI RadMenultem Me u_Ingresar New Telerik WinControls UI RadMenultem Me u_modificar New Telerik WinControls UI RadMenultem Me ayuda New Telerik WinControls ULRadMenultem Me RadLabell New Telerik WinControls UI RadLabel Me volumen New Telerik WinControls UI RadTrackBar Me RadLabel2 New Telerik WinControls UI RadLabel Me RadLabel4 New Telerik WinControls UI RadLabel Me fuente New Telerik WinControls ULRadTextBox Me RadLabel5 New Telerik WinControls UI RadLabel
34. PlotLab DisplayLabel Dim LegendGroup6 As Mitov PlotLab LegendGroup New Mitov PlotLab LegendGroup Dim DisplayLabel6 As Mitov PlotLab DisplayLabel New Mitov PlotLab DisplayLabel Dim DisplayViewSizel As Mitov PlotLab DisplayViewSize New Mitov PlotLab Display ViewSize Dim LegendGroup7 As Mitov PlotLab LegendGroup New Mitov PlotLab LegendGroup Dim DisplayLabel7 As Mitov PlotLab DisplayLabel New Mitov PlotLab DisplayLabel Dim DisplayTitlel As Mitov PlotLab DisplayTitle New Mitov PlotLab DisplayTitle Dim Display ViewBackground3 As Mitov PlotLab DisplayViewBackground New Mitov PlotLab Display ViewBackground Dim DisplayViewSize2 As Mitov PlotLab DisplayViewSize New Mitov PlotLab Display ViewSize Dim DisplayToolBarl As Mitov PlotLab DisplayToolBar New Mitov PlotLab DisplayToolBar Dim DisplayToolBarButtonsl As Mitov PlotLab DisplayToolBarButtons New Mitov PlotLab DisplayToolBarButtons Dim DisplayToolBarButtonl As Mitov PlotLab DisplayToolBarButton New Mitov PlotLab DisplayToolBarButton Dim DisplayToolBarButton2 As Mitov PlotLab DisplayToolBarButton New Mitov PlotLab DisplayToolBarButton Dim DisplayToolBarButton3 As Mitov PlotLab DisplayToolBarButton New Mitov PlotLab DisplayToolBarButton Dim DisplayToolBarButton4 As Mitov PlotLab DisplayToolBarButton New Mitov PlotLab DisplayToolBarButton Dim DisplayToolBarButton5 As Mitov PlotLab DisplayToolBarButton New Mitov PlotLab DisplayToolBar
35. RadLabel2 Location New System Drawing Point 217 141 Me RadLabel2 Name RadLabel2 Me RadLabel2 Size New System Drawing Size 52 18 Me RadLabel2 TabIndex 3 Me RadLabel2 Text NOMBRE 1 RadLabel3 Me RadLabel3 Location New System Drawing Point 217 55 Me RadLabel3 Name RadLabel3 Me RadLabel3 Size New System Drawing Size 39 18 Me RadLabel3 TabIndex 4 Me RadLabel3 Text CLAVE 1 RadLabel4 Me RadLabel4 Location New System Drawing Point 217 96 Me RadLabel4 Name RadLabel4 Me RadLabel4 Size New System Drawing Size 82 18 117 Me RadLabel4 TabIndex 5 Me RadLabel4 Text REPETIR CLAVE key Me key Location New System Drawing Point 302 53 Me key Name key Me key PasswordChar Global Microsoft VisualBasic ChrW 42 Me key Size New System Drawing Size 139 20 Me key TabIndex 6 Me key TabStop False 1 key Me rkey Location New System Drawing Point 302 94 Me rkey Name rkey Me rkey PasswordChar Global Microsoft VisualBasic ChrW 42 Me rkey Size New System Drawing Size 155 20 Me rkey TabIndex 7 Me rkey TabStop False Li RadLabel5 Me RadLabel5 Location New System Drawing Point 217 184 Me RadLabel5 Name RadLabel5 Me RadLabel5 Size New System Drawing Size 56 18 Me RadLabel5 TabIndex 8 Me RadLabel5 Text APELLIDO apellido 118 1 Me apellido Location New System Drawing Point 302 182 Me apellido Name apelli
36. RadLabell Name RadLabell Me RadLabell Size New System Drawing Size 45 16 Me RadLabell TabIndex 1 Me RadLabell Text Usuario Me RadLabel1 ThemeName Desert 1 tema Me 1 tema Location New System Drawing Point 12 59 Me l_tema Name 1 tema Me 1 tema Size New System Drawing Size 35 16 151 Me 1 tema TabIndex 2 Me l_tema Text Tema Me l_tema ThemeName Desert 1 t_tema Me t_tema Location New System Drawing Point 73 55 Me t_tema Name t_tema Me t_tema Size New System Drawing Size 288 20 Me t_tema TabIndex 3 Me t_tema TabStop False RadLabel2 Me RadLabel2 Location New System Drawing Point 12 101 Me RadLabel2 Name RadLabel2 Me RadLabel2 Size New System Drawing Size 55 16 Me RadLabel2 TabIndex 4 Me RadLabel2 Text Categoria Me RadLabel2 ThemeName Desert 1 combo_categoria Me combo_categoria FilterExpression Nothing Me combo_categoria Location New System Drawing Point 73 97 Me combo_categoria Name combo_categoria Me combo_categoria Size New System Drawing Size 204 20 Me combo_categoria TabIndex 6 Me combo_categoria Text RadDropDownListl 152 fecha Me fecha Culture New System Globalization CultureInfo es ES Me fecha Enabled False Me fecha Format System Windows Forms DateTimePickerFormat Long Me fecha Location New System Drawing Point 73 143 Me fecha MaxDate New Date 9998 12 31 0 0 0 0
37. Si ya no desea escuchar la informaci n puede decir el comando parar 4 Si se desea imprimir puede dictar el comando imprimir y se abrir autom ticamente la pantalla de impresi n 5 Si desea guardar la informaci n en formato pdf puede decir el comando exportar a pdf 6 Si desea guardar la informaci n en formato Word 2003 2007 y archivo texto decir el comando exportar a seguido del tipo de archivo que desea guardar 1 Puede ingresar manualmente la informaci n a buscar luego esperar hasta que se llene el cuadro contenido fuente y observaciones 2 Si desea imprimir la informaci n haga clic en el bot n imprimir 3 Si desea guardar la informaci n en archivo pdf haga clic en el bot n exportar a pdf 4 Si desea guardar la informaci n haga clic en el bot n guardar y te saldr la pantalla guardar como Pantalla de Guardar Como En esta pantalla podr ingresar el nombre del archivo y escoger el tipo de archivo que desea guardar luego de haber ingresado el nombre haga clic en guardar IEEE IE Organizar v Nueva carpeta fe e a F Favoritos Biblioteca Documentos de Descargas Incluye 2 ubicaciones HZ Escritorio y Sitios recientes Organizar por Carpeta y A Nombre Fecha de modifica Tipo P Infragistics 21 11 2010 16 47 Carpeta de archivos d Infragistics 05 09 2010 19 27 Carpeta de archivos Mi m sica 02 09 2010 15 10 Carpeta de archivos amp Mi m sica 02 09 2010 15 10 Carpeta de archivos Mi
38. ToString Now Month ToString nou weit mo Now Day ToString Now Hour ToString Now Minute ToString Now Second ToString comandos CommandText insert into usuarios id user clave nombre apellido fecha_ingre estado values ultimo ToString unick uclave amp unombre amp amp uapellido amp amp fecha amp A comandos CommandType CommandType Text comandos ExecuteNonQuery conexion Close habla leer Informacion Grabada Else conexion Close retorno 1 End If Return retorno Catch ex As Exception MsgBox ex ToString End Try End Function End Class 19 Pantalla temas Pantalla que me permite seleccionar los diferentes temas que posee el sistema Public Class temas Atributo que me permite interactuar con el reconocimiento de voz Private WithEvents engSR As New System Speech Recognition SpeechRecognizer Atributo que me permite interactuar con la sintetizaci n de voz Private WithEvents engSS As New System Speech Synthesis SpeechS ynthesizer Procedimiento que librera todos los recursos utilizados en esta pantalla Private Sub temas_FormClosed ByVal sender As Object ByVal e As System Windows Forms FormClosedEventArgs Handles Me FormClosed Dispose engSR Dispose End Sub Procedimiento que carga los comandos que utiliza esta pantalla Private Sub temas_Load ByVal sender As Object ByVal e As System EventArgs Handles Me Load Me ThemeName
39. Try End Sub 131 Metodo para cambiar el campo errores que indica si sale la ventana de errores del recocimiento de voz Public Sub cambiar_error conexion ConnectionString server localhost amp database seuz amp user id root amp password dar conexion Open comandos Connection conexion comandos CommandText update configuracion set errores cerror ToString where id 1 comandos CommandType CommandType Text comandos ExecuteNonQuery conexion Close End Sub Metodo que me permite guardar el nombre del tema que escogi en la pantalla temas Public Sub temas ByVal temas As String Try conexion ConnectionString server localhost amp database seuz amp user id root amp password dar conexion Open comandos Connection conexion m comandos CommandText update configuracion set tema temas where id 1 comandos CommandType CommandType Text comandos ExecuteNonQuery conexion Close Catch ex As Exception MsgBox ex ToString MsgBoxStyle Information End Try End Sub Metodo que me permite obtener u establecer el nombre del tema del sistema Public Property tema As String bloque Get para devolver el valor de la propiedad Get Return ctema End Get bloque Set para asignar valor a la propiedad Set ByVal Value As String ctema Value End Set End Property Metodo que me permite obtener u establecer el color de la letra del sistema Public Property c
40. Type 0 Byte Integer AxisToolBar1 MouseDownButtonColor System Drawing Color FromArgb CType CType 128 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer 85 AxisToolBar1 MouseOverBorderColor System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 255 Byte Integer CType CType 0 Byte Integer AxisToolBarl MouseOverButtonColor System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer ScopeXAxisl ToolBar AxisToolBarl ScopeXAxis1 TrackColor System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 0 Byte Integer CType CType 0 Byte Integer ScopeXAxisUnitScalel Exponent 0 ScopeXAxisl UnitScale ScopeXAxisUnitScalel Display ViewSize3 Size CType 100UI Ulnteger ScopeXAxis1 ViewSize Display ViewSize3 ScopeXAxis1 Visible False DisplayOptional Value5 Enabled False DisplayOptional Value5 Value 100000000 0R Display ValueRange3 High DisplayOptional Value5 DisplayOptional Value6 Enabled True DisplayOptional Value6 Value 0 0000001R Display ValueRange3 Low DisplayOptional Value6 DisplayAxisZoom1 Range Display ValueRange3 ScopeXAxis1 Zooming DisplayAxisZooml Me Scopel XAxis ScopeXAxis1 PinList2 ConnectionData CType resources GetObject PinList2 ConnectionData OpenWire PinConnections Me Scopel XInputPins PinList2 ScopeY Axisl Align Mi
41. UNIVERSIDAD DE GUAYAQUIL FACULTAD DE CIENCIAS MATEM TICAS Y F SICA CARRERA DE INGENIERIA EN SISTEMAS COMPUTACIONALES SISTEMA QUE SIMULE CONOCIMIENTO HUMANO CON VOZ SEUZ DESARROLLO DE SOFTWARE PROYECTO 1 TESIS DE GRADO Previa a la obtenci n del T tulo de INGENIERO EN SISTEMAS COMPUTACIONALES AUTOR DARIO PATRICIO ALARCON ACOSTA TUTOR ING XAVIER LOAIZA GUAYAQUIL ECUADOR 2011 UNIVERSIDAD DE GUAYAQUIL FACULTAD DE CIENCIAS MATEM TICAS Y F SICA CARRERA DE INGENIERIA EN SISTEMAS COMPUTACIONALES SISTEMA QUE SIMULE CONOCIMIENTO HUMANO CON VOZ SEUZ TESIS DE GRADO Previa a la obtenci n del T tulo de INGENIERO EN SISTEMAS COMPUTACIONALES DARIO PATRICIO ALARCON ACOSTA TUTOR ING XAVIER LOAIZA GUAYAQUIL ECUADOR 2011 MANUAL TECNICO Tabla de contenido MANUAL TECNICO ra een AA AA ANAN NANG 1 DICCIONARIO DE DATOS ricirca ienaidnieka iaiia e a a iaiia iE NEA 3 Nombre de la tabla Configuraci n cccsssccccecsssessssececccecessaeseceeecusseseaaeeeeeeceeuseesesaaaecesecussesenseeeess 3 Nombre de la tabla Categoria occccconnnccoononnnnnnnnnnonnnnonnnnnonononnnnnnnnnnnnnn E EEEE EEE KERR EEE EATER EEES 3 Nombre de la tabla Conocimiento ananas enensnenenveneneerenserenenenneeevenserennenenneenennereeneeennn 3 Nombre de la tabla Palabras nenseneenne rennen eenenenneenenneenenseeend een enneeeenneeenenenseneenseeennenvenee 4 Nombre de la tabla
42. Value As String uclave Value End Set End Property Metodo cambiar u obtener la propiedad id del usuario Public Property id As Integer bloque Get para devolver el valor de la propiedad Get Return uid End Get bloque Set para asignar valor a la propiedad Set ByVal Value As Integer uid Value End Set End Property 15 16 Metodo que me permite buscar un usuario en la base de datos Public Function buscar ByRef nick As String ByRef key As String As Integer Dim valor As Integer 0 Try Los par metros de la sobrecarga con m s par metros son 1 Direcci n IP o nombre de la m quina con el servidor de MySQLS 2 Nombre de la base de datos 3 Nombre de usuario con acceso a la base de datos se alada anteriormente 4 Contrase a para el nombre de usuario citado conexion ConnectionString server localhost userid root password dar database seuz Abrimos la conexi n y comprobamos que no hay error conexion Open creamos una consulta para la base de datos m m m consultas select from seuz usuarios where user nick And clave key and estado A establecemos la conexion comandos Connection conexion comandos CommandText consultas Como el comando no es almacenado ni vinculado a un tabla elegimos el tipo Text comandos CommandType CommandType Text Creamos un lector de datos IDataReader y lo inicializamos con el lector del objeto MySQLCommand Dim dr As System Data IDataReader
43. a fecha mo datetime fecha de modificacion fuente varcha 1500 fuente donde se obtuvo la informaci n observaci n varchar 5000 observacion de la informaci n estado varchar 1 estado de la informaci n Nombre de la tabla Palabras El objetivo de crear la tabla palabras es obtener los comandos que posee el sistema Campos Tipo de Descripci n Dato id int 10 pk clave primaria de la tabla descripcion varchar 450 nombre del comando estado varchar 1 estado del comando Nombre de la tabla Usuarios El objetivo de crear la tabla usuario es obtener y guardar la informaci n del los usuarios que van a manipular el sistema Campos Tipo de Descripci n Dato id int 10 pk clave primaria de la tabla nombre varchar 45 nombres del usuario apellido varchar 45 apellidos del usuario clave varchar 45 clave de ingreso del usuario user varchar 45 nick del usuario estado varchar 1 estado del usuario Scripts de Tablas Tabla Configuraci n DROP TABLE IF EXISTS seuz configuracion CREATE TABLE seuz configuracion id int 10 unsigned NOT NULL auto increment tema varchar 45 NOT NULL tama Letra int 10 unsigned NOT NULL tipo letra varchar 45 NOT NULL color varchar 45 NOT NULL errores int 10 PRIMARY KEY id ENGINE InnoDB AUTO INCREMENT 2 DEFAULT CHARSET latin1 Tabla Categoria DROP TABLE IF EXISTS seuz categoria CREATE TABLE seuz categoria
44. b End Class Pantalla principal Pantalla principal del sistema 36 Option Explicit On Librer as que me permite interactuar con la voz reconocimiento de voz graficos Imports System Imports System Windows Forms Imports System Drawing Imports System Runtime InteropServices Imports System Drawing Printing Imports System IO Imports SpeechLib Imports System Environment Imports System Threading Imports System Speech Recognition Imports System Speech Recognition SrgsGrammar Public Class principal propiedades para crear un pdf Private Const AUTHOR As String SEUZ Inc Private Const CREATOR As String SEUZs Report Private COPYRIGHT As String String Format Copyright O 2010 0 by Infragistics Inc DateTime Now Year ToString Private Const PAGE_NUMBER_TEMPLATE As String Page Page of TotalPages Private Shared report As Infragistics Documents Report Report New Infragistics Documents Report Report Private documentFileNameRoot As String Document pdf Private Shared section As Infragistics Documents Report Section ISection Private Shared exportFileFormat As Infragistics Documents Report FileFormat Infragistics Documents Report FileFormat PDF Styles Private Shared normalStyle As Infragistics Documents Report Text Style Private Shared redSubscriptStyle As Infragistics Documents Report Text Style 37 Private Shared blueStyle As Infragistics Documents Report Text Style Private Shared r
45. cerrar TabIndex 1 Me cerrar Text Cerrar Me cerrar ThemeName Desert 1 RadLabell Me RadLabell Location New System Drawing Point 182 10 Me RadLabell Name RadLabell Me RadLabell Size New System Drawing Size 44 18 Me RadLabell TabIndex 2 Me RadLabell Text Usuario 1 RadLabel2 1 Me RadLabel2 Location New System Drawing Point 182 66 106 Me RadLabel2 Name RadLabel2 Me RadLabel2 Size New System Drawing Size 63 18 Me RadLabel2 TabIndex 3 Me RadLabel2 Text Contrasefia 1 tusuario Me tusuario Location New System Drawing Point 255 9 Me tusuario Name tusuario Me tusuario Size New System Drawing Size 218 20 Me tusuario TabIndex 4 Me tusuario TabStop False Me tusuario ThemeName Desert 1 tcontra Me tcontra Location New System Drawing Point 255 64 Me tcontra Name tcontra Me tcontra PasswordChar Global Microsoft VisualBasic ChrW 42 Me tcontra Size New System Drawing Size 212 20 Me tcontra TabIndex 5 Me tcontra TabStop False Me tcontra ThemeName Desert 1 RadPanell Me RadPanel1 Controls Add Me PictureBox 1 Me RadPanell Controls Add Me RadLabell Me RadPanel1 Controls Add Me tcontra Me RadPanell Controls Add Me Aceptar 107 Me RadPanell Controls Add Me tusuario Me RadPanel1 Controls Add Me cerrar Me RadPanel1 Controls Add Me RadLabel2 Me RadPanell Dock System Windows Forms DockStyle Fill Me RadPane
46. ch Recognition SpeechRecognizedEventArgs Handles engSR SpeechRecognized Verifico que comando dicte Select Case e Result Text Case windows 7 confi temas Windows 7 confi tema Windows 7 Me ThemeName confi tema recarga 1 principal Dispose principal Show Case Aqua confi temas Aqua confi tema Aqua Me ThemeName confi tema recarga 1 principal Dispose principal Show Case Breeze confi temas Breeze confi tema Breeze Me ThemeName confi tema recarga 1 principal Dispose principal Show Case High constrast black confi temas HighContrastBlack confi tema HighContrastBlack Me ThemeName confi tema recarga principal Dispose principal Show Case Office 2007 black confi temas Office2007Black confi tema Office2007Black Me ThemeName confi tema recarga principal Dispose principal Show Case Desert confi temas Desert confi tema Desert Me ThemeName confi tema recarga 21 22 principal Dispose principal Show Case Vista confi temas Vista confi tema Vista Me ThemeName confi tema recarga 1 principal Dispose principal Show Case Office 2010 confi temas Office2010 confi tema Office2010 Me ThemeName confi tema recarga principal Dispose principal Show Case Office 2007 Silver confi temas Office2007Silver confi tema Office2007Silver Me ThemeName confi tema recarga princi
47. confi tema creo los comandos con los que voy a trabajar Dim itemA As New Speech Recognition SrgsGrammar SrgsItem windows 7 Dim itemB As New Speech Recognition SrgsGrammar SrgsItem Aqua Dim itemC As New Speech Recognition SrgsGrammar SrgsItem Breeze Dim itemD As New Speech Recognition SrgsGrammar SrgsItem High constrast black Dim itemE As New Speech Recognition SrgsGrammar SrgsItem Office 2007 black Dim itemF As New Speech Recognition SrgsGrammar SrgsItem Desert Dim itemG As New Speech Recognition SrgsGrammar SrgsItem Office 2010 Dim itemH As New Speech Recognition SrgsGrammar SrgsItem Office 2007 Silver Dim itemI As New Speech Recognition SrgsGrammar SrgsItem Vista 20 Dim itemJ As New Speech Recognition SrgsGrammar SrgsItem Salir creo la regla con los comandos que tengo q incorporar Dim rule As New Speech Recognition SresGrammar SrgsRule Comandos _ New Speech Recognition SrgsGrammar SrgsOneOf itemA itemB itemC itemD itemE itemF itemG itemH iteml itemJ creo el documento de ejemplo Dim doc As New Speech Recognition SrgsGrammar SrgsDocument agrego la regla y la pongo como regla por defecto doc Rules Add rule doc Root rule cargo la gram tica de la aplicaci n engSR LoadGrammar New Speech Recognition Grammar doc End Sub Procedimiento que me permite reconocer los comandos que le dicto al sistema Private Sub engSR_SpeechRecognized ByVal sender As Object ByVal e As System Spee
48. copel ToolBar DisplayToolBarl DisplayTrails1 Color System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 255 Byte Integer DisplayTrails1 Font New Vel VelFont System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 255 Byte Integer Arial Vcl FontCharset Default Vcl FontPitch Default True 11 New Vcl FontStyles 0 Me Scopel Trails DisplayTrails1 Me Scopel Visible True ScopeXAxis1 Align Mitov PlotLab ViewAlign Bottom DisplayTitleLabell Font New Vel VelFont System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 255 Byte Integer Arial Vcl FontCharset Default Vcl FontPitch Default True 13 New Vcl FontStyles 1 DisplayTitleLabell Text ScopeXAxis1 AxisLabel DisplayTitleLabell DisplayViewBackground4 Color System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 0 Byte Integer CType CType 0 Byte Integer ScopeXAxis1 Background DisplayViewBackground4 ViewButtonSettings1 MouseDownBorderColor System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 0 Byte Integer ViewButtonSettings1 MouseDownColor System Drawing Color FromArgb CType CType 128 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer 82 ViewB
49. dGroup1 Caption DisplayLabell ScopeLegend View 1 ChannelLinks LegendGroup1 DisplayLabel2 Font New Vel VelFont System Drawing Color FromArgb CType CT ype 255 Byte Integer CType CType 255 Byte Integer CType CType 255 Byte Integer Arial Vcl FontCharset Default Vcl FontPitch Default True 13 New Vcl FontStyles 0 DisplayLabel2 Text LegendGroup2 Caption DisplayLabel2 ScopeLegend View 1 Channels LegendGroup2 DisplayLabel3 Font New Vel VclFont System Drawing Color FromArgb CType CType 255 Byte Integer 78 CType CType 255 Byte Integer CType CType 255 Byte Integer Arial Vcl FontCharset Default Vcl FontPitch Default True 13 New Vcl FontStyles 0 DisplayLabel3 Text LegendGroup3 Caption DisplayLabel3 ScopeLegendView1 CursorLinks LegendGroup3 DisplayLabel4 Font New Vcl VclFont System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 255 Byte Integer Arial Vcl FontCharset Default Vcl FontPitch Default True 13 New Vcl FontStyles 0 DisplayLabel4 Text LegendGroup4 Caption DisplayLabel4 ScopeLegend View 1 Cursors LegendGroup4 DisplayLabel5 Font New Vel VelFont System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 255 Byte Integer Arial Vcl FontCharset Default Vcl FontPitch Default True 13 New Vcl FontStyles 0
50. ddContentToReport ByVal content As String ByVal style As Infragistics Documents Report Text Style Dim text As Infragistics Documents Report Text Text section AddText text Style style text AddContent content End Sub Private Sub PublishReport report Publish documentFileNameRoot exportFileFormat End Sub Metodo que me permite imprimir un informacion determinada Private Sub imprimiendo Try Try Especifica los par metros de la p gina actual PrintDocument 1 DefaultPageSettings opcionesImprPagina Especifica documento para cuadro de di logo de impresi n y mostrar cadenaalmpr informacion Text PrintDialog 1 Document PrintDocumentl 41 Dim result As DialogResult PrintDialog1 ShowDialog Si se pulsa Aceptar se imprimir el documento If result DialogResult OK Then PrintDocumentl Print End If Catch ex As Exception Muestra mensajes de error MessageBox Show ex Message End Try Catch ex As Exception End Try End Sub Procedimiento que abre un pdf Private Sub OpenReport System Diagnostics Process Start documentFileNameRoot End Sub Procedimiento que crear un pdf Public Sub pdf Try SetupReportInfo Report with Attachments Content AddContentToReport informacion Text Attachments Dim fileName As String C Users falcon Desktop SEUZ SEUZ fondoA jpg Dim attachmentName As String fondoA jpg Dim mimeType As String fondoA jpg 42 Dim description As String Seuz 2011
51. del ISupportInitialize EndInit Me ResumeLayout False End Sub Friend WithEvents PictureBox1 As System Windows Forms PictureBox Friend WithEvents progreso As Telerik WinControls UI RadProgressBar Friend WithEvents tiempo As System Windows Forms Timer Friend WithEvents DesertThemel As Telerik WinControls Themes DesertTheme End Class 139 Pantalla de Ayuda Pantalla de informaci n del sistema y describe el sistema y los derechos de autor Imports Microsoft VisualBasic Imports System Imports System Collections Generic Imports System ComponentModel Imports System Drawing Imports System Windows Forms Imports System Reflection Public Partial Class ayuda Inherits Telerik WinControls UI RadForm Public Sub New information InitializeComponent 1 Initialize the AboutBox to display the product information from the assembly 1 Change assembly information settings for your application through either Project gt Properties gt Application gt Assembly Information AssemblyInfo cs Me Text String Format About 0 AssemblyTitle Me radLabelProductName Text AssemblyProduct Me radLabelVersion Text String Format Version 0 AssemblyVersion Me radLabelCopyright Text AssemblyCopyright Me radLabelCompanyName Text AssemblyCompany Me radTextBoxDescription Text AssemblyDescription End Sub 140 Region Assembly Attribute Accessors Public ReadOnly Property AssemblyTitle As Strin
52. do Me apellido Size New System Drawing Size 264 20 Me apellido TabIndex 9 Me apellido TabStop False grabar Me grabar Location New System Drawing Point 12 270 Me grabar Name grabar Me grabar Size New System Drawing Size 107 36 Me grabar TabIndex 10 Me grabar Text Grabar cancelar Me cancelar Location New System Drawing Point 302 270 Me cancelar Name cancelar Me cancelar Size New System Drawing Size 107 36 Me cancelar TabIndex 11 Me cancelar Text Cancelar 1 RadPanell Me RadPanell Controls Add Me PictureBox1 Me RadPanell Controls Add Me cancelar Me RadPanell Controls Add Me nick Me RadPanel1 Controls Add Me grabar Me RadPanell Controls Add Me RadLabell 119 Me RadPanel1 Controls Add Me apellido Me RadPanell Controls Add Me nombre Me RadPanell Controls Add Me RadLabel5 Me RadPanel1 Controls Add Me RadLabel2 Me RadPanel1 Controls Add Me rkey Me RadPanell Controls Add Me RadLabel3 Me RadPanel1 Controls Add Me key Me RadPanell Controls Add Me RadLabel4 Me RadPanell Dock System Windows Forms DockStyle Fill Me RadPanell Location New System Drawing Point 0 0 Me RadPanell Name RadPanell Me RadPanell Size New System Drawing Size 576 331 Me RadPanel1 TabIndex 12 1 PictureBox1 Me PictureBox1 BorderStyle System Windows Forms BorderStyle Fixed3D Me PictureBox1 Image Global SEUZ My Resources Resources Nuevo_usuario Me PictureBox1 Location N
53. dr As New MySqlDataAdapter Dim datos As New DataSet dr SelectCommand comandos dr Fill datos 146 combinamos las palabras con el conocimiento Me combo_categoria DataSource datos Tables 0 Me combo_categoria ValueMember id Me combo_categoria DisplayMember descripcion Me t_usuario Text usuario Nombre Me ThemeName confi tema Me t_tema ThemeName confi tema Me t_usuario ThemeName confi tema Me Cerrar ThemeName confi tema Me combo_categoria ThemeName confi tema Me fuente ThemeName confi tema Me observacion ThemeName confi tema Me b_Aceptar ThemeName confi tema Me fecha ThemeName confi tema creo los comandos con los que voy a trabajar Dim itemA As New Speech Recognition SrgsGrammar SrgsItem tema Dim itemB As New Speech Recognition SrgsGrammar SrgsItem categoria Dim itemC As New Speech Recognition SrgsGrammar SrgsItem contenido Dim itemD As New Speech Recognition SrgsGrammar Srgsltem fuente Dim itemE As New Speech Recognition SrgsGrammar Srgsltem observacion Dim itemF As New Speech Recognition SrgsGrammar SrgsItem grabar Dim itemG As New Speech Recognition SrgsGrammar SrgsItem cancelar creo la regla con los comandos que tengo q incorporar Dim rule As New Speech Recognition SresGrammar SrgsRule Comandos _ New Speech Recognition SrgsGrammar SrgsOneOf itemA itemB itemC itemD itemE itemF creo el documento de ejemplo Dim doc As New Speech Recognition SrgsGrammar SrgsDocumen
54. e Controls Add Me RadLabel4 Me Controls Add Me RadLabel2 Me Controls Add Me volumen Me Controls Add Me RadLabel 1 Me Controls Add Me Tguardar Me Controls Add Me Timprimir Me Controls Add Me Tpdf Me Controls Add Me hablado Me Controls Add Me PictureBox 1 Me MaximizeBox False Me Name principal 1 1 1 Me RootElement ApplyShapeToControl True Me StartPosition System Windows Forms FormStartPosition CenterScreen Me Text principal CType Me hablado System ComponentModel ISupportInitialize EndInit CType Me Tguardar System ComponentModel ISupportInitialize EndInit CType Me Timprimir System ComponentModel ISupportInitialize EndInit CType Me Tpdf System ComponentModel ISupportInitialize EndInit CType Me RadLabell System ComponentModel ISupportInitialize EndInit CType Me volumen System ComponentModel ISupportInitialize EndInit CType Me RadLabel2 System ComponentModel ISupportInitialize EndInit CType Me RadLabel4 System ComponentModel ISupportInitialize EndInit CType Me fuente System ComponentModel ISupportInitialize EndInit 97 98 CType Me RadLabel5 System ComponentModel ISupportInitialize EndInit CType Me observacion System ComponentModel ISupportInitialize EndInit CType Me Scopel System ComponentModel ISupportInitialize EndInit CType Me menuprincipal System ComponentModel ISupportInitialize EndInit CType Me DsAudioOut1 System ComponentModel ISupportInitialize E
55. e New Infragistics Documents Graphics Font dletras Font Name dletras Font Size Infragistics Documents Graphics Brushes Blue redStyle New Infragistics Documents Report Text Style Infragistics Documents Graphics Fonts Arial Infragistics Documents Graphics Brushes Red boldStyle New Infragistics Documents Report Text Style New Infragistics Documents Graphics Font Arial 12 Infragistics Documents Graphics FontStyle Bold Infragistics Documents Graphics Brushes Black blueUnderlineStyle New Infragistics Documents Report Text Style New Infragistics Documents Graphics Font Arial 10 Infragistics Documents Graphics FontStyle Underline Infragistics Documents Graphics Brushes DarkBlue blueLargeStyle New Infragistics Documents Report Text Style New Infragistics Documents Graphics Font Arial 20 Infragistics Documents Graphics Brushes DarkBlue blackLargeStyle New Infragistics Documents Report Text Style New Infragistics Documents Graphics Font Arial 16 Infragistics Documents Graphics Brushes Black 40 greenStyle New Infragistics Documents Report Text Style New Infragistics Documents Graphics Font Arial 10 Infragistics Documents Graphics Brushes DarkGreen End Sub M todo que me permite abrir un pdf Private Shared Sub AddContentToReport ByVal content As String AddContentToReport content blueStyle End Sub M todo que me permite agregar informacion al pdf Private Shared Sub A
56. echRecognizedEventArgs 46 Try Verifico que comando le dicte al sistema Select Case e Result Text ToUpper Case Is TEMAS Dim temas As New temas temas Show Case Is EXPORTAR A PDF If informacion Text Then DsAudioPlayerl Close habla guardar NO hay informacion para guarda informacion wma DsAudioPlayerl FileName c SEUZ informacion wma DsAudioPlayerl Start Else pdi End If Case Is IMPRIMIR If informacion Text Then DsAudioPlayerl Close habla guardar NO hay informacion para imprimir informacion wma DsAudioPlayerl FileName c SEUZ informacion wma DsAudioPlayerl Start Else imprimiendo End If Case Is PARAR DsAudioPlayer1 Stop Case Is APRENDER Dim aprender As New Aprender If aprender Created False Then aprender Show 47 End If Case Is BORRAR Me hablado Text Case Is TIPO DE LETRA dletras ShowDialog informacion Font dletras Font confi establecer_letra dletras Font Size dletras Font Name dletras Color Name Case Is COLOR color ShowDialog Me informacion ForeColor color SelectedColor Case Is NUEVO USUARIO Dim nuevo_usuario As New ingresar_usuario nuevo_usuario Show Case Is EXPORTAR A WORD If informacion Text Then DsAudioPlayerl Close habla guardar NO hay informacion para guarda informacion wma DsAudioPlayerl FileName c SEUZ informacion wma DsAudioPlayerl Start Else word End If Case Is EXPORTAR
57. edStyle As Infragistics Documents Report Text Style Private Shared boldStyle As Infragistics Documents Report Text Style Private Shared blueUnderlineStyle As Infragistics Documents Report Text Style Private Shared blueLargeStyle As Infragistics Documents Report Text Style Private Shared blackLargeStyle As Infragistics Documents Report Text Style Private Shared greenStyle As Infragistics Documents Report Text Style fin de propiedades para crear pdf Private opcionesImprPagina As New PageSettings Private cadenaalmpr As String Private Fuentelmpr As New Font confi tipo_letra 10 Private WithEvents engSR As New System Speech Recognition SpeechRecognizer Private WithEvents engSS As New System Speech Synthesis SpeechSynthesizer Objecto utilizado para el reconococimiento de voz Private recognizer As SpeechRecognizer Constructor de la clase principal Region Constructor Public Sub New InitializeComponent SetupStyles SetupDefaultSection End Sub End Region Procedimiento que me permite configurar las propiedades del pdf Private Sub SetupReportInfo ByVal title As String report New Infragistics Documents Report Report 38 report Info Title title report Info Author AUTHOR report Info Creator CREATOR report Info Copyright COPYRIGHT MBS 1 11 08 BR29211 report Preferences Printing PaperSize Infragistics Documents Report Preferences Printing PaperSize Auto report Preferences Printing PaperOrientation Inf
58. el RefreshInterval CType 100UL Ulnteger Me Scopel Size New System Drawing Size 397 177 Me Scopel SizeLimit CType OUI Ulnteger Me Scopel TabIndex 35 Display ViewBackground3 Color System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 0 Byte Integer CType CType 0 Byte Integer DisplayTitlel Background Display ViewBackground3 DisplayTitlel Font New Vel VclFont System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 255 Byte Integer Arial Vcl FontCharset Default Vcl FontPitch Default True 21 New Vcl FontStyles 1 DisplayTitlel Text Display ViewSize2 Size CType 100UI Ulnteger DisplayTitlel ViewSize Display ViewSize2 DisplayTitle 1 Visible False Me Scopel Title DisplayTitlel 80 DisplayToolBarl BorderColor System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer DisplayToolBarl ButtonColor System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 0 Byte Integer CType CType 0 Byte Integer DisplayToolBarButtons1 Copy DisplayToolBarButton1 DisplayToolBarButtons1 Hold DisplayToolBarButton2 DisplayToolBarButtons1 Print DisplayToolBarButton3 DisplayToolBarButtons1 Save DisplayToolBarButton4 DisplayToolBarButtons1 Setup DisplayToolBarButton5 DisplayToolBarButtons1 XYZoomOn DisplayToolBarButton6 DisplayTo
59. ent Public Class conocimiento Atributos del tema a buscar en este caso el conocimiento a buscar Private ctemas As String Private ccategoria As String Private cfecha As Date Private ccontenido As String Private cfuente As String 122 Private cobservacion As String Private conexion As New MySqlConnection creamos una variable para las consultas Private consultas As String Private comandos As New MySqlCommand M todo que me permite buscar el conocimiento guardado en la base de datos Public Function buscar ByVal cadena As String As Integer Try Dim temas As String conexion ConnectionString server localhost userid root pass word dar database seuz Abrimos la conexi n y comprobamos que no hay error conexion Open consultas select tema from seuz conocimiento comandos Connection conexion comandos CommandText consultas Como el comando no es almacenado ni vinculado a un tabla elegimos el tipo Text comandos CommandType CommandType Text Creamos un lector de datos IDataReader y lo inicializamos con el lector del objeto MySQLCommand Dim dr As System Data IDataReader dr comandos ExecuteReader combinamos las palabras con el conocimiento Dim conocimiento As New ArrayList While dr Read conocimiento Add dr tema End While dr Dispose For i 0 To conocimiento Count 1 123 If cadena Contains conocimiento Item i ToString ToLower Then temas conocimiento Item i ToString Exit For End If Ne
60. er CType CType 0 Byte Integer CType CType 0 Byte Integer LegendViewButtonSettings1 DisabledColor System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer LegendViewButtonSettings1 GlyphColor System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 0 Byte Integer 77 LegendViewButtonSettings MouseDownBorderColor System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 0 Byte Integer LegendViewButtonSettings1 MouseDownColor System Drawing Color FromArgb CType CType 128 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer LegendViewButtonSettings1 MouseOverBorderColor System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 255 Byte Integer CType CType 0 Byte Integer LegendViewButtonSettings1 MouseOverColor System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer ScopeLegendView1 Buttons LegendViewButtonSettings DisplayLabell Font New Vel VelFont System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 255 Byte Integer Arial Vcl FontCharset Default Vcl FontPitch Default True 13 New Vcl FontStyles 0 DisplayLabell Text Legen
61. er As System Object ByVal e As System EventArgs Handles bajar_V Click SendMessageW Me Handle WM APPCOMMAND _ Me Handle New IntPtr APPCOMMAND VOLUME DOWN End Sub End Class Disefio Este codigo se genera autom ticamente cuando estoy dise ando la pantalla lt Global Microsoft VisualBasic CompilerServices DesignerGenerated gt _ Partial Class principal Inherits Telerik WinControls UI RadForm Form overrides dispose to clean up the component list lt System Diagnostics DebuggerNonUserCode gt _ Protected Overrides Sub Dispose ByVal disposing As Boolean Try If disposing AndAlso components IsNot Nothing Then components Dispose End If Finally MyBase Dispose disposing End Try End Sub Required by the Windows Form Designer Private components As System ComponentModel IContainer NOTE The following procedure is required by the Windows Form Designer 56 It can be modified using the Windows Form Designer Do not modify it using the code editor lt System Diagnostics DebuggerStepThrough gt _ Private Sub InitializeComponent Me components New System ComponentModel Container Dim ScopeChannell As Mitov PlotLab ScopeChannel New Mitov PlotLab ScopeChannel Dim resources As System ComponentModel ComponentResourceManager New System ComponentModel ComponentResourceManager GetT ype principal Dim ScopePoints1 As Mitov PlotLab ScopePoints New Mitov PlotLab ScopePoints Dim DisplayBrushl As Mitov SignalLab Dis
62. ew System Drawing Point 12 12 Me PictureBox1 Name PictureBox1 Me PictureBox1 Size New System Drawing Size 163 171 Me PictureBox1 SizeMode System Windows Forms PictureBoxSizeMode Stretchlmage Me PictureBox1 TabIndex 12 Me PictureBox1 TabStop False 1 ingresar_usuario Me AutoScaleDimensions New System Drawing SizeF 6 0 13 0 Me AutoScaleMode System Windows Forms AutoScaleMode Font 120 Me ClientSize New System Drawing Size 576 331 Me Controls Add Me RadPanell Me Name ingresar usuario 1 1 Me RootElement ApplyShapeToControl True Me StartPosition System Windows Forms FormStartPosition CenterScreen Me Text ingresar usuario Me TopMost True CType Me nick System ComponentModel ISupportInitialize EndInit CType Me RadLabell System ComponentModel ISupportInitialize EndInit CType Me nombre System ComponentModel ISupportInitialize EndInit CType Me RadLabel2 System ComponentModel ISupportInitialize EndInit CType Me RadLabel3 System ComponentModel ISupportInitialize EndInit CType Me RadLabel4 System ComponentModel ISupportInitialize EndInit CType Me key System ComponentModel ISupportInitialize EndInit CType Me rkey System ComponentModel ISupportInitialize EndInit CType Me RadLabel5 System ComponentModel ISupportInitialize EndInit CType Me apellido System ComponentModel ISupportlnitialize Endlnit CType Me grabar System ComponentModel ISupportInitialize EndI
63. ew1 ChannelltemHighlighting1 Color System Drawing Color FromArgb CType CT ype 0 Byte Integer CType CType 255 Byte Integer CType CType 0 Byte Integer DisplayHighlighting 1 ChannelLinks ChannelltemHighlighting 1 ChannelltemHighlighting2 Color System Drawing Color FromArgb CType CT ype 0 Byte Integer CType CType 255 Byte Integer CType CType 0 Byte Integer DisplayHighlighting 1 Channels ChannelltemHighlighting2 DisplayItemHighlighting1 Color System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 255 Byte Integer CType CType 0 Byte Integer DisplayHighlighting1 CursorLinks DisplayltemHighlighting 1 DisplayltemHighlighting2 Color System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 255 Byte Integer CType CType 0 Byte Integer DisplayHighlighting1 Cursors DisplayItemHighlighting2 DisplayItemHighlighting3 Color System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 255 Byte Integer CType CType 0 Byte Integer DisplayHighlighting 1 Ellipses DisplayItemHighlighting3 DisplayItemHighlighting4 Color System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 255 Byte Integer CType CType 0 Byte Integer DisplayHighlighting 1 Markers DisplayItemHighlighting4 ChannelMouseHitPoint 1 Color System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 0 Byte Integer CType CType 0
64. ex 34 Me observacion TabStop False 1 Scopel Me Scopel BackColor System Drawing Color FromArgb CType CType 192 Byte Integer CType CType 0 Byte Integer CType CType 0 Byte Integer ScopeChannell Color System Drawing Color FromArgb CType CType 192 Byte Integer CType CType 255 Byte Integer CType CType 255 Byte Integer ScopeChannell InternalData CType resources GetObject ScopeChannell InternalData Vcl VcIBinaryData ScopeChannell Name Channel0 DisplayBrush1 Color System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 0 Byte Integer CType CType 0 Byte Integer DisplayBrush1 Style Vcl BrushStyle Solid ScopePoints1 Brush DisplayBrushl ScopePoints1 InternalData CType resources GetObject ScopePoints 1 InternalData Vcl VclBinaryData ScopePoints1 Pen New Vel VceIPen System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 0 Byte Integer CType CType 0 Byte Integer Vcl PenMode Copy Vel PenStyle Solid 1 ScopePoints1 Size CType 3UL Ulnteger 74 ScopeChannell Points ScopePoints 1 ScopeChannell Tag 0 ScopeChannell XAxisIndex 0 ScopeChannell YAxisIndex 0 ScopeChannel2 Color System Drawing Color FromArgb CType CType 192 Byte Integer CType CType 255 Byte Integer CType CType 255 Byte Integer ScopeChannel2 InternalData CType resources GetObject ScopeChannel2 InternalData Vel VelBinaryDa
65. g Get Get all Title attributes on this assembly Dim attributes As Object System Reflection Assembly GetExecuting Assembly GetCustomAttributes GetType Assem blyTitleAttribute False If there is at least one Title attribute If attributes Length 5 O Then Select the first one Dim title Attribute As AssemblyTitleAttribute CType attributes 0 AssemblyTitleAttribute If it is not an empty string return it If titleAttribute Title lt gt Then Return titleAttribute Title End If End If If there was no Title attribute or if the Title attribute was the empty string return the exe name Return System IO Path GetFileNameW ithoutExtension System Reflection Assembly GetExecuting A ssembly CodeBase End Get End Property Public ReadOnly Property AssemblyVersion As String Get 141 Return System Reflection Assembly GetExecutingAssembly GetName Version ToString End Get End Property Public ReadOnly Property AssemblyDescription As String Get Get all Description attributes on this assembly Dim attributes As Object System Reflection Assembly GetExecuting Assembly GetCustomAttributes GetType Assem blyDescriptionAttribute False If there aren t any Description attributes return an empty string If attributes Length O Then Return End If If there is a Description attribute return its value Return CType attributes 0 AssemblyDescriptionAttribute Description End Get End Property Public ReadOn
66. g the Windows Form Designer Do not modify it using the code editor lt System Diagnostics DebuggerStepThrough gt _ Private Sub InitializeComponent Me components New System ComponentModel Container Dim resources As System ComponentModel ComponentResourceManager New System ComponentModel ComponentResourceManager GetT ype bienvenida Me PictureBox1 New System Windows Forms PictureBox Me progreso New Telerik WinControls UI RadProgressBar Me tiempo New System Windows Forms Timer Me components Me DesertThemel New Telerik WinControls Themes DesertTheme CType Me PictureBox1 System ComponentModel ISupportInitialize BeginInit CType Me progreso System ComponentModel ISupportlnitialize Beginlnit CType Me System ComponentModel ISupportInitialize BeginInit Me SuspendLayout 1 PictureBox1 Me PictureBox1 Dock System Windows Forms DockStyle Fill Me PictureBox1 Image CT ype resources GetObject PictureBox1 Image System Drawing Image Me PictureBox1 Location New System Drawing Point 3 3 Me PictureBox1 Name PictureBox 1 Me PictureBox1 Size New System Drawing Size 876 785 137 Me PictureBox1 SizeMode System Windows Forms PictureBoxSizeMode StretchImage Me PictureBox1 TabIndex 0 Me PictureBox1 TabStop False 1 progreso Me progreso Dash False Me progreso Location New System Drawing Point 254 400 Me progreso Name progreso Me progreso SeparatorColorl System Dra
67. gnar valor a la propiedad Set ByVal Value As Integer ccategoria Value End Set End Property Metodo que me permite obtener u establecer la fecha que va a ser ingresado el conocimiento Public Property fecha As Date bloque Get para devolver el valor de la propiedad Get Return cfecha End Get bloque Set para asignar valor a la propiedad Set ByVal Value As Date cfecha Value End Set End Property Metodo que me permite obtener u establecer el contenido del conocimiento Public Property contenido As String bloque Get para devolver el valor de la propiedad Get Return ccontenido End Get bloque Set para asignar valor a la propiedad Set ByVal Value As String ccontenido Value End Set End Property Metodo que me permite obtener u establecer la fuente del conocimiento Public Property fuente As String bloque Get para devolver el valor de la propiedad Get Return cfuente End Get bloque Set para asignar valor a la propiedad Set ByVal Value As String cfuente Value End Set End Property Metodo que me permite obtener u establecer la observaciones del conocimiento Public Property observacion As String bloque Get para devolver el valor de la propiedad Get Return cobservacion End Get bloque Set para asignar 127 128 valor a la propiedad Set ByVal Value As String cobservacion Value End Set End Property End Class Clase configuraciones Clase que me permite cargar las conf
68. id int 10 unsigned NOT NULL auto increment descripcion varchar 450 NOT NULL estado varchar 1 NOT NULL PRIMARY KEY id ENGINE InnoDB DEFAULT CHARSET latin1 Tabla Conocimiento DROP TABLE IF EXISTS seuz conocimiento CREATE TABLE seuz conocimiento id int 10 unsigned NOT NULL tema varchar 60 NOT NULL descripcion varchar 5000 NOT NULL id_usuario int 10 unsigned NOT NULL fecha_cre datetime NOT NULL id_categoria int 10 unsigned NOT NULL fecha_mo datetime NOT NULL fuente varchar 1500 NOT NULL observacion varchar 5000 NOT NULL estado varchar 1 NOT NULL PRIMARY KEY id ENGINE InnoDB DEFAULT CHARSET latin1 Tabla Palabras DROP TABLE IF EXISTS seuz palabras CREATE TABLE seuz palabras id int 10 unsigned NOT NULL auto increment descripcion varchar 45 NOT NULL estado varchar 1 NOT NULL PRIMARY KEY id ENGINE InnoDB DEFAULT CHARSET latin1 Tabla Usuarios DROP TABLE IF EXISTS seuz usuarios CREATE TABLE seuz usuarios id int 10 unsigned NOT NULL auto increment nombre varchar 45 NOT NULL apellido varchar 45 NOT NULL clave varchar 45 NOT NULL user varchar 45 NOT NULL estado varchar 1 NOT NULL PRIMARY KEY id ENGINE InnoDB AUTO_INCREMENT 2 DEFAULT CHARSET latin1 DFD Inicio
69. iguraciones que tengo del sistema como el tema y tipo de letra Librer a que me permite manipular la base de datos Imports MySql Data MySqlClient Public Class configuraciones Atributos de la configuraciones del sistema Private ctema As String Private ctipo_Letra As String Private ctama o_letra As Integer Private ccolor As String La variable bConexionExitosa nos permitir finalizar el programa si la conexi n falla Private bConexionExitosa As Boolean True Creamos un objeto de tipo Connection y configuramos los par metros de la conexi n Private conexion As New MySqlConnection creamos una variable para las consultas Private consultas As String Private comandos As New MySqlCommand Metodo para cargar las configuraciones del sistema Public Sub cargar 129 Try Los par metros de la sobrecarga con m s par metros son 1 Direcci n IP o nombre de la m quina con el servidor de MySQLS 2 Nombre de la base de datos 3 Nombre de usuario con acceso a la base de datos se alada anteriormente 4 Contrase a para el nombre de usuario citado conexion ConnectionString server localhost amp database seuz amp user id root amp password dar Abrimos la conexi n y comprobamos que no hay error If conexion State ConnectionState Open Then Else conexion Open End If creamos una consulta para la base de datos consultas select from seuz configuracion establecemos la conexion comandos Connection
70. in 160 Pantalla de Login Es esta pantalla se ingresa el Nick y la clave del usuario que va a interactuar con el Usuario si el usuario existe en el sistema pasa a la pantalla principal El usuario solo tiene tres intentos para ingresar al sistema despu s de eso se cerrar la pantalla Usuario Contrase a Nick de Usuario Contrase a del Usuario 161 Pantalla principal Hacer clic en el micr fono 27 principal us Temas Tipoletra Color Usuarios Aprender Contenido Botones de Impresi n Informaci n fuente y Exportar a pdf y observaci n buscada o guardar requerida Fuente io Volumen ABBABIHALHRARERATAAHAAKAR Guardar Exportar a Pdf Imprimir Ingrese la informaci n a buscar Representaci n grafica de ondas sonoras Este sistema tiene dos maneras de interactuar con el usuario descriptas como modo Modol 1 Primero hacer clic en el micr fono o si esta configurado correctamente el micr fono lo puede activar por comando de voz diciendo Activar microfono 2 Enesta parte puede ver la informaci n que se desea buscar luego si el sistema reconoce el comando te dir buscando informaci n y despu s de encontrar la informaci n se llenar los cuadro de texto contenido observaci n fuente y se proceder a reproducir la informaci n a manera de archivo de sonido y representado gr ficamente las ondas sonoras 162 3
71. ings Dim DisplayGridDirectionalLinesSettingsl As Mitov PlotLab DisplayGridDirectionalLinesSettings New Mitov PlotLab DisplayGridDirectionalLinesSettings Dim DisplayGridLineSettings2 As Mitov PlotLab DisplayGridLineSettings New Mitov PlotLab DisplayGridLineSettings Dim DisplayGridLineSettings3 As Mitov PlotLab DisplayGridLineSettings New Mitov PlotLab DisplayGridLineSettings Dim AxisFormatl As Mitov PlotLab AxisFormat New Mitov PlotLab AxisFormat Dim MajorTicks1 As Mitov PlotLab MajorTicks New Mitov PlotLab MajorTicks Dim TicksStartl As Mitov PlotLab TicksStart New Mitov PlotLab TicksStart Dim MaxScopeAxisValuel As Mitov PlotLab MaxScopeAxis Value New Mitov PlotLab MaxScopeAxis Value Dim DisplayValueRangel As Mitov PlotLab Display ValueRange New Mitov PlotLab DisplayV alueRange Dim DisplayOptional Valuel As Mitov PlotLab DisplayOptional Value New Mitov PlotLab DisplayOptional Value Dim DisplayOptionalValue2 As Mitov PlotLab DisplayOptional Value New Mitov PlotLab DisplayOptional Value Dim BasicAxisValuel As Mitov PlotLab BasicAxisValue New Mitov PlotLab BasicAxis Value 61 Dim ScopeMaxSamplel As Mitov PlotLab ScopeMaxSample New Mitov PlotLab ScopeMaxSample Dim ScopeAxisValuel As Mitov PlotLab ScopeAxisValue New Mitov PlotLab ScopeAxisValue Dim DisplayValueRange2 As Mitov PlotLab Display ValueRange New Mitov PlotLab DisplayV alueRange Dim DisplayOptionalValue3 As Mitov PlotLab
72. ioPlayerl Start End Select Catch ex As Exception MsgBox ex ToString End Try End Sub Procedimiento que me permite abrir la pantalla temas Private Sub menutemas_Click ByVal sender As System Object ByVal e As System EventArgs Handles menutemas Click Dim temas As New temas temas Show End Sub Procedimiento que me permite abrir la pantalla Tipo de Letras Private Sub Menu_Letras_Click ByVal sender As System Object ByVale As System EventArgs Handles Menu_Letras Click dletras ShowDialog informacion Font dletras Font confi establecer_letra dletras Font Size dletras Font Name dletras Color Name End Sub Procedimiento que me permite abrir la pantalla de selecci n de Color 50 Private Sub Menu_Color_Click ByVal sender As System Object ByVal e As System EventArgs Handles Menu_Color Click color ShowDialog Me informacion ForeColor color SelectedColor End Sub Procedimiento que me permite abrir la pantalla Aprender Private Sub menuAprender_Click ByVal sender As System Object ByVal e As System EventArgs Handles menuAprender Click Dim aprender As New Aprender aprender Show End Sub Procedimiento que me permite crear un archivo de word 2003 Public Sub word Dim word As New Microsoft Office Interop Word Application Dim doc As Microsoft Office Interop Word Document Try doc word Documents Add word Selection Font Name confi tipo letra word Selection Font Size confi tamafio letra word Selection Font Color
73. l Value4 Value 1000 0R Display ValueRange2 Low DisplayOptional Value4 84 ScopeAxisValuel Range Display V alueRange2 Basic Axis Value2 InternalData CType resources GetObject Basic Axis Value2 InternalData Vcl VcIBinaryData Basic Axis Value2 Value 0 0R ScopeAxisValuel Tick BasicAxisValue2 ScopeAxisValuel Value 0 0R ScopeXAxis1 Min ScopeAxisValuel MinorTicks1 Count 0 ScopeXAxis1 MinorTicks MinorTicks1 AxisToolBar1 BorderColor System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer AxisToolBar1 ButtonColor System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 0 Byte Integer CType CType 0 Byte Integer AxisToolBarButtons1 ZoomIn DisplayToolBarButton13 AxisToolBarButtons1 ZoomOff DisplayToolBarButton 14 AxisToolBarButtons1 ZoomOneDir DisplayToolBarButton15 AxisToolBarButtons1 ZoomOut DisplayToolBarButton16 AxisToolBarl Buttons AxisToolBarButtons1 AxisToolBarl DisabledColor System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer AxisToolBar1 GlyphColor System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 0 Byte Integer AxisToolBar1 MouseDownBorderColor System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType C
74. lass ingreso Variable que me guarda los intentos de ingresos de los usuarios Dim intentos As Integer 0 Constructor de la clase Region Constructor Public Sub New InitializeComponent End Sub End Region Procedimiento principal donde invoco a la creaci n de las reglas gramaticales y configuraci n de sistema Private Sub f_ingreso_Load ByVal sender As Object ByVal e As System EventArgs Handles Me Load Try Invoco al m todo cargar de la clase reglas para crear las reglas gramaticales del sistema regla cargar Invoco al m todo cargar de la clase configuraciones para cargar las configuraciones del sistema confi cargar Obtengo el tipo de letra del sistema Dim letra As New Font confi tipo_letra confi tama o_letra letras letra Me ThemeName confi tema Me tusuario Focus Me RadPanell ThemeName confi tema 102 Me Aceptar ThemeName confi tema Me cerrar ThemeName confi tema Me tcontra ThemeName confi tema Me tusuario ThemeName confi tema Catch ex As Exception MsgBox ex ToString End Try End Sub Procedimiento que me permite validar si el usuario existe en el sistema y cuando intentos lleva el usuario por ingresar Private Sub Aceptar_Click ByVal sender As System Object ByVal e As System EventArgs Handles Aceptar Click Try If tusuario Text lt gt And tcontra Text lt gt Then If usuario buscar Me tusuario Text Me tcontra Text 1 Then principal Show Me Hide Else intentos 1 If i
75. lement Me tHighContrasBlack New Telerik WinControls UI RadButtonElement Me tOffice2007Black New Telerik WinControls UI RadButtonElement Me tOffice2007Silver New Telerik WinControls UI RadButtonElement CType Me Carousell System ComponentModel ISupportInitialize BeginInit CType Me System ComponentModel ISupportInitialize BeginInit Me SuspendLayout 1 RadThemeManagerl ThemeSourcel ThemeLocation C Program Files Telerik RadControls for WinForms Q2 2010 Examples Carousel Carou amp _ selSettings CarouselButtons xml Me RadThemeManagerl LoadedThemes AddRange New Telerik WinControls ThemeSource ThemeSourcel 1 Carousell 28 1 Me Carousell AutoLoopPauseCondition Telerik WinControls UI AutoLoopPauseConditions None Me Carousell BackColor System Drawing Color Transparent Me Carousell Backgroundlmage Global SEUZ My Resources Resources ZEUS AQUA HYDRO by ZEUSosX Me Carousell BackgroundImageLayout System Windows Forms ImageLayout Stretch Me Carousell ButtonPositions Telerik WinControls UI NavigationButtonsPosition Top CarouselEllipsePath1 Center New Telerik WinControls UI Point3D 50 0R 50 0R 0 0R CarouselEllipsePath1 FinalAngle 100 0R CarouselEllipsePath1 InitialAngle 90 0R CarouselEllipsePath1 U New Telerik WinControls UI Point3D 20 0R 17 0R 50 0R CarouselEllipsePath1 V New Telerik WinControls Ul Point3D 30 0R 25 0R 60 0R CarouselEllipsePath1 ZScale 500
76. ll New Telerik WinControls UI RadLabel Me RadLabel2 New Telerik WinControls UI RadLabel Me tusuario New Telerik WinControls UI RadTextBox Me tcontra New Telerik WinControls UI RadTextBox Me DesertThemel New Telerik WinControls Themes DesertTheme Me RadPanell New Telerik WinControls UI RadPanel Me PictureBox1 New System Windows Forms PictureBox CType Me Aceptar System ComponentModel ISupportInitialize BeginInit CType Me cerrar System ComponentModel ISupportInitialize BeginInit CType Me RadLabell System ComponentModel ISupportlnitialize Beginlnit CType Me RadLabel2 System ComponentModel ISupportInitialize BeginInit CType Me tusuario System ComponentModel ISupportInitialize BeginInit CType Me tcontra System ComponentModel ISupportInitialize BeginInit CType Me RadPanell System ComponentModel ISupportInitialize BeginInit Me RadPanell SuspendLayout CType Me PictureBox1 System ComponentModel ISupportInitialize BeginInit CType Me System ComponentModel ISupportInitialize BeginInit Me SuspendLayout 105 1 Aceptar Me Aceptar Location New System Drawing Point 46 184 Me Aceptar Name Aceptar Me Aceptar Size New System Drawing Size 119 31 Me Aceptar TabIndex 0 Me Aceptar Text Aceptar Me Aceptar ThemeName Desert 1 cerrar Me cerrar Location New System Drawing Point 255 184 Me cerrar Name cerrar Me cerrar Size New System Drawing Size 119 31 Me
77. ll Location New System Drawing Point 0 0 Me RadPanell Name RadPanell Me RadPanell Size New System Drawing Size 479 232 Me RadPanell TabIndex 6 1 PictureBox1 Me PictureBox1 BorderStyle System Windows Forms BorderStyle Fixed3D Me PictureBox1 Image Global SEUZ My Resources Resources contrasefia 100 Me PictureBox1 Location New System Drawing Point 24 10 Me PictureBox1 Name PictureBox 1 Me PictureBox1 Size New System Drawing Size 141 143 Me PictureBox1 SizeMode System Windows Forms PictureBoxSizeMode StretchImage Me PictureBox1 TabIndex 6 Me PictureBox1 TabStop False Li ingreso Me AutoScaleDimensions New System Drawing SizeF 6 0 13 0 Me AutoScaleMode System Windows Forms AutoScaleMode Font Me ClientSize New System Drawing Size 479 232 Me Controls Add Me RadPanel 1 Me FormBorderStyle System Windows Forms FormBorderStyle FixedTool Window Me Name ingreso 1 108 1 1 Me RootElement ApplyShapeToControl True Me StartPosition System Windows Forms FormStartPosition CenterScreen Me Text Ingreso Me ThemeName Desert CType Me Aceptar System ComponentModel ISupportInitialize EndInit CType Me cerrar System ComponentModel ISupportInitialize EndInit CType Me RadLabell System ComponentModel ISupportInitialize EndInit CType Me RadLabel2 System ComponentModel ISupportInitialize EndInit CType Me tusuario System ComponentModel ISupportInitialize E
78. ly Property AssemblyProduct As String Get Get all Product attributes on this assembly Dim attributes As Object System Reflection Assembly GetExecutingAssembly GetCustomA ttributes GetType Assem blyProductAttribute False If there aren t any Product attributes return an empty string If attributes Length 0 Then nm Return 142 End If If there is a Product attribute return its value Return CType attributes 0 AssemblyProductAttribute Product End Get End Property Public ReadOnly Property AssemblyCopyright As String Get Get all Copyright attributes on this assembly Dim attributes As Object System Reflection Assembly GetExecutingAssembly GetCustomA ttributes GetType Assem blyCopyrightAttribute False If there aren t any Copyright attributes return an empty string If attributes Length O Then Return End If If there is a Copyright attribute return its value Return CType attributes 0 AssemblyCopyrightAttribute Copyright End Get End Property Public ReadOnly Property AssemblyCompany As String Get Get all Company attributes on this assembly Dim attributes As Object System Reflection Assembly GetExecuting Assembly GetCustomAttributes GetType Assem blyCompanyAttribute False If there aren t any Company attributes return an empty string If attributes Length 0 Then nm Return 143 End If If there is a Company attribute return its value Return CType attributes 0 As
79. ma Me volumen ThemeName confi tema Me hablado ThemeName confi tema Me informacion Font letras If recarga 0 Then habla guardar bienvenido a seuz usuario Nombre cu les son sus rdenes temp wma Dim a As String C SEUZ temp wma DsAudioPlayerl FileName a DsAudioPlayer 1 Start End If 45 Try Cargo las reglas gramaticales que las cree en el metodo cargar de la clase reglas recognizer New SpeechRecognizer AddHandler recognizer SpeechRecognized AddressOf recognizer_SpeechRecognized AddHandler recognizer SpeechRecognitionRejected AddressOf recognizer_SpeechRecognitionRejected Dim pizzaGrammar New Grammar regla regla pizzaGrammar Name Available programs recognizer LoadGrammar pizzaGrammar Catch ex As Exception MsgBox ex ToString End Try End Sub Procedemiento que me permite verificar si esta funcionando en reconocimiento de voz Private Sub recognizer_SpeechDetected ByVal sender As Object ByVal e As SpeechDetectedEventArgs MsgBox e e ToString End Sub Procedimiento que me permite reconocer frase que no posee el sistema Private Sub recognizer_SpeechRecognitionRejected ByVal sender As Object ByVal e As SpeechRecognitionRejectedEventArgs MessageBox Show Sorry but the amp e Result Text amp phrase could not be recognized End Sub Procedimiento que me permite reconocer que comando le dicte al sistema Private Sub recognizer_SpeechRecognized ByVal sender As Object ByVal e As Spe
80. me c SEUZ tempo3 wma DsAudioPlayer1 Start Exit Sub End If If Me fuente Text Trim Then habla guardar Ingrese la Fuente por favor tempo2 wma DsAudioPlayerl FileName c SEUZ tempo2 wma DsAudioPlayer1 Start Exit Sub End If If Me observacion Text Trim Then habla guardar Ingrese las observaciones por favor tempo4 wma DsAudioPlayerl FileName c SEUZ tempo4 wma DsAudioPlayer1 Start Exit Sub End If 145 infor tema Me t_tema Text ToLower infor fuente Me fuente Text infor contenido Me contenido Text infor observacion Me observacion Text infor guardar usuario id Me combo_categoria Selected Value Me fuente Text Me observacion Text Me t_tema Text Me contenido Text Me t_tema Focus End Sub Procedimiento que me permite cargar las categoria de los conocimientos y commandos en este sistema Private Sub Aprender_Load ByVal sender As Object ByVal e As System EventArgs Handles Me Load conexion ConnectionS tring server localhost userid root password dar database seuz Abrimos la conexi n y comprobamos que no hay error conexion Open consultas select from seuz categoria comandos Connection conexion comandos CommandText consultas Como el comando no es almacenado ni vinculado a un tabla elegimos el tipo Text comandos CommandType CommandType Text Creamos un lector de datos IDataReader y lo inicializamos con el lector del objeto MySQLCommand Dim
81. me menuprincipal Me menuprincipal Size New System Drawing Size 1189 24 Me menuprincipal TabIndex 36 Me menuprincipal Text RadMenul 1 menutemas 1 Me menutemas Name menutemas 91 Me menutemas Text Temas 1 Menu Letras Me Menu_Letras Name Menu Letras Me Menu_Letras Text Tipo Letra Li Menu Color Me Menu Color Name Menu Color Me Menu Color Text Color t RadMenultem2 Me RadMenultem2 Items AddRange New Telerik WinControls RadItem Me menu_Ingreso Me RadMenultem4 Me RadMenultem2 Name RadMenultem2 Me RadMenultem2 Text Usuarios menu_ Ingreso 1 Me menu_Ingreso Name menu_Ingreso Me menu_Ingreso Text Ingreso RadMenultem4 Me RadMenultem4 Name RadMenultem4 Me RadMenultem4 Text Eliminacion 1 menuAprender 92 1 Me menuAprender Name menuAprender Me menuAprender Text Aprender 1 informacion Me informacion ForeColor System Drawing Color Red Me informacion Location New System Drawing Point 745 71 Me informacion Name informacion Me informacion Size New System Drawing Size 430 423 Me informacion TabIndex 37 mm Me informacion Text 1 DsAudioOutl 1 DsAudioOutputDevicel DeviceName Altavoces Realtek High Definit DsAudioOutputDevice l InternalData CType resources GetObject Ds AudioOutputDevice 1 InternalData Vel VclBinaryData Me DsAudioOut1 AudioOutputDevice DsAudioOutpu
82. nData CType resources GetObject StatePin7 ConnectionData OpenWire PinConnections Me DsAudioPlayer2 PausePin StatePin7 96 StatePin8 ConnectionData CType resources GetObject StatePin8 ConnectionData OpenWire PinConnections Me DsAudioPlayer2 ProgressPin StatePin8 Me DsAudioPlayer2 PumpPriority 0 Me DsAudioPlayer2 RestartOnNewFile False SourcePin10 ConnectionData CType resources GetObject SourcePin10 ConnectionData OpenWire PinConnections Me DsAudioPlayer2 TextOutputPin SourcePin10 1 PictureBox 1 Me PictureBox1 BackColor System Drawing SystemColors ActiveCaption Me PictureBox1 BorderStyle System Windows Forms BorderStyle Fixed3D Me PictureBox1 Image CType resources GetObject PictureBox1 Image System Drawing Image Me PictureBox1 Location New System Drawing Point 32 30 Me PictureBox1 Name PictureBox1 Me PictureBox1 Size New System Drawing Size 397 460 Me PictureBox1 SizeMode System Windows Forms PictureBoxSizeMode StretchImage Me PictureBox1 TabIndex 14 Me PictureBox1 TabStop False 1 principal Me AutoScaleDimensions New System Drawing SizeF 6 0 13 0 Me AutoScaleMode System Windows Forms AutoScaleMode Font Me ClientSize New System Drawing Size 1 189 808 Me Controls Add Me informacion Me Controls Add Me menuprincipal Me Controls Add Me Scopel Me Controls Add Me observacion Me Controls Add Me RadLabel5 Me Controls Add Me fuente M
83. n_ValueChanged ByVal sender As Object ByVal e As System EventArgs Handles volumen ValueChanged Obtengo el valor del volumen y luego lo establezco por medio del metodo volumen habla volumen volumen Value 54 End Sub Procedimiento que me permite buscar informacion de forma manual Private Sub hablado_KeyPress ByVal sender As Object ByVal e As System Windows Forms KeyPressEventArgs Handles hablado KeyPress If Asc e KeyChar 13 Then Select Me hablado Text ToUpper Case Is Parar DsAudioPlayer1 Start Case Is SEGUIR DsAudioPlayerl Start Case Else infor buscar Me hablado Text If infor observacion Equals A Then habla guardar infor contenido infor tema wma Else habla guardar infor tema Contenido infor contenido Observacion infor observacion Fuente infor fuente infor tema wma Me informacion Text infor tema infor contenido Me observacion Text infor observacion Me fuente Text infor fuente End If DsAudioPlayerl FileName C SEUZ infor tema wma DsAudioPlayer1 Start End Select End If End Sub Private Sub hablado_TextChanged ByVal sender As System Object ByVal e As System EventArgs Handles hablado TextChanged End Sub 55 Private Sub subir_V_Click ByVal sender As System Object ByVal e As System EventArgs Handles subir_V Click SendMessageW Me Handle WM_APPCOMMAND _ Me Handle New IntPtr APPCOMMAND VOLUME UP End Sub Private Sub bajar_V_Click ByVal send
84. ndInit CType Me DsAudioPlayerl System ComponentModel ISupportInitialize EndInit CType Me DsAudioOut2 System ComponentModel ISupportInitialize EndInit CType Me DsAudioPlayer2 System ComponentModel ISupportInitialize EndInit CType Me PictureBox1 System ComponentModel ISupportInitialize EndInit CType Me System ComponentModel ISupportInitialize EndInit Me ResumeLayout False Me PerformLayout End Sub Friend WithEvents Temas As Telerik WinControls UI RadMenultem Friend WithEvents FontTIPO As Telerik WinControls UI RadMenultem Friend WithEvents hablado As Telerik WinControls UI RadTextBox Friend WithEvents PictureBox As System Windows Forms PictureBox Friend WithEvents Tguardar As Telerik WinControls UI RadButton Friend WithEvents Timprimir As Telerik WinControls UI RadButton Friend WithEvents Tpdf As Telerik WinControls UI RadButton Friend WithEvents dletras As System Windows Forms FontDialog Friend WithEvents PrintDialogl As System Windows Forms PrintDialog Friend WithEvents PrintDocumentl As System Drawing Printing PrintDocument Friend WithEvents Save As System Windows Forms SaveFileDialog Friend WithEvents RadMenultem1 As Telerik WinControls UL RadMenultem Friend WithEvents u_Ingresar As Telerik WinControls ULRadMenultem Friend WithEvents u modificar As Telerik WinControls ULRadMenultem Friend WithEvents ayuda As Telerik WinControls UI RadMenultem Friend WithEvents RadLabell As Telerik WinControls UI RadLabel
85. ndInit CType Me tcontra System ComponentModel ISupportInitialize EndInit CType Me RadPanell System ComponentModel ISupportInitialize EndInit Me RadPanell ResumeLayout False Me RadPanell PerformLayout CType Me PictureBox1 System ComponentModel ISupportInitialize EndInit CType Me System ComponentModel ISupportInitialize EndInit Me ResumeLayout False End Sub Friend WithEvents Aceptar As Telerik WinControls UI RadButton Friend WithEvents cerrar As Telerik WinControls UI RadButton Friend WithEvents RadLabell As Telerik WinControls UI RadLabel Friend WithEvents RadLabel2 As Telerik WinControls UI RadLabel Friend WithEvents tusuario As Telerik WinControls UI RadTextBox Friend WithEvents tcontra As Telerik WinControls UI RadTextBox Friend WithEvents DesertThemel As Telerik WinControls Themes DesertTheme Friend WithEvents RadPanell As Telerik WinControls UI RadPanel Friend WithEvents PictureBox As System Windows Forms PictureBox End Class 109 Ingresar usuario Pantalla para ingreso de Nuevo Usuario Librer as que me permiten interactuar con el reconocimiento de voz y la sintetizaci n de voz Imports System Speech Recognition Imports System Speech Recognition SrgsGrammar Public Class ingresar_usuario Propiedad que me permite manejar el reconocimiento de voz Private WithEvents engSR As New System Speech Recognition SpeechRecognizer Propiedad que me permite manejar la sintetizacion de voz Private WithEvents engSS As Ne
86. ndows7 Text Windows 7 tAqua Me tAqua Name tAqua Me tAqua Text Aqua 1 Breeze Me tBreeze Name tBreeze Me tBreeze Text Breeze 1 tHighContrasBlack Me tHighContrasBlack Name tHighContrasBlack Me tHighContrasBlack Text HighContrastBlack 1 tOffice2007 Black Me tOffice2007Black Name tOffice2007 Black Me tOffice2007Black Text Office 2007 Black 1 tOffice2007 Silver Me tOffice2007Silver Image Nothing Me tOffice2007Silver Name tOffice2007Silver Me tOffice2007Silver Text Office 2007 Silver 1 temas 30 31 1 Me AutoScaleDimensions New System Drawing SizeF 6 0 13 0 Me AutoScaleMode System Windows Forms AutoScaleMode Font Me ClientSize New System Drawing Size 776 453 Me Controls Add Me Carousel 1 Me Cursor System Windows Forms Cursors Default Me Name temas 1 1 1 Me RootElement ApplyShapeToControl True Me StartPosition System Windows Forms FormStartPosition CenterScreen Me Text temas Me ThemeName ControlDefault Me TopMost True CType Me Carousell System ComponentModel ISupportInitialize EndInit CType Me System ComponentModel ISupportInitialize EndInit Me ResumeLayout False End Sub Friend WithEvents RadThemeManagerl As Telerik WinControls RadThemeManager Friend WithEvents Carousell As Telerik WinControls UI RadCarousel Friend WithEvents tVista As Telerik WinControls UI RadButtonElement Friend WithEvents tDesert
87. nit CType Me cancelar System ComponentModel ISupportInitialize EndInit CType Me RadPanell System ComponentModel ISupportInitialize EndInit Me RadPanell ResumeLayout False Me RadPanell PerformLayout CType Me PictureBox1 System ComponentModel ISupportInitialize EndInit CType Me System ComponentModel ISupportInitialize EndInit Me ResumeLayout False End Sub 121 Friend WithEvents nick As Telerik WinControls ULRadTextBox Friend WithEvents RadLabell As Telerik WinControls UI RadLabel Friend WithEvents nombre As Telerik WinControls UI RadTextBox Friend WithEvents RadLabel2 As Telerik WinControls UI RadLabel Friend WithEvents RadLabel3 As Telerik WinControls UI RadLabel Friend WithEvents RadLabel4 As Telerik WinControls UI RadLabel Friend WithEvents key As Telerik WinControls UI RadTextBox Friend WithEvents rkey As Telerik WinControls UI RadTextBox Friend WithEvents RadLabel5 As Telerik WinControls UI RadLabel Friend WithEvents apellido As Telerik WinControls UI RadTextBox Friend WithEvents grabar As Telerik WinControls UI RadButton Friend WithEvents cancelar As Telerik WinControls UI RadButton Friend WithEvents RadPanell As Telerik WinControls UI RadPanel Friend WithEvents PictureBox As System Windows Forms PictureBox End Class Clase conocimiento Clase que me permite buscar el conocimiento del sistema que esta guardado en la base de datos Libreria que me permite manipular la base de datos Imports MySql Data MySqlCli
88. ntentos 3 Then MsgBox Intentos Fallidos End Else habla leer Usuario No Valido we tusuario Text tcontra Text End If End If Else 103 habla leer Faltan Datos End If Catch ex As Exception MsgBox ex ToString End Try End Sub Procedimiento que me permite cerrar la pantalla de ingreso Private Sub cerrar_Click ByVal sender As System Object ByVal e As System EventArgs Handles cerrar Click End End Sub End Class Dise o Estasecci n se genera autom ticamentecuando se esta dise ando la pantalla lt Global Microsoft VisualBasic CompilerServices DesignerGenerated gt _ Partial Class ingreso Inherits Telerik WinControls UI RadForm Form overrides dispose to clean up the component list lt System Diagnostics DebuggerNonUserCode gt _ Protected Overrides Sub Dispose ByVal disposing As Boolean Try If disposing AndAlso components IsNot Nothing Then components Dispose End If Finally MyBase Dispose disposing End Try 104 End Sub Required by the Windows Form Designer Private components As System ComponentModel IContainer NOTE The following procedure is required by the Windows Form Designer It can be modified using the Windows Form Designer Do not modify it using the code editor lt System Diagnostics DebuggerStepThrough gt _ Private Sub InitializeComponent Me Aceptar New Telerik WinControls ULRadButton Me cerrar New Telerik WinControls ULRadButton Me RadLabe
89. o 2 Puede ingresar a esta ventana haciendo clic en el men principal y luego ir a temas En esta pantalla podr escoger los 9 diferentes temas que tienes el sistema ya sea haciendo clic en el tema espec fico o diciendo el nombre del tema ejemplo aqua 166 Office 2007 Silver Office 2007 Back SS 7 Pantalla de Ingreso de Nuevo Usuario Modo 1 Puede ingresar a esta pantalla diciendo al comando nuevo usuario Modo 2 Puede ingresar a esta ventana haciendo clic en el menu principal y luego ir a usuario y nuevo usuario En esta pantalla podr ingresar los datos del nuevo usuario y luego de ingresar todo la informaci n requerida haga clic en grabar o decir el comando grabar 167 NICK CLAVE PRM NOMBRE peo CZ Careto Pantalla de Ingreso de Conocimiento Modo 1 Para ingresar a esta pantalla puede decir el comando Aprender y para interactuar con esta pantalla por ejemplo si desea ingresar el contenido diga el comando contenido y as sucesivamente y luego para guardar puede decir el comando grabar Modo 2 Puede ingresar a esta ventana haciendo clic en el men principal y luego ir a Aprender Luego de haber ingresado toda la informaci n requerida puede hacer clic en aceptar
90. oft VisualBasic CompilerServices DesignerGenerated gt _ Partial Class temas Inherits Telerik WinControls UI RadForm Form overrides dispose to clean up the component list lt System Diagnostics DebuggerNonUserCode gt _ Protected Overrides Sub Dispose ByVal disposing As Boolean Try If disposing AndAlso components IsNot Nothing Then components Dispose End If Finally MyBase Dispose disposing End Try End Sub Required by the Windows Form Designer Private components As System ComponentModel IContainer NOTE The following procedure is required by the Windows Form Designer It can be modified using the Windows Form Designer Do not modify it using the code editor 27 lt System Diagnostics DebuggerStepThrough gt _ Private Sub InitializeComponent Dim ThemeSourcel As Telerik WinControls ThemeSource New Telerik WinControls ThemeSource Dim CarouselEllipsePathl As Telerik WinControls UI CarouselEllipsePath New Telerik WinControls UI CarouselEllipsePath Me RadThemeManagerl New Telerik WinControls RadThemeManager Me Carousell New Telerik WinControls UI RadCarousel Me tVista New Telerik WinControls UI RadButtonElement Me tDesert New Telerik WinControls UI RadButtonElement Me tOffice2010 New Telerik WinControls UI RadButtonElement Me tWindows7 New Telerik WinControls UI RadButtonElement Me tAqua New Telerik WinControls UI RadButtonElement Me tBreeze New Telerik WinControls UI RadButtonE
91. olBarButtons1 ZoomIn DisplayToolBarButton7 DisplayToolBarButtons 1 ZoomMode DisplayToolBarButton8 DisplayToolBarButtons 1 ZoomNext DisplayToolBarButton9 DisplayToolBarButtons 1 ZoomOff DisplayToolBarButton 10 DisplayToolBarButtons 1 ZoomOut DisplayToolBarButton 1 DisplayToolBarButtons 1 ZoomPrevious DisplayToolBarButton12 DisplayToolBarl Buttons DisplayToolBarButtons 1 DisplayToolBarl DisabledColor System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer DisplayToolBarl GlyphColor System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 0 Byte Integer DisplayToolBarl MouseDownBorderColor System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 0 Byte Integer DisplayToolBarl MouseDownButtonColor System Drawing Color FromArgb CType CType 128 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer DisplayToolBarl MouseOverBorderColor System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 255 Byte Integer CType CType 0 Byte Integer 81 DisplayToolBarl MouseOverButtonColor System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer DisplayToolBarl Position ToolBarPosition1 DisplayToolBarl Visible False Me S
92. olor As String bloque Get para devolver el valor de la propiedad Get Return ccolor End Get bloque Set para asignar valor a la propiedad Set ByVal Value As String ccolor Value End Set End Property Metodo que me devuelve un uno o cero que indica si se muestran los errores Public Property errores As String bloque Get para devolver el valor de la propiedad 132 Get Return cerror End Get bloque Set para asignar valor a la propiedad Set ByVal Value As String cerror Value End Set End Property Metodo que me permite obtener u establecer el tipo de letra del sistema Public Property tipo_letra As String bloque Get para devolver el valor de la propiedad Get Return ctipo_Letra End Get bloque Set para asignar valor a la propiedad Set ByVal Value As String ctipo_Letra Value End Set End Property Metodo que me permite obtener u establecer el tama o de la letra del sistema Public Property tama o_letra As String bloque Get para devolver el valor de la propiedad Get Return ctama o_letra 133 End Get bloque Set para asignar valor a la propiedad Set ByVal Value As String ctama o_letra Value End Set End Property End Class Pantalla bienvenida Librer a que me permite manipular directorios en el sistema operativo Imports System IO Esta es la primer pantalla que aparece Public Class bienvenida Private Sub bienvenida_Load ByVal sender As Object ByVal e A
93. otected Overrides Sub Dispose ByVal disposing As Boolean Try If disposing AndAlso components IsNot Nothing Then components Dispose End If Finally MyBase Dispose disposing End Try End Sub Required by the Windows Form Designer Private components As System ComponentModel IContainer NOTE The following procedure is required by the Windows Form Designer It can be modified using the Windows Form Designer 149 Do not modify it using the code editor lt System Diagnostics DebuggerStepThrough gt _ Private Sub InitializeComponent Me t_usuario New Telerik WinControls UI RadTextBox Me RadLabell New Telerik WinControls UI RadLabel Me 1 tema New Telerik WinControls UI RadLabel Me t_tema New Telerik WinControls UI RadTextBox Me RadLabel2 New Telerik WinControls UI RadLabel Me combo_categoria New Telerik WinControls UI RadDropDownList Me fecha New Telerik WinControls ULRadDateTimePicker Me RadLabel3 New Telerik WinControls UI RadLabel Me RadLabel4 New Telerik WinControls UI RadLabel Me b_Aceptar New Telerik WinControls UI RadButton Me Cerrar New Telerik WinControls UI RadButton Me RadLabel5 New Telerik WinControls UI RadLabel Me fuente New Telerik WinControls ULRadTextBox Me RadLabel6 New Telerik WinControls UI RadLabel Me observacion New Telerik WinControls UI RadTextBox Me contenido New System Windows Forms RichTextBox CType Me t_usuario System ComponentModel ISupport
94. pal Dispose principal Show Case Salir Me Close End Select End Sub Procedimiento que carga el tema desert Private Sub tDesert_Click ByVal sender As Object ByVal e As System EventArgs Handles tDesert Click confi temas Desert confi tema Desert Me ThemeName confi tema recarga principal Dispose principal Show End Sub Procedimiento que carga el tema vista Private Sub tVista Click ByVal sender As Object ByVal e As System EventArgs Handles tVista Click confi temas Vista confi tema Vista Me ThemeName confi tema recarga 1 principal Dispose principal Show End Sub Procedimiento que carga el tema Windows 7 Private Sub tWindows7_Click ByVal sender As Object ByVal e As System EventArgs Handles tWindows7 C lick confi temas Windows 7 confi tema Windows 7 Me ThemeName confi tema recarga 1 principal Dispose principal Show End Sub 23 24 Procedimiento que carga el tema office 2010 Private Sub tOffice2010_Click ByVal sender As Object ByVal e As System EventArgs Handles tOffice2010 Click confi temas Office2010 confi tema Office2010 Me ThemeName confi tema recarga principal Dispose principal Show End Sub Procedimiento que carga el tema breeze Private Sub tBreeze_Click ByVal sender As Object ByVal e As System EventArgs Handles tBreeze Click confi temas Breeze confi tema Breeze Me ThemeName confi tema recarga principal
95. peY Axisl InternalData CType resources GetObject Scope Y Axis 1 InternalData Vcl VclBinaryData TicksStart2 StartFrom 0 0R MajorTicks2 StartFrom TicksStart2 MajorTicks2 Step 10 0R ScopeY Axis1 MajorTicks MajorTicks2 BasicScopeAxisValuel DataValue 1000 0R BasicScopeAxisValuel InternalData CType resources GetObject BasicScope Axis Value 1 InternalData Vel VelBinaryData DisplayOptional Value7 Enabled False DisplayOptional Value7 Value 1000 0R Display ValueRange4 High DisplayOptional Value7 DisplayOptional Value8 Enabled False 88 DisplayOptional Value8 Value 1000 0R Display ValueRange4 Low DisplayOptional Value8 BasicScopeAxisValuel Range Display ValueRange4 BasicScopeAxisValuel Value 1000 0R ScopeY Axis1 Max BasicScopeAxisValuel BasicScopeAxisValue2 DataValue 1000 0R BasicScopeAxisValue2 InternalData CType resources GetObject BasicScopeAxisValue2 InternalData Vel VelBinaryData DisplayOptional Value9 Enabled False DisplayOptional Value9 Value 1000 0R Display ValueRange5 High DisplayOptional Value9 DisplayOptional Value 10 Enabled False DisplayOptional Value 10 Value 1000 0R Display ValueRange5 Low DisplayOptional Value 10 BasicScopeAxisValue2 Range Display ValueRange5 BasicScopeAxis Value2 Value 1000 0R ScopeY Axisl Min BasicScopeAxis Value2 MinorTicks2 Count 0 ScopeY Axis1 MinorTicks MinorTicks2 AxisToolBar2 BorderColor System D
96. playBrush New Mitov SignalLab DisplayBrush Dim ScopeChannel2 As Mitov PlotLab ScopeChannel New Mitov PlotLab ScopeChannel Dim ScopePoints2 As Mitov PlotLab ScopePoints New Mitov PlotLab ScopePoints Dim DisplayBrush2 As Mitov SignalLab DisplayBrush New Mitov SignalLab DisplayBrush Dim ScopeDataViewl As Mitov PlotLab ScopeDataView New Mitov PlotLab ScopeDataView Dim DisplayViewBackgroundl As Mitov PlotLab DisplayViewBackground New Mitov PlotLab DisplayViewBackground Dim DisplayGridLineSettings1 As Mitov PlotLab DisplayGridLineSettings New Mitov PlotLab DisplayGridLineSettings Dim DisplayHighlightingl As Mitov PlotLab DisplayHighlighting New Mitov PlotLab DisplayHighlighting Dim ChannelltemHighlightingl As Mitov PlotLab ChannelltemHighlighting New Mitov PlotLab ChannelltemHighlighting Dim ChannelltemHighlighting2 As Mitov PlotLab ChannelltemHighlighting New Mitov PlotLab ChannelltemHighlighting 57 Dim DisplayltemHighlightingl As Mitov PlotLab DisplayltemHighlighting New Mitov PlotLab DisplayltemHighlighting Dim DisplayItemHighlighting2 As Mitov PlotLab DisplayItemHighlighting New Mitov PlotLab DisplayltemHighlighting Dim DisplayItemHighlighting3 As Mitov PlotLab DisplayltemHighlighting New Mitov PlotLab DisplayltemHighlighting Dim DisplayItemHighlighting4 As Mitov PlotLab DisplayltemHighlighting New Mitov PlotLab DisplayltemHighlighting Dim ChannelMouseHitPoint1 As Mitov PlotLab ChannelMo
97. ponents Dispose End If 114 Finally MyBase Dispose disposing End Try End Sub Required by the Windows Form Designer Private components As System ComponentModel IContainer NOTE The following procedure is required by the Windows Form Designer It can be modified using the Windows Form Designer Do not modify it using the code editor lt System Diagnostics DebuggerStepThrough gt _ Private Sub InitializeComponent Me nick New Telerik WinControls ULRadTextBox Me RadLabell New Telerik WinControls UI RadLabel Me nombre New Telerik WinControls UI RadTextBox Me RadLabel2 New Telerik WinControls UI RadLabel Me RadLabel3 New Telerik WinControls UI RadLabel Me RadLabel4 New Telerik WinControls UI RadLabel Me key New Telerik WinControls UI RadTextBox Me rkey New Telerik WinControls UI RadTextBox Me RadLabel5 New Telerik WinControls UI RadLabel Me apellido New Telerik WinControls UI RadTextBox Me grabar New Telerik WinControls UL RadButton Me cancelar New Telerik WinControls UI RadButton Me RadPanell New Telerik WinControls UI RadPanel Me PictureBox1 New System Windows Forms PictureBox CType Me nick System ComponentModel ISupportInitialize BeginInit CType Me RadLabell System ComponentModel ISupportInitialize BeginInit CType Me nombre System ComponentModel ISupportInitialize BeginInit 115 CType Me RadLabel2 System ComponentModel ISupportInitialize BeginInit
98. r As System Data IDataReader dr comandos ExecuteReader Dim ultimo As Integer While dr Read ultimo dr maximo End While dr Dispose Dim fecha As String fecha Now Year ToString Now Month ToString Now Day ToString wow woe Itt Now Hour ToString Now Minute ToString Now Second ToString comandos CommandText insert into conocimiento id tema descripcion id_usuario fecha_cre id_categoria fecha_mo fuente observa non nom cion estado values ultimo ToString ctemas ccontenido amp 125 nan id ToString amp amp fecha amp amp categoria amp fecha cfuente cobservacion A comandos CommandType CommandType Text comandos ExecuteNonQuery conexion Close habla leer Informacion Grabada Catch ex As Exception conexion Close MsgBox ex ToString End Try End Sub Metodo que me permite obtener u establer el nombre del tema del conocimiento Public Property tema As String bloque Get para devolver el valor de la propiedad Get Return ctemas End Get bloque Set para asignar valor a la propiedad Set ByVal Value As String ctemas Value End Set End Property Metodo que me permite obtener u establecer la categoria del conocimiento Public Property categoria As Integer bloque Get para devolver el valor de la propiedad 126 Get Return ccategoria End Get bloque Set para asi
99. ragistics Documents Report Preferences Printing PaperOrientation Auto report Preferences Printing FitToMargins True SetupDefaultSection End Sub Metodo que me permite configurar la letra del pdf y el dise o de la pagina Private Sub SetupDefaultSection section report AddSection section PageSize Infragistics Documents Report PageSizes Letter section PageMargins All 35 section PageNumbering New Infragistics Documents Report Section PageNumbering section PageNumbering Style New Infragistics Documents Report Text Style Infragistics Documents Graphics Fonts Arial Infragistics Documents Graphics Brushes Black section PageNumbering Template PAGE NUMBER TEMPLATE section PageNumbering Continue True section PageNumbering SkipFirst False section PageNumbering Alignment Infragistics Documents Report PageNumberAlignment Right section PageNumbering OffsetX 10 End Sub 39 Metodo que me permite configurar el estilo del pdf Private Sub SetupStyles normalStyle New Infragistics Documents Report Text Style New Infragistics Documents Graphics Font Arial 12 Infragistics Documents Graphics Brushes Black redSubscriptStyle New Infragistics Documents Report Text Style New Infragistics Documents Graphics Font Arial 12 Infragistics Documents Graphics Brushes Red redSubscriptStyle FontVariant Infragistics Documents Report FontVariant Subscript blueStyle New Infragistics Documents Report Text Styl
100. rawing Color FromArgb CType CType 0 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer AxisToolBar2 ButtonColor System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 0 Byte Integer CType CType 0 Byte Integer AxisToolBarButtons2 ZoomIn DisplayToolBarButton17 AxisToolBarButtons2 ZoomOff DisplayToolBarButton18 AxisToolBarButtons2 ZoomOneDir DisplayToolBarButton19 AxisToolBarButtons2 ZoomOut DisplayToolBarButton20 AxisToolBar2 Buttons AxisToolBarButtons2 AxisToolBar2 DisabledColor System Drawing Color FromArgb CType CT ype 0 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer 89 AxisToolBar2 GlyphColor System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 0 Byte Integer AxisToolBar2 MouseDownBorderColor System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 0 Byte Integer AxisToolBar2 MouseDownButtonColor System Drawing Color FromArgb CType CType 128 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer AxisToolBar2 MouseOverBorderColor System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 255 Byte Integer CType CType 0 Byte Integer AxisToolBar2 MouseOverButtonColor System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 128 By
101. ring Private uid As Integer Programa si la conexi n falla Private bConexionExitosa As Boolean True Creamos un objeto de tipo Connection y configuramos los par metros de la conexi n Private conexion As New MySqlConnection Creamos una variable para las consultas Private consultas As String Private comandos As New MySqlCommand M todocambiar u obtener la propiedad nombre del usuario Public Property Nombre As String bloque Get para devolver el valor de la propiedad Get Return unombre End Get bloque Set para asignar valor a la provided Set ByVal Value As String unombre Value End Set End Property M todo cambiar u obtener la propiedad apellido del usuario Public Property Apellido As String bloque Get para devolver el valor de la propiedad Get Return uapellido End Get bloque Set para asignar valor a la propiedad Set ByVal Value As String uapellido Value End Set End Property Metodo cambiar u obtener la propiedad nick del usuario Public Property nick As String bloque Get para devolver el valor de la propiedad Get Return unick End Get bloque Set para asignar valor a la propiedad Set ByVal Value As String unick Value End Set 14 End Property Metodo cambiar u obtener la propiedad clave del usuario Public Property clave As String bloque Get para devolver el valor de la propiedad Get Return uclave End Get bloque Set para asignar valor a la propiedad Set ByVal
102. s ndose en medidaTama o e Graphics MeasureString cadenaalmpr Fuentelmpr _ Medida Tama o strFormato numCaract numLineas Calcula las cadenas que caben en una p gina strParaPagina cadenaalmpr Substring 0 numCaract Imprime la cadena contenida en la p gina actual e Graphics DrawString strParaPagina Fuentelmpr _ Brushes Black rectDibujar strFormato Si hay m s texto indica que hay m s p ginas If numCaract lt cadenaalmpr Length Then Resta el texto que ya se ha imprimido de la cadena cadenaalmpr cadenaalmpr Substring numCaract e HasMorePages True Else e HasMorePages False Se ha impreso todo el texto restaura la cadena cadenaalmpr informacion Text End If End Sub Procedimiento que librera los recursos utilizados en esta pantalla 44 Private Sub principal_FormClosed ByVal sender As Object ByVal e As System Windows Forms FormClosedEventArgs Handles Me FormClosed Dispose End End Sub Procedimiento que carga la configuraci n y reglas gramaticales Private Sub principal_Load ByVal sender As System Object ByVal e As System EventArgs Handles MyBase Load If recarga lt gt 0 Then Me DsAudioPlayerl Start End If Cargo las configuraciones guardadas del sistema Me ThemeName confi tema Me menuprincipal ThemeName confi tema Me observacion ThemeName confi tema Me fuente ThemeName confi tema Me Tguardar ThemeName confi tema Me Timprimir ThemeName confi tema Me Tpdf ThemeName confi te
103. s Add Me RadLabel5 Me Controls Add Me Cerrar Me Controls Add Me b Aceptar Me Controls Add Me RadLabel4 Me Controls Add Me RadLabel3 Me Controls Add Me fecha Me Controls Add Me combo_categoria Me Controls Add Me RadLabel2 Me Controls Add Me t_tema Me Controls Add Me l_tema 156 Me Controls Add Me RadLabell Me Controls Add Me t_usuario Me MaximizeBox False Me Name Aprender 1 1 Li Me RootElement ApplyShapeToControl True Me StartPosition System Windows Forms FormStartPosition CenterScreen Me Text Me TopMost True CType Me t_usuario System ComponentModel ISupportInitialize EndInit CType Me RadLabell System ComponentModel ISupportInitialize EndInit CType Me l_tema System ComponentModel ISupportInitialize EndInit CType Me t_tema System ComponentModel ISupportInitialize EndInit CType Me RadLabel2 System ComponentModel ISupportInitialize EndInit CType Me combo_categoria System ComponentModel ISupportInitialize EndInit CType Me fecha System ComponentModel ISupportInitialize EndInit CType Me RadLabel3 System ComponentModel ISupportInitialize EndInit CType Me RadLabel4 System ComponentModel ISupportInitialize EndInit CType Me b_Aceptar System ComponentModel ISupportInitialize EndInit CType Me Cerrar System ComponentModel ISupportInitialize EndInit CType Me RadLabel5 System ComponentModel ISupportInitialize EndInit CType Me fuente System ComponentModel ISupport
104. s System EventArgs Handles Me Load tiempo Start En esta parte verifico si no existe los directorios que utiliza el sistema If Not Directory Exists c SEUZ Then Directory CreateDirectory c SEUZ End If If Not Directory Exists CASEUZADOCUMENTOS Then Directory CreateDirectory c SEUZ DOCUMENTOS End If End Sub Procedimiento para manipular el progress bar de esta pantalla 134 135 Private Sub tiempo_Tick ByVal sender As Object ByVal e As System EventArgs Handles tiempo Tick If progreso Valuel lt 100 Then progreso Valuel 25 progreso Refresh ElseIf progreso Valuel 100 Then tiempo Stop Dim ingreso As New ingreso ingreso Show Me Hide End If End Sub End Class Dise o Esta parte se genera automaticamente cuando se dise a la pantalla de bienvenida lt Global Microsoft VisualBasic CompilerServices DesignerGenerated gt _ Partial Class bienvenida Inherits Telerik WinControls UI RadForm Form overrides dispose to clean up the component list lt System Diagnostics DebuggerNonUserCode gt _ Protected Overrides Sub Dispose ByVal disposing As Boolean Try If disposing AndAlso components IsNot Nothing Then components Dispose End If Finally MyBase Dispose disposing End Try 136 End Sub Required by the Windows Form Designer Private components As System ComponentModel IContainer NOTE The following procedure is required by the Windows Form Designer It can be modified usin
105. s im genes 02 09 2010 15 10 Carpeta de archivos amp Mis im genes 02 09 2010 15 10 Carpeta de archivos a Mis v deos 02 09 2010 15 10 Carpeta de archivos A Bibliotecas ES Documentos Im genes a M sica amp V deos ee e na mninninarn 1 Equipo l z m Nombre v Tipo Archivos de Microsoft Office do ae Nombre del archivo Tipo de archivo Pantalla de Impresi n En esta pantalla simplemente podr configurar la impresora a su elecci n Fan Agregar impresora E Fax h Microsoft XPS Document Writer E Imprimir a un archivo P gina actual 1012 32 ies Pantalla de Tipo de letra Modo 1 Puede ingresar a esta venta dictando el comando fuente Modo 2 Puede ingresar a esta ventana haciendo clic en el menu principal y luego ir a fuente En esta pantalla podr escoger el tipo de letra con el que se va a imprimir la informaci n 163 164 Normal a Oblicua Pantalla de Color de Texto Modo 1 Puede ingresar a esta ventana diciendo el comando color Modo 2 Puede ingresar a esta ventana haciendo clic en el men principal y luego ir a color En esta pantalla podr escoger el color con la que va a ser impresa la informaci n 165 Basic System Web Professional dr 4 ry v p3 hd 23 v BS v MI I I I I I I IT aceon coor Pantalla de Temas Modo 1 Puede ingresar a esta ventana dictando el comando temas Mod
106. sGraph2 GraphPin SourcePin3 Me DsAudioPlayerl Graph DsGraph2 Me DsAudioPlayerl InternalData CType resources GetObject DsAudioPlayerl InternalData Vel VelBinaryData SourcePin4 ComnectionData CType resources GetObject SourcePin4 ConnectionData OpenWire PinConnections Me DsAudioPlayerl OutputPin SourcePin4 94 StatePin3 ConnectionData CType resources GetObject StatePin3 ConnectionData OpenWire PinConnections Me DsAudioPlayerl PausePin StatePin3 StatePin4 ConnectionData CType resources GetObject StatePin4 ConnectionData OpenWire PinConnections Me DsAudioPlayerl ProgressPin StatePin4 Me DsAudioPlayerl PumpPriority 0 Me DsAudioPlayer1 RestartOnNewFile False SourcePin5 ConnectionData CType resources GetObject SourcePin5 ConnectionData OpenWire PinConnections Me DsAudioPlayerl TextOutputPin SourcePin5 1 DsAudioOut2 DsAudioOutputDevice2 DeviceName Altavoces Realtek High Definit DsAudioOutputDevice2 InternalData CType resources GetObject DsAudioOutputDevice2 InternalData Vcl VcIBinaryData Me DsAudioOut2 AudioOutputDevice DsAudioOutputDevice2 SourcePin6 ConnectionData CType resources GetObject SourcePin6 ConnectionData OpenWire PinConnections Me DsAudioOut2 ClockOutputPin SourcePin6 StatePin5 ConnectionData CType resources GetObject StatePin5 ConnectionData OpenWire PinConnections Me DsAudioOut2 EnablePin StatePin5 SourcePin7 ConnectionData CT
107. semblyCompanyAttribute Company End Get End Property End Region End Class Pantalla Aprender Pantalla que me permite ingresar nuevo conocimiento en el sistema Libreria para manipular la sintetizacion de voz Imports SpeechLib Libreria que me permite manipular la base de datos Imports MySql Data MySqlClient Public Class Aprender Atributo que me permite manipular la base de datos Private conexion As New MySqlConnection creamos una variable para las consultas Private consultas As String Private comandos As New MySqlCommand Propiedad que me permite manipular el reconocimiento de voz Private WithEvents engSR As New System Speech Recognition SpeechRecognizer Propiedad que me permite manipular la sintetizacion de voz Private WithEvents engSS As New System Speech Synthesis SpeechSynthesizer Procedimiento que libera libera los recursos utilizados en esta pantalla Private Sub Aprender_FormClosed ByVal sender As Object ByVal e As System Windows Forms FormClosedEventArgs Handles Me FormClosed 144 Dispose engSR Dispose End Sub Procedimiento que me permite guardar toda la informacion del Nuevo conocimiento Public Sub grabacion If Me t_tema Text Trim Then habla guardar Ingrese el Tema Por Favor tempol wma DsAudioPlayerl FileName c SEUZ tempol wma DsAudioPlayer 1 Start Exit Sub End If If Me contenido Text Trim Then habla guardar Ingrese el contenido por favor tempo3 wma DsAudioPlayerl FileNa
108. ssesesaeaesessscuseeeaasaeeeesessseseaeeeeess 166 A EERE 166 MOCO Zi A Aha ad 166 Pantalla de Ingreso de CONOCIMIENTO aa 167 Modo STEEN 167 DICCIONARIO DE DATOS Nombre de la tabla Configuraci n El objetivo de crear la tabla configuraci n es obtener y cambiar los estilos visuales del sistema como lo es el tema tama o de letra etc Campos Tipo de Descripci n Dato id int 10 pk clave primaria de la tabla tema varchar 45 nombre del tema tama Letra int 10 tama o de la letra tipo letra varchar 45 nombre del tipo de letra color varchar 45 color de la letra Nombre de la tabla Categoria El objetivo de crear la tabla categoria es obtener el tipo de conocimiento que posee el sistema por ejemplo batalla de pichincha esta en la categoria historia Campos Tipo de Descripci n Dato id int 10 pk clave primaria de la tabla descripcion varchar 450 nombre de la categor a estado varchar 1 estado de la categoria Nombre de la tabla Conocimiento El objetivo de crear la tabla conocimiento es obtener y guardar la informacaci n que posee el sistema ejemplo informaci n de programaci n Campos Tipo de Dato Descripci n id int 10 pk clave primaria de la tabla tema varchar 60 nombre de la informacion descripci n varchar 5000 descripci n del tema o contenido id_usuario int 10 codigo del usuario que creo la informacion fecha_cre datetime fecha de creacion la informaci n id catagoria int 10 id de la categori
109. t agrego la regla y la pongo como regla por defecto doc Rules Add rule 147 doc Root rule cargo la gramatica de la aplicacion engSR LoadGrammar New Speech Recognition Grammar doc End Sub Procedimiento que me permite manipular el reconocimiento de voz Private Sub engSR_SpeechRecognized ByVal sender As Object ByVal e As System Speech Recognition SpeechRecognizedEventArgs Handles engSR SpeechRecognized Select Case e Result Text Case grabar grabacion Case tema Me t_tema Focus Case contenido Me contenido Focus Case categoria Me combo_categoria Focus Case fuente Me fuente Focus Case observacion Me observacion Focus Case cancelar Me Close End Select End Sub Procedimiento que me permite cerrar esta pantalla Private Sub Cerrar_Click ByVal sender As System Object ByVal e As System EventArgs Handles Cerrar Click 148 Me Close End Sub Procedimiento que me permite grabar la informacion ingresada en esta pantalla Private Sub b Aceptar Click ByVal sender As System Object ByVal e As System EventArgs Handles b Aceptar Click grabacion End Sub End Class Disefio Este codigo se genera automaticamente cuando dise o de esta pantalla lt Global Microsoft VisualBasic CompilerServices DesignerGenerated gt _ Partial Class Aprender Inherits Telerik WinControls UI RadForm Form overrides dispose to clean up the component list lt System Diagnostics DebuggerNonUserCode gt _ Pr
110. t para devolver el valor de la propiedad Get Return rules End Get 33 bloque Set para asignar valor a la propiedad Set ByVal Value As Speech Recognition GrammarBuilder rules Value End Set End Property M todo que me permite crear las reglas gram ticas con el conocimiento de la base de datos Public Sub cargar Try creo los comandos con los que voy a trabajar conexion ConnectionString server localhost userid root password dar database seuz Abrimos la conexi n y comprobamos que no hay error If conexion State ConnectionState Open Then Else conexion Open End If creamos una consulta para la base de datos consultas select descripci n from seuz palabras where estado A establecemos la conexion comandos Connection conexion comandos CommandText consultas comandos CommandType CommandType Text Como el comando no es almacenado ni vinculado a un tabla elegimos el tipo Text Creamos un lector de datos IDataReader y lo inicializamos con el lector del objeto MySQLCommand Dim ejecutar As New Choices Dim palabras As System Data IDataReader palabras comandos ExecuteReader While palabras Read 34 ejecutar Add palabras descripcion End While conexion Close conexion Open cargar reglas de conversaci n Dim conversacion As New Choices consultas select tema from seuz conocimiento where estado C establecemos la conexion comandos Connection conexion comandos CommandText
111. tDevicel SourcePin1 ConnectionData CType resources GetObject SourcePin1 ConnectionData OpenWire PinConnections Me DsAudioOut1 ClockOutputPin SourcePin1 StatePin l ConnectionData CType resources GetObject StatePin1 ConnectionData OpenWire PinConnections Me DsAudioOutl EnablePin StatePin1 SourcePin2 ConnectionData CType resources GetObject SourcePin2 ConnectionData OpenWire PinConnections DsGraph1 GraphPin SourcePin2 Me DsAudioOut1 Graph DsGraph1 93 SinkPin1 ConnectionData CType resources GetObject SinkPin1 ConnectionData OpenWire PinConnections Me DsAudioOutl InputPin SinkPin1 Me DsAudioOutl InternalData CType resources GetObject DsAudioOut1 InternalData Vcl VclBinaryData Me DsAudioOut1 MasterPumping MasterPumping 1 Me DsAudioOut1 PrefillInterval CType 300UL Ulnteger 1 DsAudioPlayerl SinkPin2 ConnectionData CType resources GetObject SinkPin2 ConnectionData OpenWire PinConnections Me DsAudioPlayerl ClockPin SinkPin2 Me DsAudioPlayerl Enabled False StatePin2 ConnectionData CType resources GetObject StatePin2 ConnectionData OpenWire PinConnections Me DsAudioPlayerl EnablePin StatePin2 SinkPin3 ConnectionData CT ype resources GetObject SinkPin3 ConnectionData OpenWire PinConnections Me DsAudioPlayerl FileNamePin SinkPin3 SourcePin3 ConnectionData CType resources GetObject SourcePin3 ConnectionData OpenWire PinConnections D
112. tInitialize BeginInit CType Me RadLabel2 System ComponentModel ISupportInitialize BeginInit CType Me RadLabel4 System ComponentModel ISupportInitialize BeginInit CType Me fuente System ComponentModel ISupportInitialize BeginInit CType Me RadLabel5 System ComponentModel ISupportInitialize BeginInit CType Me observacion System ComponentModel ISupportInitialize BeginInit CType Me Scopel System ComponentModel ISupportInitialize BeginInit CType Me menuprincipal System ComponentModel ISupportInitialize BeginInit CType Me DsAudioOutl System ComponentModel ISupportInitialize BeginInit CType Me DsAudioPlayerl System ComponentModel ISupportInitialize BeginInit CType Me DsAudioOut2 System ComponentModel ISupportInitialize BeginInit CType Me DsAudioPlayer2 System ComponentModel ISupportInitialize BeginInit CType Me PictureBox1 System ComponentModel ISupportInitialize BeginInit CType Me System ComponentModel ISupportInitialize BeginInit Me SuspendLayout Temas nm Me Temas Class Me Temas Name Temas Me Temas Text Temas 1 Font TIPO 1 Me FontTIPO Class 68 Me FontTIPO Name FontTIPO Me FontTIPO Text Tipo de Letra hablado Me hablado Location New System Drawing Point 45 760 Me hablado Multiline True Me hablado Name hablado 1 1 Me hablado RootElement StretchVertically True Me hablado Size New System Drawing Size 383 36 Me hablado TabIndex
113. ta ScopeChannel2 Name Channell DisplayBrush2 Color System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 0 Byte Integer CType CType 0 Byte Integer DisplayBrush2 Style Vcl BrushStyle Solid ScopePoints2 Brush DisplayBrush2 ScopePoints2 InternalData CT ype resources GetObject ScopePoints2 InternalData Vcl VclBinaryData ScopePoints2 Pen New Vcl VclPen System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 0 Byte Integer CType CType 0 Byte Integer Vcl PenMode Copy Vel PenStyle Solid 1 ScopePoints2 Size CType 3UL Ulnteger ScopeChannel2 Points ScopePoints2 ScopeChannel2 Tag 0 ScopeChannel2 XAxisIndex 0 ScopeChannel2 Y AxisIndex 0 Me Scopel Channels AddRange New Mitov PlotLab ScopeChannel ScopeChannell ScopeChannel2 Display ViewBackground1 Color System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 0 Byte Integer CType CType 0 Byte Integer ScopeDataView1 Background DisplayViewBackground1 75 DisplayGridLineSettings1 Pen New Vel VelPen System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer Vel PenMode Copy Vel PenStyle Solid 1 ScopeDataView1 Border DisplayGridLineSettings 1 ScopeDataView 1 InternalData CType resources GetObject ScopeDataView 1 InternalData Vel VelBinaryData Me Scopel DataView ScopeDataVi
114. te Integer CType CType 0 Byte Integer ScopeY Axisl ToolBar AxisToolBar2 ScopeY Axis1 TrackColor System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 0 Byte Integer CType CType 0 Byte Integer Display ViewSize4 Size CT ype 100UI Ulnteger ScopeY Axis1 ViewSize Display ViewSize4 ScopeY Axis1 Visible False DisplayOptional Valuel 1 Enabled False DisplayOptional Valuel 1 Value 100000000 0R Display ValueRange6 High DisplayOptionalValuel 1 DisplayOptionalValuel2 Enabled True DisplayOptionalValue12 Value 0 0000001R Display ValueRange6 Low DisplayOptional Value12 DisplayAxisZoom2 Range Display ValueRange6 ScopeY Axisl Zooming DisplayAxisZoom2 Me Scopel Y Axis ScopeY Axis1 90 DisplayZoom 1 SelectionColor System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 255 Byte Integer Me Scopel Zooming DisplayZoom1 1 aprender Me aprender Class Me aprender Name aprender Me aprender Text Aprender 1 color Me color SelectedColor System Drawing Color Red Me color SelectedHslColor Telerik WinControls HslColor FromAhsl 0 0R 1 0R 1 0R 1 menuprincipal Me menuprincipal Items AddRange New Telerik WinControls RadItem Me menutemas Me Menu_Letras Me Menu_Color Me RadMenultem2 Me menuAprender Me menuprincipal Location New System Drawing Point 0 0 Me menuprincipal Na
115. tov PlotLab ViewAlign Left ScopeAutoScalingl MaxHistory CType 20UI Ulnteger ScopeAutoScalingSpacel Space CType 20UI Ulnteger ScopeAutoScalingSpacel Threshold CType 10UL Ulnteger 86 ScopeAutoScalingl SpaceAbove ScopeAutoScalingSpacel ScopeAutoScalingSpace2 Space CType 20UI Ulnteger ScopeAutoScalingSpace2 Threshold CType 10UI Ulnteger ScopeAutoScalingl SpaceBelow ScopeAutoScalingSpace2 ScopeY Axisl AutoScaling ScopeAutoScaling 1 DisplayTitleLabel2 Font New Vcl VclFont System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 255 Byte Integer Arial Vcl FontCharset Default Vcl FontPitch Default True 13 New Vcl FontStyles 1 DisplayTitleLabel2 Text Y Axis ScopeY Axisl AxisLabel DisplayTitleLabel2 Display ViewBackground5 Color System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 0 Byte Integer CType CType 0 Byte Integer ScopeY Axis1 Background Display ViewBackground5 ViewButtonSettings2 MouseDownBorderColor System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 0 Byte Integer ViewButtonSettings2 MouseDownColor System Drawing Color FromArgb CType CType 128 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer ViewButtonSettings2 MouseOverBorderColor System Drawing Color FromArgb CType CType 0 Byte Integer
116. ue Dim DisplayOptionalValue6 As Mitov PlotLab DisplayOptional Value New Mitov PlotLab DisplayOptional Value Dim PinList2 As OpenWire Proxy PinList New OpenWire Proxy PinList Dim ScopeY Axis As Mitov PlotLab ScopeY Axis New Mitov PlotLab ScopeY Axis Dim ScopeAutoScalingl As Mitov PlotLab ScopeAutoScaling New Mitov PlotLab ScopeAutoScaling Dim ScopeAutoScalingSpacel As Mitov PlotLab ScopeAutoScalingSpace New Mitov PlotLab ScopeAutoScalingSpace Dim ScopeAutoScalingSpace2 As Mitov PlotLab ScopeAutoScalingSpace New Mitov PlotLab ScopeAutoScalingSpace Dim DisplayTitleLabel2 As Mitov PlotLab DisplayTitleLabel New Mitov PlotLab DisplayTitleLabel Dim Display ViewBackground5 As Mitov PlotLab DisplayViewBackground New Mitov PlotLab Display ViewBackground Dim ViewButtonSettings2 As Mitov PlotLab ViewButtonSettings New Mitov PlotLab ViewButtonSettings Dim DisplayAxisCursorSettings2 As Mitov PlotLab DisplayAxisCursorSettings New Mitov PlotLab DisplayA xisCursorSettings Dim DisplayGridDirectionalLinesSettings2 As Mitov PlotLab DisplayGridDirectionalLinesSettings New Mitov PlotLab DisplayGridDirectionalLinesSettings Dim DisplayGridLineSettings4 As Mitov PlotLab DisplayGridLineSettings New Mitov PlotLab DisplayGridLineSettings 63 Dim DisplayGridLineSettingsS As Mitov PlotLab DisplayGridLineSettings New Mitov PlotLab DisplayGridLineSettings Dim AxisFormat2 As Mitov PlotLab AxisFormat New Mito
117. ue End Set End Property M todo que me permite cambiar u obtener la propiedad de velocidad Public Property velocidad As Integer bloque Get para devolver el valor de la propiedad Get Return pvelocidad End Get 11 12 Bloque Set para asignar valor a la propiedad Set ByVal Value As Integer pvelocidad Value End Set End Property M todo que me permite guardar una cadena de caracteres en un archivo de audio Public Sub guardar ByVal info As String ByVal archivo As String Try Preparo el dispositivo de audio Dim SpFlags As SpeechVoiceSpeakFlags Speech VoiceSpeakFlags S VSFlagsAsync Dim SpFileMode As SpeechStreamFileMode SpeechStreamFileMode SSFMCreateForWrite Dim SpFileStream As New SpFileStream Establezco la velocidad el audio pvoz Volume pvolumen Establezco la velocidad del audio pvoz SynchronousSpeak Timeout pvelocidad Guardo la cadena de caracteres en un la unidad C carpeta SEUZ SpFileStream Open C SEUZ archivo SpFileMode False pvoz AudioOutputStream SpFileStream pvoz Speak info SpFlags pvoz WaitUntilDone Timeout Infinite SpFileStream Close Catch ex As Exception MsgBox ex ToString End Try End Sub End Class 13 Clase usuarios Clase que me permite manejar los usuarios del sistema Imports MySql Data MySqlClient Clase para cargar usuarios Public Class usuario Atributo del usuario Private unombre As String Private uapellido As String Private unick As String Private uclave As St
118. un format determinado Private Sub Tguardar_Click ByVal sender As System Object ByVale As System EventArgs Handles Tguardar Click Save Filter Archivos de Microsoft Office doc l doclArchivos de Office 2007 2010 docx l docxlArchivos de Texto txt l txt Dim word As New Microsoft Office Interop Word Application Dim doc As Microsoft Office Interop Word Document If Save ShowDialog DialogResult OK Then Select Case Save FilterIndex Case 3 Try Crea el archivo FileOpen 1 Save FileName OpenMode Output escribe el contenido PrintLine 1 informacion Text FileClose 1 Catch ex As Exception MessageBox Show Error accessing Word document End Try Case Else Try doc word Documents Add word Selection Font Name confi tipo_letra word Selection Font Size confi tamafio_letra 53 Dim insertText As String informacion Text Dim range As Microsoft Office Interop Word Range doc Range Start 0 End 0 range Text insertText doc SaveAs Save FileName doc Close True Catch ex As Exception MessageBox Show Error accessing Word document End Try End Select End If End Sub Procedimiento que me permite abrir la pantalla Ingreso de Usuario Nuevo Private Sub menu_Ingreso_Click ByVal sender As System Object ByVal e As System EventArgs Handles menu_Ingreso Click Dim nuevo_usuario As New ingresar_usuario nuevo_usuario Show End Sub Procedimiento que me permite cambiar el volume de la voz Private Sub volume
119. useHitPoint New Mitov PlotLab ChannelMouseHitPoint Dim OptionalLabell As Mitov SignalLab OptionalLabel New Mitov SignalLab OptionalLabel Dim DisplayItemHighlighting5 As Mitov PlotLab DisplayItemHighlighting New Mitov PlotLab DisplayltemHighlighting Dim PinListl As OpenWire Proxy PinList New OpenWire Proxy PinList Dim ScopeLegendViewl As Mitov PlotLab ScopeLegendView New Mitov PlotLab ScopeLegendView Dim DisplayViewBackground2 As Mitov PlotLab Display ViewBackground New Mitov PlotLab DisplayViewBackground Dim LegendViewButtonSettingsl As Mitov PlotLab LegendViewButtonSettings New Mitov PlotLab LegendViewButtonSettings Dim LegendGroupl As Mitov PlotLab LegendGroup New Mitov PlotLab LegendGroup Dim DisplayLabell As Mitov PlotLab DisplayLabel New Mitov PlotLab DisplayLabel Dim LegendGroup2 As Mitov PlotLab LegendGroup New Mitov PlotLab LegendGroup Dim DisplayLabel2 As Mitov PlotLab DisplayLabel New Mitov PlotLab DisplayLabel 58 Dim LegendGroup3 As Mitov PlotLab LegendGroup New Mitov PlotLab LegendGroup Dim DisplayLabel3 As Mitov PlotLab DisplayLabel New Mitov PlotLab DisplayLabel Dim LegendGroup4 As Mitov PlotLab LegendGroup New Mitov PlotLab LegendGroup Dim DisplayLabel4 As Mitov PlotLab DisplayLabel New Mitov PlotLab DisplayLabel Dim LegendGroup3 As Mitov PlotLab LegendGroup New Mitov PlotLab LegendGroup Dim DisplayLabel5 As Mitov PlotLab DisplayLabel New Mitov
120. uttonSettings1 MouseOverBorderColor System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 255 Byte Integer CType CType 0 Byte Integer ViewButtonSettings1 MouseOverColor System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer ScopeXAxis1 Button ViewButtonSettings1 ScopeXAxis1 Color System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 255 Byte Integer ScopeXAxis1 CursorSettings DisplayAxisCursorSettings DisplayGridLineSettings2 Pen New Vel VelPen System Drawing Color FromArgb CType CType 0 Byte Integer CType CType 128 Byte Integer CType CType 0 Byte Integer Vcl PenMode Copy Vcl PenStyle Solid 1 DisplayGridDirectionalLinesSettings 1 Lines DisplayGridLineSettings2 DisplayGridLineSettings3 Pen New Vel VelPen System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 255 Byte Integer Vcl PenMode Copy Vcl PenStyle Solid 1 DisplayGridDirectionalLinesSettings 1 ZeroLine DisplayGridLineSettings3 ScopeXAxis1 DataView DisplayGridDirectionalLinesSettings 1 ScopeXAxis1 Font New Vcl VclFont System Drawing Color FromArgb CType CType 255 Byte Integer CType CType 255 Byte Integer CType CType 255 Byte Integer Arial Vcl FontCharset Default Vcl FontPitch Default True 11
121. v PlotLab AxisFormat Dim MajorTicks2 As Mitov PlotLab MajorTicks New Mitov PlotLab MajorTicks Dim TicksStart2 As Mitov PlotLab TicksStart New Mitov PlotLab TicksStart Dim BasicScopeAxisValuel As Mitov PlotLab BasicScopeAxis Value New Mitov PlotLab BasicScopeAxis Value Dim DisplayValueRange4 As Mitov PlotLab DisplayV alueRange New Mitov PlotLab DisplayV alueRange Dim DisplayOptionalValue7 As Mitov PlotLab DisplayOptional Value New Mitov PlotLab DisplayOptional Value Dim DisplayOptional Value8 As Mitov PlotLab DisplayOptional Value New Mitov PlotLab DisplayOptional Value Dim BasicScopeAxisValue2 As Mitov PlotLab BasicScopeAxis Value New Mitov PlotLab BasicScopeAxis Value Dim DisplayValueRange5 As Mitov PlotLab DisplayV alueRange New Mitov PlotLab Display V alueRange Dim DisplayOptionalValue9 As Mitov PlotLab DisplayOptional Value New Mitov PlotLab DisplayOptional Value Dim DisplayOptionalValuel0 As Mitov PlotLab DisplayOptional Value New Mitov PlotLab DisplayOptional Value Dim MinorTicks2 As Mitov PlotLab MinorTicks New Mitov PlotLab MinorTicks Dim AxisToolBar2 As Mitov PlotLab AxisToolBar New Mitov PlotLab AxisToolBar Dim AxisToolBarButtons2 As Mitov PlotLab AxisToolBarButtons New Mitov PlotLab AxisToolBarButtons Dim DisplayToolBarButton17 As Mitov PlotLab DisplayToolBarButton New Mitov PlotLab DisplayToolBarButton Dim DisplayToolBarButton18 As Mitov PlotLab DisplayToolBarButton
122. w OpenWire Proxy SinkPin Dim StatePin2 As OpenWire Proxy StatePin New OpenWire Proxy StatePin Dim SinkPin3 As OpenWire Proxy SinkPin New OpenWire Proxy SinkPin Dim DsGraph2 As Mitov AudioLab DSGraph New Mitov AudioLab DSGraph Dim SourcePin3 As Open Wire Proxy SourcePin New OpenWire Proxy SourcePin Dim SourcePin4 As Open Wire Proxy SourcePin New OpenWire Proxy SourcePin Dim StatePin3 As OpenWire Proxy StatePin New OpenWire Proxy StatePin Dim StatePin4 As OpenWire Proxy StatePin New OpenWire Proxy StatePin Dim SourcePin5 As Open Wire Proxy SourcePin New OpenWire Proxy SourcePin Dim DsAudioOutputDevice2 As Mitov AudioLab DS AudioOutputDevice New Mitov AudioLab DS AudioOutputDevice Dim SourcePin6 As OpenWire Proxy SourcePin New OpenWire Proxy SourcePin Dim StatePin5 As OpenWire Proxy StatePin New OpenWire Proxy StatePin Dim DsGraph3 As Mitov AudioLab DSGraph New Mitov AudioLab DSGraph Dim SourcePin7 As OpenWire Proxy SourcePin New OpenWire Proxy SourcePin Dim SinkPin4 As OpenWire Proxy SinkPin New OpenWire Proxy SinkPin Dim MasterPumping2 As Mitov AudioLab MasterPumping New Mitov AudioLab MasterPumping Dim SinkPin5 As OpenWire Proxy SinkPin New OpenWire Proxy SinkPin Dim StatePin6 As OpenWire Proxy StatePin New OpenWire Proxy StatePin Dim SinkPin6 As OpenWire Proxy SinkPin New OpenWire Proxy SinkPin Dim DsGraph4 As Mitov AudioLab DSGraph New Mitov AudioLab DSGraph Dim Source
123. w System Speech Synthesis SpeechSynthesizer Procedimiento que me permite validar lo que ha ingresado el usuario si falta algun dato el sistema se lo dir en modo voz Public Sub ingresar If nick Text Then habla leer Ingrese usuario nick Focus Exit Sub End If If key Text Then habla leer Ingrese Clave key Focus Exit Sub End If If key Text Length gt 8 Then habla leer Ingrese una Clave con m s de 8 caracteres rkey Focus End If If rkey Text Then habla leer Ingrese nuevamenmte la clave rkey Focus Exit Sub End If If key Text lt gt rkey Text Then habla leer clave no coinciden Exit Sub End If If nombre Text Then habla leer ingre el nombre del usuario nombre Focus Exit Sub End If If apellido Text Then habla leer ingrese el apellido del usuario apellido Focus Exit Sub End If Si no faltan datos proceso a guardar los datos en la propiedades del objeto usuario usuario nick nick Text usuario clave key Text usuario Nombre nombre Text usuario Apellido apellido Text If usuario grabar 0 Then habla leer Usuario Nuevo Ingresado nm nick Text nm key Text mm rkey Text mm nombre Text nm apellido Text Else 110 111 habla leer usuario ya existe End If End Sub Procedimiento que me permite llamar al procedimiento ingresar Private Sub grabar_Click ByVal sender As System Object ByVal e As System EventArgs
124. wing Color FromArgb CType CType 25 Byte Integer CType CType 0 Byte Integer CType CType 71 Byte Integer CType CType 216 Byte Integer Me progreso SeparatorColor2 System Drawing Color FromArgb CType CType 20 Byte Integer CType CType 0 Byte Integer CType CType 71 Byte Integer CType CType 216 Byte Integer Me progreso Separator Width 7 Me progreso ShowProgressIndicators True Me progreso Size New System Drawing Size 362 27 Me progreso StepWidth 14 Me progreso TabIndex 1 Me progreso Text 0 Me progreso TextAlignment System Drawing ContentAlignment MiddleCenter Me progreso ThemeName Desert 1 tiempo g Me tiempo Interval 1000 1 bienvenida 138 Me AutoScaleDimensions New System Drawing SizeF 6 0 13 0 Me AutoScaleMode System Windows Forms AutoScaleMode Font Me ClientSize New System Drawing Size 882 791 Me Controls Add Me progreso Me Controls Add Me PictureBox 1 Me FormBorderStyle System Windows Forms FormBorderStyle None Me Name bienvenida Me Padding New System Windows Forms Padding 3 1 1 1 Me RootElement ApplyShapeToControl True Me StartPosition System Windows Forms FormStartPosition CenterScreen Me Text bienvenida Me ThemeName Desert CType Me PictureBox1 System ComponentModel ISupportInitialize EndInit CType Me progreso System ComponentModel ISupportInitialize EndInit CType Me System ComponentMo
125. xt conexion Close conexion Open creamos una consulta para la base de datos consultas select from seuz conocimiento where tema temas establecemos la conexion comandos Connection conexion comandos CommandText consultas Como el comando no es almacenado ni vinculado a un tabla elegimos el tipo Text comandos CommandType CommandType Text Creamos un lector de datos IDataReader y lo inicializamos con el lector del objeto MySQLCommand Dim datos As System Data DataReader datos comandos ExecuteReader Mientras haya datos para leer los mostramos While datos Read Al igual de los objetos DataRow la clase IDataReader tambi n tiene un m todo por defecto Item que funciona exactamente igual ctemas datos tema ccontenido datos descripcion cfuente datos fuente cobservacion datos observacion End While Cerramos la conexi n con el servidor conexion Close Catch ex As Exception 124 MsgBox ex ToString End Try End Function Procedimiento que me permite guardar un nuevo conocimiento a la base de datos Public Sub guardar ByVal id As Integer ByVal categoria As Integer Try conexion ConnectionString server localhost userid root pass word dar database seuz Abrimos la conexi n y comprobamos que no hay error conexion Open comandos Connection conexion comandos CommandText SELECT max id 1 as maximo FROM seuz conocimiento comandos CommandType CommandType Text Dim d
126. ype resources GetObject SourcePin7 ConnectionData OpenWire PinConnections DsGraph3 GraphPin SourcePin7 Me DsAudioOut2 Graph DsGraph3 SinkPin4 ConnectionData CT ype resources GetObject SinkPin4 ConnectionData Open Wire PinConnections 95 Me DsAudioOut2 InputPin SinkPin4 Me DsAudioOut2 InternalData CType resources GetObject DsAudioOut2 InternalData Vcl VclBinaryData Me DsAudioOut2 MasterPumping MasterPumping2 Me DsAudioOut2 PrefillInterval CType 300UL Ulnteger 1 DsAudioPlayer2 SinkPin5 ConnectionData CType resources GetObject SinkPin5 ConnectionData Open Wire PinConnections Me DsAudioPlayer2 ClockPin SinkPin5 Me DsAudioPlayer2 Enabled False StatePin6 ConnectionData CType resources GetObject StatePin6 ConnectionData OpenWire PinConnections Me DsAudioPlayer2 EnablePin StatePin6 SinkPin6 ConnectionData CT ype resources GetObject SinkPin6 ConnectionData OpenWire PinConnections Me DsAudioPlayer2 FileNamePin SinkPin6 SourcePin8 ConnectionData CType resources GetObject SourcePin8 ConnectionData OpenWire PinConnections DsGraph4 GraphPin SourcePin8 Me DsAudioPlayer2 Graph DsGraph4 Me DsAudioPlayer2 InternalData CType resources GetObject DsAudioPlayer2 InternalData Vel VelBinaryData SourcePin9 ComnectionData CType resources GetObject SourcePin9 ConnectionData OpenWire PinConnections Me DsAudioPlayer2 OutputPin SourcePin9 StatePin7 Connectio

Manual Tecnico - Repositorio CISC

Contents

Download Pdf Manuals

Related Search

Related Contents