|
I am really stuck on this one. I have ObjXmlSimpleTypeDoc object which have two EnumerationValues. Each of EnumerationValue have child nodes.
I want to got values from child nodes of the correct EnumerationValue node.
To find the correct EnumerationValue I use the value in the variable strCourtNCIC. If the value in strCourtNCIC matches a EnumerationValue @code, that is the EnumerationValue I need. For this question strCourtNCIC hold a value MN010015J.
How do I do this in VB.NET?
Here is the objXmlSimpleTypeDoc object where I need to find EnumerationValue with @code = strCourtNCIC (MN010015J)
<SimpleTypeCompanion enumerates="CourtLocationTextType">
<EnumerationValue code="MN010015J">
<Text>Emily County</Text>
<AssociatedValue type="MNCISNodeID">
<Text>111</Text>
</AssociatedValue>
<AssociatedValue type="CountyName">
<Text>Emily</Text>
</AssociatedValue>
<AssociatedValue type="PhoneNumber">
<Text>724-820-7123</Text>
</AssociatedValue>
</EnumerationValue>
<EnumerationValue code="DC19DAKDC">
<Text>Pope County</Text>
<AssociatedValue type="MNCISNodeID">
<Text>112</Text>
</AssociatedValue>
<AssociatedValue type="CountyName">
<Text>Pope</Text>
</AssociatedValue>
</EnumerationValue>
</SimpleTypeCompanion>
Here is the VB.NET code that I need help with to just get the correct EnumerationValue with @code that matches strCourtNCIC (MN010015J).
strCourtNCIC = objXmlMNCISData.DocumentElement.SelectSingleNode("Case/Court/CourtNCIC").InnerText
objXmlSimpleTypeDoc = Msc.Integration.CourtXml.Library.v4.SimpleType.GetCompanionFile("CourtLocationTextType")
objXmlEnumerationValueNode = objXmlSimpleTypeDoc.SelectSingleNode("/SimpleTypeCompanion/EnumerationValue[@code=" + strCourtORI + "]/@code")
modified 12-Aug-19 11:56am.
|
|
|
|
|
Hello there,
I need help with something. I am preparing a project. I couldn't decide how to make a feature I wanted. I will be glad if you help me.
My project will be as follows;
I have 3 datagridview in Form1 and this datagridview is connected to each other with primary key. While loading the form, the data is loaded into the datagridview and I add a button with the code to the last column in the datagridview. When I click the button on any line, Form2 opens and loads the data in this form and connected to the primary key with 2 datagridview. This data is another table in the same database. I'm adding checkboxes to these datagridview. then I mark some records in datagridview, which are main and sub-table data, and when I press the close form button, it returns to Form1 and the selected data is saved to the tables to which the 2nd and 3rd datagridviews are connected by checking the duplicate records. When the installation is complete, the image in all datagridviewers is refreshed.
Note: I can't add a sample project here because I haven't started coding yet.
Thanks for your help.
|
|
|
|
|
Member 4523971 wrote: I will be glad if you help me. With what exactly?
Member 4523971 wrote: because I haven't started coding yet. Then you better get started; there's enough tutorials out there to at least have a form with a datagridview on it.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.
|
|
|
|
|
Hi Eddy,
My English is not very good. I wrote the message using Google Translate. If there is an error, it is the error of the Translation program. I have codes for my project. but I was a bit confused with the code I wrote in order to do the operation I specified in my message. therefore I asked for help with the method. I keep working on it. Thank you for your interest.
Note: This is a Google translation.
|
|
|
|
|
I agree with Eddy ...
This is nothing which could be done by us - you have to start and code something ... and if there are SPECIFIC QUESTIONS you should come back and ask for that.
|
|
|
|
|
How to make a "Boss Key" in Vb .Net
|
|
|
|
|
By writing some code. Where are you stuck?
Social Media - A platform that makes it easier for the crazies to find each other.
Everyone is born right handed. Only the strongest overcome it.
Fight for left-handed rights and hand equality.
|
|
|
|
|
You probably need a supply of metal and a large lathe.
|
|
|
|
|
Public Sub saveBookingData()
Try
boolSave = False
Dim rsSave As New ADODB.Recordset
With rsSave
sSQL = "Select * From Student_tbl Where RegNo = '" & strEmpID & "' "
.Open(sSQL, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
If .EOF Then
.AddNew()
rsSave.Fields("RegNo").Value = strEmpID
rsSave.Fields("Student_Name").Value = txtName.Text
rsSave.Fields("Father_Name").Value = txtFather.Text
rsSave.Fields("City_Name").Value = comCity.Text
.Update()
MessageBox.Show("Record Successfully Saved ", "Record Saved", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("Record Already Exist...", "Not Saved", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End With
Catch ex As Exception
MessageBox.Show(Err.Description)
End Try
End Sub
|
|
|
|
|
Yes, you can convert it. What is your question?
Social Media - A platform that makes it easier for the crazies to find each other.
Everyone is born right handed. Only the strongest overcome it.
Fight for left-handed rights and hand equality.
|
|
|
|
|
Converting old ADO code might not be very efficient; rewriting it to use a .NET DataProvider would not be very hard.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.
|
|
|
|
|
Eddy Vluggen wrote: ewriting it to use a .NET DataProvider Very much agreed.
Social Media - A platform that makes it easier for the crazies to find each other.
Everyone is born right handed. Only the strongest overcome it.
Fight for left-handed rights and hand equality.
|
|
|
|
|
|
Public Sub saveBookingData()
Try
boolSave = False
Dim rsSave As New ADODB.Recordset
With rsSave
sSQL = "Select * From Student_tbl Where RegNo = '" & strEmpID & "' "
.Open(sSQL, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
If .EOF Then
.AddNew()
rsSave.Fields("RegNo").Value = strEmpID
rsSave.Fields("Student_Name").Value = txtName.Text
rsSave.Fields("Father_Name").Value = txtFather.Text
rsSave.Fields("City_Name").Value = comCity.Text
.Update()
MessageBox.Show("Record Successfully Saved ", "Record Saved", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("Record Already Exist...", "Not Saved", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End With
Catch ex As Exception
MessageBox.Show(Err.Description)
End Try
End Sub
Love to Every One
|
|
|
|
|
hi. totally blind and use two screen readers, jaws for windows http://www.freedomscientific.com and non visual desktop access http://www.nvaccess.org. was rebuilding an old self talking hangman game, for a course i did for web design a few years ago, able to fix all the errors. using visual basic 2019 16.0.5 latest update. now, is there a tutorial or project, so i can then rebuild. also comes with sound effects. want to build this as a console. any update tutorials. if not self talking, then if so, then how to choose the voices and how to get it to talk. have all the latest vocaliser voices from nuance, and also the windows 10 mobile voices and sapi voices version 5. any one happen to point me to a tutorial. so then i can then rebuild and code and then use the latest talking voices and also have my sound effects, run in the game. did run my app, but says cannot find the directory for some files, and if i try to rebuild again, with original code, then get errors, which cannot seem to fix. and did google, but still did not find any thing. any one able to help me out and point me to where i can find one. have tried googling. did find one for pc_games for the blind, but no links, to the game. any help and in australia. thanks.,,,
|
|
|
|
|
Not sure if this is a language/age gap, but I think this post is mostly going to be considered a spam.
You have not explained the problem, and not shown the effort made by you. So try to explain and describe your situation here.
The sh*t I complain about
It's like there ain't a cloud in the sky and it's raining out - Eminem
~! Firewall !~
|
|
|
|
|
hi, well pasting my code and errors below. no sniping or snide remarks. help me out with my errors, and a better way to get this to work please. will paste my code and then my errors. thanks. ps: pasting now.
Imports System.IO
Imports System.Media
Imports System.Speech.Synthesis
Imports System.Windows.Forms
' Program: Hangman
' Author: Marvin Hunkin
' Version: 1.1
' Date: Tuesday December 25, 2012
' Description: Playing a Hangman game. You enter a letter to use a list of words loaded into memory. You then guess a six letter word, and use 13 guesses. At the end of 13 guesses, you get a message saying you either won or loss, and what the word was, and a number to exit the game being 1. Added a couple of cool sound audio effects.
Module Module1
' Declare class level variables
Dim WordMask As String = "------"
Dim WordArray() As String
Dim Talker As New SpeechSynthesizer
Dim Player As New SoundPlayer
Sub Main()
' Create a new wordlist file path
Dim wordlistPath = Path.Combine(Application.StartupPath, "Resources", "wordlist.txt")
' Populate the word array variable with the contents of the file path
WordArray = File.ReadAllLines(wordlistPath)
' Show the window maximized and show the name of the application in the title bar
Console.WindowWidth = 60
Console.Title = "Hangman"
Dim NewUri As Uri = Nothing
Dim Result As Boolean = Uri.TryCreate(Directory.GetParent(Directory.GetCurrentDirectory).Parent.ToString + "\en-sc", UriKind.Absolute, NewUri)
If Result Then
Talker.AddLexicon(NewUri, SynthesisMediaType.Ssml)
Talker.SelectVoice(0)
End If
' Welcome message
Console.WriteLine("Welcome To Hangman!")
SpeakLines("Welcome To Hangman!")
Console.WriteLine("This game is to be played by blind and visually impaired players.")
SpeakLines("This game is to be played by blind and visually impaired players.")
Console.WriteLine()
' Declare local variables
Dim ContinuePlayingGames As Boolean = True
' While loop to play the game
While ContinuePlayingGames
PlaySound("Futile02.wav")
Dim RandomIndex As Integer = GetRandom(0, (WordArray.Length - 1))
Dim PickedWord As String = WordArray(RandomIndex)
PlayAGame(PickedWord)
Dim QuitRequested As String
Console.WriteLine("Enter 1 to quit playing or Press Enter to play again")
Console.WriteLine()
SpeakLines("Enter 1 to quit playing or Press Enter to play again")
QuitRequested = Console.ReadLine()
If QuitRequested = "1" Then
PlaySound("discon.wav")
Console.WriteLine("Goodbye")
SpeakLines("Goodbye")
Exit While
Else
Console.Clear()
End If
End While
Dim CloseRequested As String
Console.WriteLine("Hit any key to close console.")
Console.WriteLine()
SpeakLines("Hit any key to close console.")
CloseRequested = Console.ReadLine()
End Sub
' Function to get the mask for the game
Private Function RenderMask(ByVal Str As String) As String
' Declare local variables
Dim temp As String = ""
For Each Letter As Char In Str
If Letter = "-" Then
temp += "dash"
Else
temp += "the letter " & Letter
End If
temp += ", "
Next
Return temp
End Function
' Function to speak lines in the Microsoft Samantha voice
Private Sub SpeakLines(ByVal Str As String)
End Sub
' Sub to play sounds for the game
Private Sub PlaySound(ByVal Sound As String)
' Get the sounds and stream it to the game
Player.Stream = File.OpenRead(Path.Combine(Application.StartupPath, "Resources", Sound + ".wav"))
Player.PlaySync()
Player.Stream.Dispose()
End Sub
' Play A Game Sub starts here
Private Sub PlayAGame(ByVal PassedWord As String)
' Declare local variables
Dim EnteredLetter As String = ""
Dim MatchedLetterCount As Integer = 0
' For loop to guess 1 to 13 moves
Dim GuessCount As Integer = 0
Dim TempMask As String = ""
For GuessCount = 1 To 13
Console.WriteLine(WordMask)
SpeakLines("So far you have " & RenderMask(WordMask))
Console.WriteLine("Guess Number - " + GuessCount.ToString + ", Enter A Letter")
Console.WriteLine()
SpeakLines("Guess Number - " + GuessCount.ToString + ", Enter A Letter")
EnteredLetter = Console.ReadLine()
SpeakLines("You entered the letter " & EnteredLetter)
PlaySound("LaserBeamHit.wav")
If EnteredLetter <> "2"(0) Then
TempMask = WordMask
MatchedLetterCount = CheckEnteredLetter(PassedWord, EnteredLetter, MatchedLetterCount)
If TempMask <> WordMask Then
GuessCount -= 1
End If
If MatchedLetterCount = 6 Then
PlaySound("Bugle Reveille.wav")
Console.WriteLine("You Win!")
SpeakLines("You Win!")
Console.WriteLine("The word was " & WordMask)
SpeakLines("The word was " & WordMask)
WordMask = "------"
Exit For
End If
Else
ShowMessage()
GuessCount -= 1
End If
Next GuessCount
Console.WriteLine("Sorry, you used up all 13 guesses, you lose!")
SpeakLines("Sorry, you used up all 13 guesses, you lose!")
Console.WriteLine("The word was " & PassedWord)
SpeakLines("The word was " & PassedWord)
WordMask = "------"
End Sub
' Sub to show the message in the game
Private Sub ShowMessage()
' Declare local variables
Dim Title As String = "Program: Hangman."
Dim MessageString As String = " Author : Marvin Hunkin." + vbNewLine + "Version: 1.1." + vbNewLine + "Date: Tuesday December 25, 2012." + vbNewLine + "Description: Playing a Hangman game." + vbNewLine + "You enter a letter to use a list of words loaded into memory." + vbNewLine + "You then guess a six letter word, and use 13 guesses." + vbNewLine + "At the end of 13 guesses, you get a message saying you either won or loss," + vbNewLine + " and what the word was, and a number to exit the game being 1." + vbNewLine + "Added a couple of cool sound audio effects." + vbNewLine + "Press Enter to Continue."
Talker.Speak(Title)
Talker.SpeakAsync(MessageString)
' Show Messages for this sub
MessageBox.Show(MessageString, Title, MessageBoxButtons.OK, MessageBoxIcon.Information)
Talker.SpeakAsyncCancelAll()
End Sub
' Function to check the letter for the game
Private Function CheckEnteredLetter(ByVal PassedWord As String, ByVal PassedLetter As String, ByVal PassedMatchedLetterCount As Integer) As Integer
' for loop to check that you entered up to 6 letters
For ndx As Integer = 0 To 5
If PassedWord(ndx) = PassedLetter Then
PassedMatchedLetterCount += 1
Mid(WordMask, ndx + 1) = PassedLetter
End If
Next ndx
Return PassedMatchedLetterCount
End Function
' Public function to get the random number selected for the game
Public Function GetRandom(ByVal Min As Integer, ByVal Max As Integer) As Integer
' Declare variables
Dim Generator As System.Random = New System.Random()
' Return Generator random value for the game
Return Generator.Next(Min, Max)
End Function
End Module and here's the errors. how to fix. and a better way to do this. and got my Resources folder with the sound effects and the list of radnom letters in a text file. any help.
Severity Code Description Project File Line Suppression State
Message IDE0059 Value assigned to 'TempMask' is never used HangMan E:\MarvinsFiles\Marvin\Education\DiplomaWebsiteDevelopment\WebSiteDevelopment\Programming\BuildAGraphicalUserInterface\Assignments\AssignmentOne\Programming\HangMan\HangMan\Module1.vb 129 Active
Message IDE0044 Make field readonly HangMan E:\MarvinsFiles\Marvin\Education\DiplomaWebsiteDevelopment\WebSiteDevelopment\Programming\BuildAGraphicalUserInterface\Assignments\AssignmentOne\Programming\HangMan\HangMan\Module1.vb 18 Active
Message IDE0044 Make field readonly HangMan E:\MarvinsFiles\Marvin\Education\DiplomaWebsiteDevelopment\WebSiteDevelopment\Programming\BuildAGraphicalUserInterface\Assignments\AssignmentOne\Programming\HangMan\HangMan\Module1.vb 19 Active
Message IDE0060 Remove unused parameter 'Str' HangMan E:\MarvinsFiles\Marvin\Education\DiplomaWebsiteDevelopment\WebSiteDevelopment\Programming\BuildAGraphicalUserInterface\Assignments\AssignmentOne\Programming\HangMan\HangMan\Module1.vb 102 Active
Message IDE0059 Value assigned to 'EnteredLetter' is never used HangMan E:\MarvinsFiles\Marvin\Education\DiplomaWebsiteDevelopment\WebSiteDevelopment\Programming\BuildAGraphicalUserInterface\Assignments\AssignmentOne\Programming\HangMan\HangMan\Module1.vb 123 Active
Message IDE0059 Value assigned to 'GuessCount' is never used HangMan E:\MarvinsFiles\Marvin\Education\DiplomaWebsiteDevelopment\WebSiteDevelopment\Programming\BuildAGraphicalUserInterface\Assignments\AssignmentOne\Programming\HangMan\HangMan\Module1.vb 128 Active
|
|
|
|
|
Those are not errors. They are warnings. All they are saying is that you declared these variables, may you set values for them, but never used the values anywhere.
Anyway, I copied your code into a new Windows Forms and compiled it. I didn't get the warnings you're talking about.
|
|
|
|
|
hi, this is a console app. so did your win forms project work, if so, then fine, can you send me the project, via e-mail to me as a zip, so then i can then rebuild the windows forms. just did not get any errors. and said it did not build, from my external drive. able to do this for me dave. marvin.
|
|
|
|
|
I didn't do anything special at all.
All I did was apparently what you did. Since you have a reference to "System.Windows.Forms" near the top of the code, that tells me you added a Module to a new Windows Forms project, and then added your code to the new Module. You then changed the project Startup to either "Sub Main" or "Module1" in the Project Properties.
Again, those are not errors. Everything you posted is a Warning and will not, by default, prevent your code from compiling and running. Unless, of course, you turned on the option that says "Treat warnings as errors".
|
|
|
|
|
hi. so can you e-mail me privately and help me out, then i can then e-mail you back and forth. so, then how to fix this and my screen reader jaws says build failed. no, did not turn any thing on. so, how to fix this, and then get this to build. it is a console app. unless try creating a new console app, then maybe not add the windows forms. can you help. thanks.
|
|
|
|
|
I told you exactly what I did you recreate your project. You can go through the exact same steps to do it yourself. It'll take you 2 minutes.
Start with a new Windows Forms app, add a new Module file to it, and copy your exact code from your own post into that Module file.
Oh, and you're going to have to add a reference to System.Speech.
|
|
|
|
|
You need to be clear on what you are asking. And no, it is unlikely anyone will fix it for you and email you back all the fixed code. Unless you pay.
Social Media - A platform that makes it easier for the crazies to find each other.
Everyone is born right handed. Only the strongest overcome it.
Fight for left-handed rights and hand equality.
|
|
|
|
|
I tried to solve this and did not get it, the problem that I have a MatLab DLL file with a function looks like this
[tmin, mawp,sigma,tmin_c,tmin_l,segma_c,segma_l] = cylindrical(a,b,c,d,e,f)
I did reference the dll and the mwarray dll, when I call the MatLab's obj to the function it returns nothing, and if I use an index to map the array it gives an invalid index error. I am sorry if I didn't make myself clear, but I hope the code will.
This is VB.NET program that uses Matlab function to calculate some values, I tried to make the output as an array using ToArray function but it didn't work, Also in the MathWork documentation they talked about that conversion as in vb you need to use op_implicit function but I did not figure it out, I tried so many things but I am stuck here guys, appreciate your help.
'after importing dlls
Dim matlab As MAWP_CYL = New MAWP_CYL()
'this to matlab obj
Dim result = matlab.Cylindrical(1,1,1,1,1,1).ToArray()
'using any numbers for test
'here result have nothing when debugging,
the result has nothing, not an array or any form of lists.
|
|
|
|
|
What are the parameter values to the Cylindrical function supposed to be, and what result should it return?
|
|
|
|
|