RSS Feeds :: DEVPPL - Forums > Visual Basic Forum

Content Based Image Retrieval in VB -- How to "mask"???

45732 — 2009-11-19T14:42:36+00:00

I'm getting into something I've never done before, and need to be pointed in a direction. In general terms, I'm needing to compare a query image (jpeg) to a table of images, and identify which element of the table contains a match to the query image. More accurately, each image in the table has been "blacked out," except for precisely defined "regions of interest." On the other hand, the "regions of interest" in each query image may be thought of as opaquely overlaying a photographed image. By removing all the extraneous material in the query image (ie. blacking it out, and leaving untouched the query image's "regions of interest," the now-simplified query image can be compared to each "simplified" table image. At some point, a match will occur, and, knowing the "identity" of the matched table entry, I will have determined the "identity" of the query image. Voila!

Regarding the table images, the "blackin...

Statistics : Posted by cwalkeralso • on Thu Nov 19, 2009 3:42 pm • Replies 0 • Views 16

Help With Shopping Cart - VB 2008

45715 — 2009-11-18T15:31:07+00:00

I have to create a shopping cart using 3 forms. There is a menu on the main form. If you select from the menu the PrintBook form, it gives you a list of books. If you select from the list, the name should populate the list box on the main form and then add the price of the book to the subtotal label on the main form also. When I try this it adds the book to the main form list box but places 0.00 in the Subtotal label instead of the price of the book.. See the code below. The first is for the main form and the 2nd is the print book form..

//This is the main forms code..
Option Strict On

Public Class frmMain
'Dim strInput As String ' Input
Dim strOut As String = String.Empty

Public selectChoice As Boolean = False
'Reset the Form Main
Private Sub mnuFileReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileReset.Click
lblSubtotal.Text = String.Empty
lblTax.Text...

Statistics : Posted by gualm • on Wed Nov 18, 2009 4:31 pm • Replies 0 • Views 17

if statement is ignored???

45708 — 2009-11-17T15:11:23+00:00

I'm in Reflection for UNIX and OpenVMS on a Windows XP system. I've gone around and around and can't figure out why the if statement is ignored when I run this macro. It goes through the array without a problem unless the Yes// comes up. Then it just halts. All I want it to do is enter two times at the Yes// Prompt. I can CR manually and the macro with continue to run it is as if the if statement does not exist. Any suggestions?

Code:

 Sub
Test()

    Const NEVER_TIME_OUT = 0

 
  Dim CR As String ' Chr$(rcCR) = Chr$(13) = Control-M
 
  Dim myArray(3)
    
    myArray(0) =
"1"
    myArray(1) = "2"
    myArray(2) =
"3"
    myArray(3) = "4"
    
 
  CR = Chr(Reflection2.ControlCodes.rcCR)

   
With Session

 For i = 0 To 3

    Do While
Not .WaitForString("Select:", NEVER_TIME_OUT, rcAllowKeystrokes)

   If .WaitForString("Yes//", NEVER_TIME_OUT,
rcAllowKeystrokes) Then
   .Transmit CR
 
 .Transmit CR
   Exit Do
   End If
    Lo

...

Statistics : Posted by SFCHTM • on Tue Nov 17, 2009 4:11 pm • Replies 0 • Views 17

Help with infinite loop

45681 — 2009-11-14T15:35:41+00:00

Public Class OddNumbersForm
' display odd numbers from one to number input by user
Private Sub viewButton_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles viewButton.Click

Dim limit As Integer ' upper limit set by user
Dim counter As Integer = 1 ' counter begins at 1

resultsListBox.Items.Clear() ' clear ListBox
limit = Val(limitTextBox.Text) ' retrieve upper limit
resultsListBox.Items.Add("Odd numbers:") ' display header

Do While counter
' display odd number
resultsListBox.Items.Add(counter)

limit += 2 ' increment counter

Loop

End Sub

