CN100334438C - Collecting method for intelligent agricultural machinery loading high spectrum - Google Patents

Abstract

The present invention relates to an intelligent high spectrum collecting method carried by agricultural machines based on GPS, which belongs to high-density technical methods for acquiring farm information, and is especially used for the dynamic monitoring of accurate agricultural production technologies. The system of the present invention utilizes Visual Basic and Map Objects to organically integrate GPS, GIS and RS; on one hand, the system provides high-accuracy spatial position attributes for collected spectrum data by integrating GPS, and spectrum data collection, positioning and storage are integrated; on the other hand, the system realizes the functions which comprise the visualized management and the analysis processing of the spectrum data with space attributes by integrating GIS, real-time displaying of the tracks of moving points and the attributes of corresponding points on each layer, the calculation of crop differentialsmoothing and vegetation index NDVI, etc.; the system provides adequate information for an expert system and a decision support system.

Description

A kind of intelligent agricultural machinery carries the hyper-spectral data gathering method

One, technical field

The present invention is based on a kind of intelligent agricultural machinery and carry the hyper-spectral data gathering method, belong to the technical method that obtains agricultural land information based on the high density of GPS, be exclusively used in the dynamic monitoring of accurate agricultural production technology.

Two, technical background

" accurate agricultural " is the hot fields of research of agricultural science in the world in recent years, and it is the combination of existing agricultural production measure and modern high technology, and core is Geographic Information System, Global Positioning System (GPS), remote sensing and computer automatic control system.Accurate agricultural is exactly the application by automated control technologies such as Geographic Information System, Global Positioning System (GPS), remote sensing technologies, actual conditions according to each operating unit of field, meticulous every control measures of adjusting soil and crop exactly, optimize to greatest extent and use every agricultural to drop into, transfer soil productivity, reach equal income or higher income with input minimum or that save most, improve environment, utilize all kinds of agricultural resources efficiently, obtain good economic benefit and environmental benefit.

Accurate agricultural needs highdensity as far as possible, comprehensive agricultural land information as foundation.At present, remote sensing is obtained advantage with its unique information becomes the main means that agricultural land information obtains just gradually.Obtain soil and plant parameter is commonplace with remote sensing, remotely-sensed data is to belong to the face data, can cover whole farmland, does not resemble the just point data that conventional sampling analysis means are obtained.High-spectrum remote-sensing is an important trend of remote sensing development, and high-spectrum remote-sensing is that remote sensing application has brought powerful vigor with the entrained spectral information that enriches of its high spectral resolution characteristic.Domestic and international many scholars have set foot in the research of high-spectrum remote-sensing aspect vegetation biophysics information and biochemical information extraction.Satellite and aerial remote sens ing technique further develop with maturation before, high-spectrum remote-sensing is developed into high density and is obtained the technological means of agricultural land information.

Along with deepening continuously that high-spectrum remote-sensing is used, more and more become in " dynamic monitoring " under the situation of people's common recognition, develop high efficiency rapid remote sensing technology and just become the problem that must consider.For this reason, when utilizing high spectrometer spectrum recognition capability very strong, realize synchronous " location " of spectroscopic data fast, give three-dimensional coordinate, form " qualitative ", " location " integrated rapid remote sensing technology is extremely urgent.Carry based on the intelligent agricultural machinery of GPS that the hyper-spectral data gathering system conducts a research just under this background.

Three, invention scheme

Technical matters the object of the present invention is to provide a kind of intelligent agricultural machinery based on GPS to carry the hyper-spectral data gathering method, can obtain crop canopies spectral signature in real time with space attribute, on each figure layer of known agricultural land information, locate simultaneously, and obtain the attribute of corresponding point, as soil nutrient information etc., calculate some important indicators of crop growth conditions such as spectrum vegetation index NDVI, obtain geo-localisation information, soil attribute data and spectroscopic data one to one, provide reliable crop parameter for realizing that precisely fertilising waits.

Technical scheme

A kind of intelligent agricultural machinery of the present invention carries the hyper-spectral data gathering method, comprise: the position of determining agricultural machinery with GPS, obtain the various information of crop and farmland in real time with sensor, with microcomputer record, analytical information, the instruction of transmission control corresponding, thereby drive agricultural machinery and produce corresponding action, it is characterized in that:

1) adopt differential GPS 25-lvs OEM plate location, differential GPS 25-lvs OEM plate is by RS-232 mouth or RS-232﹠amp; The USB converter links to each other with microcomputer or notebook computer, when gathering pedotheque, utilize the GPS receiver in the computing machine grating map, to locate, the accurate position of record acquisition point, after sample collecting is intact, in the laboratory sample is carried out analytical test, obtain corresponding soil attribute data, and add in this raster map layer;

2) utilize tractor to hang spectrometer, adopt the high spectrum of MSR 16R type portable spectrometer realization crop canopies to monitor in real time, spectrometer is by RS-232 or RS-232﹠amp; The USB converter links to each other with microcomputer or notebook computer, utilize Visual Basic6.0 and pccomm.dll dynamic link library, the design serial communication programmer, computing machine reads the crop canopies target optical spectrum multiband information that collects from spectrometer, from GPS, read the space time information of this spectroscopic data simultaneously, and finish the parsing of related data, adopt Event triggered mode supervisory computer serial ports buffer zone in the software design, when buffer zone has data, can trigger this incident reading of data automatically, the real time data that receiving spectrum instrument and GPS transmit, transfer equipment steering order in real time.The formula that the raw data of MSR 16R portable spectrometer provides according to CropScan INC is changed and is obtained crop hat top light spectrum reflectivity R;

3) utilize Map Objects OCX control to realize farmland Geographic Information System GIS administration module: to search corresponding map elements with SQL statement, the positional information that DGPS is accepted projects in the planimetric coordinates system, or the conversion mutually between different projections and coordinate system of figure layer; Utilize the Tracking layer of Map Objects dynamically to show on agricultural machinery and implement movement locus and the Ge Tu layer attribute data with the corresponding point of anchor point; The spectroscopic data table that utilizes Maplay.AddRelate to finish automatically to have locating information is related with the figure layer; Utilize " GPS electronic chart coordinates transformation method ", moving coordinates is transformed under the 1954_GK coordinate of Beijing from the WGS-84 coordinate system; Utilize Map Objects that figure layer original coordinate system is converted to the WGS-84 coordinate system, externally database related with figure layer in, at first the locating information that GPS is transmitted is located in the figure layer, and read the FeatureId value, and the FeatureId value, the conversion after spectroscopic data and locating information store in the database, obtain geo-localisation information, soil attribute data and spectroscopic data one to one.

Beneficial effect

