VB.NET Forum RSS Feed

How do I create a setup program

Thu, 02 Jul 2009 04:17:58 -0700

I have created a small program using VB.NET and .XML database, it makes an .exe file but how do I create a setup program so that I can install my program on other system using installation program not just copying the .exe and the .xml file. I have Smart Install Maker installation software with me. Can anyone help me or point me a good site to get information regarding this.

Thanks

Zela

How do I create a setup program

Thu, 02 Jul 2009 04:07:27 -0700

I used VB before now I had make a simple database program using VB.NET and XML database, How do I create a setup program, anyone can throw a light on this or direct me to any website where I can find help.

Thanks

Zela

VB.NET Problem

Wed, 01 Jul 2009 22:36:31 -0700

I have made this one simple application, the .exe and the .xml run fine on some computer but on some computer it gives error messages like 'Application fail to initialized properly (0xc0000135)' gets display. what could be the problem, can someone please solve this problem for me. Any help/suggestion to solve my problem could be highly appreciated.

Thanks.

Zela

09'Famous Software ftp download 2009!!

Wed, 01 Jul 2009 22:35:26 -0700

09'Famous Software ftp download 2009!!
Anything you need,can check: ctrl + f
kela2018@rambler.ru
http://comm.tulumba.com/topicitem.asp?topic_id=2428

