Re: How to include graphics in Menus and Changing their color - Visual Basic Discussion Boards

MSCOMM32.OCX push cpu 100% when start accessing com port

sanong18-Sep-05 21:47

18-Sep-05 21:47

I have developed app using MSCOMM32.OCX ver shipped with VB6 ( ver 6.0.8*) when ever we open com port and start accessing data CPU start hitting 100% and FAN start to spin up.

I dont understand why it happen. Is it a bug ? or what wrong with it ?

I dont do any thing fancy.

Re: MSCOMM32.OCX push cpu 100% when start accessing com port

sanong19-Sep-05 6:08

sanong

19-Sep-05 6:08

Pls help!

Re: MSCOMM32.OCX push cpu 100% when start accessing com port

rwestgraham19-Sep-05 9:16

rwestgraham

19-Sep-05 9:16

WShy does this have to mean there is something wrong? If I look at the sysmon, and refresh a page from CP my CPU hits a 100% also.

I would only get worried if something pegs the CPU and keeps it there continuously or for an excessively long time.

pc to phone connection

Talei18-Sep-05 21:34

Talei

18-Sep-05 21:34

i need to link a pc to a mobile phone. can somebody help me out.

Re: pc to phone connection

Briga18-Sep-05 23:59

Briga

18-Sep-05 23:59

use a cable? Laugh | :laugh:

Seriously can you better state your question? What do you want to do? Synch? Dial from PC? Which phone, or better which OS is running the mobile?

Re: pc to phone connection

seee sharp19-Sep-05 0:15

seee sharp

19-Sep-05 0:15

if you want to use bluetooth..... following might help you

http://www.geekzone.co.nz/content.asp?contentid=3613[^]

http://www.geekzone.co.nz/forums.asp?ForumId=8&TopicId=434[^]

[^]

- ashish

How to include graphics in Menus and Changing their color

shoaibnawaz18-Sep-05 20:37

shoaibnawaz

18-Sep-05 20:37

Tell me the way to customise menus in VB6 with graphical icons and colorfull backgroud. and How to make transparent form. Smile | :)

Shoaib Nawaz

Re: How to include graphics in Menus and Changing their color

Gopi.V18-Sep-05 22:52

Gopi.V

18-Sep-05 22:52

I think This Feature is not available in vb6. better u can try for any 3rd party controls.

Try for it.

bye !!
Smile | :)

V.Gopi.
Easy Design Systems
Coimbatore
India

Help on Astrolgical Calculation

KRPAMIT18-Sep-05 20:31

KRPAMIT

18-Sep-05 20:31

Hi everyone,

I need an algorithm/program (code) that can compute planetory position data for a given date/time/place according to Lahiri Ayanamsha (in Indian Astrlogical System). Can anyone please help me to find the same (source code/algorithm) or explain me how to find/calculate it.

Thanks in advanced,
K Amit

Re: Help on Astrolgical Calculation

rwestgraham18-Sep-05 21:08

rwestgraham

18-Sep-05 21:08

First you need to read your horoscoipe every day until it says "Today you will find the answer to that which you seek."

Then on that day, search Google for amateur astronomy sites that explain planetary position calculations.

Should not be hard to find or figure out - after all I did exactly that when I was a 12 year old kid with a telescope. All I used was a pencil, my dad's sliderule, and "The Field Guide to Astronomy".

Re: Help on Astrolgical Calculation

john john mackey19-Sep-05 7:59

john john mackey

19-Sep-05 7:59

Would this also work for "simple" satellites like those producing GPS information? Laugh | :laugh:

I am looking for a position-locator algorithm for GPS satellites provided I know the Date-Time(GPS date-time), the satellites I'm reading on my GPS unit on Earth (names, signal strength), and other info I get from GPS data streams.

Thanks.
John-John

Re: Help on Astrolgical Calculation

rwestgraham19-Sep-05 11:23

rwestgraham

19-Sep-05 11:23

Planetary orbits are very stable, otherwise we would have long to live. They are also well defined. So you can calculate their positions at any given time.

GPS satellite orbits are less stable. See the link below for an overview:

http://www.pdhonline.org/courses/l116/l116content.htm[^]

