Click here to Skip to main content
16,006,535 members
Home / Discussions / C#
   

C#

 
GeneralLoadProperties Pin
s3rro14-Feb-08 4:04
s3rro14-Feb-08 4:04 
GeneralRe: LoadProperties Pin
s3rro14-Feb-08 4:09
s3rro14-Feb-08 4:09 
GeneralRe: LoadProperties Pin
led mike14-Feb-08 4:34
led mike14-Feb-08 4:34 
GeneralC# Serial port communication Pin
Scalpa14-Feb-08 3:53
Scalpa14-Feb-08 3:53 
GeneralRe: C# Serial port communication Pin
DaveyM6914-Feb-08 4:14
professionalDaveyM6914-Feb-08 4:14 
GeneralRe: C# Serial port communication Pin
Scalpa14-Feb-08 4:24
Scalpa14-Feb-08 4:24 
GeneralRe: C# Serial port communication Pin
Luc Pattyn14-Feb-08 4:42
sitebuilderLuc Pattyn14-Feb-08 4:42 
GeneralRe: C# Serial port communication Pin
Scalpa14-Feb-08 5:22
Scalpa14-Feb-08 5:22 
Hey thanks a lot for your interest.
Here is the complete QBasics

10 Rem field bean program to recieve weights from sartorius balance
60 INPUT "DO YOU WANT HELP (Y/N)", H$

70 If H$ = "Y" Then GoTo 480
80 H$ = "N"
90 Close All
120 Print "ENTER PLOT NUMBER AS A 3 DIIGIT NUMBER 001"
121 Close #1
130 INPUT "PLOT NO ", B$
131 B$ = B$ + ".DER"

133 On Error GoTo 139
134 OPEN "I", 1, B$
136 Print "THIS PLOT HAS ALREADY BEEN MEASURED"
137 PLAY "AABBCC"
138 GoTo 120
139 Rem CLOSE #1
140 OPEN "O", 1, B$
150 Rem INPUT "ENTER NO OF VARIETIES ", V
160 C = 0
170 Rem IF C = V THEN CLOSE ALL: GOTO 880
180 C = C + 1
190 Rem FOR J = 1 TO 4
200 P = 0
210 PLAY "F"
220 Rem PRINT "VARIETY "; C: PRINT "REP "; J
230 Rem PRINT "ENTER PLOT HEADING IN FOLLOWING FORMAT"
240 Rem INPUT " PLOT NO'372' ?", PH$
250 Rem INPUT "AFPNO ?", AFP$
260 Rem PLAY "A"
280 Rem PRINT #1, PH$
285 Rem PRINT #1, AFP$
286 Let ch2$ = "1 20": Print #1, ch2$
290 Let ch$ = "29"
295 Let ch1$ = "SEEDWT"
296 Let ct$ = ch$ + ch1$
297 Print #1, ct$
300 If P = 20 Then GoTo 440
305 TIMEOUT = 10000
310 Rem Balance routine****************************
315 Print P + 1
320 INPUT "PUT SEED ON SCALES PRESS RETURN THEN TARE SCALES TO ZERO", CR$
330 P = P + 1
340 Open "COM1:1200,O,7,1,ASC,CD0,CS0,DS0,OP0,RS,TB2048,RB2048" For Random As 2
350 Print #2, Chr$(27); "P"
360 Line Input #2, W$
370 W = Val(W$): Rem W = real format of weight:REM W$ = String format of weight
380 Close #2
390 Rem End of balance routine*********************
400 Print W
410 W1$ = Mid$(W$, 7, 4)
411 If W1$ <> "0.00" Then GoTo 420
412 W1$ = "-1"
420 Print #1, W1$
430 GoTo 300
440 P = 0
450 Rem NEXT J
451 PLAY "EAG"
453 INPUT " ANOTHER PLOT Y/N ", A$
454 If A$ = "N" Then GoTo 471
460 Print "NEXT VARIETY": PLAY "B"
465 Close #1
470 RUN 90
471 Close #1
472 Cls
473 End