SOCET.SET.V5.3
Softice 6
Compuware Driverstudio v3.2
SOFTTECH_STRUDS_V2008
SOFTIMAGE XSI 5.0
SofTech Cadra v2006 plus
SofTech ToolDesigner v7.5
SOFiSTiK.SOFiCAD.v17.1
Sofistik v99
Softplan.V13.33
SOFTIMAGE.ALIENBRAIN.V8
SOFTIMAGE.ALIENBRAIN.V8.1
SOFTWARE.CRADLE.SC.TETRA.V7
SOFTWARE_SHELF_PRINT_MANAGER_PLUS_2008_v7.0.131.58
SOFTWARE_SHELF_PRINT_MANAGER_PLUS_2008_v7.0.131.61
SOKKIA.MAPSUITE.PLUS.V3.0.0.BUILD.304
SolarWinds2002 Engineers Edition v5.5
SolarWinds.Engineers.Edition.Toolset.v8.2
SolarWinds.Engineers.Toolset.v9.2
Solar Fire 5 + Jigsaw + Reports + Solar Maps
SOLIDCast v7.2.2
SolidVIEW.pro.2008.1
SolidThinking LT v5.0
SolidCAM 2008 R12 SP2.1
SolidCAM 2008 R12 SP3
SolidCAM v2009
SOLIDCast v7.1.1
SOLIDMECH.V4.1.FOR.SOLIDWORKS
3Ci.GeometryWorks.3D.For.SolidWorks.v3.2
3Ci.GW3Dfeatures.For.SolidWorks.v5
CircuitWorks 9 For SolidWorks SP2.1
ElectrodeWorks2008 SP1.2 for SW2009
Solidworks.COSMOSFloWorks.V2008.SP2.1
Solidworks.COSMOSM.V2008.SP2.1
SRAC.COSMOSM.v2.95
Solidworks.COSMOSMotion.V2008.SP2.1
Solidworks.COSMOSWorks.V2008.SP2.1
Solidworks.DWGEditor.V2008.SP2.1
Solidworks.EDrawings.Professional.V2008.SP2.1
SolidWorks Toolbox2006
HSMWorks 2009 R1.15092 for SolidWorks 2009
SheetWorks v7.7 For SolidWorks
SolidWorks.2007.Office.Premium.Final
SOLIDWORKS.V2009 & SOLIDWORKS.V2008.SP5.0
SOLIDWORKS.V2009.SP2.1 Win32/Win64
SolidWorks.v2009.SP3.0 Win32/Win64
SolidWorks.Teacher.Guide.2007-2008
Solidworks.Video.Tutorial.Volume.2
Solidworks.Video.Tutorial.Volume.3
SolutionWare GeoPath v4.1
Sonnet_Suite_PRO_v11.54
Sonnet Suite pro 12.52
Sony.Acid.Pro.v7.0.0.502
SpaceCAD.v3.1.0.320
SpaceCAD v4.0
SpaceClaim.v2009
Spartan.2006.v1.0.2
SPEED motor design 2007
SpectralWorks.AnalyzerPro.v2.2.0.1
SpectraLab 4.32.17
Spectrum Microcap 9.0 & 8.1.1
SPI sheetmetal 2008
SPI SheetMetalWorks v2009
SplitWorks 2008 sp0 & SplitWorks 2007 SP0
SplitWorks 2009 SP0 for solidworks
ElectrodeWorks_2008sp0
Spotmau.PowerSuite.v2008
Spring.Technologies.NCSimul.v8.4
SPSS.Amos.v16
SPSS.v16.0.2.& Update
SPSS_Clementine_v12.0
SPSS.Statistics.v17
SPSS.PASW.Statistics.17.0.2
Spyware Doctor 3.2.0.340
Spyglss v4.2
SPTGROUP.DrillBench.v5.0
SprutCAM_v4.0.1.30
SSA ERP LN v6.1
Sstusa.CAEPipe.v5.10J
sta4cad v12
STA4-CAD v12.1
Stahlschluessel 2004
StairCon v3.40 SP3
Stata_v10.0
StatPlus.2007.Professional.v4.9.4.1
STATSOFT.STATISTICA.ENTERPRISE.V8.0
Stat-Ease Design Expert v7
Staad Pro v2008.2 & V2007.2
STAAD_FOUNDATION_V4.0
Reiusa Staad foundation 2.0
STAGE Scenario v5.0
REIWORLD_STAAD_BEAM_V2.0
Steel Water Pipe Design Software 2007
Steinberg.Cubase.SX.v3.1.1.944
STEP.FOUR.WING.designer_v1.15.German
Strata Foto 3D 1.5
Strata_3D_CX_v5.6
Strata_Design_3D_CX_v6.0.1
Straus7 Release 2.1.1
StruCalc.v7.01.05
StyleDraper Pro v2.1
StruSoft.FEM-Design.v8.0
SuperERD.2002
Sybase.PowerDesigner.v15.0
Symphony.EDA.VHDL.Simili.Professional.v3.1.13
SynaptiCAD AllProducts v13.22b
SynaptiCAD.AllProducts.v13.23a
SynaptiCAD.Product.Suite.v14.00b
SynaptiCAD.Product.Suite.v14.01b
Synoposys_2001.08 linux
Synopsys.2001.08.Core.Synthesis. linux
Synopsys.Astro_vZ-2007.03-SP7 linux/LinuxAMD64
Synopsys Astro vZ-2007.03 SP9 linux/LinuxAMD64
Synopsys.Astro.vZ-2007.03.SP10 linux/LinuxAMD64
Synopsys Astro Tool vZ-2007.03 SP9 Linux/SUSE32
Synopsys.Astro-rail_vZ-2007.03-SP7 linux/LinuxAMD64/SparcOS5
Synopsys.Aurora_vX-2006.09
Synopsys.CoCentric.System.Studio_vX-2005.06-SP1
Synopsys.CoreSynthesis.v2002.05-1
Synopsys.coreTools.vX-2005.12. Linux
Synopsys CoreTools for IP Reuse Tools 2008.06.SP2
Synopsys cosmosscope vA-2007.12-SP1 & SP2 Win/Linux
Synopsys cosmosscope vB-2008.09-SP1 Linux/Linux64
Synopsys Design Compiler 2007.03 SP1 & SP2 Linux
Synopsys Design Compiler 2007.03 SP5 Linux
Synopsys Design Compiler 2008.09 Linux
synopsys_dc2000.5_nt
Synopsys Fammos TX 2007.03 Linux
Synopsys Formality 2008.03 Linux
Synopsys Formality 2008.09 SP1 Linux
Synopsys Formality.vB-2008.09 SP4 Linux
Synopsys Formality.vB-2008.09 SP5 Linux
Synopsys Formality vC-2009.06 Linux
SYNOPSYS.FPGA.COMPILER.II.v3.7.2
Synopsys FPGA.Compiler.II.v3.8
SYNOPSYS.FPGA.EXPRESS.XILINX.EDITION.V3.6.1
Synopsys Hercules vB-2008.09 Linux/LinuxAMD64
Synopsys hsimplus_vA-2008.03-SP1 win/linux
Synopsys hsimplus_vB-2008.09
Synopsys hsim_xa_vB 2008.09-SP2 linux
Synopsys hspice_vA-2008.03-SP1 win/linux
Synopsys hspice_vB-2008.09 win/linux
Synopsys hspice_vC-2009.03_ Win
Synopsys IC Compiler 2007.03 SP5 Linux
Synopsys IC Compiler 2007.12 SP1 Linux
Synopsys IC Compiler vB-2008.09 SP1 & SP4 Linux
Synopsys ICC vB-2008.09 SP5 Linux
Synopsys ICC vC-2009.06 Linux
Synopsys ISE TCAD v10.0 Linux 2CD
Synopsys.installer.2.0 & 1.8
Synopsys.Jupiter_vY-2006.06-SP1
Synopsys.Jupiterxt vZ-2007.03 SP9 Linux
Synopsys.Jupiterxt vZ-2007.03 SP10 Linux
Synopsys LEDA vB-2008.06 Linux/LinuxAMD64/SparcOS5
Synopsys Liberty NCX 2008.06 sp2 Linux
Synopsys Magellan VB-2008.09 Linux /LinuxAMD64
Synopsys Milkyway 2006.06.SP5 Linux
Synopsys Milkyway 2008.09 sp4 Linux
Synopsys.NanoSim.vB-2008.09. Linux/Sparc64/SparcOS5
Synopsys Nanotime 2007.12 SP2 Linux
Synopsys Ncx vB-2008.12 Linux
Synopsys PCI-X v2.0
Synopsys PP vV-2003.12 SP1 Linux
Synopsys PrimeTime 2006.12 SP2 Linux
Synopsys PrimeTime 2008.06 SP2 Linux
Synopsys PrimeTime 2008.06 SP3 linux/AMD64
Synopsys.PrimePower vY-2006.06-SP1 linux/SparcOS5
Synopsys Primerail vA-2007.12 Linux
Synopsys primerail vB-2008.12 SP1 LinuxAMD64
Synopsys PTS vB 2008.06 SP2 Linux
Synopsys PTS vC-2009.06 Linux
Synopsys Saber_Z-2007.03
Synopsys Saber_B-2008.09-SP1 Win
Synopsys SaberHDL Y-2006.06 Win
Synopsys Seismos LX 2006.12 SP1 Linux
Synopsys Sentaurus 2007.03 WIN
Synopsys sentaurus_vZ-2007.03 linux
Synopsys Simif vB-2008.09 Linux/Sparc64/SparcOS5
Synopsys Spice Explorer vA-2008.03 SP1 Linux
synopsys.Spice Explorer.vB-2008.09 WIN
Synopsys.ssd_vZ-2007.06
Synopsys ssd vA-2007.09 Win/Linux
synopsys.syn_vA-2007.12-SP2 linux
Synopsys.SYN.vZ-2007.03-SP1 linux
Synopsys syn vZ-2007.03 SP3 LinuxAMD64
Synopsys syn vZ-2007.03 SP5 linux
Synopsys syn vB-2008.09-SP2 linux/LinuxAMD64
Synopsys Syn vB-2008.09 SP5 SUSE32
Synopsys Syn vC-2009.06 Linux
Synopsys Synthesis Tools 2008.09 SP2 Linux/AMD64
SYNOPSYS_STAR-HSPICE_V2004.09 & V2003.09
Synopsys star-Rxct_vB-2008.06-SP1
Synopsys Star-RCXT 2008.06.SP2
synopsys.star-rcxt_2008 12-sp2 linux
SYNOPSYS_TCAD_2005.10 LINUX
Synopsys TCAD Sentaurus 2007.12 Linux
Synopsys Tcad sentaurus 2008.09 SP1 Linux
Synopsys Tcad Taurus Medici 2007.03 Linux
Synopsys TCAD Taurus Tsuprem4 2007.03 Linux
Synopsys.TetraMax.v2001.08. Linux
Synopsys TetraMAX 2007.03 Linux
Synopsys TetraMAX 2007.12 SP5 Linux
Synopsys TetraMax vB-2008.09 SP5 Linux
Synopsys TetraMAX Overlay with Synthesis 2007.12 SP2
Synopsys TX vA-2007.12 SP5 Linux
SYNOPSYS.VCSi.V6.0.1
SYNOPSYS_VCS_V6.1_ LINUX
Synopsys vcs_vY-2006.06
Synopsys vcs_v7.1.2
Synopsys VCS (verilog compiled simulator) 2006.06 Linux
Synopsys VCS 2008B 06 linux/amd64
Synopsys VCS vA-2008.09 Linux 2CD
Synopsys VCS vB-2008.12 Linux 2CD
Synopsys VCS vC-2009.06 linux
synopsys vera.linux.6.0.11
Synopsys vera_v6.3.10
synopsys vera_vZ-2006.12
Synopsys.Virtio.innovator-s_v2007.06
Synopsys Virtio VPAI 2.0 Platform
Synapse.Audio.Orion.v7.6.0.3
Synapse.Audio.Orion.v7.6.2
Synplicity 9.4_linux
Synplicity.Synplify.Premier.v9.6.2.with.Identify.3 .0.2
SYNPLICITY_CERTIFY_V6.4
Synplicity Identify131 win/linux
Synplicity SA3.0.4 win/linux
Synplify_9.2.2 & linux
Synplify_v9.4
Synplify DSP 3.6
Synplify FPGA v9.61 win/Linux
Synopsys Synplify FPGA 2009.03 win/Linux
Synplify FPGA C-200903 for Windows
Synplify_Premier_With_DP_V9.20
Sysdrill v3.0
Syser.Kernel.Debugger.v1.99.1900.1095
SYSNOISE v5.6
SYSTAT.v12.02
Systat.SigmaPlot.v11.1 & Systat.SigmaPlot.v11.0
SYSTAT.SigmaStat.v3.5
Sucosoft S40 Ver5.04
Sulcol.v1.0.35
SumTotal.ToolBook.Instructor.v8.90.96
Sun.Staroffice.Deluxe.v9.0
SUPCON JX-300X v3.12a
SuperPro.Designer.LT.v6.0
Super.Finsim.v9.3.58
SuperSpice v2.2.147
Surgery.of.the.Liver.and.Biliary.Tract.v3.1a
SurfOffline.v1.4.1.27
SurfaceWorks 6.9 For SolidWorks