Re: Help on Astrolgical Calculation

john john mackey20-Sep-05 7:25

john john mackey

20-Sep-05 7:25

Thanks! This looks to be a very informative article. Kepler was a genius!

Regards,
Johnny

how can we View the Finded data in Datagrid

mani_tac18-Sep-05 19:52

mani_tac

18-Sep-05 19:52

In our datagrid Coding I use The Buildin function "Datagrid1.Select(i)"
If "i" may be 100 Means The 100th Row Will be selected. But I can't able to view the Particular row with in the width of datagrid. If i want to view the row mean, I want to scroll the datagrid and after It can able to saw the record.

Plz Give me suggestion or Coding for my Problem.

I am Mani I work in pondicherry

Currency format

dennysoe18-Sep-05 18:37

dennysoe

18-Sep-05 18:37

Dear all,

How can I change the value in a textbox into local currency format, while inputting?

Thankx

Re: Currency format

Gopi.V18-Sep-05 22:21

Gopi.V

18-Sep-05 22:21

use format function while the has lost its focus

ex : Txtamount.Text = format(txtamout.txt,"Currency")

OK !!!

Smile | :)

V.Gopi.
Easy Design Systems
Coimbatore
India

Re: Currency format

dennysoe19-Sep-05 16:39

dennysoe

19-Sep-05 16:39

No i want the text changed as i input in the textbox, not after lost focus
thanx

Big Grin | :-D

create strings by one giving string

LyBun18-Sep-05 18:28

LyBun

18-Sep-05 18:28

Dear all
I would like some help about one problem . the problem is I want to create a set of strings .this is the example :
there is a string "some" and I want to create new strings that have the same length (the new string also have 4 charaters) but the condition is
the charater "s" can become to charater "a" and "c"
the charater "m" become to charater "k" ,"l" and "u"
the charater "e" can become to charater "b" and "h" .
so the result is we will get the following strings :
1 some 10 soue 19 aole 28 coke
2 somb 11 soub 20 aolb 29 cokb
3 somh 12 souh 21 aolh 30 cokh
4 soke 13 aome 22 aoue 31 cole
5 sokb 14 aomb 23 aoub 32 colb
6 sokh 15 aomh 24 aouh 33 colh
7 sole 16 aoke 25 come 34 coue
8 solb 17 aokb 26 comb 35 coub
9 solh 18 aokh 27 comh 36 couh
I create a function in vb6 but I just can create only 29 strings
so I need some help about this
Please help me on this by create some code in vb6 .
I hope I can get the answer from everyone in this 2 or days !
Thanks !!!!!

Regards,
Ly bun

Re: create strings by one giving string

Steve Pullan18-Sep-05 18:46

Steve Pullan

18-Sep-05 18:46

If you post the code you are using, maybe we can help.

...Steve

Re: create strings by one giving string

Steve Pullan19-Sep-05 17:54

Steve Pullan

19-Sep-05 17:54

I have rewritten your code to use a recursive Sub rather than a Function. The main problem with your examle is that you were not inspecting all possible combinations of the input string (i.e. only one iteration of the For...Next loop was ever executed). It can be refined further but this will do for a brief explanation.

This example also uses a Scripting.Dictionary object rather than an array because it simplifies the detection of duplicate strings (I assumed that duplicates were not permitted). Look this up in the VB help files for more information.

Option Explicit

Private Sub GenerateStrings()

    Dim wd As Scripting.Dictionary
    Set wd = New Scripting.Dictionary
    
    Call test2("some", wd)
    
    'Command1.Caption = wd.Count
    
End Sub

Sub test2(str As String, ByRef wd As Scripting.Dictionary)
    
    Dim ch As String
    Dim ch1 As String
    Dim ch2 As String
    Dim wlen As Integer
    Dim i As Integer
    
    wlen = Len(str)
    
    For i = 1 To wlen
    
        ch1 = Left(str, i - 1)
        ch = Mid(str, i, 1)
        ch2 = Mid(str, i + 1, wlen)
        
        Select Case ch
            
            Case "s"
                Call test2(ch1 & "a" & ch2, wd)
                Call test2(ch1 & "c" & ch2, wd)
            
            Case "m"
                Call test2(ch1 & "k" & ch2, wd)
                Call test2(ch1 & "l" & ch2, wd)
                Call test2(ch1 & "u" & ch2, wd)
            
            Case "e"
                Call test2(ch1 & "b" & ch2, wd)
                Call test2(ch1 & "h" & ch2, wd)
            
            Case Else
            
        End Select
    
    Next
    
    If Not wd.exists(str) Then
    
        Debug.Print str
        
        wd.Add str, str
    End If
    