480 Rem HELP
490 Print " HELP FILE"
500 Print " ---- ----"
510 Print "IN ORDER FOR BALANCE.BAS TO WORK AND THE CABLE FROM BALANCE TO COMPUTER MUST BE CONNECTED PROPERLY SEE DIAG"
520 INPUT "PRESS RETURN TO CONTINUE", RT$
530 Cls
540 Print " "; " "; "-----------------"
550 Print " "; " "; "! !"
560 Print "___________________"; " "; "! !"
570 Print "! BALANCE !"; " "; "! COMPUTER !"
580 Print "! (BACK) !"; " "; "! (BACK) !"
590 Print "! !"; " "; "! !"
600 Print "! !"; " "; "! !"
610 Print "!_________________!"; " "; "!_______________!"
620 Print " __________"; " "; "___________________________________"
630 Print " ! !PLUG! !"; " "; "! !"
640 Print " ! !PORT! !"; " "; "! !!MOUSE!! !"
650 Print " !--------!"; " "; "! !"
660 Print " ^ "; " "; "! !!BALANCE!! !"
670 Print " ^ "; " "; "!--------- ^ ---------------------!"
680 Print " ^============================^"
690 INPUT "PRESS RETURN TO CONTINUE", RT$
700 Print: Print
740 Print " TO LOAD THE BALANCE PROGRAM YOU MUST BE IN C: DRIVE THEN SIMPLE TYPE": Print " 'GWBASIC BALANCE' FOLLOWED BY RETURN"
750 Print "THE PROGRAM THEN ASKS IF YOU NEED HELP TYPE 'Y' OR 'N' THEN RETURN"
760 Print "THE PROGRAM THEN ASKS FOR A FILENAME IN THE FORMAT C:\WS\FABA\filename"
770 Print "eg C:\WS\FABA\TEST.DAT"
780 Print "THE PROGRAM THEN ASKS FOR THE NUMBER OF VARIETIES"
790 Print "THE PROGRAM THEN ASKS FOR THE PLOT NUMBER IN THE CORRECT FORMAT"
800 Print "THE PROGRAM WILL BEEB IF THIS IS ENTERED INCORRECTLY."
810 Print "YOU ARE NOW READY TO WEIGH A SAMPLE OF SEED."
820 Print "SIMPLE PUT ONE SEED ON SCALES THEN PRESS RETURN WHEN HAPPY WITH WEIGHT"
830 Print "THEN TARE SCALES TO ZERO AND PUT NEXT SEED ON."
840 Print "CONTINUE FOR 20 SEEDS WHEN THE COMPUTER WILL BEEP YOU FOR NEXT REP OF VARIETY"
850 INPUT "PRESS RETURN TO CONTINUE", CR$
860 Cls
870 GoTo 80
880 PLAY "FACE": INPUT "DO YOU WANT ANOTHER RUN (Y/N) ?", R$
890 If R$ = "Y" Then GoTo 10
900 If R$ = "" Then GoTo 880
910 R$ = "N": Stop


as for Hyperterm I am unable to enter any commend in it when the balance is connected to my PC
Thanks for your help.
Scalpa
GeneralRe: C# Serial port communication Pin
Luc Pattyn14-Feb-08 5:34
sitebuilderLuc Pattyn14-Feb-08 5:34 
GeneralRe: C# Serial port communication Pin
Scalpa14-Feb-08 5:45
Scalpa14-Feb-08 5:45 
GeneralRe: C# Serial port communication Pin
Luc Pattyn14-Feb-08 5:52
sitebuilderLuc Pattyn14-Feb-08 5:52 
GeneralRe: C# Serial port communication Pin
DaveyM6914-Feb-08 5:48
professionalDaveyM6914-Feb-08 5:48 
GeneralRe: C# Serial port communication Pin
Luc Pattyn14-Feb-08 6:03
sitebuilderLuc Pattyn14-Feb-08 6:03 
GeneralRe: C# Serial port communication Pin
Scalpa14-Feb-08 6:22
Scalpa14-Feb-08 6:22 
GeneralRe: C# Serial port communication Pin
Scalpa26-Feb-08 6:04
Scalpa26-Feb-08 6:04 
GeneralUsing Google Maps in a C# application Pin
biscoito14-Feb-08 3:13
biscoito14-Feb-08 3:13 
GeneralRe: Using Google Maps in a C# application Pin
Mircea Puiu14-Feb-08 4:05
Mircea Puiu14-Feb-08 4:05 
GeneralRe: Using Google Maps in a C# application Pin
biscoito14-Feb-08 5:02
biscoito14-Feb-08 5:02 
GeneralRe: Using Google Maps in a C# application Pin
MrPlankton14-Feb-08 7:56
MrPlankton14-Feb-08 7:56 
GeneralRe: Using Google Maps in a C# application Pin
biscoito14-Feb-08 9:59
biscoito14-Feb-08 9:59 
QuestionProblem using DataGridViewComboBoxColumn Pin
Mc_Topaz14-Feb-08 2:29
Mc_Topaz14-Feb-08 2:29 
QuestionWriting to word document? Pin
omegazafer14-Feb-08 1:50
omegazafer14-Feb-08 1:50 
AnswerRe: Writing to word document? Pin
Giorgi Dalakishvili14-Feb-08 1:52
mentorGiorgi Dalakishvili14-Feb-08 1:52 
GeneralDataGridView problem Pin
kallileo14-Feb-08 1:12
kallileo14-Feb-08 1:12 
GeneralRe: DataGridView problem Pin
Harvey Saayman14-Feb-08 1:15
Harvey Saayman14-Feb-08 1:15 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.