DOWNLOADS
Bird Codes
PROGRAMS
Software
Programs 1
Programs 2
Programs 3
BREADCRUMBS
Home
Palm Software
|
| |
Basic Programs for Palm (Page 3)
Important Note.
I am a programmer and am comfortable with these software tools, but I do not warrant them to be suitable for your needs. Further, I will not support others who wish to follow my steps and use their Palm PDAs to record bird sightings. This is not a commercial Bird Records system. The software interfaces are poor or totally non-existent. Do not use this software if you are not a programmer and do not understand exactly what each step is doing. You use the software listed at my site at your own risk.
Note: to copy these programs to your Palm, highlight the program text and paste it into a memo field in your Palm Desktop application, then HotSynch your Palm.
Basic Programs that report from the Bird Sighting Table
ListBigDays.bas
This program creates a memo listing the number of species and the total number of sightings one line per day. The Bird Sightings table must be sorted by Date and Bird Code.
#ListBigDays.bas
new
10 msg$="Sightings must be sorted by Date and Bird Code"
20 title$="List Sightings by Day"
30 a$=msgbox(msg$,title$,2)
40 if (a$="1") then 60
50 stop
60 d1$="2000 Bird Sightings"
70 d=db.open d1$
80 L=db.len(d1$)
90 gosub 400
92 L=L-1:n%=0
100 n%=n%+1
110 if n%>L then 1000
120 c$=db$(d1$,n%,7)
130 e=err(0)
140 if e<0 then 600
142 q=q+1
150 if c$<>d$ then gosub 500
160 b$=db$(d,n%,1)
162 z=z+1
170 if b$=r$ then 100
180 a=a+1
190 r$=b$
200 goto 100
400 rem initialize daily summary
410 t$= "Summary by Day"
420 open new "memo",t$ as #4
430 print #4," "
440 d$=""
450 r$=""
460 return
500 rem add county to summary
502 rem ? "new date ",d$,c$
510 if d$="" then 530
520 print #4,chr$(9),d$,chr$(9), a,chr$(9),z
530 d$= c$
540 a=0:z=0
550 return
600 rem ?"error=",e,d,n,c$
610 goto 100
1000 gosub 500
1002 print #4,"Total Sightings", chr$(9), q
1010 close #4
1020 stop
run
|
ListBirdingSitesByCounty.bas
This program creates a memo for each county showing the total number species and sightings by location. The Bird Sightings table must be sorted by County, Location and Bird Code.
#ListBirdingSitesByCounty.bas
new
10 msg$="Sightings must be sorted by County, Location and Bird Code"
20 title$="List Sightings by Day"
30 a$=msgbox(msg$,title$,2)
40 if (a$="1") then 60
50 stop
60 d1$="2000 Bird Sightings"
70 d=db.open d1$
80 L=db.len(d1$)
90 L=L-1:n%=0: q=0:d$=""
100 n%=n%+1
110 if n%>L then 1000
120 c$=db$(d1$,n%,5)
130 e=err(0)
140 if e<0 then 900
142 q=q+1
150 if c$<>d$ then gosub 600
160 b$=db$(d1$,n%,4)
170 if b$<>r$ then gosub 700
180 a=a+1
230 h$=db$(d1$,n%,1)
250 if h$=u$ then 100
260 x=x+1
270 u$=h$
280 goto 100
600 rem close county-open county
610 if q=0 then 650
620 gosub 700
630 print #4,"Total Sightings", chr$(9), q
640 close #4
650 t$= "Summary for "+c$
660 open new "memo",t$ as #4
670 print #4," "
680 d$=c$: r$="": q=0
690 return
700 rem add location to county
702 rem ? "old loc",r$, "new loc ",b$
710 if r$="" then 730
720 print #4,chr$(9),r$,chr$(9), x,chr$(9),a
730 r$= b$
740 x=0:a=0
750 return
900 rem ?"error=",e,d,n,c$
910 goto 100
1000 gosub 700
1002 print #4,"Total Sightings", chr$(9), q
1010 close #4
1020 stop
run
|
ListCounties.bas
This program creates a single memo showing the total number species and sightings by county. The Bird Sightings table must be sorted by County and Bird Code.
#ListCounties.bas
new
10 msg$="Sightings must be sorted by County and Bird Code"
20 title$="List all Counties"
30 a$=msgbox(msg$,title$,2)
40 if (a$="1") then 60
50 stop
60 d1$="2000 Bird Sightings"
70 d=db.open d1$
80 L=db.len(d1$)
90 gosub 400
92 L=L-1:n%=0
100 n%=n%+1
110 if n%>L then 1000
120 c$=db$(d1$,n%,5)
130 e=err(0)
140 if e<0 then 600
142 q=q+1
150 if c$<>d$ then gosub 500
160 b$=db$(d,n%,1)
170 if b$=r$ then 100
180 a=a+1
190 r$=b$
200 goto 100
400 rem initialize county summary
410 t$= "County Summary"
420 open new "memo",t$ as #4
430 print #4," "
440 d$=""
450 r$=""
460 return
500 rem add county to summary
502 rem ? "new county ",d$,c$
510 if d$="" then 530
520 print #4,chr$(9),d$,chr$(9),chr$(9), a
530 d$= c$
540 a=0
550 return
600 rem ?"error=",e,d,n,c$
610 goto 100
1000 gosub 500
1002 print #4,"Total Sightings", chr$(9), q
1010 close #4
1020 stop
run
|
Mail
|
|