End Sub

'Function test1(str As String) As String()
'    Dim wd() As String, ch As String, ch1 As String, ch2 As String
'    Dim wlen As Integer, i As Integer, j As Integer
'    j = 0
'    wlen = Len(str)
'    For i = 1 To wlen
'          ch1 = Left(str, i - 1)
'          ch = Mid(str, i, 1)
'          ch2 = Mid(str, i + 1, wlen)
'
'          If ch = "s" Then
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "a" & ch2
'                 j = j + 1
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "c" & ch2
'                 j = j + 1
'          End If
'          If ch = "a" Then
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "s" & ch2
'                 j = j + 1
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "c" & ch2
'                 j = j + 1
'          End If
'           If ch = "c" Then
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "s" & ch2
'                 j = j + 1
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "a" & ch2
'                 j = j + 1
'          End If
'
'           If ch = "m" Then
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "k" & ch2
'                 j = j + 1
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "l" & ch2
'                 j = j + 1
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "u" & ch2
'                 j = j + 1
'          End If
'          If ch = "k" Then
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "m" & ch2
'                 j = j + 1
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "l" & ch2
'                 j = j + 1
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "u" & ch2
'                 j = j + 1
'          End If
'          If ch = "l" Then
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "k" & ch2
'                 j = j + 1
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "m" & ch2
'                 j = j + 1
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "u" & ch2
'                 j = j + 1
'          End If
'          If ch = "u" Then
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "k" & ch2
'                 j = j + 1
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "l" & ch2
'                 j = j + 1
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "m" & ch2
'                 j = j + 1
'          End If
'           If ch = "e" Then
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "b" & ch2
'                 j = j + 1
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "h" & ch2
'                 j = j + 1
'          End If
'          If ch = "b" Then
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "e" & ch2
'                 j = j + 1
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "h" & ch2
'                 j = j + 1
'          End If
'           If ch = "h" Then
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "e" & ch2
'                 j = j + 1
'                 ReDim Preserve wd(j)
'                 wd(j) = ch1 & "b" & ch2
'                 j = j + 1
'          End If
'
'    Next
'    test1 = wd
'End Function
'

...Steve

Re: create strings by one giving string

Steve Pullan20-Sep-05 13:07

Steve Pullan

20-Sep-05 13:07

LyBun wrote:
Dear steve
First I thank you to give the solution .but we still got some problem with the solution . It is when we create other one like "sole" , "coub" or "bkoa" it can't give the correct answer .It is maybe I tell the condition not clear . so I say again
1 the charater "s" can become to charater "a" and "c" but the "a" can also become to "s" and "c" . the "c" can also become to "s" and "a"
2 the charater "m" become to charater "k" ,"l" and "u" ."k" also can become to "m" ,"u" and "l" . "l" also can become to "m" , "u" and "k" . "u" can also become to "m" , "k" and "l" .
3 the charater "e" can become to charater "b" and "h" the same with the 3 one .
when I change your code it run out of stack space . How to correct the code to avoid the error
The code change is :
Sub test2(str As String, ByRef wd As Scripting.Dictionary)

Dim ch As String
Dim ch1 As String
Dim ch2 As String
Dim wlen As Integer
Dim i As Integer

wlen = Len(str)

For i = 1 To wlen

ch1 = Left(str, i - 1)
ch = Mid(str, i, 1)
ch2 = Mid(str, i + 1, wlen)

Select Case ch

