編集履歴

質問編集履歴

意図的に内容を抹消する行為にあたるため

2021/08/10 05:47

投稿

スコア2

test CHANGED Viewed

	@@ -1 +1 @@
1	- ~~※※質問削除願~~い~~ます※※~~
1	+ PythonのコードをC#かVBに変換したい

test CHANGED Viewed

@@ -1,13 +1,175 @@
+PythonのコードをVBかC#に変換したいです。
+目的は学習です。
+Pythonコードは正常に動作している物で
-回答得られない為、本質問は取りやめます。
+VBコードは現在動作していない物です。
+元のPythonコードと、私が書いたVBコードを載せます。
+例外エラーなどは出ず処理は一応実行できますが、動作しない状況です。
+私が書いたVBコードはどこが間違えているのかご教示願いたいです。
+```Python
+import requests
+import json
+# csvファイル取得
-※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
+def get_csv(groupcodes, commandbytes):
-コード削除
+   url = 'http://192.168.14.100:7001/testapi/sendbroadcastcommand?groupcodes={}&commandbytes={}'. format(json.dumps(groupcodes), json.dumps(commandbytes))
+   print(url)
+   headers = {
+       'Content-Type': 'application/x-www-form-urlencoded;charset=UTF-8'
+   }
+   try:
+       response = requests.post(url=url, headers=headers)
+   except Exception as e:
+       print("POST 例外発生！")
+       print(e)
+       return -1
+   if response.status_code != 200:
+       print("POST　応答エラー")
+       return -2
-※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
+if __name__ == '__main__':
+   grcd1 = ['A','B']
+   cmdbyte1 = [4, 17, 0, 234]
+   try:
+       get_csv(grcd1, cmdbyte1)
+   except Exception as e01:
+       print("get_scv()の中に例外発生！")
+       print(e01)
+```
+```VB
+Imports Newtonsoft.Json
+Public Class Form1
+   Public Class testjson
+       Public Property groupcodes As String
+       Public Property commandbytes As String
+       'Public Property sikaku As String()
+   End Class
+   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+       Dim ret As Int32
+       'Dim postData As String
+       Dim postDataBytes As Byte()
+       Dim req As System.Net.WebRequest
+       Dim reqStream As System.IO.Stream = Nothing
+       Dim res As System.Net.WebResponse = Nothing
+       Dim resStream As System.IO.Stream = Nothing
+       Dim sr As System.IO.StreamReader = Nothing
+       Try
+           Dim syain1 As testjson = New testjson()
+           syain1.groupcodes = "['A','B']"
+           syain1.commandbytes = "[4, 17, 0, 234]"
+           Dim Json As String = JsonConvert.SerializeObject(syain1)
+           'バイト型配列に変換
+           postDataBytes = System.Text.Encoding.UTF8.GetBytes(Json)
+           'WebRequestの作成
+           req = System.Net.WebRequest.Create("http://192.168.14.100:7001/testapi/sendbroadcastcommand")
+           'メソッドにPOSTを指定
+           req.Method = "POST"
+           'ContentTypeを"application/json"にする
+           req.ContentType = "application/json"
+           ''POST送信するデータの長さを指定
+           req.ContentLength = postDataBytes.Length
+           req.Proxy = Nothing
+           'データをPOST送信するためのStreamを取得
+           reqStream = req.GetRequestStream()
+           '送信するデータを書き込む
+           reqStream.Write(postDataBytes, 0, postDataBytes.Length)
+           ret = 0
+       Catch ex As Exception
+           'エラーコードの設定
+           ret = 100
+       Finally
+           If IsNothing(reqStream) = False Then
+               reqStream.Close()
+           End If
+           If IsNothing(sr) = False Then
+               sr.Close()
+           End If
+       End Try
+   End Sub
+End Class
+```

削除希望

2021/08/10 05:47

投稿

退会済みユーザー

スコア0

test CHANGED Viewed

	@@ -1 +1 @@
1	- ~~PythonのコードをC#かVBに変換した~~い
1	+ ※※質問削除願います※※

test CHANGED Viewed

@@ -1,19 +1,13 @@
-PythonのコードをVBかC#に変換したいです。
-目的は学習です。
-Pythonコードは正常に動作している物で
-VBコードは現在動作していない物です。
+回答得られない為、本質問は取りやめます。
-元のPythonコードと、私が書いたVBコードを載せます。
-例外エラーなどは出ず処理は一応実行できますが、動作しない状況です。
-私が書いたVBコードはどこが間違えているのかご教示願いたいです。
+※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
-※コード削除
+コード削除
+※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

回答得られない為、コード削除します。

2021/08/09 05:35

投稿

situmondaro1234