Anything you need,can check: ctrl + f
kela2018@rambler.ru

VB.NET and .XML queries

Tue, 30 Jun 2009 23:30:53 -0700

I am shifting into vb.net and use .xml for the database, need to know how reliable .xml database is, is it faster, reliable and better than msaccess table. Can it be protect like msaccess ? what the storage capacity of .xml? can anyone point me the advantages and ease of use. Any suggestion will be highly appreciated.

Thanks.

Zela

For the love of God, someone help me

Sun, 28 Jun 2009 11:06:57 -0700

I'm at my wit's end folks. I've posted on experts exchange, microsoft developer center, and others searching for an answer to this -- no one has one. Regardless, I'll give it a try here.

Does anyone know how to send/receive "messages" from one terminal server user to another terminal server user (all users are on the same server, and therefore, the same IP address) using VB.NET? I thought about using UPDClient connections, but you can't have more than one user listening on the same port. Any ideas?

I'm open to other suggestions if you can think of any alternatives. PLEASE HELP ME.

updating datagrid to dataset to sqldatabase

Thu, 25 Jun 2009 22:40:09 -0700

how to update datagrid from which dataset has to be updated that has to be reflected in sqldatabase

How to define C++ HRESULT

Thu, 25 Jun 2009 03:02:32 -0700

