Beginner VB Forum RSS Feed (Replies Included)

How to disable "E" symbol in large digits?

Mon, 13 May 2013 12:39:23 -0700

Hi!

I'm creating Bytes Calculator in Visual Basic 2012.
I'm beginner on platform .net, before I was using VB6.

In calculator is possible to convert e.g. PB to B.
So large symbols displays:
1 PB = 1,12589990684262E+15 B

HOW TO DISABLE SYMBOL "E" TO SHOW NUMBER AS IS?

Many many thanks for every help, reply or comments.

Miro

Hi guys, desperate for help with this exercise, anyone?

Mon, 10 Dec 2012 15:07:30 -0700

its exercise that i need to complete it: procedures and functions but i havent clue how.

Attachment: Exercise Functions and Procedures.doc (53760 bytes | downloaded 51 times)

save to .txt

Mon, 03 Dec 2012 20:52:14 -0700

Please help. I need to save to .txt with today's date as file name. or with user input as file name.

Playing a sound file remotely?

Tue, 20 Nov 2012 10:48:14 -0700

Here's the scenario...

I work in a collections place, part of the way they do business is by requiring a general manager to hop on calls when debtors get to a certain point in a conversation. At the moment, the collectors are basically shouting for a manager to come to their desks. What I'm looking to do is to set up a form that will play a wav file requesting the general manager from a dedicated machine on the LAN. Basically a paging system run via PC.
We are all using Windows 7.

So basically, what's the best way to have a button click fire a command to a remote machine to play a wav (or mp3) file?

Help plz with mscomm

Wed, 10 Oct 2012 08:24:28 -0700

Hello kevin for holland here..,

i have the following device :
http://www.conrad.nl/ce/nl/product/750782/Voorvallenregistratie-voor-transponders/SHOP_AREA_25674&promotionareaSearchDetail=005

the only thing i want to add in a program of mine is to see the
transponder that's ''NOW'' in the antennafield.

as de manual says :(note: used google translate)

Transponder number (T)
Command Description: Used to read a single transponder. If there are
no transponder in the field, gives the reader 'NOTAG'
as an answer. The transponder number is then 10
positions (eg AC3F00D1B4) as hexadecimal coded
ASCII character sequence indicated.
Format: <STX> <ADR> CT <CRC> <EOT>
Example: <STX> FFCT23 <EOT>
<STX> FFCT03C2208CFF64 <EOT>
reads the current transponder number 03C2208CFF.

Can someone PLEASE help me with this .
to make a sourcecode only thats reading the transponder and puts it in a label/texbox or whatever.

its driving me nuts , i dont know any thing about mscomm controll and the more i read about it the more confused ill become.

if i have this i can make the rest of it my self (when needed).

Thanks in advance!

Regards, Kevin
(sorry for my bad english)

Help plz with mscomm

Wed, 10 Oct 2012 08:14:56 -0700

Greetings Everyone. Read Further

Mon, 27 Feb 2012 09:32:52 -0700

I hope you all are ok.
My name is Carl and I want to learn a programming language and i have selected visual basic 6.0 to start from.. But there is something that has been bothering me from a long time and that is i can't seem to learn a programming language at all, i tried to learn php, c++, etc in the past but couldn't.. May be it is because i don't understand how the programming really goes..
I would really like to take an advice from you guys to help me in learning the programming language. and for the record, i have never programmed before at all..

Re: Need help with loop program

Mon, 20 Feb 2012 12:51:01 -0700

ohh wow I apologize for spam ...glitched I guess

Name sorting require assistance

Mon, 20 Feb 2012 12:48:23 -0700

Here is the program directions :Design a program that asks the user for series of names (in no particular order). After the final person's name has been entered, the program should display the name that is first alphabetically and the name that is last alphabetically. For example, if the user enters the names Kristin, Joel, Beth, Zeb, and Chris, the program would display Adam and Zeb. Also the chart that I am supposed to follow is attached.
And here is the code that I've been going at for past 13 hrs. Please help me to figure it out.

 Module Module1
    Const MAX_Names = 6
    Sub Main()
        Dim name As String
        Dim count As Integer
        Dim highName as String
        Dim lowName as String
        count = 0
        Do Until count = MAX_Names
            Console.WriteLine("Enter the name: ")
            name = Console.ReadLine


        >>>>need some kind of condition that will test the names<<

            count = count + 1
        Loop
        
        Console.Write("Low name is:" + highName + vbCrLf)
        Console.Write("High name is:" + lowName + vbCrLf)
        
    End Sub
End Module

Need help with loop program