スコア2

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -16,212 +16,4 @@
-```Python
-import requests
-import json
-# csvファイル取得
-def get_csv(groupcodes, commandbytes):
-    url = 'http://192.168.14.100:7001/testapi/sendbroadcastcommand?groupcodes={}&commandbytes={}'. format(json.dumps(groupcodes), json.dumps(commandbytes))
-    print(url)
-    headers = {
-        'Content-Type': 'application/x-www-form-urlencoded;charset=UTF-8'
-    }
-    try:
-        response = requests.post(url=url, headers=headers)
-    except Exception as e:
-        print("POST 例外発生！")
-        print(e)
-        return -1
-    if response.status_code != 200:
-        print("POST　応答エラー")
-        return -2
-if __name__ == '__main__':
-    grcd1 = ['A','B']
-    cmdbyte1 = [4, 17, 0, 234]
-    try:
-        get_csv(grcd1, cmdbyte1)
-    except Exception as e01:
-        print("get_scv()の中に例外発生！")
-        print(e01)
-```
-```VB
-Imports Newtonsoft.Json
-Public Class Form1
-    Public Class testjson
-        Public Property groupcodes As String
-        Public Property commandbytes As String
-        'Public Property sikaku As String()
-    End Class
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        Dim ret As Int32
-        'Dim postData As String
-        Dim postDataBytes As Byte()
-        Dim req As System.Net.WebRequest
-        Dim reqStream As System.IO.Stream = Nothing
-        Dim res As System.Net.WebResponse = Nothing
-        Dim resStream As System.IO.Stream = Nothing
-        Dim sr As System.IO.StreamReader = Nothing
-        Try
-            Dim syain1 As testjson = New testjson()
-            syain1.groupcodes = "['A','B']"
-            syain1.commandbytes = "[4, 17, 0, 234]"
-            Dim Json As String = JsonConvert.SerializeObject(syain1)
-            'バイト型配列に変換
-            postDataBytes = System.Text.Encoding.UTF8.GetBytes(Json)
-            'WebRequestの作成
-            req = System.Net.WebRequest.Create("http://192.168.14.100:7001/testapi/sendbroadcastcommand")
-            'メソッドにPOSTを指定
-            req.Method = "POST"
-            'ContentTypeを"application/json"にする
-            req.ContentType = "application/json"
-            ''POST送信するデータの長さを指定
-            req.ContentLength = postDataBytes.Length
-            req.Proxy = Nothing
-            'データをPOST送信するためのStreamを取得
-            reqStream = req.GetRequestStream()
-            '送信するデータを書き込む
-            reqStream.Write(postDataBytes, 0, postDataBytes.Length)
-            ret = 0
-        Catch ex As Exception
-            'エラーコードの設定
-            ret = 100
-        Finally
-            If IsNothing(reqStream) = False Then
-                reqStream.Close()
-            End If
+※コード削除
-            If IsNothing(sr) = False Then
-                sr.Close()
-            End If
-        End Try
-    End Sub
-End Class
-```

自分が行った事を追記

2021/08/09 05:31

投稿

situmondaro1234

スコア2

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -1,6 +1,18 @@
-下記PythonのコードをVBかC#に変換したいです。
+PythonのコードをVBかC#に変換したいです。
+目的は学習です。
-どのようなコードになるでしょうか？
+Pythonコードは正常に動作している物で
+VBコードは現在動作していない物です。
+元のPythonコードと、私が書いたVBコードを載せます。
+例外エラーなどは出ず処理は一応実行できますが、動作しない状況です。
+私が書いたVBコードはどこが間違えているのかご教示願いたいです。
@@ -54,9 +66,7 @@
     grcd1 = ['A','B']
-    cmdbyte1 = [4, 17, 1, 233]
-    cmdbyte2 = [4, 17, 0, 234]
+    cmdbyte1 = [4, 17, 0, 234]
@@ -75,3 +85,143 @@
 ```
+```VB
+Imports Newtonsoft.Json
+Public Class Form1
+    Public Class testjson
+        Public Property groupcodes As String
+        Public Property commandbytes As String
+        'Public Property sikaku As String()
+    End Class
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim ret As Int32
+        'Dim postData As String
+        Dim postDataBytes As Byte()
+        Dim req As System.Net.WebRequest
+        Dim reqStream As System.IO.Stream = Nothing
+        Dim res As System.Net.WebResponse = Nothing
+        Dim resStream As System.IO.Stream = Nothing
+        Dim sr As System.IO.StreamReader = Nothing
+        Try
+            Dim syain1 As testjson = New testjson()
+            syain1.groupcodes = "['A','B']"
+            syain1.commandbytes = "[4, 17, 0, 234]"
+            Dim Json As String = JsonConvert.SerializeObject(syain1)
+            'バイト型配列に変換
+            postDataBytes = System.Text.Encoding.UTF8.GetBytes(Json)
+            'WebRequestの作成
+            req = System.Net.WebRequest.Create("http://192.168.14.100:7001/testapi/sendbroadcastcommand")
+            'メソッドにPOSTを指定
+            req.Method = "POST"
+            'ContentTypeを"application/json"にする
+            req.ContentType = "application/json"
+            ''POST送信するデータの長さを指定
+            req.ContentLength = postDataBytes.Length
+            req.Proxy = Nothing
+            'データをPOST送信するためのStreamを取得
+            reqStream = req.GetRequestStream()
+            '送信するデータを書き込む
+            reqStream.Write(postDataBytes, 0, postDataBytes.Length)
+            ret = 0
+        Catch ex As Exception
+            'エラーコードの設定
+            ret = 100
+        Finally
+            If IsNothing(reqStream) = False Then
+                reqStream.Close()
+            End If
+            If IsNothing(sr) = False Then
+                sr.Close()
+            End If
+        End Try
+    End Sub
+End Class
+```