Question about Computers & Internet

1 Answer

To form a jumbled words

Consider two textboxes text1 and text2 res, text1 contains original text and i need text2 be with jumbled words

Posted by on

  • Folusho Adeyanju
    Folusho Adeyanju May 11, 2010

    What program are you using?

×

1 Answer

  • Level 2:

    An expert who has achieved level 2 by getting 100 points

    MVP:

    An expert that got 5 achievements.

    Novelist:

    An expert who has written 50 answers of more than 400 characters.

    Scholar:

    An expert who has written 20 answers of more than 400 characters.

  • Expert
  • 160 Answers

Using VB as an example

Dim intLength as Integer
Dim y as Integer
Dim arrOut( ) as String
Dim TempLetter as String
intLength=len(text1.text)
ReDim arrOut(intLength)
Randomize
dim boolDone as boolean ' flag to track unfilled positions

Write a loop that gets each letter from text1, then choose a random number from 1 to intLength

Get the existing letter, then put it into a different position in the arrOut, based on the random number. If something is in that position, try again:

for y=1 to intLength
tempLetter = mid(text1.text,y,1)
boolDone=false
do while boolDone=false
r =CInt(Int((y * Rnd()) + 1)) 'Get random # from 1 to length
if arrOut(r) ="" then 'see if spot has been used
arrOut(r) = tempLetter
boolDone = true
end if
loop
next 'get next letter in text1

text2.text=join(arrOut,"") ' concatenate arrOut, no delimiter.


Hope that helps.





Posted on Jul 18, 2008

1 Suggested Answer

6ya6ya
  • 2 Answers

SOURCE: I have freestanding Series 8 dishwasher. Lately during the filling cycle water hammer is occurring. How can this be resolved

Hi,
a 6ya expert can help you resolve that issue over the phone in a minute or two.
best thing about this new service is that you are never placed on hold and get to talk to real repairmen in the US.
the service is completely free and covers almost anything you can think of (from cars to computers, handyman, and even drones).
click here to download the app (for users in the US for now) and get all the help you need.
goodluck!

Posted on Jan 02, 2017

Add Your Answer

Uploading: 0%

my-video-file.mp4

Complete. Click "Add" to insert your video. Add

×

Loading...
Loading...

Related Questions:

1 Answer

Write a computer program to change fahrenheit to centigrade


'Convert fahrenheit to centigrade
dim cent as int
cent = Val(Text1.Text) // Text1.text as your input
cent = cent - 32
cent = cent * 0.5556
Text1.Text = cent // Converted and changed the same textbox

Feb 21, 2014 | Microsoft Visual Basic 6.0 for PC

1 Answer

How can i display an even number if i enter an odd number in visual basic 6.0


To display an even number when an odd number is entered you can add 1.
n= val(text1.text) 'Take the value of n from the textbox.
If n mod 2 =1 then 'If n is an odd number n=n+1 'You make it an even number end if
text2.text = n 'Display it in another textbox.

Please give a good rating to this answer so that I will be encouraged to support people like you having problems with VB6.

Sep 22, 2011 | Computers & Internet

1 Answer

How to store in an array the records in a listview


create form1 with one list box and form2 with text boxes and command button.
Go to project >project properties>start object will be form2..
Here i takenexamble of two textboxes..code is below
Private Sub Command1_Click()
Form1.List1.AddItem Text1.Text, 0
Form1.List1.AddItem Text2.Text, 1
Form1.Show
End Sub


hope this will help you...Thank you,....

Nov 11, 2009 | Microsoft Visual Basic Professional...

1 Answer

Accept x and y from user and calculate x raise to y


here is the solution;
solution 1 (need 3 text boxes, Namely text1, text2 & text3 & a command button. Put the code below in the button click event) Dim x, y As Integer x = Text1 y = Text2 Text3 = x ^ y
solution 2 (put the code either in form load event or button click event)
Dim X, Y As Integer X = InputBox("Enter X", "X ? ") Y = InputBox("Enter Y", "Y ? ") MsgBox "X^Y = " & X ^ Y

May 18, 2009 | Polar Electro Wearlink Coded Watch

1 Answer

How to create Dynamic Lable & TextBox & save their Values in DB.


Best way to do this is to place label and textbox as usual but hide them from the properties.
In the SaveButton Click event, you can set the property for the label and textbox to visible dynamically by code.

Apr 24, 2009 | Microsoft Designing ASP.NET Applications...

1 Answer

Flexgrid with textbox


The arrow key will place you into the cell of your choice. In code you can determine the cell you are in by using the "Col" and "Row" properties. Here's a snippet for you:

Private Sub MSFlexGrid1_RowColChange()
Dim intCol As Integer
Dim intRow As Integer

intCol = MSFlexGrid1.Col
intRow = MSFlexGrid1.Row

Text1.Text = CStr(intCol) & " ; " & CStr(intRow)

End Sub

Mar 29, 2009 | Microsoft Visual Basic 6.0 for PC

1 Answer