Mon, 20 Feb 2012 12:42:44 -0700

 Module Module1
    Const MAX_Names = 6
    Sub Main()
        Dim name As String
        Dim count As Integer
        Dim highName as String
        Dim lowName as String
        count = 0
        Do Until count = MAX_Names
            Console.WriteLine("Enter the name: ")
            name = Console.ReadLine


        >>>>need some kind of condition that will test the names<<

            count = count + 1
        Loop
        
        Console.Write("Low name is:" + highName + vbCrLf)
        Console.Write("High name is:" + lowName + vbCrLf)
        
    End Sub
End Module

Attachment: Chart.pdf (66649 bytes | downloaded 68 times)

Need help with loop program

Mon, 20 Feb 2012 12:39:45 -0700

 Module Module1
    Const MAX_Names = 6
    Sub Main()
        Dim name As String
        Dim count As Integer
        Dim highName as String
        Dim lowName as String
        count = 0
        Do Until count = MAX_Names
            Console.WriteLine("Enter the name: ")
            name = Console.ReadLine


        >>>>need some kind of condition that will test the names<<

            count = count + 1
        Loop
        
        Console.Write("Low name is:" + highName + vbCrLf)
        Console.Write("High name is:" + lowName + vbCrLf)
        
    End Sub
End Module

Attachment: Chart.pdf (66649 bytes | downloaded 47 times)

factorize big numbers

Thu, 01 Dec 2011 05:09:09 -0700

Hi all...

I'm using VB6 to write a program in which I need to factorize big numbers up to 10^20.
I already tried a few algorithms, but eather they can't generate big enough primefactors or they are much to slow...

Now I wonder if there doesn't exist an API-function (is that the right name?) that I can use. Something from the kernel32-lib or so...

Or, as last resort: is there an other (easy to learn) programming language that has better tools to do that kind of things?

Saving user inputs and change

Tue, 04 Oct 2011 07:52:50 -0700

Hi,

my software first software is nealry workin and i need to insert a save command. i have two question:

first, is there a simple/fastest way to save everything than coding every textbox,radiobutton,etc... ?
eg:
SaveSetting(name.Text, "settings", "plantname", 1000)
GetSetting(name.Text, "settings", "plantname", "")
(also will this work ???)

and when i try to getsetting,software crash and its says that the value "path" i set to nothing...
I'm learning over the internet and this is the only way of saving i have found and i just can't find how to make it work :P

Thank you for your help and advice !

Making IF statements wait for user input?

Sun, 07 Aug 2011 00:35:49 -0700

I'm making a program that requires the user to define a folder for saving things in.
I'm using a Folder Browser Dialog to get the user to choose the folder, and then a dialog box pops up telling them which folder they've chosen and asking for confirmation. If they don't choose a folder, it's supposed to bring up another dialog box directing them to the menu where they can define one afterwards.

If My.Settings.folderDefined = False Then
            Dim okay As Boolean 'this is whether the user is okay with the selected folder


            FolderBrowserDialog1.ShowDialog()
            My.Settings.defaultFolder = FolderBrowserDialog1.SelectedPath
            dlgFolderConfirm.Show()
            dlgFolderConfirm.lblNotifications.Text = My.Settings.defaultFolder & Chr(10) & "Is this okay?"

            If dlgFolderConfirm.DialogResult = System.Windows.Forms.DialogResult.Yes Then
                okay = True
            ElseIf dlgFolderConfirm.DialogResult = System.Windows.Forms.DialogResult.No Then
                okay = False
                dlgNotifications.Show()
                dlgNotifications.lblNotification.Text = "A folder has not been defined." & Chr(10) & "Go to Settings->Define folder... to choose one."
            End If

        End If

Problem is, what seems to happen is, it skims over the IF statements involving setting "okay" to True or False without waiting for the user to click 'yes' or 'no', so no matter what you select it doesn't do anything.

I know this is ridiculously basic, which is making it all the more frustrating for me. Is there something I'm supposed to put in there to make it wait for input?

This post has been deleted.

Sun, 15 May 2011 10:56:58 -0700

This post has been deleted.

Re: Visual Basic 6.0 on Windows 7 - Help Pls

Sun, 15 May 2011 10:40:56 -0700

Well vb 6 works on win 7 32-bit OS (i.e x86) with some errors like when you drag a command button from one place to other then it will be shaggy while dragging.and also while deploying some of the .ocx added to the projects are outdated and no longer used by windows.but it wont cause you a problem because they are compensated by the advanced ones.and while installing the application written in vb 6 it will show a lot of copy errors depending on your windows build but just clicking IGNORE will make the installation success.on the vb 6 works perfectly with win 7 32-bit with some small but ignorable errors.i dont know abt 64-bits because i stopped using it long ago because it does not support 16-bit application such as c++ and cobol which im studying right now

Re: how to play sounds in VB6???

Sat, 14 May 2011 03:25:44 -0700

Try This

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
(ByVal lpszName As String, ByVal hModule As Long, _
ByVal dwFlags As Long) As Long

