Reading Data from Serial Port RS232 in Visual Basic 2013 (Visual Studio .NET) -


we trying getting weight weighing machine.

while reading in hyper-terminal in windows xp using com1 getting right values. reading data in visual basic 2013 (in windows 10 pro) on laptop using usb com port convertor cable getting different values x, ?, 3, &, etc. kindly suggest solution can right data through code.

our code is:

 me.mvserialport         .portname = "com11"          ' shown in device manager         .baudrate = 2400         .parity = parity.none         .stopbits = stopbits.one         .databits = 8         .handshake = handshake.none         .dtrenable = true         .rtsenable = true         .newline = vbcrlf         .readtimeout = 1000         .writetimeout = 1000     end  'function code     private function readcom() string                     if me.mvthread_stop = true exit             try                 try                     if me.mvserialport.isopen                         me.mvserialport.close()                     end if                 catch ex exception                     '                 end try                  try                     me.mvserialport.open()                     if me.mvserialport.isopen                         'thread.sleep(200)                         thread.sleep(val(me.textbox4.text))                         dim svmessage string = ""                         try                             'svmessage = me.mvserialport.readline()                             svmessage = me.mvserialport.readexisting                             updatestatus(svmessage)                         catch ex exception                             'me.mvthread_stop = true                         end try                     end if                     me.mvserialport.close()                 catch ex exception                     me.mvserialport.close()                     '                 end try             catch ex timeoutexception                 'updatestatus(ex.tostring)             end try         loop         return ""     end function      public delegate sub updatestatusdelegate(byval newstatus string)     public sub updatestatus(byval newstatus string)         try             if me.invokerequired                 dim upbd new updatestatusdelegate(addressof updatestatus)                 me.invoke(upbd, new object() {newstatus})             else                 dim svsplit() string = split(newstatus, " ")                 me.textbox4.text = svsplit(svsplit.count - 1)                 richtextbox1.text = newstatus & vbcrlf & richtextbox1.text             end if         catch ex exception             '         end try     end sub


-

Comments

Post a Comment

Popular posts from this blog

javascript - Thinglink image not visible until browser resize -

Image
i trying repurpose pre-existing theme, includes drop down menu displays image. trying embed thinglink drop down menu's content section, not visible until resize browser window. here menu looks like: then when clicked, can see empty space image should show: then when browser resized, image appears: this code content of menu: <div class="ajax_accordion_content" style="display: none;"> <div class="report-detail"> <table border="0" cellpadding="0" cellspacing="0" width="100%" class="table_basic"> <tbody> <!-- thinglink image embedded --> <img style="max-width: 100%;" src="http://cdn.thinglink.me/api/image/832705713204625409/1024/10/scaletowidth#tl-832705713204625409;1043138249'" class="alwaysthinglink"/> <script async charset="utf-8" src="http://cdn.thinglink.me/jse/embed.j...
Read more

firebird - Error "invalid transaction handle (expecting explicit transaction start)" executing script from Delphi -

i'm developing update app delphi 10. i'm running windows 7 64x, firebird 2.5.1.26351 32x. execution order: checks current version(select statement firebird database) downloads update(via ftp) apply it(.exe files, , execute .sql) error code -901 pops out when try execute .sql files. know there incompatibility issue w7 64x , fdb 32x, but, can everything: backup , restore(gbak), db commands(all). tried fdb 64x instead, , not working. code: //components fdwaitcursor: tfdguixwaitcursor; fddriverlink: tfdphysfbdriverlink; fdconnection:tfdconnection; fdscript: tfdscript; function tthr_script.createcomponents:boolean; begin try fddriverlink := tfdphysfbdriverlink.create(fddriverlink); fdwaitcursor := tfdguixwaitcursor.create(fdwaitcursor); fdconnection := tfdconnection.create(fdconnection); fdconnection begin drivername := 'fb'; params.username := thrbanco.bduser; params.password := thrbanco.bdpass; params.database := ...
Read more

Sound is not coming out while implementing Text-to-speech in Android activity -

i using texttospeak in 1 of app. while adding speech string texttospeech object instance, doesn't produce sound. though not getting error in log still sound not coming out. want device speak value of textview gets set resultmsg.settext() method. public class resultactivity extends activity { @override protected void oncreate(bundle savedinstancestate){ ............ resultmsg.settext(resultmsg_str); texttospeech = new texttospeech(getapplicationcontext(),newtexttospeech.oninitlistener(){ @override public void oninit(int status) { system.out.println("txt speech status = "+status); system.out.println("txt speech error status = "+texttospeech.error); system.out.println("txt speech success status = "+texttospeech.success); if(status == texttospeech.success){ texttospeech.setlanguage(locale.english); ...
Read more