The present invention is the integrated achievement in research of accurate agricultural information acquiring technology.At present, computing machine is with independent high spectrometer or link to each other commonplace with independent GPS, but can't on the communication program basis that manufacturer provides, expand the application program of oneself, must link to each other these two equipment with computing machine simultaneously to the specific (special) requirements (spectroscopic data) of spectroscopic data in order to satisfy precision agriculture with geographical attribute, exploitation can be controlled sample frequency and the isoparametric communication program of serial transmission speed, to adapt to spectrometer and different GPS, simultaneously on this basis, exploitation is based on GPS, and the agricultural machinery of GIS carries hyper-spectral data gathering system software platform.

Utilize Visual Basic and MapObjects that GPS, GIS and MSR 16R type portable spectrometer are carried out organic integration, have following characteristics: (1) system is by integrated GPS, high-precision locus attribute can be provided for the spectroscopic data that collects, and input database, realize that spectrum data gathering, location, storage are integrated; (2) by integrated GIS, realize having the spectroscopic data visualized management and the analyzing and processing of space attribute, can show moving point trace in real time simultaneously; (3) realized the rasterizing of sampling field piece; (4) can show each figure layer corresponding point geographical attribute and calculate function such as plant physiology parameter by spectroscopic data in real time.The present invention can be and realizes precisely fertilising, particularly imposing of nitrogenous fertilizer from now on, and timely, reliable information is provided.

Four, Figure of description

Fig. 1 hardware system structure figure

Fig. 2 software system structure

Five, embodiment

(1) system hardware structure

In the robotization agricultural machinery hardware system of typical embodiment precision agriculture thought, the general real-time that embodies, determine the position of agricultural machinery with GPS, obtain the various information of crop and farmland in real time with sensor, information and other known information with microcomputer record, analysis position information, respective sensor, according to analysis result, send the control corresponding instruction, produce corresponding action thereby drive agricultural machinery.This just needs GPS, RS, GIS and ES to combine closely, and makes total system have movability, real-time.(see figure 1):

1 tractor hitch

This system utilizes tractor to hang the hydraulic suspension elevating mechanism of agricultural machinery and implement, utilize three joint sleeve pipes to realize Telescopic, length is 8 meters, utilizes hydraulic jack to realize elevating function, spectrometer is moved with agricultural machinery and implement, realize removing the crop monitoring of edge effect simultaneously.Parallel to the ground in order to guarantee the spectrometer sensitive surface, we have adopted Universal-head, cross counterweight isoequilibrium mode in the spectrometer hitch, make the rapid return of spectrometer energy after losing level, and the damping of scalable Universal-head and positive stop spring plate, swing significantly reduced.

2 DGPS systems

The GPS technology implements to provide spatial positional information accurately for the field of field intelligence sample such as soil types, characteristics of soil fertility, moisture, crop growth situation, disease pest and weed and crop yield and decision scheme.In this system, GPS adopts the differential GPS 25-sOEM plate of the GARMIN company production that is widely used in accurate agricultural, and stable performance is reliable; Have fast and catch, recapture fast and extremely strong anti-screening capacity, and superior EMC, EMI Electromagnetic Compatibility, can be good at adapting to applied environment complicated and changeable.Its effect mainly contains 3 points:

(1) Kinematic Positioning of intelligent agricultural mechanical operation.

(2) Agricultural Information is gathered the sampling point location.Promptly the data collection point that is provided with in the farmland, location, artificial data collection point all need the GPS locator data, enter GIS so that form Information Level.

(3) sensor information GPS location.Promptly the unique point in the sensor information is gathered locator data with GPS so that with the GIS registration.

The 3RS system

The high spectrum of MSR 16R type portable spectrometer realization crop canopies that the ground remote sensing system adopts U.S. CROPSC INC to produce is monitored in real time.This instrument field angle is 31 degree.The spectral resolution of this instrument has reached the spectral resolution scope of high spectrum, and has covered the wave band (the wave band feature sees Table 1) of most of crop biophysics information and biochemical information sensitivity substantially.It mainly acts on is monitoring crop individual growth situation, crop hat top light spectrum, thereby understands the Physiology and biochemistry parameters such as nutrient situation of crop.

The centre wavelength and the bandwidth of table 1Cropscan MSR 16R wave band

Wave band Band	460	510	560	610	660	680	710	760
									Centre wavelength (nm)	461.3	510.5	561.6	609.9	659.1	680.9	711.8	759.5
Bandwidth (nm)	8.3	8.1	8.5	10.0	10.8	11.3	9.2	9.8
									Wave band Band	810	870	950	1100	1220	1480	1500	1650
Centre wavelength (nm)	810.1	871.6	951.0	1101.9	1222.8	1481.1	1500.9	1669.0
									Bandwidth (nm)	10.7	12.5	11.0	16.3	11.5	13.5	13.2	195.0

4 intelligence control systems

It is to be core with the microcomputer, utilizes the real-time transfer equipment steering order of computer serial communication technology, the real time data that receiving spectrum instrument and GPS transmit etc.Design of System Software:

The key of precision agriculture is the variable operation, and the variable operation needs GPS, RS and GIS combines closely.The GIS that is applicable to agricultural machinery should have general spatial analysis functions, also must combine with data acquisition system (DAS), decision support system (DSS) simultaneously, thereby realize the organic integration of each hardware device.General generalized information system can't satisfy these requirements simultaneously at present.Therefore, be badly in need of GPS, GIS and RS integrated technology and the system that research is applicable to precision agriculture at present.We adopt integrated secondary development, are development platform with object-oriented visual developing instrument Visual Basic6.0, utilize GIS tool software MapObjects2.2 to realize the GIS basic function.Both can make full use of the efficiently programing function easily of visual software developing instrument, realize various special uses, complex analysis methods, and make full use of the complete spatial data visual analyzing processing capacity of GIS tool software, improve the development efficiency of application system greatly, the application program of using the object-oriented visual software development to come out have good surface appearance, perfect functions, preferably reliability, be convenient to advantage such as maintenance.

These software systems comprise 5 modules, as shown in Figure 2.

4.1 serial communication module

Hardware system is integrated MSR 16R type portable spectrometer and GPS25-lvs differential GPS.These two equipment are by two RS-232 (or RS-232﹠amp; The USB converter) links to each other with microcomputer (notebook computer), computing machine reads target (crop canopies) the spectrum multiband information that collects from spectrometer, from GPS, read the space time information of this spectroscopic data simultaneously, and finish the parsing of related data.In order accurately and timely to handle the data that peripheral hardware is sent to the computing machine serial port, we utilize Visual Basic6.0 and pccomm.dll dynamic link library, and adopt Event triggered mode supervisory computer serial ports buffer zone, when buffer zone has data, can trigger this incident reading of data automatically.

