السلام عليكم ورحمة الله وبركاتة
املك الكود التالي بلغة VB واحتاج مساعدة في نقله لغة VB.NET
لا أملك أي خلفية عن لغة الـ VB.NET .
Dim counter1, x, y, outputs, inputs, flag As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Form_Load() dp.address = 888 sp.address = 889 cp.address = 890 cp.Value = 1 End Sub Private Sub Timer1_Timer() DoEvents If counter1 < 0 Then counter1 = 0 x = counter1 Mod 10 y = (counter1 - x) / 10 y = y * (2 ^ 4) outputs = y Or x dp.Value = outputs If counter1 > 99 Then counter1 = 0 inputs = (sp.Value And 24) / 8 If inputs = 3 Then flag = 3 ElseIf inputs = 2 Then If Not inputs = flag Then counter1 = counter1 + 1 flag = 2 End If ElseIf inputs = 1 Then If Not inputs = flag Then counter1 = counter1 - 1 flag = 1 End If ElseIf inputs = 0 Then flag = 0 End If End Sub
