MASSFLOWMETER TOOL - ANZEIGEN UND AUFNEHEMEN VON MESSDATEN VON EINEM LUFTMASSENMESSER

    • Release
    • Open Source

      MASSFLOWMETER TOOL - ANZEIGEN UND AUFNEHEMEN VON MESSDATEN VON EINEM LUFTMASSENMESSER

      Name:
      MASSFLOWMETER TOOL 1.8

      Beschreibung:
      Das Tool kann Messdaten von einem MASSFLOWMETER der Marke NATEC Sensors und ANALYT-MTC, via RS232-Schnitstelle auslesen, und in einer Form darstellen sowie in einer .csv Datei abspeichern!
      Das Tool wurde getestet und läuft bisher mit: NATEC MWB-50SLPM-D/5M und ANALYT-MTC MLWB(0-5)SLPM.
      Die Geräte messen den Gasdurchfluss in Standartlitern Litern/Minute etc.! Mann kann auch unterschiedliche Gasarten/Massen damit messen!
      Einige Einstellungen kann sich das Programm merken und für den nächsten Programmstart bereitstellen.
      Da einigen Geräte unterschiedlich lange DATEN-STRINGS(Values) senden kann man das für die einzelnen Werte einstellen! Ich habe für aber für meine Geräte DEFAULT Werte hinterlegt!
      Beim druck auf Aufzeichnung ansehen Versucht Excel(soweit Installiert!) die .csv Datei anzuzeigen.
      Wobei die Daten ungeschickt mit (.) Punkten versehen sind und Excel gerne (,)Kommata in den Zahlen hat! Kann man recht einfach mit Text aus Daten und ersetzen wieder zurecht biegen!

      Screenshot(s):


      Verwendete Programmiersprache(n) und IDE(s):
      Visual Basic in Visual Studio 2015

      Systemanforderungen:
      .Net Framework 4.0
      Getestet mit Win7 Pro und Win8.1

      Download(s):
      MASSFLOWMETER_TOOL.zip
      Dateigröße 508kb entpackt

      Anmerkung: Das Tool ist mit Sicherheit Programmiertechnisch voller Fehler.....aber das Programm tut bei mir was es soll!
      Für konstruktive Vorschläge was noch fehlt oder wie etwas besser bzw. einfacher zu machen wäre bin ich immer zu haben! Des weiteren bin ich immer dankbar für die Hilfe die jedem hier gegeben wird!
      Ich habe nur manchmal aus Mangel an Programmierkenntnissen nicht die Möglichkeit alle Tipps umzusetzen!
      Eventuell kann es jemand brauchen oder Probeweise einsetzen und mir dann von den Erfahrungen berichten!
      Andi       :D


      NOCH ETWAS CODE:

      Quellcode

      1. Imports System.IO.Ports
      2. Imports System.Diagnostics
      3. Imports System.Windows.Forms.DataVisualization.Charting
      4. Imports System.IO.StreamWriter
      6. Public Class Form1
      8. Dim MESSWERTEZÄHLER As Integer = 1 ' Gibt die Anzahl der Messpunkte wieder!
      9. Dim MESSZEIT As Integer = 1 ' Gibt die Dauer der Messung in Sekunden wieder!
      10. Dim file As System.IO.StreamWriter
      12. Public Sub New()
      13. InitializeComponent()
      14. enableControls()
      15. Me.DAUERTIMER.Stop()
      17. ' ZEIGE ALLE VERFÜGBAREN PORTS IN COMBOBOX
      18. ComboBoxCOM.Items.AddRange(SerialPort.GetPortNames())
      20. Me.Size = New System.Drawing.Size(532, 745) ' Die Form auf eingeklapptes Format bringen!
      22. 'VOREINSTELLUNGEN DER FORM UND AUSSEHEN
      23. ComboBoxCOM.Text = My.Settings.ComboBoxCOM
      24. ComboBoxBAUDRATE.Text = My.Settings.ComboBoxBAUDRATE
      25. ComboBoxDATABITS.Text = My.Settings.ComboBoxDATABITS
      26. RadioButton1.Checked = True
      28. btn_AUFZEICHNUNG_START.BackColor = Color.Red
      30. D1minVAL.Value = My.Settings.D1minVAL
      31. D1maxVAL.Value = My.Settings.D1maxVAL
      33. D2minVAL.Value = My.Settings.D2minVAL
      34. D2maxVAL.Value = My.Settings.D2maxVAL
      36. D3minVAL.Value = My.Settings.D3minVAL
      37. D3maxVAL.Value = My.Settings.D3maxVAL
      39. D4minVAL.Value = My.Settings.D4minVAL
      40. D4maxVAL.Value = My.Settings.D4maxVAL
      42. D5minVAL.Value = My.Settings.D5minVAL
      43. D5maxVAL.Value = My.Settings.D5maxVAL
      45. D6minVAL.Value = My.Settings.D6minVAL
      46. 'D6maxVAL.Text = My.Settings.D6maxVAL
      48. My.Settings.Save()
      50. End Sub
      52. Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
      54. If SerialPort1.IsOpen Then SerialPort1.Close() ' PORT Schließen bevor das Programm beendet wird
      55. My.Settings.Save()
      57. End Sub
      59. Private Sub enableControls()
      61. If SerialPort1.IsOpen = False Then ' COM Port ZU
      62. ComboBoxCOM.Enabled = True
      63. btnCOMopen.BackColor = Color.Red
      64. btnCOMopen.Enabled = True
      65. btnCOMopen.Text = "VERBINDUNG AUFBAUEN" ' Wenn PORT ZU dann Steuerelemente zur Verfügung stellen!
      66. ComboBoxBAUDRATE.Enabled = True
      67. ComboBoxDATABITS.Enabled = True
      68. ComboBoxPARITY.Enabled = True
      69. RadioButton1.Enabled = True
      70. RadioButton2.Enabled = True
      72. btn_AUFZEICHNUNG_START.Enabled = False ' Aufzeichnungs BUTTON "NICHT" Verfügbar machen wenn keine Verbindung hergstellt wurde!
      73. btn_AUFZEICHNUNG_BEENDEN.Enabled = False
      75. Else
      76. ' SerialPort1.IsOpen = True ' COM Port AUFGEBAUT
      77. ComboBoxCOM.Enabled = False
      78. btnCOMopen.BackColor = Color.Green
      79. btnCOMopen.Text = "VERBINDUNG AUFGEBAUT" ' Wenn PORT AUF dann Steuerelemente "disabled" machen! Damit man nix verstellen kann!
      80. btnCOMopen.Enabled = False
      81. ComboBoxBAUDRATE.Enabled = False
      82. ComboBoxDATABITS.Enabled = False
      83. ComboBoxPARITY.Enabled = False
      84. RadioButton1.Enabled = False
      85. RadioButton2.Enabled = False
      87. btn_AUFZEICHNUNG_START.Enabled = True ' Aufzeichnungs BUTTON erst Verfügbar machen wenn eine Verbindung hergstellt wurde!
      88. btn_AUFZEICHNUNG_BEENDEN.Enabled = True
      90. End If
      91. Application.DoEvents()
      92. End Sub
      94. Private Sub btnCOMclose_Click(sender As System.Object, e As System.EventArgs) Handles btnCOMclose.Click
      95. ' If SerialPort1.IsOpen = True Then
      96. SerialPort1.Close()
      98. enableControls()
      99. Debug.WriteLine("Port Open: " & SerialPort1.IsOpen)
      101. Me.SPEICHERTIMER.Stop() ' Wenn Verbindung geschlossen wird dann auch AUFZEICHNUNG Beenden!
      103. ComboBoxCOM.Items.Clear()
      104. ComboBoxCOM.Items.AddRange(SerialPort.GetPortNames()) ' ZEIGE ALLE VERFÜGBAREN PORTS IN COMBOBOX
      106. End Sub
      108. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnCOMopen.Click
      109. If SerialPort1.IsOpen = True Then
      110. SerialPort1.Close()
      111. End If
      113. TabControl1.SelectTab(0) ' Schaltet auf den zweiten Reiter zur Anzeige der empfangenen Daten um
      115. With SerialPort1 ' Mit den Ausgewählten Einstellungen den COM Port versuchen zu öffnen
      116. .Encoding = System.Text.Encoding.ASCII
      117. .PortName = ComboBoxCOM.Text
      118. .BaudRate = CInt(ComboBoxBAUDRATE.Text)
      119. .DataBits = CInt(ComboBoxDATABITS.Text)
      120. .Parity = IO.Ports.Parity.None
      121. .StopBits = IO.Ports.StopBits.One
      123. If RadioButton1.Checked Then
      124. .StopBits = StopBits.One
      125. ElseIf RadioButton2.Checked Then
      126. .StopBits = StopBits.Two
      127. End If
      128. .Handshake = Handshake.None
      129. .NewLine = ControlChars.Cr
      130. .ReadTimeout = 700
      131. .Open()
      132. Debug.WriteLine("Port Open: " & SerialPort1.IsOpen)
      133. End With
      134. enableControls()
      136. End Sub
      138. Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
      139. Try
      140. Dim COMDaten As String = SerialPort1.ReadLine()
      141. Me.BeginInvoke(Sub() TransferData(COMDaten))
      142. Console.Write(COMDaten)
      143. Application.DoEvents()
      144. Catch
      145. End Try
      147. End Sub
      149. Private Sub btn_SEND_TOTALZERO_Click(sender As System.Object, e As System.EventArgs) Handles btn_SEND_TOTALZERO.Click
      151. If Not SerialPort1.IsOpen Then
      152. MessageBox.Show("Port ist nicht offen")
      153. Return
      154. End If
      156. Dim TOTALZERO As String = "@$$T"
      157. SerialPort1.WriteLine(TOTALZERO)
      159. End Sub
      161. Public Sub TransferData(COMDaten As String)
      163. TextBox1.Text = COMDaten
      164. Dim d1, d2, d3, d4, d5, d6 As String
      166. Try
      167. d1 = COMDaten.Substring(CInt(D1minVAL.Value), CInt(D1maxVAL.Value))
      168. d2 = COMDaten.Substring(CInt(D2minVAL.Value), CInt(D2maxVAL.Value))
      169. d3 = COMDaten.Substring(CInt(D3minVAL.Value), CInt(D3maxVAL.Value))
      170. d4 = COMDaten.Substring(CInt(D4minVAL.Value), CInt(D4maxVAL.Value))
      171. d5 = COMDaten.Substring(CInt(D5minVAL.Value), CInt(D5maxVAL.Value))
      172. d6 = COMDaten.Substring(44)
      174. lblDRUCK.Text = d1.ToString
      175. lblTEMP.Text = d2.ToString
      176. lblVOLUMENFLUSS.Text = d3.ToString
      177. VerticalProgressBarClass1.Value = CInt(d3)
      178. Label13.Text = CStr(d3)
      179. lblSTANDARTLITER.Text = d5.ToString
      180. lblGASART.Text = d6.ToString
      182. TextBox7.Text = d1.ToString
      183. TextBox8.Text = d2.ToString
      184. TextBox9.Text = d3.ToString
      185. TextBox10.Text = d4.ToString
      186. TextBox11.Text = "SOLLWERT/NOt USED"
      187. TextBox12.Text = d6.ToString
      189. Catch e As Exception
      190. End Try
      192. Application.DoEvents()
      194. End Sub
      196. Private Sub btn_CLOSE_PROGRAMM(sender As System.Object, e As System.EventArgs) Handles btnCLOSE_PROGRAMM.Click
      198. Me.Close()
      200. End Sub
      202. Private Sub ToolStrip1_ItemClicked(sender As System.Object, e As System.Windows.Forms.ToolStripItemClickedEventArgs)
      204. Me.Close()
      206. End Sub
      208. Private Sub SaveFileDialog1_FileOk(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
      210. 'TextBox2.Text = SaveFileDialog1.FileName
      211. 'SaveFileDialog1.CreatePrompt = True
      212. 'SaveFileDialog1.OverwritePrompt = True
      214. End Sub
      216. Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click
      218. With SaveFileDialog1
      219. .AddExtension = True
      220. .Filter = "Comma-separated values (*.csv)|*.csv|Alle Dateien (*.*)|*.*"
      222. If .ShowDialog = Windows.Forms.DialogResult.OK Then
      223. TextBox2.Text = .FileName.ToString
      224. End If
      225. End With
      227. End Sub
      229. Public Sub btn_AUFZEICHNUNG_START_Click(sender As System.Object, e As System.EventArgs) Handles btn_AUFZEICHNUNG_START.Click
      231. btn_AUFZEICHNUNG_START.BackColor = Color.Green
      232. btn_AUFZEICHNUNG_START.Text = "AUFZEICHNUNG LÄUFT!"
      234. TextBox3.Text = "0" ' Die Messwerte werden wieder auf Null bzw.auf Anfangswerte gesetzt
      235. TextBox4.Text = "0"
      236. MESSPUNKTE.Text = "0"
      237. MESSWERTEZÄHLER = 0
      238. MESSZEIT = 0
      240. file = My.Computer.FileSystem.OpenTextFileWriter(TextBox2.Text, True)
      241. file.WriteLine("MESSWERTZÄHLER" + "," + "DATUM & UHRZEIT" + "," + "DRUCK(bar)" + "," + "TEMPERATUR(°C)" + "," + "VOLUMENFLUSS(L/min.)" + "," + "STANDARTLITER" + "," + "AUSGEWÄHLTE GASART")
      243. Me.SPEICHERTIMER.Start()
      244. TabControl1.SelectTab(0)
      245. TextBox3.Text = CStr(DateTime.Now)
      246. TextBox4.Text = " "
      248. Me.DAUERTIMER.Start()
      250. End Sub
      252. Public Sub DatenAbspeichern()
      254. ' Hier werden die Angezeigten Messdaten in das File geschrieben!
      255. file.WriteLine(MESSWERTEZÄHLER.ToString + "," + Now.ToString + "," + lblDRUCK.Text + "," + lblTEMP.Text + "," + lblVOLUMENFLUSS.Text + "," + lblSTANDARTLITER.Text + "," + lblGASART.Text)
      257. End Sub
      259. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
      261. INTRO_LOAD_FORM.Show()
      263. TextBox2.Text = My.Settings.SPEICHERPFAD
      265. End Sub
      267. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles SPEICHERTIMER.Tick
      269. Me.SPEICHERTIMER.Interval = CInt(NumericUpDown1.Value * 1000)
      270. DatenAbspeichern()
      271. MESSWERTEZÄHLER += 1
      272. MESSPUNKTE.Text = MESSWERTEZÄHLER.ToString
      274. End Sub
      276. Private Sub btn_AUFZEICHNUNG_BEENDEN_Click(sender As System.Object, e As System.EventArgs) Handles btn_AUFZEICHNUNG_BEENDEN.Click
      278. btn_AUFZEICHNUNG_START.BackColor = Color.Red
      279. btn_AUFZEICHNUNG_START.Text = "AUFZEICHNUNG STARTEN"
      280. Me.SPEICHERTIMER.Stop()
      281. TextBox4.Text = CStr(DateTime.Now)
      282. Me.DAUERTIMER.Stop()
      283. file.WriteLine("Messung wurde gestartet am :" + TextBox3.Text)
      284. file.WriteLine("Messung wurde beendet am :" + TextBox4.Text)
      285. file.WriteLine("Die Messung dauerte (in Sekunden) :" + TextBox5.Text)
      286. file.WriteLine("Es wurden " + CStr(MESSPUNKTE.Text) + " Messpunkte aufgenommen!")
      287. file.Close()
      289. End Sub
      291. Private Sub TabPage1_Click(sender As System.Object, e As System.EventArgs) Handles TabPage1.Click
      293. End Sub
      295. Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
      297. Try
      298. If TextBox2.Text >= " " Then
      299. Process.Start(TextBox2.Text) ' RUFT DIE ABGESPEICHERTE DATEI AUF / WENN EXCEL INSTALLIERT IST STARTET EXCEL
      300. ElseIf TextBox2.Text = " " Then
      301. MsgBox("ACHTUNG KEINE DATEI ZUM SPEICHERN ANGEGEBEN!", MsgBoxStyle.Exclamation)
      303. Else : MsgBox("Hallo! Da ist was schief gelaufen!!", MsgBoxStyle.Exclamation)
      304. End If
      306. Catch ex As Exception
      307. MsgBox("Hallo! Da ist was schief gelaufen!! Bitte prüfen ob eine Datei zum Anzeigen da ist! ", MsgBoxStyle.Critical)
      309. End Try
      311. End Sub
      313. Private Sub Timer1_Tick_1(sender As System.Object, e As System.EventArgs) Handles DAUERTIMER.Tick
      314. 'Die Messzeit wird um eine Sekunde erhöht und in Textbox5.text angezeigt!
      315. Messzeit += 1
      316. TextBox5.Text = Messzeit.ToString
      318. End Sub
      320. Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
      322. CHART.Show()
      324. End Sub
      326. Private Sub TextBox3_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox3.TextChanged
      328. End Sub
      330. Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
      332. 'VOREINSTELLUNGEN DER FORM UND AUSSEHEN
      333. ComboBoxCOM.Text = "COM3"
      334. ComboBoxBAUDRATE.Text = "19200"
      335. ComboBoxDATABITS.Text = "8"
      336. RadioButton1.Checked = True
      337. NumericUpDown1.Value = 1
      339. End Sub
      341. Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
      343. My.Settings.ComboBoxCOM = ComboBoxCOM.Text
      344. My.Settings.ComboBoxBAUDRATE = ComboBoxBAUDRATE.Text
      345. My.Settings.ComboBoxDATABITS = ComboBoxDATABITS.Text
      346. 'RadioButton1.Checked = True
      347. My.Settings.Save()
      349. End Sub
      351. Private Sub btn_SEND_VOLUMEZERO_Click(sender As System.Object, e As System.EventArgs) Handles btn_SEND_VOLUMEZERO.Click
      353. If Not SerialPort1.IsOpen Then
      354. MessageBox.Show("Port ist nicht offen")
      355. Return
      356. End If
      358. Dim VOLUMENFLUSSTARE As String = "@$$V"
      359. SerialPort1.WriteLine(VOLUMENFLUSSTARE)
      361. End Sub
      363. Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
      365. If Me.Size.Width = 532 Then
      366. Button8.Text = "AK-TOOL<--"
      367. Me.Size = New System.Drawing.Size(1064, 700)
      368. ElseIf Me.Size.Width = 1064 Then
      369. Button8.Text = "AK-TOOL-->"
      370. Me.Size = New System.Drawing.Size(532, 700)
      371. End If
      373. End Sub
      375. Private Sub Label15_Click(sender As System.Object, e As System.EventArgs) Handles Label15.Click
      377. End Sub
      379. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
      381. D1minVAL.Value = 0 ' HIER WIRD FESTGELEGT WAS FÜR STANDARTWERTE FÜR DIE ZERLEGUNG DES DATENSTRINGS GELTEN min = ANFANG DES WERTES
      382. D1maxVAL.Value = 8 ' max MARKIERT DAS ENDE DES WERTES
      384. D2minVAL.Value = 9
      385. D2maxVAL.Value = 7
      387. D3minVAL.Value = 16
      388. D3maxVAL.Value = 7
      390. D4minVAL.Value = 24
      391. D4maxVAL.Value = 7
      393. D5minVAL.Value = 32
      394. D5maxVAL.Value = 8
      396. D6minVAL.Value = 44
      397. 'D6maxVAL.Text = WHAT EVER
      399. End Sub
      401. Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
      403. My.Settings.D1minVAL = CInt(D1minVAL.Value)
      404. My.Settings.D1maxVAL = CInt(D1maxVAL.Value)
      406. My.Settings.D2minVAL = CInt(D2minVAL.Value)
      407. My.Settings.D2maxVAL = CInt(D2maxVAL.Value)
      409. My.Settings.D3minVAL = CInt(D3minVAL.Value)
      410. My.Settings.D3maxVAL = CInt(D3maxVAL.Value)
      412. My.Settings.D4minVAL = CInt(D4minVAL.Value)
      413. My.Settings.D4maxVAL = CInt(D4maxVAL.Value)
      415. My.Settings.D5minVAL = CInt(D5minVAL.Value)
      416. My.Settings.D5maxVAL = CInt(D5maxVAL.Value)
      418. My.Settings.D6minVAL = CInt(D6minVAL.Value)
      419. 'My.Settings.D6maxVAL = CInt(D6maxVAL.Text)
      421. My.Settings.Save()
      423. End Sub
      425. Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
      427. If Not SerialPort1.IsOpen Then
      428. MessageBox.Show("Port ist nicht offen")
      429. Return
      430. End If
      432. Dim MESSAGE As String = TextBox6.Text
      433. SerialPort1.WriteLine(MESSAGE)
      435. End Sub
      437. Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
      439. If Not SerialPort1.IsOpen Then
      440. MessageBox.Show("Port ist nicht offen")
      441. Return
      442. End If
      444. Try
      445. Dim MESSAGE As String 'DIE AUSWAHL WIRD IM STRING MESSAGE AN DEN SERIAL PORT ÜBERGEBEN
      447. If RadioButton00.Checked Then MESSAGE = "@$$0" 'GASAUSWAHL Luft
      448. If RadioButton01.Checked Then MESSAGE = "@$$1" 'GASAUSWAHL ARGON
      449. If RadioButton02.Checked Then MESSAGE = "@$$2" 'GASAUSWAHL METHAN
      450. If RadioButton03.Checked Then MESSAGE = "@$$3" 'GASAUSWAHL KOHLENMONOXID
      451. If RadioButton04.Checked Then MESSAGE = "@$$4" 'GASAUSWAHL KOHLENDIOXID
      452. If RadioButton05.Checked Then MESSAGE = "@$$5" 'GASAUSWAHL ETHAN
      453. If RadioButton06.Checked Then MESSAGE = "@$$6" 'GASAUSWAHL WASSERSTOFF
      454. If RadioButton07.Checked Then MESSAGE = "@$$7" 'GASAUSWAHL HELIUM
      455. If RadioButton08.Checked Then MESSAGE = "@$$8" 'GASAUSWAHL STICKSTOFF
      456. If RadioButton09.Checked Then MESSAGE = "@$$9" 'GASAUSWAHL STICKOXID
      457. If RadioButton10.Checked Then MESSAGE = "@$$10" 'GASAUSWAHL NEON
      458. If RadioButton11.Checked Then MESSAGE = "@$$11" 'GASAUSWAHL SAUERSTOFF
      459. If RadioButton12.Checked Then MESSAGE = "@$$12" 'GASAUSWAHL PROPAN
      460. If RadioButton13.Checked Then MESSAGE = "@$$13" 'GASAUSWAHL NORMAL-BUTAN
      461. If RadioButton14.Checked Then MESSAGE = "@$$14" 'GASAUSWAHL AZETYLEN
      462. If RadioButton15.Checked Then MESSAGE = "@$$15" 'GASAUSWAHL ETHYLEN
      463. If RadioButton16.Checked Then MESSAGE = "@$$16" 'GASAUSWAHL ISOBUTAN
      464. If RadioButton17.Checked Then MESSAGE = "@$$17" 'GASAUSWAHL KRYPTON
      465. If RadioButton18.Checked Then MESSAGE = "@$$18" 'GASAUSWAHL XENON
      466. If RadioButton19.Checked Then MESSAGE = "@$$19" 'GASAUSWAHL SCHWEFELHEXAFLUORID
      467. If RadioButton20.Checked Then MESSAGE = "@$$20" 'GASAUSWAHL 75%ARGON/25%CO2
      468. If RadioButton21.Checked Then MESSAGE = "@$$21" 'GASAUSWAHL 90%ARGON/10%CO2
      469. If RadioButton22.Checked Then MESSAGE = "@$$22" 'GASAUSWAHL 92%ARGON/8%CO2
      470. If RadioButton23.Checked Then MESSAGE = "@$$23" 'GASAUSWAHL 98%ARGON/2%CO2
      471. If RadioButton24.Checked Then MESSAGE = "@$$24" 'GASAUSWAHL 75%CO2/25%ARGON
      472. If RadioButton25.Checked Then MESSAGE = "@$$25" 'GASAUSWAHL 75%ARGON/25%HELIUM
      473. If RadioButton26.Checked Then MESSAGE = "@$$26" 'GASAUSWAHL 75%HELIUM/25%ARGON
      474. If RadioButton27.Checked Then MESSAGE = "@$$27" 'GASAUSWAHL 90%HELIUM/7,5%ARGON/2,5%CO2
      475. If RadioButton28.Checked Then MESSAGE = "@$$28" 'GASAUSWAHL 90%ARGON/8%CO2/2%SAUERSTOFF
      476. If RadioButton29.Checked Then MESSAGE = "@$$29" 'GASAUSWAHL 95%ARGON/5%METHAN
      478. SerialPort1.WriteLine(MESSAGE)
      480. Catch ex As Exception
      481. End Try
      483. End Sub
      485. Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
      487. Me.Hide()
      488. Application.DoEvents()
      490. End Sub
      492. Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
      494. INTRO_LOAD_FORM.Show()
      495. INTRO_LOAD_FORM.Button1.Visible = True
      496. INTRO_LOAD_FORM.TextBox1.Visible = True
      497. INTRO_LOAD_FORM.ProgressBar1.Visible = False
      499. End Sub
      501. Private Sub Label10_Click(sender As Object, e As EventArgs) Handles Label10.Click
      503. End Sub
      504. End Class


      [b]Code-Tags eingefügt. Verschoben.       ~Thunderbolt
      "Why the heck is this peace of shit not work'in?" ?( ......."Oh...i see! ..cause I'm not work'in!!" 8|

      Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Beppi4u“ ()

    Facebook
    Telefonspende