The ordinary GPS receiver all provides the function that sends the NMEA formatted data to serial ports of computers.The data of NMEA form are the character strings of series of variable length, and each character string with OD OA ending, with ', ' is separated each different data item in the character string with ' $ ' beginning.For synchronous GPS and spectrometer, when the starting spectrometer, utilize the A/D conversion of ' $ ' character startup spectrometer of GPS, solved the stationary problem of GPS and spectral reflectance instrument so effectively.

This module has two kinds of mode of operations: (1) manual mode, receive a secondary data by the SPACE keyed jointing.(2) automatic mode received a secondary data every 3 seconds.

4.2MSR 16R spectroscopic data modular converter

The raw data of MSR 16R portable spectrometer is the magnitude of voltage rather than the crop hat top light spectrum reflectivity of each passage light activated element, thus must change according to following formula, to satisfy the requirement of decision-making module.

(1) black level of calculating sensor when actual temperature.

$\left.\begin{array}{c}\mathrm{UpDKmV}=\mathrm{UpDKmV}*(1+(\mathrm{TEMP}-25)*\mathrm{UpDARKSENS}\\ \mathrm{DnDKmV}=\mathrm{DnDKmV}*(1+(\mathrm{TEMP}-25)*\mathrm{DnDARKSENS}\end{array}\right\}\·\·\·\·\·\·\·\·\·\·\·\·\·\·\·\·\·\·\left(1\right)$

(2) utilize black level to proofread and correct

$\left.\begin{array}{c}\mathrm{UpmVreading}=\mathrm{UpmVreading}-\mathrm{UpDKmV}\\ \mathrm{DnmVreading}=\mathrm{DnmVreading}-\mathrm{DnDKmV}\end{array}\right\}\·\·\·\·\·\·\·\·\·\·\·\·\·\·\·\·\·\·\left(2\right)$

(3) utilize temperature correction

$\left.\begin{array}{c}\mathrm{UpmVreading}=\mathrm{UpmVreading}*(1-(\mathrm{TEMP}-25)*\mathrm{SENSORSEN}\left(\mathrm{CHup}\right))\\ \mathrm{DnmVreading}=\mathrm{DnmVreading}*(1-(\mathrm{TEMP}-25)*\mathrm{SENSORSEN}\left(\mathrm{CHdn}\right))\end{array}\right\}\·\·\·\·\·\·\left(3\right)$

(4) utilize calibration factor to proofread and correct

$\left.\begin{array}{c}\mathrm{UpmVreading}=\mathrm{UpmVreading}*\mathrm{SENSORCOEFF}\left(\mathrm{CHup}\right)\\ \mathrm{DnmVreading}=\mathrm{DnmVreading}*\mathrm{SENSORCOEFF}\left(\mathrm{CHdn}\right)\end{array}\right\}\·\·\·\·\·\·\·\·\·\·\·\·\·\·\·\·\·\·\left(4\right)$

(5) utilize sun cosine of an angle to proofread and correct

UpmVreading＝UpmVreading*COSINECOR(SUNANGLE)……………… (5)

(6) calculate solar angle

$\left.\begin{array}{c}\mathrm{GT}=\mathrm{HH}+(\mathrm{MM}/60)-\mathrm{GMTDIFF}\\ T=\mathrm{LO}/15\\ \mathrm{SO}=\mathrm{GT}-T\\ \mathrm{HA}=(\mathrm{SO}-12)*15\\ \mathrm{DY}=-22.48-.0032157*\mathrm{JD}+.0060405*{\mathrm{JD}}^2-3.4609E\\ -05*{\mathrm{JD}}^3+4.959E-08*{\mathrm{JD}}^4\end{array}\right\}\·\·\·\·\·\·\·\·\·\·\·\·\·\·\·\left(6\right)$