Of course I am getting a infinite loop, any ideas on how I should stop this.

Thanks in advance

Statistics : Posted by nickstone • on Sat Nov 14, 2009 4:35 pm • Replies 0 • Views 25

Re: Need Help making this Program

917 — 2009-11-11T18:45:27+00:00

Err.. What exactly is the program supposed to do?

Statistics : Posted by dafunkymunky • on Mon Nov 02, 2009 10:20 pm • Replies 1 • Views 96

speech redirection from Skype to Sphinx4 and vice versa

45644 — 2009-11-10T17:27:32+00:00

Hello !

I'd like to create simple system for speech recognition such that:
1. user makes a call from mobile phone
2. Skype (maybe with MyToGo) on server automatically receives this call
3. application in VB redirects speech from Skype to Sphinx4
4. Sphinx4 recognizes spoken words and answers according to them
5. speech answer is redirected to Skype with the use of VB application
6. user on mobile phone hears the answer
7. and so on
8. user finished the talk

Can you give me any suggestions how to write this VB application so that:
1. call is automatically received on Skype (maybe it can be done in Skype itself, without need of VB)
2. how to redirect speech from Skype to Sphinx4 and vice versa

Greetings !

PS...

Statistics : Posted by johnyjj2 • on Tue Nov 10, 2009 6:27 pm • Replies 0 • Views 21

Visual Basic - questions

45596 — 2009-11-04T18:36:17+00:00

can you guys help me out,please
i don't know what is the difference between event procedures and general procedures . And Why do we use general procedures? How are general procedures executed? Describe in one sentence how you could improve it for the user . Explain how arguments and parameters work when a procedure is called? What happens when a ByVal parameter is used ? Give an example. What happens when a ByRef parameter is used ? Give an example. How are static variables differerent from local and global ones?
thanks

Statistics : Posted by msntca • on Wed Nov 04, 2009 7:36 pm • Replies 0 • Views 49

Re: Pls Help..Excel File is gettin Visible while copyin usin VB6

45177 — 2009-10-29T06:58:29+00:00

Sorry for late response

the problem i got was solved

cause of issue:
Excel is getting visible when i am trying to copy/move any sheets that contains the some ActiveX components like Button, text boxes etc.,
This problem is only office 2007 Sp2 only.

i have solved the problem by replacing tha activex components with some other components.

Thanks,
Eliyaz. K

Statistics : Posted by eliyazk • on Wed Sep 30, 2009 9:57 am • Replies 1 • Views 51

Re: VB Calcuation Returns "Infinity" as Value

45245 — 2009-10-22T06:21:01+01:00

Dim value1 as Integer = 445
Dim value2 as Integer = 1980
Dim value3 as Integer = value1 ^ value2

The result is too big to store in a variable. Use the Variant data type for result if available. Surprisingly the same values are valid in the Windows Calculator using the x ^ y function.

Let me know the requirement of such big values.

Statistics : Posted by bytelogik • on Thu Oct 22, 2009 4:17 am • Replies 1 • Views 35

Try-Catch feature for VB6, VBA, VBScript

45419 — 2009-10-18T10:43:54+01:00

Hi Everyone,

This code sample enables structured exception handling for classical Visual Basic programs like VB.net Try-Catch statement.
http://sites.google.com/site/truetryforvisualbasic/

Statistics : Posted by RobEin • on Sun Oct 18, 2009 10:43 am • Replies 0 • Views 63

Help Access connection, textbox error

45414 — 2009-10-17T19:29:37+01:00

Okay so i have a text box that should show the last entered record when i click a button, i have got it to get the correct record however i am getting an error the record is an autonumber called customerid, the text box only shows the last digit of the auto number the autonumbers go up like this

0001
0002
0003
etc
(thats how theyre formated in access)
but the text box only shows 3 instead of 0003
i tried changing the format to 1000 so it went up like this
1001
1002
1003
still the text box only showed 3, what is going wrong?, thanks in advance

