Visual Basic

9-May-17 14:28

GOOD DAY FRIENDS! Please, is it possible to detect when the pc or laptop position changes using visual basic? Take for instance, if pc was initially located at position A and later moved to position B; then, the application should be able to get the position's changes.

In a simplified term, assuming pc was in Lat. 30 and Log. 40, if position changes, then the lat. and log. values should also change.

Finally found what I want but it is in javascript.
Can anyone convert this to a desktop application in vb.

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
    <title></title>
</head>
<body>
    <script type="text/javascript" src="http://maps.googleapis.com/maps/api/js?sensor=false"></script>
    <script type="text/javascript">
        window.onload = function () {
            var mapOptions = {
                center: new google.maps.LatLng(18.9300, 72.8200),
                zoom: 14,
                mapTypeId: google.maps.MapTypeId.ROADMAP
            };
            var infoWindow = new google.maps.InfoWindow();
            var latlngbounds = new google.maps.LatLngBounds();
            var map = new google.maps.Map(document.getElementById("dvMap"), mapOptions);
            google.maps.event.addListener(map, 'click', function (e) {
                alert("Latitude: " + e.latLng.lat() + "\r\nLongitude: " + e.latLng.lng());
            });
        }
    </script>
    <div id="dvMap" style="width: 500px; height: 500px">
    </div>
</body>
</html>

Thanks in advance!

modified 12-May-17 15:12pm.

Chris Quinn9-May-17 22:28

Chris Quinn

9-May-17 22:28

If the machine has inbuilt GPS hardware then yes, probably. If not, you may be able to get a rough location from wifi connection data. Accuracy will be poor though.

=========================================================
I'm an optoholic - my glass is always half full of vodka.
=========================================================

Otekpo Emmanuel10-May-17 7:12

10-May-17 7:12

Thanks for your response. How can I achieve this your suggestion please?

Solved: GET PC POSITION IN VISUAL BASIC

Chris Quinn10-May-17 22:47

Chris Quinn

10-May-17 22:47

Investigate the Google Maps API

=========================================================
I'm an optoholic - my glass is always half full of vodka.
=========================================================

Otekpo Emmanuel12-May-17 9:50

12-May-17 9:50

Thank you so much for your time of response. Please, I tried reading about google's map api but not getting the flow. It only shows the country as a whole. But what am looking for is, assuming a pc position was lat 30.001 and log. 40.687 and was later shifted from initial position to another. I want the software to update it self with the pc current position. Please help. Once again, thanks.

modified 4-Jul-17 1:26am.

Richard MacCutchan12-May-17 14:18

12-May-17 14:18

And how is that software supposed to know when the PC has been moved, or to figure out exactly where it is on the surface of the earth? As has already been mentioned, unless the PC contains a GPS receiver then you cannot do it.

Otekpo Emmanuel13-May-17 9:20

13-May-17 9:20

The script posted by me connects to Google Map API and retrieves someone current lat. and log. but it is written in JavaScript.Looking for a way to convert it to VB (VB 6.0 or VB.Net). Any help please.

Dave Kreskowiak13-May-17 9:39

Dave Kreskowiak

13-May-17 9:39

OK, but Google Maps API does't magically know with any REAL accuracy where the machine is UNLESS IT HAS A GPS RECEIVER. Without that YOU have to tell Google where the machine is. If you rely on any other detection machanism, like Geomapping an IP, it can be off by dozens of miles. Right now, if I don't tell Google explicitly, it'll guess that my machine is 36 miles from where it really is.

System.ItDidntWorkException: Something didn't work as expected.

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

Otekpo Emmanuel3-Jul-17 20:20

3-Jul-17 20:20

Thanks for your vital information!

Richard MacCutchan13-May-17 21:53

13-May-17 21:53

How many times do we need to explain: if you do not have a GPS receiver in the PC no software can find its location. Google maps will only tell you the location of the IP address of your broadband provider. In my case that is some 70 miles from where I live.

Afzaal Ahmad Zeeshan10-May-17 6:19

Afzaal Ahmad Zeeshan

10-May-17 6:19

There are many ways that you can do this, first and foremost has been shared with you through the use of GPS hardware. That will detect the location, and you can then write the program to get the location and show it or process it.

However, if you need to get the location of a machine inside the office or a building, you can also possibly use the network interfaces, to determine where the machine is at the moment. Note that, this is very bad in cases where you need to pinpoint location, but changes can be detected easily based on the network or the endpoint from where the machine is communication.

And as for Visual Basic, which one? The VB 6? I am unsure, whether you will be able find any solution for that, C++ or C# or Java might do some help in these cases. Even Vb.NET would require some help from C# world.

Have a look here, monitoring - Is it possible to find a computer's physical location in a room? - Server Fault

The sh*t I complain about
It's like there ain't a cloud in the sky and it's raining out - Eminem
~! Firewall !~

Otekpo Emmanuel3-Jul-17 20:23

How to return a array of structure in the function?

3-Jul-17 20:23

Thanks for your vital information!

Member 130177309-May-17 4:55

Member 13017730

9-May-17 4:55

Here is my code, I am trying to return EmpDetails.

 Structure Employee
        Dim EName As String
        Dim ESalary As String
    End Structure
    Dim EmpDetails() As Employee

Function EMPInfo(ByVal names As String()) As String()
Dim i AS Integer
Select Case nameses(i)
                Case "ABC"
                    EmpDetails(i - 1)EName = "Dave"
                    EmpDetails(i - 1).ESalary = "30,000"
                Case "SPE"
                    EmpDetails(i - 1).EName = "Eva"
                    EmpDetails(i - 1).ESalary = "40,000"
                Case "P,SIGM"
                    EmpDetails(i - 1).EName = "Steve"
                    EmpDetails(i - 1).ESalary = "70,000"
  End Select
        Next
Return EmpDetails

I am getting the error for the return EmpDetails

Error: Value of type '1-dimensional array cannot be converted to '1-dimensional array of String'

What I am doing wrong in here.
Thanks in advance.

Re: How to return a array of structure in the function?

David Mujica9-May-17 5:42

David Mujica

9-May-17 5:42

Shouldn't the function return Employee() ?

Try it.

Re: How to return a array of structure in the function?

Member 130177309-May-17 5:54

Member 13017730

9-May-17 5:54

I tried to return Employee(), But I still get error saying: Employee is a type cannot be used as an expression.

Re: How to return a array of structure in the function?

Richard MacCutchan9-May-17 5:55

Re: How to return a array of structure in the function?

9-May-17 5:55

As David points out above, your function is defined to take an array of Strings and return a String. But inside it you are trying to manipulate an Employee structure. You also have an index which is never initialised so that will most likely crash your code. And even if it is initialised you are subtracting 1 from it which may also cause a crash.

Member 130177309-May-17 6:11

Member 13017730

9-May-17 6:11

Appreciate your suggestion. I am adding some new feature to the existing code, I have not typed full code in here and I don't want to change any existing code.
I just highlighted the concept(code) where I am going wrong. Is anything wrong in function declaration?

Re: How to return a array of structure in the function?

Richard MacCutchan9-May-17 6:20