Visual Basic

how to check correct answer in quiz

7-Apr-08 1:01

Yeah I eventually worked out that he had no idea how to edit his posts.

Christian Graus

Please read this if you don't understand the answer I've given you

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

bapu28896-Apr-08 9:01

bapu2889

6-Apr-08 9:01

Hello
I am making small quiz with vb.net 2003 and all the questions and options are in access database there is one column for question and 4 columns for wrong answers and one for correct answer

this is the code

Try<br />
                Do<br />
                    odaTest.Fill(dsTest)<br />
                    R = CInt(Int(ArraySize * Rnd()))<br />
<br />
                    '[Go to the next entry]<br />
                    Me.BindingContext(dsTest, "MyTest").Position = R<br />
                Loop Until Asked(R) = False<br />
                PoAns = DataView1.Item(R).Item("CorrectAns")<br />
                WAnswer(0) = DataView1.Item(R).Item("Op1")<br />
                WAnswer(1) = DataView1.Item(R).Item("Op2")<br />
                WAnswer(2) = DataView1.Item(R).Item("Op3")<br />
                WAnswer(3) = DataView1.Item(R).Item("Op4")<br />
                'randomize 4 options<br />
                For X As Integer = 0 To 3<br />
                    MyTB(CInt(Rnd() * 3)).Text = WAnswer(X)<br />
<br />
                Next X<br />
<br />
                'now randomize one correct answer<br />
                MyTB(CInt(Rnd() * 3)).Text = PoAns<br />
                AskedQ += 1<br />
                Asked(R) = True<br />
            Catch eLoad As System.Exception<br />
                MessageBox.Show(eLoad.Message)<br />
            End Try

And i am checking correct answer like this

 Private Sub CheckAnswer()<br />
        If CheckedTB.Text = PoAns Then<br />
            MsgBox("Right", MsgBoxStyle.MsgBoxSetForeground)<br />
        End If<br />
<br />
    End Sub

So now problem is some time it's shows same wrong answer in two different textboxes but it's shows correct answer in different textbox every time so now i am bit confuse that am i going in to right direction any help Unsure | :~

Christian Graus6-Apr-08 11:13

6-Apr-08 11:13

You need to put your questions in a list and pull from them randomly, removing them as you pull. Right now, you are pulling randomly from the full list every time and so will have duplicates.

bapu28897-Apr-08 8:19

bapu2889

7-Apr-08 8:19

Hello sir

First of thank you very much for your rep.
But sir problem is not questions it's working fine and it's not repeating at all because i have set one Boolen variable so it's True that question which has been asked but problem is options for any question like i have 4 columns for wrong answer and one for correct answer so i am randomizing it first and then i am randomizing the one correct answer to display in text box so main problem is some time it's displays same options in two different text boxes and i am sure i am very close to it but some time it's hard to see small errors and code bellow is to randomize 4 options and one correct answer

'randomize 4 options

          For X As Integer = 0 To 3<br />
                    MyTB(CInt(Rnd() * 3)).Text = WAnswer(X)<br />
<br />
                Next X<br />
<br />
                'now randomize one correct answer<br />
                MyTB(CInt(Rnd() * 3)).Text = PoAns

and second thing sir the way i am checking correct answer is it the right way to check it or some thing else ? Unsure | :~

code is like this
the first line gets the correct answer for asked question and put it in to PoAns variable

PoAns = DataView1.Item(R).Item("CorrectAns")

  Private Sub CheckAnswer()<br />
        If CheckedTB.Text = PoAns Then<br />
            MsgBox("Right", MsgBoxStyle.MsgBoxSetForeground)<br />
        End If<br />
<br />
    End Sub<br />
    Private Sub txtA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtA.Click, txtB.Click, _<br />
     txtC.Click, txtD.Click<br />
        CheckedTB = CType(sender, TextBox)<br />
        Call CheckAnswer()<br />
<br />
    End Sub

waiting for your kind rep. Smile | :)

thanks again for your rep.

have a nice day sir

Christian Graus7-Apr-08 11:46

7-Apr-08 11:46

OK, you have it in reverse. You're not actually going to select all four textboxes, because you are doing what I already told you is wrong - four random numbers instead of 0,1,2,3 sorted randomly.

Re: How to use link labels ?

bapu28899-Apr-08 8:55

bapu2889

9-Apr-08 8:55

hello sir