Dim RetVal as Long

Private Sub cmdPlay()
RetVal= PlaySound(App.Path & "\Media\accepted.wav", 0, &H0)
End If A A A
| | |
| | |
Your Project Folder | |
Folder of where .WAV is |
File here

VBScript Issue w/ IE Object Displaying w/ focus

Wed, 11 May 2011 11:28:03 -0700

I'm not sure if I'm in the correct forum or not, but I thought I
would give it a shot to see if someone can offer up some type of solution. Let me preface this by saying that I am not very experienced at VBScript. I've been trying to piece this together this small program from some examples.

I'm trying to create a small desktop application using VBScript to present a menu to the user, allow selection of options 1-7, and then upload a file (based on user selection) via FTP to a host server.

Within this VBScript program, I'm trying to create a function that will create an IE window object that will display an HTML formatted menu with those 7 options. There is a input box for the user to enter a single option 1 - 7. I will then return the value that was entered by the user.

The script I currently have will create the IE object, but the window does not have focus and will not display on top of any other open applications. I am working on Windows XP. I've seen this problem discussed on some other forums. I've tried some suggestions that I've seen on some forums, but to no avail. Does anyone have any tricks that will help me display this IE window with focus on top any other open apps? We are soon upgrading to Windows 7. Will that make and difference?

Any advice is much appreciated. I had a suggestion today that I try an
additional piece of software called Z-Mover that will run in the background and pre-position any applications that open up. But, I am hoping that I can do this without the additional software. My code is listed below. Thanks in advance for any suggestions.

My Code:

'-----------------------------------------------------------------------------
-
Function GetUserInput()
' This function uses Internet Explorer to
' create a dialog and prompt for user input.
'
' Argument: [string] prompt text, e.g. "Please enter your name:"
' Returns: [string] the user input typed in the dialog screen
'
Dim objIE
Dim UserPromptTable

userPromptTable = "<table border=""0""> " _
& "<tr><td colspan=""3""><h4>Please select payroll upload option:
</h4></td></tr> " _
& "<tr><td></td><td></td><td></td></tr> " _
& "<tr><td>HOURLY:</td><td>1.)</td><td>Company 1</td></tr> " _
& "<tr><td></td><td>2.)</td><td>Company 2</td></tr> " _
& "<tr><td></td><td>3.)</td><td>Company 3</td></tr> " _
& "<tr><td></td><td>4.)</td><td>Company 4</td></tr> " _
& "<tr><td>ADMIN:</td><td>5.)</td><td>Company 5</td></tr> " _
& "<tr><td></td><td>6.)</td><td>Company 6</td></tr> " _
& "<tr><td></td><td>7.)</td><td>Company 7</td></tr></table>"

' Create an IE object
Set objIE = CreateObject( "InternetExplorer.Application" )

' Specify some of the IE window's settings
objIE.Navigate "about:blank"
objIE.Document.Title = "Input required " & String( 50, "." )
objIE.ToolBar = False
objIE.Resizable = False
objIE.StatusBar = False
objIE.Width = 360
objIE.Height = 360

' Center the dialog window on the screen
With objIE.Document.ParentWindow.Screen
objIE.Left = (.AvailWidth - objIE.Width ) \ 2
objIE.Top = (.Availheight - objIE.Height) \ 2
End With

' Wait till IE is ready
Do While objIE.Busy
WScript.Sleep 200
Loop
' Insert the HTML code to prompt for user input
objIE.Document.Body.InnerHTML = "<div align=""center""><p>" &
userPromptTable _
& "</p>" & vbCrLf _
& "<p><input type=""text"" size=""1"" " _
& "id=""UserInput""></p>" & vbCrLf _
& "<p><input type=""hidden"" id=""OK"" " _
& "name=""OK"" value=""0"">" _
& "<input type=""submit"" value="" OK "" "
_
& "OnClick=""VBScript:OK.
Value=1""></p></div>"
' Hide the scrollbars
objIE.Document.Body.Style.overflow = "auto"
' Make the window visible
objIE.Visible = 1
' Set focus on input field
objIE.Document.All.UserInput.Focus
objShell.AppActivate objIE

' Wait till the OK button has been clicked
On Error Resume Next
Do While objIE.Document.All.OK.Value = 0
WScript.Sleep 200
' Error handling code by Denis St-Pierre
If Err Then ' user clicked red X (or alt-F4) to close IE window
IELogin = Array( "", "" )
objIE.Quit
Set objIE = Nothing
Exit Function
End if
Loop
On Error Goto 0

' Read the user input from the dialog window
GetUserInput = objIE.Document.All.UserInput.Value

' Close and release the object
objIE.Quit
Set objIE = Nothing
End Function