here is my code

Code:

   
     provider4 = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
'database provider established
        dbcustomer
= "data Source = ..\..\Booking.mdb"
       
customerconnection.ConnectionString = provider4 & dbcustomer 'connect the
database and the database provider
       
Bookingconnection.Open()
        SqlQuery4 =
"SELECT * FROM  Customer WHERE CustomerID = (S

...

Statistics : Posted by valgris • on Sat Oct 17, 2009 7:29 pm • Replies 0 • Views 30

Re: Regular Expression

45245 — 2009-10-17T14:37:57+01:00

You can use the function IsNumeric which takes the string as parameter to discard the numeric values. But you will have to check the other symbolic characters one by one.

Also, you can store the values to be discarded into an array and check if anyone of the value is present in the string. This will be much more easier to validate a text string.

Hope this helps.

Statistics : Posted by bytelogik • on Mon Sep 07, 2009 12:23 pm • Replies 1 • Views 65

Re: I am in need of desperate help with this visual basic prob

45245 — 2009-10-17T14:30:13+01:00

Try this:

Dim n As String
Dim location As Integer,lenOfString As Integer
Dim DecimalLeft As Integer, DecimalRight As Integer

n = "1.234567"
lenOfString = Len(n)
location = InStr(n, ".") 'returns the position of decimal point

DecimalLeft = location - 1
DecimalRight = (lenOfString - DecimalLeft) - 1
MsgBox DecimalLeft & ", " & DecimalRight

Hope this helps.

Statistics : Posted by bytelogik • on Mon Sep 28, 2009 2:49 am • Replies 2 • Views 89

Re: combo boxes/refresh

45245 — 2009-10-17T14:15:00+01:00

Assuming you are using VB6:

Add whatever code you have in the Click event of the first Combo Box. The Change Event won't work.

Use the Refresh method of form

Hope this helps.

Statistics : Posted by bytelogik • on Mon Sep 07, 2009 12:24 pm • Replies 2 • Views 131

Re: Print Preview using visual basic help...

45245 — 2009-10-17T14:08:55+01:00

A few years ago, I was stuck with a similar problem, and I really did not wanted to write all the Printer statements from code. I wrote a simple DB to HTML code module and displayed the report in form of a web page. Then it was a simple right click and print solution. Although it is rather rough logic but still it will save you from writing larger amount of code like margins, word-wrapping, etc.

You can use other grid controls which have direct print method, or the professional grid controls like FlexGrid which can give you a lot of control over how you print the database information.

And lastly, you can write your own GridPrinter module. It will consume a lot of logic and time, but it will be completely of your own of-course.

Hope this helps.

Statistics : Posted by bytelogik • on Wed Sep 23, 2009 11:11 am • Replies 2 • Views 68

Re: Help with lblMsg in VB 6

45273 — 2009-10-09T19:38:54+01:00

What you probably want to do is to add a public variable.
1. add a module to your project
2. declare a Public variable

Public retStudentName as string
3. Store the value of the student input to that variable and you can use it anywhere in your project.

How to use:

retStudentName = inmputbox(“Student Name”)

Textbox1 = retStudentName
Msgbox (retStudentName)
lblStudentName.caption = retStudentName

anything = retStudentName

Even form.caption = “Application Name: “ & retStudentName

The best part is that this variable will hold the name of the student and it can be accessed by any form, subroutine, etc. in your project.

Note: I van't used VB6 for a long time. But if it's not Public try Global declaration.

Statistics : Posted by pachecf • on Wed Oct 07, 2009 6:15 pm • Replies 3 • Views 66

Re: I desperately need help with a problem

45273 — 2009-10-09T01:10:31+01:00

This is simple:

1. add a combo box to your form (combobox1)
2. double click your form and add the following to the form load event

'This will add the numbers from 1 to 100 to the combo box for selection
For x = 1 To 100
ComboBox1.Items.Add(x)
Next

