From 440eef226bfeb45dc009a351d12cd9ce681d04f8 Mon Sep 17 00:00:00 2001 From: aduut Date: Thu, 19 Nov 2015 10:50:32 +0000 Subject: [PATCH] Modification to Output for CPT, with all parameters. --- instat/dlgOutputforCPT.designer.vb | 62 +++++++++++++++++++++++++++++- instat/dlgOutputforCPT.vb | 35 ++++++++++++++++- 2 files changed, 95 insertions(+), 2 deletions(-) diff --git a/instat/dlgOutputforCPT.designer.vb b/instat/dlgOutputforCPT.designer.vb index 082b8dd0987..ce866a7d689 100644 --- a/instat/dlgOutputforCPT.designer.vb +++ b/instat/dlgOutputforCPT.designer.vb @@ -23,6 +23,11 @@ Partial Class dlgOutputforCPT _ Private Sub InitializeComponent() Me.ucrBase = New instat.ucrButtons() + Me.Label1 = New System.Windows.Forms.Label() + Me.lblFilename = New System.Windows.Forms.Label() + Me.txtFilename = New System.Windows.Forms.TextBox() + Me.txtInterestedVariable = New System.Windows.Forms.TextBox() + Me.lblInterestedVariable = New System.Windows.Forms.Label() Me.SuspendLayout() ' 'ucrBase @@ -32,20 +37,75 @@ Partial Class dlgOutputforCPT Me.ucrBase.Size = New System.Drawing.Size(410, 32) Me.ucrBase.TabIndex = 0 ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(50, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(125, 13) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Data list not implemented" + ' + 'lblFilename + ' + Me.lblFilename.AutoSize = True + Me.lblFilename.Location = New System.Drawing.Point(12, 58) + Me.lblFilename.Name = "lblFilename" + Me.lblFilename.Size = New System.Drawing.Size(39, 13) + Me.lblFilename.TabIndex = 2 + Me.lblFilename.Tag = "Filename" + Me.lblFilename.Text = "Label2" + ' + 'txtFilename + ' + Me.txtFilename.Location = New System.Drawing.Point(121, 55) + Me.txtFilename.Name = "txtFilename" + Me.txtFilename.Size = New System.Drawing.Size(221, 20) + Me.txtFilename.TabIndex = 5 + ' + 'txtInterestedVariable + ' + Me.txtInterestedVariable.Location = New System.Drawing.Point(121, 109) + Me.txtInterestedVariable.Name = "txtInterestedVariable" + Me.txtInterestedVariable.Size = New System.Drawing.Size(221, 20) + Me.txtInterestedVariable.TabIndex = 6 + ' + 'lblInterestedVariable + ' + Me.lblInterestedVariable.AutoSize = True + Me.lblInterestedVariable.Location = New System.Drawing.Point(12, 116) + Me.lblInterestedVariable.Name = "lblInterestedVariable" + Me.lblInterestedVariable.Size = New System.Drawing.Size(39, 13) + Me.lblInterestedVariable.TabIndex = 7 + Me.lblInterestedVariable.Text = "Label3" + ' 'dlgOutputforCPT ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(436, 262) + Me.Controls.Add(Me.lblInterestedVariable) + Me.Controls.Add(Me.txtInterestedVariable) + Me.Controls.Add(Me.txtFilename) + Me.Controls.Add(Me.lblFilename) + Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.ucrBase) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "dlgOutputforCPT" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Tag = "Output_for_CPT" - Me.Text = "dlgOutputforCPT" + Me.Text = "Output for CPT" Me.ResumeLayout(False) + Me.PerformLayout() End Sub Friend WithEvents ucrBase As ucrButtons + Friend WithEvents Label1 As Label + Friend WithEvents lblFilename As Label + Friend WithEvents txtFilename As TextBox + Friend WithEvents txtInterestedVariable As TextBox + Friend WithEvents lblInterestedVariable As Label End Class diff --git a/instat/dlgOutputforCPT.vb b/instat/dlgOutputforCPT.vb index 77e012353ee..f7bffbc0c54 100644 --- a/instat/dlgOutputforCPT.vb +++ b/instat/dlgOutputforCPT.vb @@ -1,3 +1,36 @@ -Public Class dlgOutputforCPT + +' Instat-R +' Copyright (C) 2015 +' +' This program is free software: you can redistribute it and/or modify +' it under the terms of the GNU General Public License as published by +' the Free Software Foundation, either version 3 of the License, or +' (at your option) any later version. +' +' This program is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU General Public License for more details. +' +' You should have received a copy of the GNU General Public License k +' along with this program. If not, see . +Imports instat.Translations + +Public Class dlgOutputforCPT + Private Sub txtFilename_Leave(sender As Object, e As EventArgs) Handles txtFilename.Leave + ucrBase.clsRsyntax.AddParameter("Filename", Chr(34) & txtFilename.Text & Chr(34)) + + End Sub + + Private Sub txtInterestedVariable_Leave(sender As Object, e As EventArgs) Handles txtInterestedVariable.Leave + ucrBase.clsRsyntax.AddParameter("Interested_vaiables", Chr(34) & txtInterestedVariable.Text & Chr(34)) + End Sub + + Private Sub dlgOutputforCPT_Load(sender As Object, e As EventArgs) Handles MyBase.Load + autoTranslate(Me) + ucrBase.clsRsyntax.SetFunction("climate_obj$output_for_CPT()") + ucrBase.clsRsyntax.iCallType = 1 + End Sub + End Class \ No newline at end of file