Visual Basic 6.0 on Windows 7 - Help Pls

Fri, 01 Apr 2011 21:10:12 -0700

Hi..Can Visual Basic 6.0 can run on Windows7??..and if I develop an application using Visual Basic 6.0,can it also run on Windows 7??..

Help with VB Finding a Hex String

Tue, 22 Mar 2011 10:20:53 -0700

I am using the hex value "9C FF FF FF 64" as a North Star. I want the program to find that value then be able to count either forwards or backwards to find other hex values so the program knows what to change in the file.

Re: Radio buttons -

Sun, 20 Feb 2011 03:45:32 -0700

You should change TRadioButton.BackColor value in events you want, depending on rb state...

something like

If RadioButton1.Checked = True Then RadioButton1.BackColor = Color.Aqua
Else RadioButton1.Checked = False then RadioButton1.BackColor = Color.Green
End If

http://www.onedevteam.com/

Radio buttons - change colour when selected, deselected and hovering

Sat, 19 Feb 2011 09:35:52 -0700

Sorry to be a pain but I was wondering if someone would be able to give me a few pointers on how to change the colour of a radio button when selected, deselected and hovered over. So far I've been using got focus, lost focus and mouse hover but I dont think thats quite right. My objective was to change the colour of radio boxes selected from different group boxes to enable the user to see what they have selected. Any help would be greatley appreciated.

Re: VBscript install printer driver

Wed, 05 Jan 2011 17:09:56 -0700

Looks like I solved my own problem. Here is my finished working code:

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colPrinters = objWMIService.ExecQuery _
    ("Select * From Win32_Printer Where DeviceID='ProDOC Printer'")
Set colPrintdrivers = objWMIService.ExecQuery _
	("Select * from Win32_PrinterDriver ")
	
flag = 0
'Look for laserjet driver in installed list
For Each objPrint in colPrintdrivers
	If objPrint.Name <> "HP Laserjet 4050 Series PCL6" Then
		flag = 1
	End if
Next
For Each objPrinter in colPrinters
	'set port to FILE:
    objPrinter.PortName = "FILE:"
    'install the printer driver if it wasn't found earlier
    If flag = 1 then
    	Set objDriver = objWMIService.Get("Win32_PrinterDriver")
		objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True
		objDriver.Name = "HP Laserjet 4050 Series PCL6"
		objDriver.SupportedPlatform = "Windows NT x86"
		objDriver.Version = "3"
		errResult = objDriver.AddPrinterDriver(objDriver)
	 End If
    objPrinter.driverName = "HP Laserjet 4050 Series PCL6"
    objPrinter.Put_
Next
'display results
WScript.Echo ErrResult

Re: VBscript install printer driver

Wed, 05 Jan 2011 17:02:34 -0700

Here's an update. I found out after tinkering that the driver name of my HP Laserjet 4050 PCL6 is wrong. I've tested this script with the laserjet 4 driver and that works. Does anyone know the proper name for the laserjet 4050 PCL6?

VBscript install printer driver

Tue, 04 Jan 2011 15:55:46 -0700

I couldn't find a VBscript forum so I hope this is ok.

I am making a script that is supposed to change the port of the printer to FILE: (that's not my problem). This script is also supposed to go through the list of installed printer drivers and if there is no HP Laserjet 4050 PCL6 installed then install the driver. If it is installed then just change the driver of a specific printer to the Laserjet 4050 PCL6. The problem I have is that I get an error 87 every time I run it. I know it has something to do with the printer install. If I comment that out the whole script runs fine. Any ideas?

Here is the code:

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colPrinters = objWMIService.ExecQuery _
    ("Select * From Win32_Printer Where DeviceID='ProDOC Printer'")
Set colPrintdrivers = objWMIService.ExecQuery _
	("Select * from Win32_PrinterDriver ")
	
flag = 0
'Look for laserjet driver in installed list
For Each objPrint in colPrintdrivers
	If objPrint.Name <> "HP Laserjet 4050 PCL6" Then
		flag = 1
	End if
Next
For Each objPrinter in colPrinters
	'set port to FILE:
    objPrinter.PortName = "FILE:"
    'install the printer driver if it wasn't found earlier
    If flag = 1 then
    	Set objDriver = objWMIService.Get("Win32_PrinterDriver")
		objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True
		objDriver.Name = "HP Laserjet 4050 PCL6"
		objDriver.SupportedPlatform = "Windows NT x86"
		objDriver.Version = "3"
		errResult = objDriver.AddPrinterDriver(objDriver)
	 End If
	'if the driver is installed, change the driver of the selected printer
    If flag = 0 Then
    	objPrinter.driverName = "HP Laserjet 4050 Series PCL6"
    End If
    objPrinter.Put_
Next
'display results
WScript.Echo ErrResult