3. add a text box (TextBox1) to your form
4. double click on your combobox1 control and add the following script to the ComboBox1_SelectedIndexChanged event

Dim x, y, z As Integer
x = ComboBox1.Text
x = x - 1
If x >= 2 Then
z = 1
For y = 1 To x
z = z * 2
Next
ElseIf x = 0 Then
z = 1
ElseIf x = 1 Then
z = 2
End If
TextBox1.Text = z

5 Test it !

Statistics : Posted by pachecf • on Wed Oct 07, 2009 7:23 pm • Replies 1 • Views 70

Re: Add Text To a textbox by a button?

45273 — 2009-10-08T21:27:21+01:00

You want to add text to a text box when pressing a button?

Drop a text box control and a command button control to your form.
Double click the command button to start writing code.
and type:

Text1.Text = "Anything you want here"

Go to your form and click one time on the Text1 control and set the scrollbar property to Both and Multiline = True. This way you can write multiple lines so you can later copy and paste somewhere else.

You can try this:

Text1.Text = "Anything line 1" & vbcrlf & "Second Line" & vbcrlf & "Third Line"

Or
Text1.Text = "Anything line 1" & vbcrlf & _
"Second Line" & vbcrlf & _
"Third Line"

Statistics : Posted by pachecf • on Sun Oct 04, 2009 9:04 pm • Replies 1 • Views 70

Embed form in the title bar of an active window

45260 — 2009-10-07T16:43:56+01:00

Hi i have created a form containing a text box and a button. i would like to know if it is possible to embed this form in the title bar of the current active window that is opened eg: ie,notepad,word
this is so that i can enter a word in the text box and use text to speech to say it or highlight a word in the active window and it will be placed in the text box of my form. i can position the form in the top right location but then the form position is stagnant.
any help will be much appreciated.
thanks

Statistics : Posted by Trill • on Wed Oct 07, 2009 4:43 pm • Replies 0 • Views 34

Re: I need your help with creating/coding an application in VB 6

45231 — 2009-10-07T14:45:59+01:00

Thank you

Statistics : Posted by EntangledDesi • on Mon Oct 05, 2009 7:15 pm • Replies 3 • Views 73

3D illumination

45245 — 2009-10-07T07:36:59+01:00

Hi,

If you like 3D Graphics programming, I have some interesting code which deals with adding light to a 3D scene.

"http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=72519&lngWId=1" onclick="this.target='_blank';" rel="nofollow"

Hope it is informative.

Regards.

Statistics : Posted by bytelogik • on Wed Oct 07, 2009 7:36 am • Replies 0 • Views 27

Virtual Microphone

44812 — 2009-09-03T22:38:14+01:00

Hi:
I have a requirement to send a sound bite thru the mic channel, like a virtual microphone. Does anyone have an example how this can be done?
Thanks for any help with this.
-JD

Statistics : Posted by jdante5 • on Thu Sep 03, 2009 10:38 pm • Replies 0 • Views 71

Re: System Idea

44220 — 2009-09-03T16:25:07+01:00

"http://www.howtodothings.com/computers/a1015-making-your-own-operating-system.html" onclick="this.target='_blank';" rel="nofollow"

Statistics : Posted by iDad • on Thu Sep 03, 2009 8:59 am • Replies 1 • Views 55

VB application: problem with language settings

44720 — 2009-08-26T16:27:27+01:00

Hi, I have an application which has been built on VB6. When I change the language settings on computer to French or German from English, I want the change to be reflected on this VB application also. How can I do it? Someone please help.

Thanks,
Lavangu

Statistics : Posted by lavangu • on Wed Aug 26, 2009 4:27 pm • Replies 0 • Views 140

Re: detecting flash drive mounting and running a program

44588 — 2009-08-16T17:40:52+01:00

