Hi
I am trying to re-write some of the example code that Agilent gives for
VB to VB.Net.
In .Net I keep getting the error 'cannot change the number of
dimensions of an array'.
I have paste the module I am having an issue with. Can anyone help!
Thanks
WayneL
Module Module1
' Add the files visa32.bas and vpptype.bas, located in the
' directory vxipnp\Win95\in clude, to your Visual Basic
' project. Add the example code as a .bas module, and
' call main_34970A.
'UPGRADE_WARNIN G: Application will terminate when Sub Main() finishes.
Click for more:
'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?ke yword="vbup1047 "'
Public Sub Main()
Dim numberChannels As Short
Dim numberSweeps As Short
Dim Sweep As Short
Dim Readings() As Double
Dim Units() As String
Dim ChanNumb() As Short
Dim Time() As Date
Dim VISAaddress As String
Dim status As Integer
Dim viDefaultRM As Integer
Dim Instrument As Integer
Dim i As Short
Dim Channel As String
' Declair all the HFPS currents
Dim I_VADREF As Double
Dim I_VCC As Double
Dim I_VREF1 As Double
Dim I_VREF2 As Double
Dim I_VREF3 As Double
Dim I_VREF4 As Double
Dim I_VREF5 As Double
Dim I_VKAM5V As Double
Dim I_VKAML2 As Double
Dim I_VCCL As Double
Dim I_VCCL2 As Double
Dim I_BUCKL As Double
Dim I_BUCKH As Double
Dim I_BAT As Double
' Declair all the HFPS voltages
Dim V_VADREF As Double
Dim V_VCC As Double
Dim V_VREF1 As Double
Dim V_VREF2 As Double
Dim V_VREF3 As Double
Dim V_VREF4 As Double
Dim V_VREF5 As Double
Dim V_VKAM5V As Double
Dim V_VKAML2 As Double
Dim V_VCCL As Double
Dim V_VCCL2 As Double
Dim V_BUCKL As Double
Dim V_BUCKH As Double
Dim V_BAT As Double
HFPS.DefInstanc e.Show()
VISAaddress = "9"
status = viOpenDefaultRM (viDefaultRM)
status = viOpen(viDefaul tRM, "GPIB::" & VISAaddress & "::INSTR", 0,
2500, Instrument)
If status < 0 Then
MsgBox("Unable to open Port")
End
End If
Configure_34970 A(Instrument)
SetScan_34970A( Instrument, numberSweeps, numberChannels)
############### ############### ############### ############### ####
Problem 'cannot change the number of dimensions of an array'
Starts here!
############### ############### ############### ############### ####
' Size arrays depending on channel and sweep count
ReDim Readings(number Sweeps, numberChannels)
ReDim Units(numberSwe eps, numberChannels)
ReDim ChanNumb(number Sweeps, numberChannels)
ReDim Time(numberSwee ps, numberChannels)
############### ############### ############### ############### ####
' Get data one sweep at a time
For Sweep = 1 To numberSweeps
ReadData_34970A (Instrument, Sweep, numberChannels, Readings, Units,
ChanNumb, Time)
Next Sweep
status = viClose(Instrum ent)
status = viClose(viDefau ltRM)
' Get the current reading from the datalogger
' Reading (Sweep number, channel)
I_VADREF = Readings(1, 1)
I_VCC = Readings(1, 2)
I_VREF1 = Readings(1, 3)
I_VREF2 = Readings(1, 4)
I_VREF3 = Readings(1, 5)
I_VREF4 = Readings(1, 6)
I_VREF5 = Readings(1, 7)
I_VKAM5V = Readings(1, 8)
I_VKAML2 = Readings(1, 9)
I_VCCL = Readings(1, 10)
I_VCCL2 = Readings(1, 11)
I_BUCKL = Readings(1, 12)
I_BUCKH = Readings(1, 13)
I_BAT = Readings(1, 14)
HFPS.DefInstanc e.T1CH1.Text = CStr(I_VADREF)
HFPS.DefInstanc e.T1CH2.Text = CStr(I_VCC)
HFPS.DefInstanc e.T1CH3.Text = CStr(I_VREF1)
HFPS.DefInstanc e.T1CH4.Text = CStr(I_VREF2)
HFPS.DefInstanc e.T1CH5.Text = CStr(I_VREF3)
HFPS.DefInstanc e.T1CH6.Text = CStr(I_VREF4)
HFPS.DefInstanc e.T1CH7.Text = CStr(I_VREF5)
HFPS.DefInstanc e.T1CH8.Text = CStr(I_VKAM5V)
HFPS.DefInstanc e.T1CH9.Text = CStr(I_VKAML2)
HFPS.DefInstanc e.T1CH10.Text = CStr(I_VCCL)
HFPS.DefInstanc e.T1CH11.Text = CStr(I_VCCL2)
HFPS.DefInstanc e.T1CH12.Text = CStr(I_BUCKL)
HFPS.DefInstanc e.T1CH13.Text = CStr(I_BUCKH)
HFPS.DefInstanc e.T1CH14.Text = CStr(I_BAT)
HFPS.DefInstanc e.Show()
End Sub
Sub Configure_34970 A(ByRef Instrument As Integer)
Dim SCPIcmd As String
Dim actual As Integer
Dim Channel As String
Dim i As Short
Dim Slot As Short
' Set instrument to power on state
SCPIcmd = "*RST"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1, actual)
' Configure all channels in channel list
' Configure all channels in channel list
' Slot =3 with all channels set to resistance Auto 6 ½ digits
Slot = 3
For i = 1 To 20
Channel = VB6.Format(CStr (i), "00")
SCPIcmd = "Conf:Res Auto,(@" & CStr(Slot) & CStr(Channel) &
");:Res:NPL C 0.02,(@" & CStr(Slot) & CStr(Channel) & ")"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1,
actual)
Next i
End Sub
Sub SetScan_34970A( ByRef Instrument As Integer, ByRef numberSweeps As
Short, ByRef numberChannels As Short)
Dim SCPIcmd As String
Dim replyString As New VB6.FixedLength String(256)
Dim actual As Integer
numberSweeps = 1
' Include the Measurement units with reading
SCPIcmd = "Format:Reading :Unit On"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1, actual)
' Include the channel with reading
SCPIcmd = "Format:Reading :Channel On"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1, actual)
' Include the time with reading
SCPIcmd = "Format:Reading :Time On"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1, actual)
' Set up the scan List
SCPIcmd = "Route:Scan
(@301,302,303,3 04,305,306,307, 308,309,310,311 ,312,313,314,31 5,316,317,318,3 19,320)"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1, actual)
' Configure the trigger source
SCPIcmd = "Trigger:So urce Timer"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1, actual)
' Set the time between scans
SCPIcmd = "Trigger:Ti mer 0.01"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1, actual)
' Set the number of scans
SCPIcmd = "Trigger:Co unt " & Str(numberSweep s)
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1, actual)
' Read the number of channels on scan list
SCPIcmd = "Route:Scan:Siz e?"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1, actual)
Call viRead(Instrume nt, replyString.Val ue, 255, actual)
numberChannels = Val(replyString .Value)
' Arm the trigger with initiate
SCPIcmd = "Initiate"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1, actual)
End Sub
Sub ReadData_34970A (ByRef Instrument As Integer, ByRef Sweeps As
Short, ByRef numberChannels As Short, ByRef Readings(,) As Double,
ByRef Units(,) As String, ByRef ChanNumb(,) As Short, ByRef Time(,) As
Date)
Dim Points As Short
Dim Channel As Short
Dim SCPIcmd As String
Dim actual As Integer
Dim replyString As New VB6.FixedLength String(256)
' Get the data one channel at a time
For Channel = 1 To numberChannels
' Wait for reading in instrument memory
Do
SCPIcmd = "Data:Point s?"
Call viWrite(Instrum ent, SCPIcmd & Chr(10),
Len(SCPIcmd) + 1, actual)
Call viRead(Instrume nt, replyString.Val ue, 255, actual)
Points = CShort(Left(rep lyString.Value, actual))
Loop Until Points >= 1
' Get one channel of data from instrument
SCPIcmd = "Data:Remov e? 1"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) +
1, actual)
Call viRead(Instrume nt, replyString.Val ue, 255, actual)
' Remove the reading data from string
Readings(Sweeps , Channel) = CDbl(Mid(replyS tring.Value, 1,
15))
' Remove the units data from string
Units(Sweeps, Channel) = Mid(replyString .Value, 17, 3)
' Remove the time data from string
Time(Sweeps, Channel) =
System.DateTime .FromOADate(Val (Mid(replyStrin g.Value, 21, 12)) / 86400)
' Remove the channel number from string
ChanNumb(Sweeps , Channel) = Val(Mid(replySt ring.Value, 34,
3))
Next Channel
End Sub
End Module
2  1908 
Hi,
You are trying to make 1 dimension array 2 dimensions that is
why you are getting the error. Try this instead
Dim readings(,) As Double
ReDim readings(10, 10)
Ken
-----------------------------
"WAYNEL" <ho**@wlawson.c o.uk> wrote in message
news:11******** **************@ g43g2000cwa.goo glegroups.com.. .
Hi
I am trying to re-write some of the example code that Agilent gives for
VB to VB.Net.
In .Net I keep getting the error 'cannot change the number of
dimensions of an array'.
I have paste the module I am having an issue with. Can anyone help!
Thanks
WayneL
Module Module1
' Add the files visa32.bas and vpptype.bas, located in the
' directory vxipnp\Win95\in clude, to your Visual Basic
' project. Add the example code as a .bas module, and
' call main_34970A.
'UPGRADE_WARNIN G: Application will terminate when Sub Main() finishes.
Click for more:
'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?ke yword="vbup1047 "'
Public Sub Main()
Dim numberChannels As Short
Dim numberSweeps As Short
Dim Sweep As Short
Dim Readings() As Double
Dim Units() As String
Dim ChanNumb() As Short
Dim Time() As Date
Dim VISAaddress As String
Dim status As Integer
Dim viDefaultRM As Integer
Dim Instrument As Integer
Dim i As Short
Dim Channel As String
' Declair all the HFPS currents
Dim I_VADREF As Double
Dim I_VCC As Double
Dim I_VREF1 As Double
Dim I_VREF2 As Double
Dim I_VREF3 As Double
Dim I_VREF4 As Double
Dim I_VREF5 As Double
Dim I_VKAM5V As Double
Dim I_VKAML2 As Double
Dim I_VCCL As Double
Dim I_VCCL2 As Double
Dim I_BUCKL As Double
Dim I_BUCKH As Double
Dim I_BAT As Double
' Declair all the HFPS voltages
Dim V_VADREF As Double
Dim V_VCC As Double
Dim V_VREF1 As Double
Dim V_VREF2 As Double
Dim V_VREF3 As Double
Dim V_VREF4 As Double
Dim V_VREF5 As Double
Dim V_VKAM5V As Double
Dim V_VKAML2 As Double
Dim V_VCCL As Double
Dim V_VCCL2 As Double
Dim V_BUCKL As Double
Dim V_BUCKH As Double
Dim V_BAT As Double
HFPS.DefInstanc e.Show()
VISAaddress = "9"
status = viOpenDefaultRM (viDefaultRM)
status = viOpen(viDefaul tRM, "GPIB::" & VISAaddress & "::INSTR", 0,
2500, Instrument)
If status < 0 Then
MsgBox("Unable to open Port")
End
End If
Configure_34970 A(Instrument)
SetScan_34970A( Instrument, numberSweeps, numberChannels)
############### ############### ############### ############### ####
Problem 'cannot change the number of dimensions of an array'
Starts here!
############### ############### ############### ############### ####
' Size arrays depending on channel and sweep count
ReDim Readings(number Sweeps, numberChannels)
ReDim Units(numberSwe eps, numberChannels)
ReDim ChanNumb(number Sweeps, numberChannels)
ReDim Time(numberSwee ps, numberChannels)
############### ############### ############### ############### ####
' Get data one sweep at a time
For Sweep = 1 To numberSweeps
ReadData_34970A (Instrument, Sweep, numberChannels, Readings, Units,
ChanNumb, Time)
Next Sweep
status = viClose(Instrum ent)
status = viClose(viDefau ltRM)
' Get the current reading from the datalogger
' Reading (Sweep number, channel)
I_VADREF = Readings(1, 1)
I_VCC = Readings(1, 2)
I_VREF1 = Readings(1, 3)
I_VREF2 = Readings(1, 4)
I_VREF3 = Readings(1, 5)
I_VREF4 = Readings(1, 6)
I_VREF5 = Readings(1, 7)
I_VKAM5V = Readings(1, 8)
I_VKAML2 = Readings(1, 9)
I_VCCL = Readings(1, 10)
I_VCCL2 = Readings(1, 11)
I_BUCKL = Readings(1, 12)
I_BUCKH = Readings(1, 13)
I_BAT = Readings(1, 14)
HFPS.DefInstanc e.T1CH1.Text = CStr(I_VADREF)
HFPS.DefInstanc e.T1CH2.Text = CStr(I_VCC)
HFPS.DefInstanc e.T1CH3.Text = CStr(I_VREF1)
HFPS.DefInstanc e.T1CH4.Text = CStr(I_VREF2)
HFPS.DefInstanc e.T1CH5.Text = CStr(I_VREF3)
HFPS.DefInstanc e.T1CH6.Text = CStr(I_VREF4)
HFPS.DefInstanc e.T1CH7.Text = CStr(I_VREF5)
HFPS.DefInstanc e.T1CH8.Text = CStr(I_VKAM5V)
HFPS.DefInstanc e.T1CH9.Text = CStr(I_VKAML2)
HFPS.DefInstanc e.T1CH10.Text = CStr(I_VCCL)
HFPS.DefInstanc e.T1CH11.Text = CStr(I_VCCL2)
HFPS.DefInstanc e.T1CH12.Text = CStr(I_BUCKL)
HFPS.DefInstanc e.T1CH13.Text = CStr(I_BUCKH)
HFPS.DefInstanc e.T1CH14.Text = CStr(I_BAT)
HFPS.DefInstanc e.Show()
End Sub
Sub Configure_34970 A(ByRef Instrument As Integer)
Dim SCPIcmd As String
Dim actual As Integer
Dim Channel As String
Dim i As Short
Dim Slot As Short
' Set instrument to power on state
SCPIcmd = "*RST"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1, actual)
' Configure all channels in channel list
' Configure all channels in channel list
' Slot =3 with all channels set to resistance Auto 6 ½ digits
Slot = 3
For i = 1 To 20
Channel = VB6.Format(CStr (i), "00")
SCPIcmd = "Conf:Res Auto,(@" & CStr(Slot) & CStr(Channel) &
");:Res:NPL C 0.02,(@" & CStr(Slot) & CStr(Channel) & ")"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1,
actual)
Next i
End Sub
Sub SetScan_34970A( ByRef Instrument As Integer, ByRef numberSweeps As
Short, ByRef numberChannels As Short)
Dim SCPIcmd As String
Dim replyString As New VB6.FixedLength String(256)
Dim actual As Integer
numberSweeps = 1
' Include the Measurement units with reading
SCPIcmd = "Format:Reading :Unit On"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1, actual)
' Include the channel with reading
SCPIcmd = "Format:Reading :Channel On"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1, actual)
' Include the time with reading
SCPIcmd = "Format:Reading :Time On"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1, actual)
' Set up the scan List
SCPIcmd = "Route:Scan
(@301,302,303,3 04,305,306,307, 308,309,310,311 ,312,313,314,31 5,316,317,318,3 19,320)"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1, actual)
' Configure the trigger source
SCPIcmd = "Trigger:So urce Timer"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1, actual)
' Set the time between scans
SCPIcmd = "Trigger:Ti mer 0.01"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1, actual)
' Set the number of scans
SCPIcmd = "Trigger:Co unt " & Str(numberSweep s)
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1, actual)
' Read the number of channels on scan list
SCPIcmd = "Route:Scan:Siz e?"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1, actual)
Call viRead(Instrume nt, replyString.Val ue, 255, actual)
numberChannels = Val(replyString .Value)
' Arm the trigger with initiate
SCPIcmd = "Initiate"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) + 1, actual)
End Sub
Sub ReadData_34970A (ByRef Instrument As Integer, ByRef Sweeps As
Short, ByRef numberChannels As Short, ByRef Readings(,) As Double,
ByRef Units(,) As String, ByRef ChanNumb(,) As Short, ByRef Time(,) As
Date)
Dim Points As Short
Dim Channel As Short
Dim SCPIcmd As String
Dim actual As Integer
Dim replyString As New VB6.FixedLength String(256)
' Get the data one channel at a time
For Channel = 1 To numberChannels
' Wait for reading in instrument memory
Do
SCPIcmd = "Data:Point s?"
Call viWrite(Instrum ent, SCPIcmd & Chr(10),
Len(SCPIcmd) + 1, actual)
Call viRead(Instrume nt, replyString.Val ue, 255, actual)
Points = CShort(Left(rep lyString.Value, actual))
Loop Until Points >= 1
' Get one channel of data from instrument
SCPIcmd = "Data:Remov e? 1"
Call viWrite(Instrum ent, SCPIcmd & Chr(10), Len(SCPIcmd) +
1, actual)
Call viRead(Instrume nt, replyString.Val ue, 255, actual)
' Remove the reading data from string
Readings(Sweeps , Channel) = CDbl(Mid(replyS tring.Value, 1,
15))
' Remove the units data from string
Units(Sweeps, Channel) = Mid(replyString .Value, 17, 3)
' Remove the time data from string
Time(Sweeps, Channel) =
System.DateTime .FromOADate(Val (Mid(replyStrin g.Value, 21, 12)) / 86400)
' Remove the channel number from string
ChanNumb(Sweeps , Channel) = Val(Mid(replySt ring.Value, 34,
3))
Next Channel
End Sub
End Module
This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics | |
by: Mr. Magoo |
last post by:
I'm working with imaplib. I'm trying to flag (or move or copy - anything
that takes a message_set as an argument) a bunch of messages with one
command and am having trouble.
===
def check_error(typ, data):
if (typ != 'OK'):
print typ
print data
|
by: Alpay Eno |
last post by:
Hello all... I'm stuck, I cannot figure out how I should go about flagging
conflicts on a sheduling app. I currently have 8 columns (school grades)
that have class over the course of 9 periods. I am populating the asp page
fine, and making changes to the database with forms lists. I need to compare
all the results of one period (thats 8 results) so that i may find a
classroom conflict. Is there any solution in SQL?
This is my query:
sql...
|
by: nan.li.g |
last post by:
I have this simple code below. When I compiled it, I got the following
error. But after I removed the comment marker(//), i.e. explicitly
defined a constructor, it becomes OK.
The compiler should generate a default constructor for me and the
default one shoule be no different than the one I specified. Why do I
have to specify one in this code?
class A
{
|
by: EkteGjetost |
last post by:
This is definitely not the smart thing to do as far as my learning goes,
but desperate situations call for desperate measures.
The final lab for my introduction to C programming class is due tomorrow.
I was on vacation when we went over how to read files, so basically my
only resources are the book, the course notes, and the examples.
Unfortunately for me, none of them are usefull at all, so pretty much i
don't have a clue as to what i...
|
by: Joseph Geretz |
last post by:
Use of unassigned local variable 'fs'
Please see where I've indicated where the compiler is flagging this error in
the method below. fs is initialized in the first line in the try block, so
why is it flagged as unassigned in the finally block?
Thanks for your help!
- Joe Geretz -
| | |
by: Sky Sigal |
last post by:
I coming unglued... really need some help. 3 days chasing my tail all over
MSDN's documentation ...and I'm getting nowhere.
I have a problem with TypeConverters and
storage of expandableobjects to attributes in tags (think Style tag -> Style
object).
The problem that I am chasing is:
Html side:
|
by: Larry |
last post by:
I've set up a list of image filesnames in a listview control(lvSrcFileList),
I'm using the selectedIndexChange event to select which file is being
displayed in a picturebox control(pbImagePreview). The first time a filename
is selected it works fine but if I try to select another filename the
program bombs with an exception error; flagging the line below "curntImage =
Image.FromFile(cpath). The listview is set for a single selection....
|
by: WAYNEL |
last post by:
Hi
I am trying to re-write some of the example code that Agilent gives for
VB to VB.Net.
In .Net I keep getting the error 'cannot change the number of
dimensions of an array'.
I have paste the module I am having an issue with. Can anyone help!
|
by: Jay |
last post by:
I have a multi threaded VB.NET application (4 threads) that I use to send
text messages to many, many employees via system.timer at a 5 second
interval. Basically, I look in a SQL table (queue) to determine who needs
to receive the text message then send the message to the address. Only
problem is, the employee may receive up to 4 of the same messages because
each thread gets the recors then sends the message. I need somehow to
prevent...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look !
Part I. Meaning of...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it.
First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
| | |
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own....
Now, this would greatly impact the work of software developers. The idea...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules.
He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms.
Adolph will...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one.
At the time of converting from word file to html my equations which are in the word document file was convert into image.
Globals.ThisAddIn.Application.ActiveDocument.Select();...
|
by: TSSRALBI |
last post by:
Hello
I'm a network technician in training and I need your help.
I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs.
The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols.
I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
|
by: 6302768590 |
last post by:
Hai team
i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
| | |
by: bsmnconsultancy |
last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...
| |
