Emmanuele Sassi
21 lines
686 B
VB.net
21 lines
686 B
VB.net
Imports SteamWare
|
|
Imports AppData
|
|
Imports AppData.ComLib
|
|
|
|
Public Class Form1
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
' invio notifica che c'è una busta da processare
|
|
Dim redKey = $"PROVA:CURR"
|
|
' scrivo su REDIS
|
|
memLayer.ML.setRSV(redKey, "ciao " & DateTime.Now.ToString())
|
|
'ComLib.sendMaterials()
|
|
Label1.Text = memLayer.ML.getRSV(redKey)
|
|
Dim x As New Takt
|
|
x = readTakt("PROD", "20190821.1")
|
|
'x.StackList(0).PanelsList(0).Printing()
|
|
'Dim d = memLayer.ML.connRedis.Configure.
|
|
'Dim h = memLayer.ML.connRedis
|
|
End Sub
|
|
|
|
End Class
|