精品精品-精品精品国-精品精品国产-精品精品国产高-精品精品国产高清-精品精品国产国产-精品精品国产精品等-精品精品国产理论

歐姆龍CP1H上傳數據到威倫觸摸屏并做數據庫！
比如將壓力值上傳到觸摸屏，并將多次上傳的值做成數據庫，方便查詢！謝謝各位了

差不多做完了

//********配方系統變量的定義******
short Formula_Selection   //選中配方的編號
short Formula_Count   //配方大小
char Formula_QR[20]       //配方中產品的二維碼

char null[20] = "                "

GetData(Formula_Count, "Local HMI", RECIPE, "DATA1.Count")
GetData(Formula_Selection, "Local HMI", RECIPE, "DATA1.Selection")
GetData(search, "Local HMI", LB, 500, 1)
if search == true then
   StringGet(QR[0], "Local HMI", LW, 500, 10)
    /////********************************搜索配方中是否存在相同產品的二維碼信息******************
   if Formula_Count > 0 then
      index_dis = 0
      for index_qr = 0 to Formula_Count step 1
          QR_Same = true
          SetData(index_qr, "Local HMI", RECIPE, "DATA1.Selection")
          StringGet(Formula_QR[0], "Local HMI", RECIPE, "DATA1.ProdInfo")
          for index = 0 to 1 step 1
              if QR[0] <> Formula_QR [0] then
                 QR_Same = false
                 break
              end if
           next
           if QR_Same == true then
              //搜索到相同的數據,打印
              StringGet(Mode[0], "Local HMI", RECIPE, "DATA1.Mode")
              GetData(QR[0], "Local HMI", RECIPE, "DATA1.ProdInfo")
              //StringGet(QR[0], "Local HMI", RECIPE, "DATA1.ProdInfo")
              StringGet(date[0], "Local HMI", RECIPE, "DATA1.Date1")
              GetData(AirP, "Local HMI", RECIPE, "DATA1._Result")
              StringGet(date2[0], "Local HMI", RECIPE, "DATA1.Date2")
              GetData(TestP, "Local HMI", RECIPE, "DATA1.TestP")
              GetData(Leap, "Local HMI", RECIPE, "DATA1.Leak")
              StringGet(Result1[0], "Local HMI", RECIPE, "DATA1.T_Result")
          
          
              StringSet(Mode[0], "Local HMI", LW, 1000 + index_dis*100, 1)
              StringSet(QR[0], "Local HMI", LW, 1001 + index_dis*100, 20)
              StringSet(date[0], "Local HMI", LW, 1022 + index_dis*100, 11)
              SetData(AirP, "Local HMI", LW, 1040+ index_dis*100, 1)
              if date2[0] == ' ' then
                 StringSet(null[0], "Local HMI", LW, 1042 + index_dis*100, 11)
              else
                 StringSet(date2[0], "Local HMI", LW, 1042 + index_dis*100, 11)
              end if
              SetData(TestP, "Local HMI", LW, 1060+ index_dis*100, 1)
              SetData(Leap, "Local HMI", LW, 1062+ index_dis*100, 1)
              StringSet(Result1[0], "Local HMI", LW, 1064 + index_dis*100, 4)
              if index_dis < 9 then
                 index_dis = index_dis + 1
                 disFull = false
              else
                 disFull = true
              end if
              //break
           end if
       //DELAY(3000)
       next
       if disFull == false then
           for index = index_dis to 9 step 1
               StringSet(null[0], "Local HMI", LW, 1000 + index*100, 1)
               StringSet(null[0], "Local HMI", LW, 1001 + index*100, 20)
               StringSet(null[0], "Local HMI", LW, 1022 + index*100, 11)
               SetData(F_Zero, "Local HMI", LW, 1040+ index*100, 1)
               StringSet(null[0], "Local HMI", LW, 1042 + index*100, 11)
               SetData(F_Zero, "Local HMI", LW, 1060+ index*100, 1)
               SetData(F_Zero, "Local HMI", LW, 1062+ index*100, 1)
               StringSet(null[0], "Local HMI", LW, 1064 + index*100, 4)
           next
       end if
    end if
end if