Case "s"
Call test2(ch1 & "a" & ch2, wd)
Call test2(ch1 & "c" & ch2, wd)
Case "a"
Call test2(ch1 & "s" & ch2, wd)
Call test2(ch1 & "c" & ch2, wd)
Case "c"
Call test2(ch1 & "s" & ch2, wd)
Call test2(ch1 & "a" & ch2, wd)
Case "m"
Call test2(ch1 & "k" & ch2, wd)
Call test2(ch1 & "l" & ch2, wd)
Call test2(ch1 & "u" & ch2, wd)
Case "k"
Call test2(ch1 & "m" & ch2, wd)
Call test2(ch1 & "l" & ch2, wd)
Call test2(ch1 & "u" & ch2, wd)
Case "l"
Call test2(ch1 & "k" & ch2, wd)
Call test2(ch1 & "m" & ch2, wd)
Call test2(ch1 & "u" & ch2, wd)
Case "u"
Call test2(ch1 & "k" & ch2, wd)
Call test2(ch1 & "l" & ch2, wd)
Call test2(ch1 & "m" & ch2, wd)
Case "e"
Call test2(ch1 & "b" & ch2, wd)
Call test2(ch1 & "h" & ch2, wd)
Case "b"
Call test2(ch1 & "e" & ch2, wd)
Call test2(ch1 & "h" & ch2, wd)
Case "h"
Call test2(ch1 & "b" & ch2, wd)
Call test2(ch1 & "e" & ch2, wd)

Case Else

End Select

Next

If Not wd.Exists(str) Then

Debug.Print str

wd.Add str, str
End If

End Sub

Hope see your answer soon .
Thanks!!!!!

Regards,
bun

Bun,

The problem with what you are trying to do is that you'll cause an infinite recursion loop in test2() since "a" can replace "s" and "s" can replace "a" etc..., and hence that is why you get the stack overflow error.

I should have asked this question in the first place, but what are you actually trying to achieve? Is this some real world application or just a programming exercise? Is it a condition of the algorithm that multiple substitutions are permitted or is only one pass over the initial input string to be performed?

...Steve

Insert values into SQL database from webform

BORN...again!18-Sep-05 15:34

BORN...again!

18-Sep-05 15:34

Hello,

I am designing an accounts webform( Crikey! ) in which I have two fields 'rate' in textbox1 and 'points' in textbox2 which are of type decimal in the first half of the webform. The user enters the values in these text boxes from the webform and on hitting a button 'calculate & display' following things should happen:

1. In textbox3 - result (type decimal) it should display the result (rate)-(points) which I have achieved Smile | :)

2. the user then enters the rest of the form and hits 'save form'. which means i have two buttons on the form,'calculate&display' and 'save'
3. On hitting save, it should save all the values on the webform into my (SQL server) database --- this is not working, it saves all of the other fields except these 3 text box values i.e. 'rate', 'points' and 'result', all that the database is saving each time is '0.00000' and '1.00000'

can someone please help me with this ... cansome give me a quickie tour of how to calculate values on webform , display the result and save the rsult in database because i need to do a lot of this in the rest of the form. I have 6 more fields which I need to compare, calculate,display and save in database !!!

I use Vb.net code but C# is welcome too.

Thanks a Zillion in advance...it is going to be big help!!!

Aartee.
...HE is watching Us All!

Re: Insert values into SQL database from webform

tatchung18-Sep-05 16:09

tatchung

18-Sep-05 16:09

have you tried changing the type of ur results?

Aim small, miss small...

Re: Insert values into SQL database from webform

BORN...again!18-Sep-05 16:26

BORN...again!

18-Sep-05 16:26

Hi tatchung,

I don't quite understand what exactly you mean by changing the type of results but everything is in decimal...even if i try it in type Int or varchar etc... it still does not work, it is calculating and displaying the correct subtracted values but only on the webform, not saving it in the database.

Aartee.
...HE is watching Us All!

-- modified at 22:26 Sunday 18th September, 2005

Re: Insert values into SQL database from webform

tatchung18-Sep-05 16:47

tatchung

18-Sep-05 16:47

Good day sir,

I mean have you tried checking the value u are returning in ur insert command? is it of type decimal? i've had a similar problem with a short once and all i did was declared the value in my insert command. might work on ur problem but then again i could be wrong...im still a beginer u know Blush | :O

Aim small, miss small...

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.