SUNANGLE＝90-ATN([SIN(LA*RA)*SIN(DY*RA)

+COS(LA*RA)*COS(DY*RA)*COS(HA*RA)]

/[SQR(1-Z^2)*57.29578]

GT:Greenwich time HH:Hour MM:Minute GMTDIFF:difference in hours from yourtime zone to Greenwich time LO:Longimde LA:Latitude JD:Julian DayRA:0.745329E-02 wherein

(7) calculate spectral reflectivity

PERCENTREFL＝100*DnmVreading/UpmVreading……………… (7)

(8) utilize white standard calibration factor to proofread and correct

PERCENTREFL＝PERCENTREFL*2PTCF ……………… (8)

Above-mentioned formula is provided by Crop Scan INC.

4.3 farmland GIS administration module

The status of Geographic Information System (GIS) in the accurate agricultural technical system holds the balance, it appears at from planning, field information acquisition, information processing and management, information analysis, to the whole process that the field decision scheme is implemented, this will be owing to the dependence of accurate agricultural enforcement to spatial information.Agricultural land information has polyphyly, is in particular in storage format diversity, multiple dimensioned property, obtain manner diversity, also comprises the complicacy of system or data base data organization in addition.By the GIS platform, set up orderly management and the analysis of farmland management system realization on the basis of fusion multi-source data to multi-source, multidate agricultural land information, this is the basis that accurate agricultural is implemented, and its effect shows data organization and integrated management, spatial analysis inquiry, spatial data renewal and overall treatment, visual analyzing and expression.GIS provides Back ground Information for the field information acquisition, also provides information source for field variable implementation decision analysis.

Utilize Map Objects OCX control to realize: (1) multi-layer image shows; (2) to operations such as the figure layer amplify, dwindles, moves; (3) calculate some statistical values of selected vector data; (4) graphical pointv, line, ellipse, rectangle, polygonal figures on the figure layer; (5) show and upgrade the property value of selected vector data; (6) search corresponding map elements with SQL statement; (7) coordinate projection conversion, the positional information that DGPS is accepted projects in the planimetric coordinates system, or the conversion mutually between different projections and coordinate system of figure layer; (8) utilize the Trackinglayer of Map Objects dynamically to show on agricultural machinery and implement movement locus and the Ge Tu layer attribute data with the corresponding point of anchor point; (9) the spectroscopic data table that utilizes Maplay.AddRelate to finish automatically to have locating information and figure layer is related.

In the navigation of moving point location, because the positional information that obtains from GPS is warp, latitude the WGS-84 coordinate under, the electronic chart of China Beijing commonly used 1954 coordinates, employing Gauss Kru﹠4﹠ger projection.Therefore, before moving point location navigation, must carry out the coordinate projection conversion.Conversion method: (1) utilizes the shortcut calculation in " GPS electronic chart coordinates transformation method and realization " literary composition, and moving coordinates is transformed under the 1954_GK coordinate of Beijing from the WGS-84 coordinate system.(2) utilize Map Objects that figure layer original coordinate system is converted to the WGS-84 coordinate system.

Externally database related with figure layer in, the locating information that we at first transmit GPS is the location in the figure layer, and read the FeatureId value, and the FeatureId value, the conversion after spectroscopic data and locating information store in the database, after fulfiling assignment, system finishes the related of figure layer and database according to the ID value.

4.4 farmland sampling rasterizing module

At present, general farmland does not possess large-scale map, so it is not too suitable to obtain the method for farmland Back ground Information map by digitizing; For the small size zone utilize that GPS adopts that a mapping farmland essential information figure layer then is that a kind of relative cost is lower, speed method faster.

Before sampling, can utilize GPS to obtain the point of field block boundary, on the figure layer, generate polygon then, utilize WGS_1984_UTM_Zone_50N[32650] (is example with the Yizheng, Jiangsu), polygon is projected on the WGS_1984 plane right-angle coordinate, generate the sampling grid, and number for each polygon, with the Intersect statement that Map Objects provides the polygon of each little rectangle and generation is intersected computing according to the ranks order, and calculate each plot girth, area is when area merges less than four of the grid area/a period of time and the adjacent polygons of going together.

When gathering pedotheque, utilize the GPS receiver in grid, to take a sample, the accurate position of record acquisition point, after sample collecting is intact, can carry out analytical test to sample in the laboratory according to specific requirement, obtain corresponding soil attribute data, and add in this figure layer, realize that sampled point space orientation, attribute record and navigation implementation process organically combine.

4.5 message processing module

The measured spectrum of spectral reflectance instrument (wave spectrum) is the mixed spectra of numerous atural object absorption spectrums and scattering spectrum, generally is to express with reflectivity.For decipher remotely-sensed data correctly, therefrom extract the characteristic information of object, and reduce the influence of background, people have constructed multiple vegetation index, also use the differential smoothing technology.

4.5.1 differential smoothing

Studies show that: the reflectance spectrum curve of plant has notable attribute, and the different growth and development stages of same kind of plant and the difference of fertilizer application condition all can cause the variation of plant reflectance spectrum curve.Therefore, can utilize this feature of vegetation spectrum, use open-air spectrometer to measure their single order differential reflectance spectrums under certain condition, study the upgrowth situation of plant various wave bands.

The single order differential smoothing: $R^{\′}\left(\mathrm{\λ}\right)=\frac{R\left({\mathrm{\λ}}_{i+1}\right)-R\left({\mathrm{\λ}}_{i-1}\right)}{{\mathrm{\λ}}_{i+1}-{\mathrm{\λ}}_{i-1}}$ Wherein R is a spectral reflectivity

4.5.2 index NDVI is planted in normalization

There is high correlation in nitrogen content in NDVI and the plant, tillering Sheng phase, boot stage and heading stage, by spectroscopic assay, calculates that with NDVI the nitrogen content effect of plant is better, and this imposes and play a significant role for directly utilizing in the future spectrum to control crop nitrogenous fertilizer.

The spectrum vegetation index $\mathrm{NDVI}=\frac{\mathrm{NIR}-R}{\mathrm{NIR}+R}$ R wherein, NIR represent the red spectral band got and the spectral reflectivity of near infrared light wave band respectively.

Index NDVI etc. is planted in the spectroscopic data spectral reflectivity R, single order differential smoothing, the normalization that obtain to have the soil nutrient data N, P, K, trace element etc. of geographical attribute by computer run operation and have a geographical attribute, thereby instructs variable mechanical work such as fertilising, sowing, irrigation.

Computing machine and GPS and spectrometer serial communication part source journey Option3 (0) .Value=False

Preface: Option3 (1) .Value=False

Form1:

Private Sub Check1_Click() Command3.Visible＝False

If Check1.Value＝1 And Option2(0).Value＝True Then sf＝0

dwxx.Visible＝True wm＝0

Else pn＝0

dwxx.Visible＝False command2.Visible＝False

EndIf

End Sub Option1(0).Enabled＝True

Option1(1).Enabled＝True

″″″″″″″″″″″″″″″ Option1(2).Enabled＝True

' conclusion button Option2 (0) .Enabled=True

' with sio_close (2) COM2 is closed Option2 (1) .Enabled=True

' re-use End to carry out ends with system Option3 (0) .Enabled=True

″″″″″″″″″″″″″″″ Option3(1).Enabled＝True

Private Sub Command2_Click() UpDown1.Enabled＝True

Timer1.Enabled＝False If sm＝2Then

Timer2.Enabled＝False gb

End If

sio_close(pn) End Sub

Command4.Visible＝False

Command1.Visible＝True

Option1(0).Value＝False Prvate Sub Command3_Click()

Option1(1).Value＝False Dim ret％

Option1(2).Value＝False ret＝sio_open(pn)

Option2(0).Value＝False If ret<> SIO_OK Then

Option2 (1) .Value=False MsgBox " opens the communication port mistake ", vbCritical+

VbOKOnly, " system's warning " UpDown1.Enabled=False

sio_close(pn) End Sub

Exit Sub private Sub Command4_Click () (receive gps, and spectrometer)

End If If buf(0)<>36Then Exit Sub

If Port Set()＝False Then Fori＝0 to 128

sio_close(pn) txtReceive.Text＝txtReceive.Text+

MsgBox " setting of communication port parameter makes a mistake ", Chr$ (buf (i))

VbCritical+vbOKOnly " system's warning " Next

Exit Sub a＝jwd()

End If Text2.Text＝jd

ret＝sio_DTR(pn，0) Text3.Text＝wd

ret＝sio_RTS(pn，0) Text4.Text＝zt

If wm＝1Then Timer2.Enabled＝True Ifsm＝2Then

If wm＝2Then Timer1.Enabled＝True dwxx＝dwxx.Text

Command1.Visible＝False tjjl

command2.Visible＝True End If

If wm＝1Then End Sub

Command4.Visible＝True

End If ″″″″″″″″″″″″″″″

The load events of If wm=2Then ' forms

Command4.Visible=False ' execution such as opens, is provided with at work

End If ' also reduces DTR, RTS current potential

Command3.Visible＝False ″″″″″″″″″″″″″″″

Option1(0).Enabled＝False Sub Form_Load()

Option1(1).Enabled＝False sf＝1

Option1(2).Enabled＝False End Sub

Option2(0).Enabled＝False

Option2(1).Enabled＝False ″″″″″″″″″″″″″″″

Option3 (0) .Enabled=False ' parameter is provided with subroutine

Option3 (1) .Enabled=False ' is provided with projects such as flow, speed, Parity, DataBut

" " " " " " " " " " " " " " " ' reception button

Private Function PortSet () As Boolean ' reads the data of importing into the sio_Read function

' parameter is provided with the byte number that subroutine ' is again returned with the rreturn value decision, and it is shown on the forms

Dim Port As Long ″″″″″″″″″″″″″″″

Dim mode As Long Private Sub Command1_Click()

Dim Hw As Long，SwAs Long End

Dim ret As Long End Sub

Dim tout As Long

Port＝pn

mode＝P_NONE Or BIT_8 Or STOP_1 Private Sub Option1_Click(Index As Integer)

Hw=0 ' does not have hardware flow control If Option1 (0) .Value Then pn=1

Sw=0 ' does not have software flow control If Option1 (1) .Value Then pn=2

PortSet＝False If Option1(2).Value Then pn＝3

Ret=sio_ioctl (Port, B4800, mode) ' be provided with If pn＜0 And wm＜0 And sm＜0 Then

If ret<>SIO_OK Then Command3.Visible＝True

MsgBox " makes a mistake when being provided with ", vbCritical+ End Sub

VbOKOnly, " system's warning "

Exit Function

End If Private Sub Option2_Click(Index As Integer)

ret＝sio_flowctrl(Port，Hw Or Sw) If Option2(0).Value Then

' flow control wm=1

If ret<>SIO_OK Then ′Command4.Visible＝True

MsgBox " makes a mistake during flow set ", vbCritical+ End If

VbOKOnly, " system's warning " If Option2 (1) .ValueThen

ExitFunction wm＝2

End If ′Command4.Visible＝False

PortSet＝True End If

End Function If pn<>0 And wm<>0 And sm<>0 Then

Command3.Visible＝True

″″″″″″″″″″″″″″″ If Check1.Value＝1 And Option2(0).Value＝True Then

dwxx.Visible＝True a＝jwd()

Else Text2.Text＝jd

dwxx.Visible＝False Text3.Text＝wd

End If Text4.Text＝zt

End Sub If zt＝″0″Then

For j＝1 To 10

Beep

Private Sub Option3_Click(Index As Integer) Next

If Option3(0).Value Then sm＝1 End If

If Option3(1).Value Then sm＝2 cs＝0

If pn<>0 And wm<>0 And sm<>0 Then Ifsm＝2 Then

Command3.Visible＝True dwxx＝dwxx.Text

If sm＝2 And Form2.Visible＝False Then Form2.Show tjjl

If sm＝1 And Form2.Visible＝True Then Unload Form2 End If

End Sub Else：

Exit Sub

End If

Private Sub Timer1_Timer()

For i＝1 To 130

rlen＝sio_read(pn，buf(0)，1) ′EndIf

If buf(0)＝36 Then Exit For End Sub

Next

For i＝1 To 128

rlen＝sio_read(pn，buf(i)，1) Private Sub Timer2_Timer()

Nexti Fori＝1 To 130

If cs＝sf Then rlen＝sio_read(pn，buf(0)，1)

For i＝0 To 128 If buf(0)＝36 Then Exit For

txtReceive.Text＝txtReceive.Text+ Next

Chr$(buf(i)) Fori＝1 To 128

Next rlen＝sio_read(pn，buf(i)，1)

Next i Private Sub tjjl () ' adds record to database

End Sub gpsRec.AddNew

gpsRec.Fields(0)＝Val(jd)

gpsRec.Fields(1)＝Val(wd)

″″″″″″″″″″″″″″″ If dwxx＝″″Then dwxx＝″″

' reception text box Click incident gpsRec.Fields (2)=dwxx

After clicking, ' use the data that receive can be emptied gpsRec.Update

″″″″″″″″″″″″″″″ dwxx＝″″

Private Sub txtReceive_Click() End Sub

txtReceive.Text＝″″

End Sub

Private Sub gb () ' closes

Private Sub UpDown1_Change() gpsRec.Close

sf＝UpDown1.Value db.Close

End Sub End Sub

Private Function jwd()As Single Form2：

jdt＝″″ Private Sub Command1_Click()

jd＝″″ dkysjk

Fori＝0 To 128 Unload Me

jdt＝jdt+Chr$(buf(i)) End Sub

Next

q＝InStr(jdt，″$GPGG")

Jd=Mid$ (jdt, q+14,9) Public Sub xjsjk () ' newdata storehouse

wd＝Mid$(jdt，q+26，10) Common Dialogl.Show Open zt＝Mid$(jdt，q+39，1) newdatabasename＝CommonDialogl.FileName End Function On Error Go To aa

Set ws＝DBEngine.Workspaces(0)

Set db＝ws.Create Database(newdatabasename)，

dbLangChineseSimplified，dbVersion35) sjkdkbz＝1

′Set db＝OpenDatabase(newdatabasename，ture，False) dd:End Sub

Set newtable＝db.CreateTableDef(″gps″)

Set newfield=newtable.CreateField (" longitude ", dbDouble) Private Sub Command2_Click ()

newtable.Fields.Append newfield xjsjk

Set newfield=newtable.CreateField (" latitude ", dbDouble) On Error Go To aa1

newtable.Fields.Append newfield Set ws＝DBEngine.Workspaces(0)

Set newfield=newtable.CreateField (" terrestrial object information ", db Text, Set db=OpenDatabase (newdatabasename)

255) Set gpsRec＝db.OpenRecordset(″gps″，

newtable.Fields.Append newfield dbOpenDynaset)

db.TableDefs.Append newtable sjkdkbz＝0

sjkdkbz＝0 Go To dd1

GoTodd aa1:

aa: sjkdkbz＝1

sjkdkbz＝1

dd: dd1:UnloadMe

Close End Sub

End Sub

Public Sub dkysjk () ' opens data with existing storehouse Global

CommonDialog1.ShowOpen ′**********************************************

newdatabasename＝CommonDialog1.FileName ***********

On Error Go To aa ′ExGlobal.bas

Set ws＝DBEngine.Workspasces(0) ′--Global variable&Com port record defined for

Set db＝OpenDatabase(newdatabasename) ′example program.

Set gpsRec＝db.OpenRecordset(″gps″， ′

dbOpenDynaset) ′

sjkdkbz＝0 ′1999/4/2 TOM Modified

Go To dd ′**********************************************

aa: ***********

Option Explicit Global GstrBaudTable(0 To 19)As String

' messaging parameter structure Global GstrParityTable (0 To 4) As String

Public Type COMMDATA Global GstrByteSizeTable(0 To 3)As String

Port As Long Global GstrStopBitsTable(0 To 1)As String

BaudRate As Integer ' following four as Public Sub InitTable ()

9600, n, 8,1, represent GstrBaudTable (0)=" 50 " with constant

Parity As Integer GstrBaudTable(1)＝″75″

ByteSize As Integer GstrBaudTable(2)＝″110″

StopBits As Integer GstrBaudTable(3)＝″134″

Ibaudrate As Integer ' following four as GstrBaudTable (4)=" 150 "

9600, n, 8,1, GstrBaudTable (5)=" 300 " in round figures

iparity As Integer GstrBaudTable(6)＝″600″

ibytesize As Integer GstrBaudTable(7)＝″1200″

istopbits As Integer GstrBaudTable(8)＝″1800″

Hw As Integer ' hardware flow control GstrBaudTable (9)=" 2400 "

Sw As Integer ' software flow control GstrBaudTable (10)=" 4800 "

DTR As Integer ' DTR line status GstrBaudTable (11)=" 7200 "

RTS As Integer ' RTS line status GstrBaudTable (12)=" 9600 "

End Type GstrBaudTable(13)＝″19200″

GstrBaudTable(14)＝″38400″

Public GCommData As COMMDATA GstrBaudTable(15)＝″57600″

Public GhForm As Form GstrBaudTable(16)＝″115200″

Public GhExit As Boolean GstrBaudTable(17)＝″230400″

GstrBaudTable(18)＝″460800″

Global GBaudTable(0 To 19)As Integer GstrBaudTable(19)＝″921600″

Global GParityTable(0 To 4)As Integer

Global GByteSizeTable(0 To 3)As Integer GstrParityTable(0)＝″None″

Global GStopBitsTable(0 To 1)As Integer GstrParityTable(1)＝″Even″

GstrParityTable(2)＝″Odd″

GstrParityTable(3)＝″Mark″ GBaudTable(19)＝B921600

GstrParityTable(4)＝″Space″

GParityTable(0)＝P NONE

GstrByteSizeTable(0)＝″5″ GParityTable(1)＝P_EVEN

GstrByteSizeTable(1)＝″6″ GParityTable(2)＝P_ODD

GstrByteSizeTable(2)＝″7″ GParityTable(3)＝P_MRK

GstrByteSizeTable(3)＝″8″ GParityTable(4)＝P_SPC

GstrStopBitsTable(0)＝″1″ GByteSizeTable(0)＝BIT_5

GstrStopBitsTable(1)＝″2″ GByteSizeTable(1)＝BIT_6

GByteSizeTable(2)＝BIT_7

GBaudTable(0)＝B50 GByteSizeTable(3)＝ BIT_8

GBaudTable(1)＝B75

GBaudTable(2)＝B110 GStopBitsTable(0)＝STOP_1

GBaudTable(3)＝B134 GStopBitsTable(1)＝STOP_2

GBaudTable(4)＝B150 End Sub

GBaudTable(5)＝B300

GBaudTable(6)＝B600 Public Sub RxIrq(ByVal Port As Long)

The interruption subroutine of GBaudTable (7)=B1200 ' reception

GBaudTable(8)＝B1800 Dim rlen As Long

GBaudTable(9)＝B2400 Dim buf(0 To 511)As Byte

GBaudTable(10)＝B4800

GBaudTable(11)＝B7200 Do

GBaudTable(12)＝B9600 rlen＝sio_read(GCommData.Port，buf(0)，512)

GBaudTable(13)＝B19200 If rlen＞0 Then

GBaudTable(14)＝B38400 Call GhForm.ShowData(GhForm.Term，

GBaudTable(15)＝B57600 buf，rlen)

GBaudTable(16)＝B115200 Else

GBaudTable(17)＝B230400 If rlen＝0 Then

GBaudTable(18)＝B460800 Exit Do

End If Public sjkdkbz As Integer ' opens the database sign

End If

Loop Until GhExit

End Sub Mxtool:

′**********************************************

Model: **************

′Mxtool.bas

Public pn As Integer ' port numbers '--Process PComm Lib function return value

Public sfAs Integer ' sample frequency '

Public wm As Integer ' working method '

Public sm As Integer ' storage mode " 1999/4/2 TOM Modified

′**********************************************

Public rlen&，i& **************

Public buf(0 To 511)As Byte Option Explicit

Public jdt As String

Publicjd As String Public Const FORMAT_MESSAGE_FROM_SYSTEM＝

Public wdt As String &H1000

Public wd As String Public Const LANG_NEUTRAL＝&H0

Public zt As String Public Const SUBLANG_DEFAULT＝&H1

Public cs As Integer ' sampling number

Public xsh As Integer ′xianshihang Declare Function GetLastError Lib″kerne132″()As Long

Declare Function FormatMessage Lib″kerne132″Alias

Global ws As Workspace ″FormatMessageA″_

Global db As Database (ByVal dwFlags As Long，Ip Source As Any，ByVal

Public newdatabasename As String dwMessageId As Long，_

Public newtable As TableDef，newfield As Field ByVal dwLanguageld As Long，ByVal lpBuffer As

Public gpsRec As Recordset String，_

Public dwxx As String ByVal nSize As Long，Arguments As Long)As Long

Public Sub ShowSysErr(title As String，syserr As Long)

Dim lpMsgBufAs String*80 buf=is " uncontrollable when starting the hardware flow control

Dim lang As Integer rts state "

Case SIO_BADPARM:

' lang={MAKELANGID (LANG_NEUTRAL, buf=" parameter error "

SUBLANG_DEFAULT)} Case SIO_BOARDNOTSUPPORT:

Lang=SUBLANG_DEFAULT*2 ^10+ buf=" interface is not supported this function "

LANG_NEUTRAL Case SIO_ABORT_WRITE：

Call buf=" user interrupts writing out action "

FormatMessage(FORMAT_MESSAGE_FROM_SYSTE Case SIO_WRITETIMEOUT:

M, _ buf=" output overtime "

0，syserr，lang，lpMsgBuf，80，0) Case Else

Call MsgBox (lpMsgBuf, vbOKOnly Or buf=" uncertain mistake: " ﹠amp; Errcode

vbExclamation，title) End Select

End Sub Call MsgBox(buf，vbOKOnly Or

vbExclamation，title)

Public Sub MxShowError (title As String, the information of errcode As Else ' system mistake

Long，syserr As Long) Call ShowSysErr(title，syserr)

DimbufAsString End If

End Sub

If errcode<>SIO_WIN32FAIL Then

Select Case errcode Pccom:

Case SIO_BADPORT ′**********************************************

Buf=" PORT COM mistake or do not open " * * * * * * * * * *

Case SIO_OUTCONTROL: ′PComm.bas

Buf=" do not support this function " '--PComm module for Visual Basic (5.0 above)

Case SIO_NODATA: ′

Buf=" does not have data to be read " ' Description:

Case SIO_OPENFAIL: ′When you want to develop one VB application

Buf=" opens mistake " with PComm,

Case SIO_RTS_BY_HW: ′you should add this module to your project.

′ Global Const BIT_6＝&H1

′ Global Const BIT_7＝&H2

′1999/4/2 TOM Modified Global Const BIT_8＝&H3

′**********************************************

********** Global Const STOP_1＝&H0 ′ Stop

′Baud Rate Setting bits define

Global Const B50＝&H0 Global Const STOP_2＝&H4

Global Const B75＝&H1

Global Const B110＝&H2 Global Const P_EVEN＝&H18 ′ Parity

Global Const B134＝&H3 define

Global Const B150＝&H4 Global Const P_ODD＝&H8

Global Const B300＝&H5 Global Const P_SPC＝&H38

Global Const B600＝&H6 Global Const P_MRK＝&H28

Global Const B1200＝&H7 Global Const P_NONE＝&H0

Global Const B1800＝&H8

Global Const B2400＝&H9 ′Modem Control setting

Global Const B4800＝&HA Global Const C_DTR＝&H1

Global Const B7200＝&HB Global Const C_RTS＝&H2

Global Const B9600＝&HC

Global Const B19200＝&HD ′Modem Line Status

Global Const B38400＝&HE Global Const S_CTS＝&H1