I am making an application in VB.Net in which I required to use HRESULT as I got C++ COM documentation, so is there any alternate to define hRule and HRESULT in VB.Net
Please help.

Please convert C++ COM code to Vb

Thu, 25 Jun 2009 02:59:35 -0700

Please help me in converting C++ COM code to VB.Net

<GRAMMAR LANGID="409">
<RULE NAME="E-MAIL" TOPLEVEL="INACTIVE">
<PHRASE>send new e-mail to</P>
<RULEREF NAME="ADDRESS_BOOK" PROPNAME="NAME"/>
</RULE>
<RULE NAME="ADDRESS_BOOK" DYNAMIC="TRUE">
<PHRASE>placeholder</PHRASE>
</RULE>
</GRAMMAR>

The source code to manipulate the dynamic rule, "ADDRESS_BOOK" follows:

HRESULT hr = S_OK;

// create a new grammar object
hr = cpRecoContext->CreateGrammar(GRAM_ID, &cpRecoGrammar);
// Check hr

// deactivate the grammar to prevent premature recognitions to an "under-construction" grammar
hr = cpRecoGrammar->SetGrammarState(SPGS_DISABLED);
// Check hr

// load the email grammar dynamically, so changes can be made at runtime
hr = cpRecoGrammar->LoadCmdFromFile(L"email.xml", SPLO_DYNAMIC);
// Check hr