yes i got it and i have done it as you said this is my stupid mistake sir
and this is the code and it's works fine all along i was thinking that i am randomizing wrong answers but i wasn't i was randomizing textbox which is not possible but any way this the way i learn

thanks again

  Dim X, Y As Integer, Placed(3) As Boolean<br />
                For X = 0 To 3<br />
                    Do<br />
                        Y = CInt(Int(Rnd() * 4)) ' Randomize 4 wrong answers<br />
                    Loop Until Placed(Y) = False 'Loop until it's not same number<br />
                    Placed(Y) = True<br />
                    MyTB(X).Text = WAnswer(Y) ' Place randomly selected wrong answer in text box <br />
                Next<br />
<br />
                'now randomize one correct answer<br />
                MyTB(CInt(Rnd() * 3)).Text = PoAns

thank you very much sir

have a nice day

Big Grin | :-D

How to use link labels ?

Meme_856-Apr-08 5:33

Meme_85

6-Apr-08 5:33

I'm doing this form that has a glossary. I created the alphabitical letters using link labels, and the glossary using labels. How can write the code so that when a click on one of the letters(link labels) i go to the grossponding letter( label )

Regards,

Senior MeMe ..

Christian Graus6-Apr-08 11:15

combo selected index change event

6-Apr-08 11:15

Handle the click event and call the focus method on the label you want to focus on.

help..save time

Member 44429165-Apr-08 22:57

Member 4442916

5-Apr-08 22:57

i stil can't solve my problem in database i have use sql to store my date

INSERT INTO `LOGIN/OUT` (`Time_login`, `Time_logout`)
VALUES (?, ?, ?, ?)

but i stil can't save anything..the method i use was drag and drop

when writing code i use tableadapter to save ir it it's gave me error

LOGIN_OUTBindingSource.EndEdit()<br />
        LOGIN_OUTTableAdapter.InsertQueryEmp(Me.Definition_dbDataSet

)

can anyone here help me solve it..actually how to insert time into database.data type i use date/time.

Re: help..save time

Thomas Stockwell6-Apr-08 3:48

Thomas Stockwell

6-Apr-08 3:48

SQL statements are weird in .NET. You have to request insert commands from the adapter and it becomes a hassle. Here is a working example of what you need to do to create a new row in SQL:

<br />
        Dim strTopic As String = InputBox("Enter a topic")<br />
        Dim sql As String = "SELECT ID, CourseID, Topic FROM tblTopics WHERE ID = 0"<br />
        Dim da As New OleDbDataAdapter(sql, cn)<br />
        Dim ds As New DataSet<br />
        da.Fill(ds)<br />
        Dim cmdbuilder As New OleDbCommandBuilder(da)<br />
        da.InsertCommand = cmdbuilder.GetInsertCommand<br />
        Dim dr As DataRow = ds.Tables(0).NewRow<br />
        dr("CourseID") = Me.lngCourseID(Me.cboCourse.SelectedIndex)<br />
        dr("Topic") = strTopic<br />
        ds.Tables(0).Rows.Add(dr)<br />
        da.Update(ds)<br />
        cn.Close()<br />

Regards,
Thomas Stockwell

Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning.

Visit my homepage Oracle Studios[^]

vijaylumar5-Apr-08 20:08

vijaylumar

5-Apr-08 20:08

hai friends

i m a vb.net programmer,

i have no idea of vb 6.0

my previous project is in vb 6.0 and for it i m doing a small module..

i have a doubt regarding it..

i want to write code for combo selected index change ....

i in runtime , iwill add few items to it ... when i select an item then some task has to be performed..

i written like this ...

Private Sub Combo7_Change()
// do some task here
End Sub

but it is not working ...
wt to do
plz help me..

thanks in advance
vijay
devulapally_vijay@yahoo.co.in

Re: combo selected index change event

Chinners6-Apr-08 23:23

Chinners

6-Apr-08 23:23