Global Const B57600＝&HF Global Const S_DSR＝&H2

Global Const B115200＝&H10 Global Const S_RI＝&H4

Global Const B230400＝&H11 Global Const S_CD＝&H8

Global Const B460800＝&H12

Global Const B921600＝&H13 ′Error code

Global Const SIO_OK＝0

′Mode setting Global Const SIO_BADPORT＝-1 ′No such port

Global Const BIT_5＝&H0 ′Data or port not opened

bits define Global Const SIO_OUTCONTROL＝-2 ′Can′t

control board Global Const SIOFT_FUNC＝-4 ′ Func

Global Const SIO_NODATA＝-4 ′No data to return abort

read or no buffer to write Global Const SIOFT_FOPEN＝-5 ′ Can not

Global Const SIO_OPENFAIL＝-5 ′ No such port open files

or port has opened Global Const SIOFT_CANABORT＝-6 ′ Ymodem

Global Const SIO_RTS_BY_HW＝-6 ′ RTS can′t CAN signal abort

set by H/W flowctrl Global Const SIOFT_PROTOCOL＝-7 ′ Protocol

Global Const SIO_BADPARM＝-7 ′ Bad checking error abort

parameter Global Const SIOFT_SKIP＝-8 ′ Zmodem

Global Const SIO_WIN32FAIL＝-8 ′ Call win32 remote skip this send file

function fail， please call Global Const SIOFT_LACKRBUF＝-9 ′ Zmodem

Recv-Buff size must＞＝2K bytes

GetLastError to get the error code Global Const SIOFT_WIN32FAIL＝-10 ′ OS fail

Global Const SIO_BOARDNOTSUPPORT＝-9

′Board does not support this function GetLastError to get the error code

Global Const SIO_FAIL＝-10 ′ PComm Global Const SIOFT_BOARDNOTSUPPORT＝-11

function run result fail ′Board does not support this function

Global Const SIO_ABORT_WRITE＝-11 ′ Write has

blocked，and user abort write Declare Function sio_open Lib ″PComm.dll″ (ByVal Port

Global Const SIO_WRITETIMEOUT＝-12 ′ Write As Long) As Long

timeoue has happened Declare Function sio_close Lib ″PComm. dll″ (ByVal Port

As Long) As Long

′File transfer error code Declare Function sio_ioctl Lib ″PComm.dll″ (ByVal Port

Global Const SIOFT_OK＝0 As Long， ByVal baud As Long， ByVal mode As Long) As

Global Const SIOFT_BADPORT＝-1 ′ No such Long

port or port not open Declare Function sio_flowctrl Lib ″PComm. dll″ (ByVal

Global Const SIOFT_TIMEOUT＝-2 ′ Protocol Port As Long， ByVal mode As Long) As Long

timeout Declare Function sio_flush Lib ″PComm.dll″ (ByVal Port

Global Const SIOFT_ABORT＝-3 ′ User key As Long，ByVal func As Long) As Long

abort Declare Function sio_DTR Lib ″PComm.dll″ (ByVal Port

As Long，ByVal mode As Long) As Long Port As Long) As Long

Declare Function sio_RTS Lib ″PComm.dll″ (ByVal Port Declare Function sio_iqueue Lib ″PComm.dll″ (ByVal

As Long，ByVal mode As Long) As Long Port As Long) As Long

Declare Function sio_lctrl Lib ″PComm.dll″ (ByVal Port Declare Function sio_oqueue Lib ″PComm.dll″ (ByVal

As Long，ByVal mode As Long) As Long Port As Long) As Long

Declare Function sio_baud Lib ″PComm. dll″ (ByVal Port Declare Function sio_Tx_hold Lib ″PComm.dll″ (ByVal

As Long，ByVal speed As Long) As Long Port As Long)As Long

Declare Function sio_getch Lib ″PComm.dll″ (ByVal Port Declare Function sio_getbaud Lib ″PComm.dll″ (ByVal

As Long) As Long Port As Long)As Long

Declare Function sio_read Lib ″PComm.dll″ (ByVal Port Declare Function sio_getmode Lib ″PComm.dll″ (ByVal

As Long，ByRef buf As Byte， ByVal length As Long) As Port As Long)As Long

Long Declare Function sio_getflow Lib ″PComm.dll″ (ByVal

Declare Function sio_linput Lib ″PComm.dll″ (ByVal Port As Long)As Long

Port As Long，ByRefbufAs Byte，ByVal length As Long， Declare Function sio_data_status Lib ″PComm.dll″

ByVal Term As Long) As Long (ByVal Port As Long)As Long

Declare Function sio_putch Lib ″PComm.dll″(ByVal Port Declare Function sio_term_irq Lib ″PComm.dll″ (ByVal

As Long，ByVal Term As Long)As Long Port As Long，ByVal func As Long，ByVal code As Byte)

Declare Function sio_putb Lib ″PComm. dll″Alias As Long

″sio_write″ (ByVal Port As Long，ByRef buf As Byte， Declare Function sio_cnt_irq Lib ″PComm.dll″ (By Val

ByVal length As Long) As Long Port As Long， ByVal func As Long， ByVal count As Long)

Declare Function sio_write Lib ″PComm.dll″(ByVal Port As Long

As Long，ByRef buf As Byte，ByVal length As Long)As Declare Function sio_modem_irq Lib ″PComm.dll″

Long (ByVal Port As Long，ByVal func As Long) As Long

Declare Function sio_putb_x Lib ″PComm. dll″ (ByVal Declare Function sio_break_irq Lib ″PComm.dll″ (ByVal

Port As Long，ByRef buf As Byte，ByVal length As Long， Port As Long，ByVal func As Long) As Long

ByVal tick As Long)As Long Declare Function sio_Tx_empty_irq Lib ″PComm.dll″

Declare Function sio_putb_x_ex Lib ″PComm. dll″ (ByVal Port As Long，ByVal func As Long) As Long