SPSTATEHANDLE hRule;

// first retrieve the dynamic rule ADDRESS_BOOK
hr = cpRecoGrammar->GetRule(L"ADDRESS_BOOK", NULL, SPRAF_Dynamic, FALSE, &hRule);
// Check hr

// clear the placeholder text, and everything else in the dynamic ADDRESS_BOOK rule
hr = cpRecoGrammar->ClearRule(hRule);
// Check hr

// add the real address book (e.g. "Frank Lee", "self", "SAPI beta", etc.).
// Note that ISpRecoGrammar inherits from ISpGrammarBuilder,
// so application gets the grammar compiler and ::AddWordTransition for free!

hr = cpRecoGrammar->AddWordTransition(hRule, NULL, L"Frank Lee", NULL, SPWT_LEXICAL, 1, NULL);
// Check hr
hr = cpRecoGrammar->AddWordTransition(hRule, NULL, L"self", NULL, SPWT_LEXICAL, 1, NULL);
// Check hr
hr = cpRecoGrammar->AddWordTransition(hRule, NULL, L"SAPI beta", NULL, SPWT_LEXICAL, 1, NULL);
// Check hr
// ... add rest of address book

// commit the grammar changes, which updates the grammar inside SAPI,
// and notifies the SR Engine about the rule change (i.e. "ADDRESS_BOOK"
hr = cpRecoGrammar->Commit(NULL);
// Check hr

// activate the grammar since "construction" is finished,
// and ready for receiving recognitions
hr = cpRecoGrammar->SetGrammarState(SPGS_ENABLED);
// Check hr

Problem Installing Visual Web Developer

Tue, 23 Jun 2009 11:32:29 -0700

I am getting ready to learn ASP.NET and am having a problem installing Visual Web Developer 2008 Express Edition.

When I try to install the program I get a window stating that it has encountered a problem during setup. The error signature is:

EventType : visualstudio8setup P1 : 5647 P2 : 9.0.30729.01_orcas_x86_net
P3 : msi P4 : inst P5 : f P6 : nomsi P7 : gencomp320
P8 : 1603 P9 : - P10 : -

Of course, this means nothing to me, and I have no idea what to do next. I would appreciate any thoughts as to how I can get this thing installed so that I can begin learning.

Thanks -

george

VB to VB.NET

Tue, 23 Jun 2009 04:25:39 -0700

Well I have created a software using VB and msaccess, now I have this VB.NET2003 version and would like my current project to .NET version, would it be possible to do that. Can .XML data be change into msaccess, if it is possible how to do that.

Would be grateful if anyone could help

Thanks.

Zela

Simple Data Binding failing

Tue, 23 Jun 2009 00:54:12 -0700

here is my scenario. I am using VB.NET 2008 and SQL Server 2000 to develop an Inventory system.

I have a simple table with 2 fields
1 - SupplierCode VARCHAR (Primary Key)
2 - SupplierName VARCHAR

My project has a dataset with tblSuppliers as one of the data tables.

I want to place a combo box on a form with its value member as supplier code and display member as supplier Name. When I try to set the displaymember property of the combo box, all i can see is the supplierCode ( supplierName cant be seen). Any idea why?

row index

Mon, 22 Jun 2009 17:54:05 -0700

how can v find the index of a row in vb.net 2003. I guess dere's a method called "indexof" in vb.net 2005 n higher versions but how 2 do it in vb.net 2003, sum1 pls tell me.

Urgent Update statement

Mon, 22 Jun 2009 12:18:04 -0700

Hello every1 i got a problem to wirte my update statement.
Here's the code:

Private Sub cmdUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUpdate.Click

        Dim com As New OleDbCommand
        com.Connection = con
        com.CommandText = "update Watches set WatchBrand='" & txtWatchBrand.Text & "',WatchModel='" & txtWatchModel.Text & _
                                "',Manufacturer='" & txtManufacturer.Text & "',CountryOfOrigin='" & txtCountryOfOrigin.Text & "',Type='" & _
                                cmbType.Text & "',DescriptionOfWatch='" & txtDescription.Text & _
                                ",Price=" & txtPrice.Text & ",PriceInclVat=" & txtPriceInclVat.Text & " Where WatchID='" & cmbWatchId.Text
        com.ExecuteNonQuery()
        MsgBox("Record Updated")
        Call populate()

    End Sub

