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
NOCH ETWAS CODE:
[b]Code-Tags eingefügt. Verschoben. ~Thunderbolt
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
NOCH ETWAS CODE:
Quellcode
- Imports System.IO.Ports
- Imports System.Diagnostics
- Imports System.Windows.Forms.DataVisualization.Charting
- Imports System.IO.StreamWriter
- Public Class Form1
- Dim MESSWERTEZÄHLER As Integer = 1 ' Gibt die Anzahl der Messpunkte wieder!
- Dim MESSZEIT As Integer = 1 ' Gibt die Dauer der Messung in Sekunden wieder!
- Dim file As System.IO.StreamWriter
- Public Sub New()
- InitializeComponent()
- enableControls()
- Me.DAUERTIMER.Stop()
- ' ZEIGE ALLE VERFÜGBAREN PORTS IN COMBOBOX
- ComboBoxCOM.Items.AddRange(SerialPort.GetPortNames())
- Me.Size = New System.Drawing.Size(532, 745) ' Die Form auf eingeklapptes Format bringen!
- 'VOREINSTELLUNGEN DER FORM UND AUSSEHEN
- ComboBoxCOM.Text = My.Settings.ComboBoxCOM
- ComboBoxBAUDRATE.Text = My.Settings.ComboBoxBAUDRATE
- ComboBoxDATABITS.Text = My.Settings.ComboBoxDATABITS
- RadioButton1.Checked = True
- btn_AUFZEICHNUNG_START.BackColor = Color.Red
- D1minVAL.Value = My.Settings.D1minVAL
- D1maxVAL.Value = My.Settings.D1maxVAL
- D2minVAL.Value = My.Settings.D2minVAL
- D2maxVAL.Value = My.Settings.D2maxVAL
- D3minVAL.Value = My.Settings.D3minVAL
- D3maxVAL.Value = My.Settings.D3maxVAL
- D4minVAL.Value = My.Settings.D4minVAL
- D4maxVAL.Value = My.Settings.D4maxVAL
- D5minVAL.Value = My.Settings.D5minVAL
- D5maxVAL.Value = My.Settings.D5maxVAL
- D6minVAL.Value = My.Settings.D6minVAL
- 'D6maxVAL.Text = My.Settings.D6maxVAL
- My.Settings.Save()
- End Sub
- Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
- If SerialPort1.IsOpen Then SerialPort1.Close() ' PORT Schließen bevor das Programm beendet wird
- My.Settings.Save()
- End Sub
- Private Sub enableControls()
- If SerialPort1.IsOpen = False Then ' COM Port ZU
- ComboBoxCOM.Enabled = True
- btnCOMopen.BackColor = Color.Red
- btnCOMopen.Enabled = True
- btnCOMopen.Text = "VERBINDUNG AUFBAUEN" ' Wenn PORT ZU dann Steuerelemente zur Verfügung stellen!
- ComboBoxBAUDRATE.Enabled = True
- ComboBoxDATABITS.Enabled = True
- ComboBoxPARITY.Enabled = True
- RadioButton1.Enabled = True
- RadioButton2.Enabled = True
- btn_AUFZEICHNUNG_START.Enabled = False ' Aufzeichnungs BUTTON "NICHT" Verfügbar machen wenn keine Verbindung hergstellt wurde!
- btn_AUFZEICHNUNG_BEENDEN.Enabled = False
- Else
- ' SerialPort1.IsOpen = True ' COM Port AUFGEBAUT
- ComboBoxCOM.Enabled = False
- btnCOMopen.BackColor = Color.Green
- btnCOMopen.Text = "VERBINDUNG AUFGEBAUT" ' Wenn PORT AUF dann Steuerelemente "disabled" machen! Damit man nix verstellen kann!
- btnCOMopen.Enabled = False
- ComboBoxBAUDRATE.Enabled = False
- ComboBoxDATABITS.Enabled = False
- ComboBoxPARITY.Enabled = False
- RadioButton1.Enabled = False
- RadioButton2.Enabled = False
- btn_AUFZEICHNUNG_START.Enabled = True ' Aufzeichnungs BUTTON erst Verfügbar machen wenn eine Verbindung hergstellt wurde!
- btn_AUFZEICHNUNG_BEENDEN.Enabled = True
- End If
- Application.DoEvents()
- End Sub
- Private Sub btnCOMclose_Click(sender As System.Object, e As System.EventArgs) Handles btnCOMclose.Click
- ' If SerialPort1.IsOpen = True Then
- SerialPort1.Close()
- enableControls()
- Debug.WriteLine("Port Open: " & SerialPort1.IsOpen)
- Me.SPEICHERTIMER.Stop() ' Wenn Verbindung geschlossen wird dann auch AUFZEICHNUNG Beenden!
- ComboBoxCOM.Items.Clear()
- ComboBoxCOM.Items.AddRange(SerialPort.GetPortNames()) ' ZEIGE ALLE VERFÜGBAREN PORTS IN COMBOBOX
- End Sub
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnCOMopen.Click
- If SerialPort1.IsOpen = True Then
- SerialPort1.Close()
- End If
- TabControl1.SelectTab(0) ' Schaltet auf den zweiten Reiter zur Anzeige der empfangenen Daten um
- With SerialPort1 ' Mit den Ausgewählten Einstellungen den COM Port versuchen zu öffnen
- .Encoding = System.Text.Encoding.ASCII
- .PortName = ComboBoxCOM.Text
- .BaudRate = CInt(ComboBoxBAUDRATE.Text)
- .DataBits = CInt(ComboBoxDATABITS.Text)
- .Parity = IO.Ports.Parity.None
- .StopBits = IO.Ports.StopBits.One
- If RadioButton1.Checked Then
- .StopBits = StopBits.One
- ElseIf RadioButton2.Checked Then
- .StopBits = StopBits.Two
- End If
- .Handshake = Handshake.None
- .NewLine = ControlChars.Cr
- .ReadTimeout = 700
- .Open()
- Debug.WriteLine("Port Open: " & SerialPort1.IsOpen)
- End With
- enableControls()
- End Sub
- Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
- Try
- Dim COMDaten As String = SerialPort1.ReadLine()
- Me.BeginInvoke(Sub() TransferData(COMDaten))
- Console.Write(COMDaten)
- Application.DoEvents()
- Catch
- End Try
- End Sub
- Private Sub btn_SEND_TOTALZERO_Click(sender As System.Object, e As System.EventArgs) Handles btn_SEND_TOTALZERO.Click
- If Not SerialPort1.IsOpen Then
- MessageBox.Show("Port ist nicht offen")
- Return
- End If
- Dim TOTALZERO As String = "@$$T"
- SerialPort1.WriteLine(TOTALZERO)
- End Sub
- Public Sub TransferData(COMDaten As String)
- TextBox1.Text = COMDaten
- Dim d1, d2, d3, d4, d5, d6 As String
- Try
- d1 = COMDaten.Substring(CInt(D1minVAL.Value), CInt(D1maxVAL.Value))
- d2 = COMDaten.Substring(CInt(D2minVAL.Value), CInt(D2maxVAL.Value))
- d3 = COMDaten.Substring(CInt(D3minVAL.Value), CInt(D3maxVAL.Value))
- d4 = COMDaten.Substring(CInt(D4minVAL.Value), CInt(D4maxVAL.Value))
- d5 = COMDaten.Substring(CInt(D5minVAL.Value), CInt(D5maxVAL.Value))
- d6 = COMDaten.Substring(44)
- lblDRUCK.Text = d1.ToString
- lblTEMP.Text = d2.ToString
- lblVOLUMENFLUSS.Text = d3.ToString
- VerticalProgressBarClass1.Value = CInt(d3)
- Label13.Text = CStr(d3)
- lblSTANDARTLITER.Text = d5.ToString
- lblGASART.Text = d6.ToString
- TextBox7.Text = d1.ToString
- TextBox8.Text = d2.ToString
- TextBox9.Text = d3.ToString
- TextBox10.Text = d4.ToString
- TextBox11.Text = "SOLLWERT/NOt USED"
- TextBox12.Text = d6.ToString
- Catch e As Exception
- End Try
- Application.DoEvents()
- End Sub
- Private Sub btn_CLOSE_PROGRAMM(sender As System.Object, e As System.EventArgs) Handles btnCLOSE_PROGRAMM.Click
- Me.Close()
- End Sub
- Private Sub ToolStrip1_ItemClicked(sender As System.Object, e As System.Windows.Forms.ToolStripItemClickedEventArgs)
- Me.Close()
- End Sub
- Private Sub SaveFileDialog1_FileOk(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
- 'TextBox2.Text = SaveFileDialog1.FileName
- 'SaveFileDialog1.CreatePrompt = True
- 'SaveFileDialog1.OverwritePrompt = True
- End Sub
- Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- With SaveFileDialog1
- .AddExtension = True
- .Filter = "Comma-separated values (*.csv)|*.csv|Alle Dateien (*.*)|*.*"
- If .ShowDialog = Windows.Forms.DialogResult.OK Then
- TextBox2.Text = .FileName.ToString
- End If
- End With
- End Sub
- Public Sub btn_AUFZEICHNUNG_START_Click(sender As System.Object, e As System.EventArgs) Handles btn_AUFZEICHNUNG_START.Click
- btn_AUFZEICHNUNG_START.BackColor = Color.Green
- btn_AUFZEICHNUNG_START.Text = "AUFZEICHNUNG LÄUFT!"
- TextBox3.Text = "0" ' Die Messwerte werden wieder auf Null bzw.auf Anfangswerte gesetzt
- TextBox4.Text = "0"
- MESSPUNKTE.Text = "0"
- MESSWERTEZÄHLER = 0
- MESSZEIT = 0
- file = My.Computer.FileSystem.OpenTextFileWriter(TextBox2.Text, True)
- file.WriteLine("MESSWERTZÄHLER" + "," + "DATUM & UHRZEIT" + "," + "DRUCK(bar)" + "," + "TEMPERATUR(°C)" + "," + "VOLUMENFLUSS(L/min.)" + "," + "STANDARTLITER" + "," + "AUSGEWÄHLTE GASART")
- Me.SPEICHERTIMER.Start()
- TabControl1.SelectTab(0)
- TextBox3.Text = CStr(DateTime.Now)
- TextBox4.Text = " "
- Me.DAUERTIMER.Start()
- End Sub
- Public Sub DatenAbspeichern()
- ' Hier werden die Angezeigten Messdaten in das File geschrieben!
- file.WriteLine(MESSWERTEZÄHLER.ToString + "," + Now.ToString + "," + lblDRUCK.Text + "," + lblTEMP.Text + "," + lblVOLUMENFLUSS.Text + "," + lblSTANDARTLITER.Text + "," + lblGASART.Text)
- End Sub
- Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- INTRO_LOAD_FORM.Show()
- TextBox2.Text = My.Settings.SPEICHERPFAD
- End Sub
- Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles SPEICHERTIMER.Tick
- Me.SPEICHERTIMER.Interval = CInt(NumericUpDown1.Value * 1000)
- DatenAbspeichern()
- MESSWERTEZÄHLER += 1
- MESSPUNKTE.Text = MESSWERTEZÄHLER.ToString
- End Sub
- Private Sub btn_AUFZEICHNUNG_BEENDEN_Click(sender As System.Object, e As System.EventArgs) Handles btn_AUFZEICHNUNG_BEENDEN.Click
- btn_AUFZEICHNUNG_START.BackColor = Color.Red
- btn_AUFZEICHNUNG_START.Text = "AUFZEICHNUNG STARTEN"
- Me.SPEICHERTIMER.Stop()
- TextBox4.Text = CStr(DateTime.Now)
- Me.DAUERTIMER.Stop()
- file.WriteLine("Messung wurde gestartet am :" + TextBox3.Text)
- file.WriteLine("Messung wurde beendet am :" + TextBox4.Text)
- file.WriteLine("Die Messung dauerte (in Sekunden) :" + TextBox5.Text)
- file.WriteLine("Es wurden " + CStr(MESSPUNKTE.Text) + " Messpunkte aufgenommen!")
- file.Close()
- End Sub
- Private Sub TabPage1_Click(sender As System.Object, e As System.EventArgs) Handles TabPage1.Click
- End Sub
- Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
- Try
- If TextBox2.Text >= " " Then
- Process.Start(TextBox2.Text) ' RUFT DIE ABGESPEICHERTE DATEI AUF / WENN EXCEL INSTALLIERT IST STARTET EXCEL
- ElseIf TextBox2.Text = " " Then
- MsgBox("ACHTUNG KEINE DATEI ZUM SPEICHERN ANGEGEBEN!", MsgBoxStyle.Exclamation)
- Else : MsgBox("Hallo! Da ist was schief gelaufen!!", MsgBoxStyle.Exclamation)
- End If
- Catch ex As Exception
- MsgBox("Hallo! Da ist was schief gelaufen!! Bitte prüfen ob eine Datei zum Anzeigen da ist! ", MsgBoxStyle.Critical)
- End Try
- End Sub
- Private Sub Timer1_Tick_1(sender As System.Object, e As System.EventArgs) Handles DAUERTIMER.Tick
- 'Die Messzeit wird um eine Sekunde erhöht und in Textbox5.text angezeigt!
- Messzeit += 1
- TextBox5.Text = Messzeit.ToString
- End Sub
- Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
- CHART.Show()
- End Sub
- Private Sub TextBox3_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox3.TextChanged
- End Sub
- Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
- 'VOREINSTELLUNGEN DER FORM UND AUSSEHEN
- ComboBoxCOM.Text = "COM3"
- ComboBoxBAUDRATE.Text = "19200"
- ComboBoxDATABITS.Text = "8"
- RadioButton1.Checked = True
- NumericUpDown1.Value = 1
- End Sub
- Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
- My.Settings.ComboBoxCOM = ComboBoxCOM.Text
- My.Settings.ComboBoxBAUDRATE = ComboBoxBAUDRATE.Text
- My.Settings.ComboBoxDATABITS = ComboBoxDATABITS.Text
- 'RadioButton1.Checked = True
- My.Settings.Save()
- End Sub
- Private Sub btn_SEND_VOLUMEZERO_Click(sender As System.Object, e As System.EventArgs) Handles btn_SEND_VOLUMEZERO.Click
- If Not SerialPort1.IsOpen Then
- MessageBox.Show("Port ist nicht offen")
- Return
- End If
- Dim VOLUMENFLUSSTARE As String = "@$$V"
- SerialPort1.WriteLine(VOLUMENFLUSSTARE)
- End Sub
- Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
- If Me.Size.Width = 532 Then
- Button8.Text = "AK-TOOL<--"
- Me.Size = New System.Drawing.Size(1064, 700)
- ElseIf Me.Size.Width = 1064 Then
- Button8.Text = "AK-TOOL-->"
- Me.Size = New System.Drawing.Size(532, 700)
- End If
- End Sub
- Private Sub Label15_Click(sender As System.Object, e As System.EventArgs) Handles Label15.Click
- End Sub
- Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
- D1minVAL.Value = 0 ' HIER WIRD FESTGELEGT WAS FÜR STANDARTWERTE FÜR DIE ZERLEGUNG DES DATENSTRINGS GELTEN min = ANFANG DES WERTES
- D1maxVAL.Value = 8 ' max MARKIERT DAS ENDE DES WERTES
- D2minVAL.Value = 9
- D2maxVAL.Value = 7
- D3minVAL.Value = 16
- D3maxVAL.Value = 7
- D4minVAL.Value = 24
- D4maxVAL.Value = 7
- D5minVAL.Value = 32
- D5maxVAL.Value = 8
- D6minVAL.Value = 44
- 'D6maxVAL.Text = WHAT EVER
- End Sub
- Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
- My.Settings.D1minVAL = CInt(D1minVAL.Value)
- My.Settings.D1maxVAL = CInt(D1maxVAL.Value)
- My.Settings.D2minVAL = CInt(D2minVAL.Value)
- My.Settings.D2maxVAL = CInt(D2maxVAL.Value)
- My.Settings.D3minVAL = CInt(D3minVAL.Value)
- My.Settings.D3maxVAL = CInt(D3maxVAL.Value)
- My.Settings.D4minVAL = CInt(D4minVAL.Value)
- My.Settings.D4maxVAL = CInt(D4maxVAL.Value)
- My.Settings.D5minVAL = CInt(D5minVAL.Value)
- My.Settings.D5maxVAL = CInt(D5maxVAL.Value)
- My.Settings.D6minVAL = CInt(D6minVAL.Value)
- 'My.Settings.D6maxVAL = CInt(D6maxVAL.Text)
- My.Settings.Save()
- End Sub
- Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
- If Not SerialPort1.IsOpen Then
- MessageBox.Show("Port ist nicht offen")
- Return
- End If
- Dim MESSAGE As String = TextBox6.Text
- SerialPort1.WriteLine(MESSAGE)
- End Sub
- Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
- If Not SerialPort1.IsOpen Then
- MessageBox.Show("Port ist nicht offen")
- Return
- End If
- Try
- Dim MESSAGE As String 'DIE AUSWAHL WIRD IM STRING MESSAGE AN DEN SERIAL PORT ÜBERGEBEN
- If RadioButton00.Checked Then MESSAGE = "@$$0" 'GASAUSWAHL Luft
- If RadioButton01.Checked Then MESSAGE = "@$$1" 'GASAUSWAHL ARGON
- If RadioButton02.Checked Then MESSAGE = "@$$2" 'GASAUSWAHL METHAN
- If RadioButton03.Checked Then MESSAGE = "@$$3" 'GASAUSWAHL KOHLENMONOXID
- If RadioButton04.Checked Then MESSAGE = "@$$4" 'GASAUSWAHL KOHLENDIOXID
- If RadioButton05.Checked Then MESSAGE = "@$$5" 'GASAUSWAHL ETHAN
- If RadioButton06.Checked Then MESSAGE = "@$$6" 'GASAUSWAHL WASSERSTOFF
- If RadioButton07.Checked Then MESSAGE = "@$$7" 'GASAUSWAHL HELIUM
- If RadioButton08.Checked Then MESSAGE = "@$$8" 'GASAUSWAHL STICKSTOFF
- If RadioButton09.Checked Then MESSAGE = "@$$9" 'GASAUSWAHL STICKOXID
- If RadioButton10.Checked Then MESSAGE = "@$$10" 'GASAUSWAHL NEON
- If RadioButton11.Checked Then MESSAGE = "@$$11" 'GASAUSWAHL SAUERSTOFF
- If RadioButton12.Checked Then MESSAGE = "@$$12" 'GASAUSWAHL PROPAN
- If RadioButton13.Checked Then MESSAGE = "@$$13" 'GASAUSWAHL NORMAL-BUTAN
- If RadioButton14.Checked Then MESSAGE = "@$$14" 'GASAUSWAHL AZETYLEN
- If RadioButton15.Checked Then MESSAGE = "@$$15" 'GASAUSWAHL ETHYLEN
- If RadioButton16.Checked Then MESSAGE = "@$$16" 'GASAUSWAHL ISOBUTAN
- If RadioButton17.Checked Then MESSAGE = "@$$17" 'GASAUSWAHL KRYPTON
- If RadioButton18.Checked Then MESSAGE = "@$$18" 'GASAUSWAHL XENON
- If RadioButton19.Checked Then MESSAGE = "@$$19" 'GASAUSWAHL SCHWEFELHEXAFLUORID
- If RadioButton20.Checked Then MESSAGE = "@$$20" 'GASAUSWAHL 75%ARGON/25%CO2
- If RadioButton21.Checked Then MESSAGE = "@$$21" 'GASAUSWAHL 90%ARGON/10%CO2
- If RadioButton22.Checked Then MESSAGE = "@$$22" 'GASAUSWAHL 92%ARGON/8%CO2
- If RadioButton23.Checked Then MESSAGE = "@$$23" 'GASAUSWAHL 98%ARGON/2%CO2
- If RadioButton24.Checked Then MESSAGE = "@$$24" 'GASAUSWAHL 75%CO2/25%ARGON
- If RadioButton25.Checked Then MESSAGE = "@$$25" 'GASAUSWAHL 75%ARGON/25%HELIUM
- If RadioButton26.Checked Then MESSAGE = "@$$26" 'GASAUSWAHL 75%HELIUM/25%ARGON
- If RadioButton27.Checked Then MESSAGE = "@$$27" 'GASAUSWAHL 90%HELIUM/7,5%ARGON/2,5%CO2
- If RadioButton28.Checked Then MESSAGE = "@$$28" 'GASAUSWAHL 90%ARGON/8%CO2/2%SAUERSTOFF
- If RadioButton29.Checked Then MESSAGE = "@$$29" 'GASAUSWAHL 95%ARGON/5%METHAN
- SerialPort1.WriteLine(MESSAGE)
- Catch ex As Exception
- End Try
- End Sub
- Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
- Me.Hide()
- Application.DoEvents()
- End Sub
- Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
- INTRO_LOAD_FORM.Show()
- INTRO_LOAD_FORM.Button1.Visible = True
- INTRO_LOAD_FORM.TextBox1.Visible = True
- INTRO_LOAD_FORM.ProgressBar1.Visible = False
- End Sub
- Private Sub Label10_Click(sender As Object, e As EventArgs) Handles Label10.Click
- End Sub
- 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!!"
Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Beppi4u“ ()