that does not work. XPSP2 and beyond add the autorun.inf to the list of options in the autoplay dialog. There is no good way around it because there is not a registry handler for .ppt files, only for video, music, or pictures. So I have to build this program to automate the process. There is not keyboard or mouse on this system so selecting the option out of the autoplay list is not possible.

Statistics : Posted by jrtroberts • on Sat Aug 15, 2009 11:02 pm • Replies 2 • Views 152

Re: Preview thumbnails

43986 — 2009-07-28T11:10:56+01:00

I already solved the problem

Statistics : Posted by sandy24 • on Mon Jul 27, 2009 5:09 pm • Replies 1 • Views 69

I'M A NEWBIE WITH A BIG PROJECT-PLEASE HELP ME

44274 — 2009-07-22T17:58:58+01:00

Hi all,
I am a huge huge newbie to the forum and the world of Visual Basic. I have got Visual Basic 2008 Express Edition.

My project is to create an organiser with:

-A login Screen that has the a USERNAME and PASSWORD. I would also like it to have an option to change your password, and a status bar saying if you are logged in/out if possible.

Then once the login is done I would like a notification box with a loading bar that works and loads up the interface.

Then once it is loaded, we come to the main part of the project: the main interface. If possible I would like the names and codes for the objects I need in order for them to work.

-A panel for viewing email from Outlook.

-A panel for viewing, adding and editing appointments from Outlook.

-A status bar at the bottom notifying you of errors, if you are logged in/out

-And finally an address book panel.

I would be grateful if you could give me step by step instructions, for the objects and codes that I will need. I know it m...

Statistics : Posted by lukeholdstock • on Wed Jul 22, 2009 5:58 pm • Replies 0 • Views 97

RAM usage and Unloading forms and components in VB6

44272 — 2009-07-22T11:04:42+01:00

I am using VB6 and the following code:

Private Sub cmdBacktoMenu_Click()
Unload frmOne
Set frmOne = Nothing
Load frmMainMenu
frmMainMenu.Show
End Sub

When I load the compiled program in the MainMenu it is using 7Mb of RAM, when I navigate to frmOne it jumps to 126Mb(which is expected) however, when I click this command it goes back to MainMenu and is still using 64Mb of RAM. Why isn't it returning to near the 7Mb when it initates, as the information from frmOne should be discarded entirely.

Btw,I have a sound file array if anyone is wondering why the RAM usage is so high, I'd be guessing the components aren't being completely unloaded but don't know how to do so.
Thanks, any help much appreciated, Phoenix

Statistics : Posted by phoenixfury • on Wed Jul 22, 2009 11:04 am • Replies 0 • Views 52

checkboxes

44170 — 2009-07-18T05:58:34+01:00

hi there,

i am adding a checkboxes to a visual basic application.
currently im using the .additem("somestring") method, but i was wondering if there is a way to add a

value and a number. (like in web programming) ie if the checkbox box is populated by a database can it

have the an index value (thats not displayed) that is the id in the database and the actual display

value as the string which the ID corresponds to.
Example:
the databse contains
ID Town
1 Sydney
2 Canberra

I want to show the words Sydney and Canberra, but when i retrieve what value was selected im only interested in the ID, ie 1 and 2. I take it it would act something similar to the itemdata in combo boxes

Can anyone shed some light on this?

Thanks in advance.

Statistics : Posted by jackdarippa • on Sat Jul 18, 2009 5:58 am • Replies 0 • Views 60

Basic Formula

44190 — 2009-07-14T13:21:56+01:00

Hi

I'm a novice VB user. I've written the following formula which I now realise is wrong.

=IF(F5=1,"E5",0)

What I want it to do is return the contents of cell E5 if there is a 1 in cell E6, or return 0 if there is not a 1 in cell F5. But the way I've written it I get E5 or 0.

Would really appreciate some help!

Statistics : Posted by waltojam • on Tue Jul 14, 2009 1:21 pm • Replies 0 • Views 65

Click to jump to page…

Page 1 of 4 • 1, 2, 3, 4