(ByVal Port As Long，ByRef buf As Byte，ByVal length Declare Function sio_break Lib ″PComm.dll″(ByVal Port

As Long，ByVal tms As Long) As Long As Long，ByVal time As Long) As Long

Declare Function sio_lstatus Lib ″PComm.dll″(ByVal Declare Function sio_view Lib ″PComm. dll″(ByVal Port

As Long，ByRef buf As Byte，ByVal length As Long) As Declare Function sio_FtXmodemCheckSumTx Lib

Long ″PComm.dll″( _

Declare Function sio_TxLowWater Lib ″PComm.dll″ ByVal Port As Long，ByVal fname As String，ByVal

(ByVal Port As Long，ByVal size As Long) As Long func As Long，ByVal key As Long_

Declare Function sio_AbortWrite Lib ″PComm.dll″ )As Long

(ByVal Port As Long)As Long

Declare Function sio_AbortRead Lib ″PComm.dll″ Declare Function sio_FtXmodemCheckSumRx Lib

(ByVal Port As Long)As Long ″PComm.dll″(_

Declare Function sio_SetWriteTimeouts Lib ″PComm.dll″ ByVal Port As Long，ByVal fname As String，ByVal

(ByVal Port As Long，ByVal timeouts As Long) As Long func As Long，ByVal key As Long _

Declare Function sio_GetWriteTimeouts Lib ) As Long

″PComm. dll″ (ByVal Port As Long，ByRef TotalTimeouts

As Long) As Long Declare Function sio_FtXmodemCRCTx Lib

Declare Function sio_SetReadTimeouts Lib ″PComm.dll PComm.dll″( _

(ByVal Port As Long， ByVal TotalTimeouts As Long， ByVal Port As Long，ByVal fname As String，ByVal

ByVal IntervalTimeouts As Long) As Long func As Long，ByVal key As Long_

Declare Function sio_GetRe adTimeouts Lib ″PComm.dll″ ) As Long

(ByVal Port As Long，ByRef TotalTimeouts As Long，

ByRef InterfalTimeouts As Long) As Long Declare Function sio_FtXmodemCRCRx Lib

″PComm.dll″(_

Declare Function sio_FtASCIITx Lib ″PComm. dll″(_ ByVal Port As Long，ByVal fname As String，ByVal

ByVal Port As Long，ByVal fname As String，ByVal func As Long，ByVal key As Long_

func As Long，ByVal key As Long_ ) As Long

) As Long

Declare Function sio_FtXmodemlKCRCTx Lib

Declare Function sio_FtASCIIRx Lib ″PComm. dll″ ( _ ″PComm. dll″(_

ByVal Port As Long，ByVal fname As String，ByVal ByVal Port As Long，ByVal fname As String，ByVal

func As Long，ByVal key As Long，ByVal sec As Long _ func As Long，ByVal key As Long_

)As Long ) As Long

Declare Function sio_FtXmodemlKCRCRx Lib ByVal Port As Long，ByRef fname As Long， ByVal

″PComm.dll″ (_ fno As Long，ByVal func As Long，ByVal key As Long_

ByVal Port As Long，ByVal fname As String，ByVal )As Long

func As Long，ByVal key As Long _

)As Long

Declare Function sio_FtYmodemTx Lib ″PComm. dll″(_

ByVal Port As Long，ByVal fname As String，ByVal

func As Long，ByVal key As Long) As Long

Declare Function sio_FtYmodemRx Lib ″PComm. dll″(_

ByVal Port As Long，ByRef fname As Long，ByVal

fno As Long，ByVal func As Long，ByVal key As Long_

)As Long

Declare Function sio_FtZmodemTx Lib ″PComm.dll″(_

ByVal Port As Long，ByVal fname As String，ByVal

func As Long，ByVal key As Long_

)As Long

Declare Function sio_FtZmodemRx Lib ″PComm.dll″(_

ByVal Port As Long，ByRef fname As Long，ByVal

fno As Long，ByVal func As Long，ByVal key As Long_

)As Long

Declare Function sio_FtKermitTx Lib ″PComm. dll″(_

ByVal Port As Long，ByVal fname As String，ByVal

func As Long，ByVal key As Long_

)As Long

Declare Function sio_FtKermitRx Lib ″PComm.dll″(_

Claims (1)

1, a kind of intelligent agricultural machinery carries the hyper-spectral data gathering method, comprising: determine the position of agricultural machinery to obtain the various information of crop and farmland in real time with sensor with GPS, with microcomputer record, analytical information, send the control corresponding instruction, it is characterized in that:

1) adopt differential GPS 25-lvs OEM plate location, differential GPS 25-lvs OEM plate is by RS-232 mouth or RS-232﹠amp; The USB converter links to each other with microcomputer or notebook computer, when gathering pedotheque, utilize the GPS receiver in the computing machine grating map, to locate, the accurate position of record acquisition point, after sample collecting is intact, in the laboratory sample is carried out analytical test, obtain corresponding soil attribute data, and add in this raster map layer;

2) utilize tractor to hang spectrometer, adopt the high spectrum of MSR 16R type portable spectrometer realization crop canopies to monitor in real time, spectrometer is by RS-232 or RS-232﹠amp; The USB converter links to each other with microcomputer or notebook computer, utilize Visual Basic6.0 and pccomm.dll dynamic link library, the design serial communication programmer, computing machine reads the crop canopies target optical spectrum multiband information that collects from spectrometer, from GPS, read the space time information of this spectroscopic data simultaneously, and finish the parsing of related data, adopt Event triggered mode supervisory computer serial ports buffer zone in the software design, when buffer zone has data, can trigger this incident reading of data automatically, the real time data that receiving spectrum instrument and GPS transmit, transfer equipment steering order in real time;

3) utilize Map Objects OCX control to realize farmland Geographic Information System GIS administration module: search corresponding map elements with SQL statement, the positional information that DGPS is accepted projects in the planimetric coordinates system; Realize the conversion mutually between different projections and coordinate system of figure layer; Utilize the Tracking layer of Map Objects dynamically to show on agricultural machinery and implement movement locus and the Ge Tu layer attribute data with the corresponding point of anchor point; The spectroscopic data table that utilizes Maplay.AddRelate to finish automatically to have locating information is related with the figure layer; Utilize GPS electronic chart coordinates transformation method, moving coordinates is transformed under the 1954_GK coordinate of Beijing from the WGS-84 coordinate system; Utilize Map Objects that figure layer original coordinate system is converted to the WGS-84 coordinate system, externally database related with figure layer in, at first the locating information that GPS is transmitted is located in the figure layer, and read the FeatureId value, and the FeatureId value, the conversion after spectroscopic data and locating information store in the database, obtain geo-localisation information, soil attribute data and spectroscopic data one to one.

Images