Please help as soon as possible, it very important, please help

Saving User Settings on Windows Mobile App

Sun, 21 Jun 2009 16:43:10 -0700

In a standard VB.Net Windows formed project you can use the My.Settings method to save user / application settings. However this isn't the case with a VB.Net Windows *Mobile* formed project.
As I understand it, the .net Compact Framework does not support the My.Settings method, and I need an alternative solution to save user configured values.
Please, can anyone suggest a method of saving user settings for a VB.Net application running on Windows Mobile (> v5).

Thanks and regards,
David

Help regarding devlopment of Ground control software for a uav

Sun, 21 Jun 2009 14:23:41 -0700

Hi everyone, im working on the GCS part of our autopilot project. I have developed it in visual basic.net 2005 , what the software basically does is that it receives the values byte by byte, convert them into type double and then displays it on the gauges attached in the design window, im attaching my code below, can someone please tell me if whatever i have done here is correct ?? I would be really grateful :) thank you (also anyone knows if there is an opensource gcs availible that can receive the serial states serially).

VB.NET CODE:

'Enlisting the classes that could be inherited by this class'

Imports System
Imports System.Drawing
Imports System.Windows.Forms
'Class for the main GCS form

Public Class Form1
Inherits System.Windows.Forms.Form 'Inheritance
'----------------Initializations----------------------------------------'
Dim WithEvents serialportx As New System.IO.Ports.SerialPort 'Declaring serial port form'

Public Delegate Sub throttle()
Public Delegate Sub airspeed()
Public Delegate Sub altitude()
Public Delegate Sub orientation()
Public Delegate Sub direction()
Public Delegate Sub direction2()
Public Delegate Sub rollorientation()
Public Delegate Sub latitude()
Public Delegate Sub longitude()
Dim incomingspeed As Boolean
Dim incomingheight As Boolean
Dim incomingangle As Boolean
Dim incomingposition As Boolean
Dim incomingrollangle As Boolean
Dim incominglatitude As Boolean
Dim incominglongitude As Boolean
Dim receive(,) As Byte
Dim singlearray() As Single
Dim temp() As Byte

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'--------Loading Serial Port Form--------
If serialportx.IsOpen Then
serialportx.Close()
End If
Try
With serialportx 'setting serial comm. parameters
.PortName = "COM2"
.BaudRate = 115200
.Parity = IO.Ports.Parity.None
.DataBits = 8
.StopBits = IO.Ports.StopBits.One
' .ReadBufferSize = 4

End With
serialportx.Open() 'opening serial port
Catch ex As Exception
MsgBox(ex.ToString)

End Try
'------------------------------------------

'--Adding Gauges & Map Controls

Me.Controls.Add(airspeedx)
'Me.Controls.Add(mmap1)
Me.Controls.Add(orientationx)
Me.Controls.Add(directionx)
Me.Controls.Add(altitudex)
'------------------------------------------

End Sub

Public Sub SerialPortX_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles serialportx.DataReceived
Dim length As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer

If serialportx.BytesToRead > 0 Then

length = receive.Length()
For i = 0 To 14
For j = 0 To 3

receive(i, j) = serialportx.ReadByte()
temp(j + i * 4) = receive(i, j)
Next
Next
If temp(0) = 102 And temp(1) = 105 And temp(2) = 105 And temp(3) = 105 Then
For k = 0 To 14
singlearray(k) = BitConverter.ToDouble(temp, 4 * k)
Next

End If

End If

altitudex.Invoke(New altitude(AddressOf updatealtitude), New Object() {})
airspeedx.Invoke(New airspeed(AddressOf updateairspeed), New Object() {})
orientationx.Invoke(New orientation(AddressOf updatepitch), New Object() {})
orientationx.Invoke(New rollorientation(AddressOf updateroll), New Object() {})
altitudex.Invoke(New altitude(AddressOf updatealtitude), New Object() {})

End Sub

Public Sub updatealtitude()
With altitudex
.Altitude = singlearray(5)
.AltBarometer = singlearray(5) / 1000
End With
End Sub
Public Sub updateairspeed()
With airspeedx
.Airspeed = singlearray(1)
End With
End Sub
Public Sub updatepitch()
With orientationx
.AHPitch = singlearray(4)
End With
End Sub
Public Sub updateposition()
With directionx
.HeadingIndicator = singlearray(3)