You need a bit more code in there...

   Private Sub Combo7_Change(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Combo7.SelectedIndexChanged
// do some task here
   End Sub

That should work

If you are using visual studio, this code should can be put in automatically if you use the properties box.

Stop/Start a service

hassanasp5-Apr-08 16:04

hassanasp

5-Apr-08 16:04

that code diplay all current program installed on my computer,
i need to control this programs ,when i select program from listbox1 and click button service stop(and anthor button to start)?anyone help me plseae code

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim key As Microsoft.Win32.RegistryKey
Dim mainkey As Microsoft.Win32.RegistryKey
Dim iLp As Integer

mainkey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")

Dim sKeys() As String = mainkey.GetSubKeyNames

For iLp = 0 To sKeys.Length - 1

key = mainkey.OpenSubKey(sKeys(iLp), False)

ListBox1.Items.Add(key.GetValue("DisplayName") & " - " & key.GetValue("Version"))

Next iLp

End Sub

Ahmed hassan

modified on Sunday, April 6, 2008 4:55 PM

Re: Stop/Start a service

Christian Graus6-Apr-08 16:43

Excel Value to textbox [modified]

6-Apr-08 16:43

Oh, I get it now. Edit your post to add someting to it, don't post anohter.

Member 44350515-Apr-08 3:14

Member 4435051

5-Apr-08 3:14

Hi How do I find a value in a excelsheet ex. "Sum=123" and pass it to a textbox with the row number? I don't know how to come further with this.

On Error Resume Next<br />
       TextBox1.Text = xlWorkSheet.Range("A1:A10").Find( _<br />
       What:="Sum=123", MatchCase:=False, _<br />
       SearchOrder:=xlApp.ByColumns).Offset(0, 1).Value<br />
       If Err.Number Then TextBox1.Text = "No Match Found"

modified on Sunday, April 6, 2008 4:43 AM

system date format

pathak785-Apr-08 2:25

pathak78

5-Apr-08 2:25

I have developed a program with too many date fields. I have used datetimepicker for this with formating dd/MM/yyyy.

This will create problem if any user have system date format in m/d/yyyy

So I want that when my program start it will detect system date format and if format is in m/d/yyyy then it converts into mm/DD/yyyy and at the time of closing my program it converts into it's original format.

If any one have any code in support of this problem, please send me immediatly.

Thanks

Pathak

Rajesh Anuhya5-Apr-08 2:34

Rajesh Anuhya

5-Apr-08 2:34

hiiiiiiii..,,

why are u trying to change the system date format,

change your datetimepicker format to system format.

use below code

Format(DateTimePicker4.Value, "yyMMdd")

thanks

Bye..

Rajesh B --> A Poor Workman Blames His Tools <--

pathak785-Apr-08 2:42

pathak78

5-Apr-08 2:42

If any user have date format in dd/MM/yyyy then I save 08/04/2008, it saved same and displayed in same format.

but if he changed his format in m/d/yyyy and i give 08/04/2008 then when we retrive date it shows lik 04/08/2008.

And if use format here then it creates problem with dd/MM/yyyy format.

darkelv5-Apr-08 6:29

darkelv

5-Apr-08 6:29

The format is just change the display. The .Value is still a DateTime type.

Unless you use ToString() and not the DateTime value, then you got to look at how you save and retrieve the value.

Mycroft Holmes5-Apr-08 17:35

Mycroft Holmes

5-Apr-08 17:35

As darklev pointed out, your base error is if you are storing your dates as a string. If you are using a database then you MUST use the date data type to store your data. If you persist in using a string to store the date your will never be free of the formating problem.

Using csv files

Haim Nachum5-Apr-08 2:07

Haim Nachum

5-Apr-08 2:07

i have couple of csv files, some are comma separated, some tab separated, some are unicode and some are ansi.

what is the easiest way to find out what delimiter the file uses and its encoding.

thank you.

Rajesh Anuhya5-Apr-08 2:19

Rajesh Anuhya

5-Apr-08 2:19

what do you mean by easiest ????

You want to know the delimeter/unicode with out opening the csv file.

??????????

Rajesh B --> A Poor Workman Blames His Tools <--

Haim Nachum5-Apr-08 6:18

Haim Nachum

5-Apr-08 6:18

no. maybe ill rephrase the question..

how do i do it ??

Dave Kreskowiak5-Apr-08 13:56

Dave Kreskowiak

5-Apr-08 13:56

Haimbert wrote:
what is the easiest way to find out what delimiter the file uses

Asking the user what it is.

Beyond that, you have to analyze the file to determine what the most likely delimeter is. You'd have to ask the user if the delimiter you've figured out is actually correct.

Haimbert wrote:
what is the easiest way to find out ... its encoding.

This is generally impossible to determine reliably. But, the StreamReader class can attempt to figure out what the encoding is, but there is no guarantee it's going to be correct. Again, asking the user if what has been determined as most likely correct is the only way to be sure.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008