How to connect vb with ms access


se Adodc OR Even better.. ADODB. for this you need to get MDAC fromMicrosoft free download.(check under project_References- Microsoft DataActiveX objects.. the current no is 2.8. if it is not there download invb directory.

next, you can learn about creating a DSN from control panel, ODBC. onceyou learn this, connection becomes a piece of cake. get some free vbtutoriasl from WWW.

then

you need to use DAO or ADO to connect to the database. better study both but since ADO is current, i am showing that code.
under Menu Project_References, put a check mark on Microsoft ActiveXData Objects latest version (though it works for all, currently 2.8with sp pack 1 ).

at the general declarations:
dim conn as adodb.connection, rec as adodb.recordset, esql as string,esql1 as string
Private Function connect()
Set rec = New ADODB.Recordset
Set conn = New ADODB.Connection
esql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "D:VBDesigndhana2.mdb" & ";Persist Security Info=False"
'here you put the correct path of your mdb file. and check if you have jet 4.0

conn.Open (esql), , , 0
End Function

private sub form_Load()
connect
end sub
and for adding records:
say let us say you have 3 fields. then have 3 textboxes and 1 command button on the form.

private command1_click()
esql1="select * from Yourtablename"
rec.open(esql1),conn,, adOpenDynamic, adLockOptimistic
rec.AddNew
rec.Fields(0) = text1.Text
rec.Fields(1) = Text2.text
rec.Fields(2) = text3.text
' you need to check if in your access table design you have Allowed Zero length .. set it to Yes for all text fields.
rec.update
if not rec.eof then rec.movenext
rec.close
conn.close
set conn to nothing
end sub

this will add new records to access table from VB.
' for picture store the full path of the path and the picture file nameint the text field. and in the picturebox of VB form for viewingrecords again you need ADO or ADODC and here you code:picture1.picture=Loadpicture(rec.fields(3) ' depending on where thepicture field is located. you need to make a few trials.
under Menu Project_References, put a check mark on Microsoft ActiveXData Objects latest version (though it works for all, currently 2.8with sp pack 1 ).

at the general declarations:
dim conn as adodb.connection, rec as adodb.recordset, esql as string,esql1 as string

Private Function connect()
Set rec = New ADODB.Recordset
Set conn = New ADODB.Connection
esql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "D:VBDesigndhana2.mdb" & ";Persist Security Info=False"
'here you put the correct path of your mdb file. and check if you have jet 4.0

conn.Open (esql), , , 0
End Function

private sub form_Load()
connect
end sub

and for accessing records:

private command1_click()
esql1="select * from Yourtablename where id =" & val(text1) ' for integers

esql1="select * from Yourtablename where name=" & "'" & text1 & "'" ' for string

rec.open(esql1),conn, adOpenstatic, adLockreadonly

label1.caption =rec.Fields(0)
label2.caption= rec.Fields(1)
label3.caption= rec.Fields(2)
' you need to check if in your access table design you have Allowed Zero length .. set it to Yes for all text fields.

rec.close
conn.close
set conn to nothing
end sub


' similarly there are routines to ADD, Delete, Edit, View etc.

Feb 26, 2009 | Computers & Internet

1 Answer

Give me a codes of visual basic in converter measurement,,like area,weight,distance,volume,temperature,speed...


You should know first the value needed to convert- eg 1Liter = 1000ml

Code
this code may be paste on command button or keypress on the text box.

Text2=val(text1) * 1000

Jan 14, 2009 | Computers & Internet

2 Answers

Vb code for automatic number change


You want the code for when you press enter in textbox it automatically change to 1.

I am typing C# code you can easly covert it to VB.Net code

make an event for key press for textbox
and write the followting code in the event
IF textbox1.text = ""
textbox1.text = "1"
End IF

I hope your problem will solve with this If need more assistance let me know. If your problem is solved then don't forget to make answer my thread.

Regards

Nov 17, 2008 | Computers & Internet

2 Answers

Visual basic code


'Text1 is a textbox or a string you can use

Private Sub Command1_Click()
Dim a
Dim vow, con As Integer
vow = 0
con = 0
For i = 1 To Len(Text1)
a = Mid(Text1, i, 1)
If (a = "a" Or a = "e" Or a = "i" Or a = "o" Or a = "u") Then
vow = vow + 1
Else
con = con + 1
End If
Next
MsgBox "Vowels: " & vow & vbNewLine & "Consonants : " & con

End Sub

Feb 19, 2008 | Computers & Internet

Not finding what you are looking for?
Computers & Internet Logo

Related Topics:

110 people viewed this question

Ask a Question

Usually answered in minutes!

Top Computers & Internet Experts

Brian Sullivan
Brian Sullivan

Level 3 Expert

27725 Answers

kakima

Level 3 Expert

101466 Answers

David Payne
David Payne

Level 3 Expert

14160 Answers

Are you a Computer and Internet Expert? Answer questions, earn points and help others

Answer questions

Manuals & User Guides

Loading...