End With
End Sub
' Public Sub updateposition2()
'With mmap1
'.ObjectID = 0
' .ObjectOrientation = receive(4)
' End With
' End Sub
Public Sub updateroll()
With orientationx
.AHRoll = singlearray(9)

End With
End Sub
'Public Sub updatelatitude()
'With mmap1
' .ObjectID = 0
' .ObjectX = receive(6)
' End With
' End Sub
' Public Sub updatelongitude()
'With mmap1
' .ObjectID = 0
' .ObjectY = receive(7)
'End With
' End Sub

End Class

NewBE

Fri, 19 Jun 2009 13:07:13 -0700

for some reason this code will not process the Else statement if the number entered it over 1500. Any help would be appreciated.

Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
Dim sales As Decimal
Dim total As Double = 0

If (sales <= 1500) Then
total = (txtSales.Text * 0.02)
lblCommission.Text = total.ToString("C")
Else
total = (txtSales.Text * 2)
lblCommission.Text = total.ToString("C")

End If

End Sub

search an access db in vb.net without sql

Fri, 19 Jun 2009 09:46:20 -0700

i hv an access database "employee" having table "table1". i take a variable a, now whn i enter a=4, i want d record where "id" column consists 4 shud get displayed......this is d code:

Dim a AsInteger
Dim b AsInteger
Dim c AsInteger
Dim d AsInteger
b = 0
d = 1
a = InputBox("abc", "xyz")
Me.BindingContext(DataSet11, "table1").Position = 0
c = Val(DataSet11.Table1.Count)
DoWhile d <= c
If Fix(DataSet11.Table1.idColumn) <> a Then (-------------PROBLEM HERE--------------)
Me.BindingContext(DataSet11, "table1").Position = Me.BindingContext(DataSet11, "table1").Position + 1
Else
b = 1
ExitDo
EndIf
d = d + 1
Loop
If b = 0 Then
MsgBox("Employee number does not exist")
EndIf

wht shud i put in d braces of fix function,do i even need to use any function.

following is an equivalent statement in vb6 :

if ado.recordset.fields(0) <> a then

ADO.NET

Thu, 11 Jun 2009 00:03:45 -0700

Please describe me, how to check that how much load can an application handle of users?

VB.NET stepper motor control

Sun, 07 Jun 2009 16:59:46 -0700

Anyone out there who can email small, easy code for running a stepper motor with inpout32.dll for visual basic.net version 5 or 8.
Need some info as having no luck with a simple control of left , right, and stop and spreed control through the LPT port. andrew.hume@apn.co.nz

Crystal reports and VB.net with Access

Sun, 07 Jun 2009 10:24:58 -0700

Hi all,

i am a beginner with vb.net..can u help me in creating crystal reports from datas Stored in Ms access 2003 using VB.net... please provide me steps and code....

Porting VSTO Excel program from Office 07 to 03

Wed, 03 Jun 2009 09:22:37 -0700

Hi all,

I made an application modifying Excel files referencing v12 COM component with Office 2007 and now I want to make a compatiable version for Office 2003.

I removed the v12 reference to Office & Excel, copied to another PC (with Office 2003) and referenced v11 Excel & Office COM objects.

Problem is it tells me that Microsoft.Office.Interop.Excel.Range isnt a valid reference anymore! Is there anything else I need to change to make this compatiable?

Thanks for any help,
Alex Webb

SQL SERVER 2005 -Database access - No. of users?

Mon, 01 Jun 2009 02:08:57 -0700

Hi,

I found from my sql-database, only 4-users can access at a time.
But with my LAN, Network near by 20 of my users has to access the database.

So how to change the permission, but from my program, all are using the same connection.[ie same login]

So any better ideas for me?

2 dimensional arrays

Sun, 31 May 2009 20:22:12 -0700

hi

i am a total beginner learning vb.net. i am totally stuck on my two dimensional array excercises. it requires the user the fill out a textbox with the item name, then put 5 figures in 5 other textboxes which are the sales figures for monday to friday and then total those figures up for each item and the sales for all ten items together. the items have to be limited to 10.

i have spent days on this and cant seem to get anywhere.

Please can someone help me that would be very much appreciated
thanks
r

Attachment: Microsoft Word - Document1.pdf (19240 bytes | downloaded 24 times)

Date & Database & Calculation

Sun, 31 May 2009 16:43:41 -0700

I have a real problem for the last 2 days...

I have a date stored in my MS Access DB as "ShortDate" (dd/MM/yyyy).

I need to read this date and compare it with "current date - X days". Where X days is a Value saved by the user (into another form 5, 30, 60 days... etc).

In the short way:

If "Current Date - 55 Days" it's equal OR in that interval of "DataBase Date" then MessageBox.Show("Warning!!! Expiring in {X} Days")

ElseIf "Current Date - 55 Days" it's greater than "DataBase Date" MessageBox.Show("It's expired.")

EndIf

For the moment i use this peice of code but it'n not worikg...

Dim data_curenta As Date = Date.Now
Dim data_curenta_formatata As Date = data_curenta.ToString("dd/MM/yyyy")
Public Shared valabilitate_cu, valabilitate_prcu, valabilitate_acd, valabilitate_pracd As String
Public Shared data_expirare_bzd_prcu_aditional As Date

..................................


   Private Sub verificare_valabilitate_prcu()

        Dim Conexiune As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & System.Windows.Forms.Application.StartupPath & "\urb.mdb;Jet OLEDB:Database Password=XXXXXXX"
        Dim cn As New OleDb.OleDbConnection(Conexiune)
        Dim sql As String = "SELECT prelungire_data_expirare FROM cu WHERE prelungire_activa='1' AND prelungire_folosita='0'"
        Dim cmd As New OleDb.OleDbCommand(sql, cn)
        Dim dr As OleDb.OleDbDataReader

        Try

            cn.Open()
            dr = cmd.ExecuteReader

            While (dr.Read)

                Dim data_expirare_bzd_prcu As Date = dr("prelungire_data_expirare")
                Dim data_expirare_bzd_prcu_formatata As Date = data_expirare_bzd_prcu.ToString("dd/MM/yyyy")
                data_expirare_bzd_prcu_aditional = data_expirare_bzd_prcu_formatata.AddDays(-valabilitate_prcu - 1).ToString("dd/MM/yyyy")

            End While

            cn.Close()

        Catch ex As Exception

            Me.TopMost = False
            frm_eroare.lbl_numar_eroare.Text = Err.Number
            frm_eroare.txt_detalii_eroare.Text = Me.Text & " (" & Me.Name & ")" & vbCrLf & vbCrLf & ex.Message & ex.StackTrace & " (" & Err.Source & "-" & Err.LastDllError & "-" & Err.Erl & ")"
            frm_eroare.Show()

        End Try

        If (cn.State And ConnectionState.Open) <> 0 Then

            cn.Close()

        End If

        '#####################################

        Me.Cursor = Cursors.WaitCursor

        Dim conn As OleDb.OleDbConnection
        Dim data As DataTable
        Dim Adapter As OleDb.OleDbDataAdapter
        Dim CommandBuild As OleDb.OleDbCommandBuilder

        Dim connStr As String
        connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & System.Windows.Forms.Application.StartupPath & "\urb.mdb;Jet OLEDB:Database Password=XXXXXXX"
        conn = New OleDb.OleDbConnection(connStr)

        Try
            conn.Open()

            data = New DataTable
            Adapter = New OleDb.OleDbDataAdapter("SELECT numar_certificat_2, data_certificat_2, nume_solicitant, prelungire_data_expirare FROM cu WHERE prelungire_data_expirare < " & data_expirare_bzd_prcu_aditional & " AND prelungire_activa='1' AND prelungire_folosita='0'".ToString, conn)
            CommandBuild = New OleDb.OleDbCommandBuilder(Adapter)

            Adapter.Fill(data)

            Me.dgv_prcu.DataSource = data

            Me.dgv_prcu.Columns(0).Width = 100
            Me.dgv_prcu.Columns(1).Width = 100
            Me.dgv_prcu.Columns(2).Width = 250
            Me.dgv_prcu.Columns(3).Width = 100

            Me.dgv_prcu.Columns(0).HeaderText = "Nr. document"
            Me.dgv_prcu.Columns(1).HeaderText = "Din data"
            Me.dgv_prcu.Columns(2).HeaderText = "Pe numele de"
            Me.dgv_prcu.Columns(3).HeaderText = "Expira la"

            Me.Cursor = Cursors.Default

            conn.Close()

        Catch ex As OleDb.OleDbException
            MessageBox.Show("Eroare: " + ex.Message & "", "Eroare", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Me.Cursor = Cursors.Default
        End Try

    End Sub

Thanks in advice!