Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,038

HOME > .NET Framework > Forum > ช่วยแปลง java เป็น VB ให้หน่อยนะคะ เอาไปใช้ไม่ถูกเลยT^T


 

[.NET] ช่วยแปลง java เป็น VB ให้หน่อยนะคะ เอาไปใช้ไม่ถูกเลยT^T

 
Topic : 076692



โพสกระทู้ ( 25 )
บทความ ( 0 )



สถานะออฟไลน์



view source
print?
01.public static void main(String[] args) {
02.    int[][] matrix = parseProblem(args);
03.    writeMatrix(matrix);
04.    if (solve(0,0,matrix))    // solves in place
05.        writeMatrix(matrix);
06.    else
07.        System.out.println("NONE");
08.    }
09. 
10.    static boolean solve(int i, int j, int[][] cells) {
11.    if (i == 9) {
12.        i = 0;
13.        if (++j == 9)
14.        return true;
15.    }
16.    if (cells[i][j] != 0)  // skip filled cells
17.        return solve(i+1,j,cells);
18.     
19.    for (int val = 1; val <= 9; ++val) {
20.        if (legal(i,j,val,cells)) { 
21.        cells[i][j] = val;      
22.        if (solve(i+1,j,cells)) 
23.            return true;
24.        }
25.    }
26.    cells[i][j] = 0; // reset on backtrack
27.    return false;
28.    }
29. 
30.    static boolean legal(int i, int j, int val, int[][] cells) {
31.    for (int k = 0; k < 9; ++k)  // row
32.        if (val == cells[k][j])
33.        return false;
34. 
35.    for (int k = 0; k < 9; ++k) // col
36.        if (val == cells[i][k])
37.        return false;
38. 
39.    int boxRowOffset = (i / 3)*3;
40.    int boxColOffset = (j / 3)*3;
41.    for (int k = 0; k < 3; ++k) // box
42.        for (int m = 0; m < 3; ++m)
43.        if (val == cells[boxRowOffset+k][boxColOffset+m])
44.            return false;
45. 
46.    return true; // no violations, so it's legal
47.    }
48. 
49.    static int[][] parseProblem(String[] args) {
50.    int[][] problem = new int[9][9]; // default 0 vals
51.    for (int n = 0; n < args.length; ++n) {
52.        int i = Integer.parseInt(args[n].substring(0,1));  
53.        int j = Integer.parseInt(args[n].substring(1,2));  
54.        int val = Integer.parseInt(args[n].substring(2,3));
55.        problem[i][j] = val;
56.    }
57.    return problem;
58.    }
59. 
60.    static void writeMatrix(int[][] solution) {
61.    for (int i = 0; i < 9; ++i) {
62.        if (i % 3 == 0)
63.        System.out.println(" -----------------------");
64.        for (int j = 0; j < 9; ++j) {
65.        if (j % 3 == 0) System.out.print("| ");
66.        System.out.print(solution[i][j] == 0
67.                 ? " "
68.                 : Integer.toString(solution[i][j]));
69.         
70.        System.out.print(' ');
71.        }
72.        System.out.println("|");
73.    }
74.    System.out.println(" -----------------------");
75.    }
76. 
77.}




Tag : .NET, Ms SQL Server 2005, VS 2005 (.NET 2.x)
Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2012-04-05 11:37:48 By : karnnoii View : 1215 Reply : 3
 

 

No. 1



โพสกระทู้ ( 25 )
บทความ ( 0 )



สถานะออฟไลน์


http://www.colloquial.com/games/sudoku/java_sudoku.html

ตามลิ้งนี้เลยค่ะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-04-05 11:54:17 By : karnnoii
 

 

No. 2



โพสกระทู้ ( 25 )
บทความ ( 0 )



สถานะออฟไลน์


Code (VB.NET)
view source
print?
01.Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
02. 
03.       For i As Integer = 0 To 8
04.           For j As Integer = 0 To 8
05.               txtTemp(i, j) = New TextBox()
06.               Me.Controls.Add(txtTemp(i, j))
07.               txtTemp(i, j).Width = 20
08.               txtTemp(i, j).Location = New Point(j * 30, i * 30)
09.           Next
10.       Next
11. 
12.   End Sub



ใช้ คอนโทรล รับค่า 81 ค่าน่ะค่ะ ช่วยแนะนำทีคะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-04-05 15:47:11 By : karnnoii
 

 

No. 3



โพสกระทู้ ( 25 )
บทความ ( 0 )



สถานะออฟไลน์


Code (VB.NET)
view source
print?
01.Public Class Form1
02.    Dim txtTemp(9, 9) As TextBox
03.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
04. 
05.        For i As Integer = 0 To 8
06.            For j As Integer = 0 To 8
07.                txtTemp(i, j) = New TextBox()
08.                Me.Controls.Add(txtTemp(i, j))
09.                txtTemp(i, j).Width = 20
10.                txtTemp(i, j).Location = New Point(j * 30, i * 30)
11.            Next
12.        Next
13. 
14.    End Sub
15.    
16. 
17.    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btAnswer.Click, btAnswer.Click
18. 
19.         
20.    End Sub
21. 
22.    Private Function solve(ByVal i As Integer, ByVal j As Integer, ByVal cells(,) As Integer) As Boolean
23. 
24.        If i = 9 Then
25.            i = 0
26.            If (++j = 9) Then
27.                Return True
28.            End If
29.        End If
30. 
31.        If cells(i, j) <> 0 Then
32.            Return solve(i + 1, j, cells)
33.        End If
34. 
35.        For Val As Integer = 1 To Val <= 9
36.            If legal(i, j, Val, cells) Then
37.                cells(i, j) = Val
38.                If (solve(i + 1, j, cells)) Then
39.                    Return True
40. 
41.                End If
42.            End If
43.        Next
44.    End Function
45. 
46.    Private Function legal(ByVal i As Integer, ByVal j As Integer, ByVal Val As Integer, ByVal cells(,) As Integer) As Boolean
47.        Dim k, m As Integer
48. 
49.        For k = 0 To 8
50.            If Val = cells(k, j) Then
51.                Return False
52.            End If
53.        Next
54. 
55.        For k = 0 To 8
56.            If Val = cells(i, k) Then
57.                Return False
58.            End If
59.        Next
60. 
61.        Dim boxRowOffset As Integer = (i / 3) * 3
62.        Dim boxColOffset As Integer = (j / 3) * 3
63.        For k = 0 To 2
64.            For m = 0 To 3
65.                If Val = cells(boxRowOffset + k, boxColOffset + m) Then
66. 
67.                    Return False
68.                End If
69.            Next
70.        Next
71. 
72.        Return True '// no violations, so it's legal
73.    End Function
74. 
75.End Class


หลังจากแปลงมาได้แบบนี้แล้ว จะเรียกใช้ ฟังก์ชัน sovle กับ legal ยังไงดีคะ ต้องแปลงค่าจากtextbox เป็นสตริงก่อนหรือป่าว
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-04-06 08:19:40 By : karnnoii
 

   

ค้นหาข้อมูล
   
 

แสดงความคิดเห็น
Re : ช่วยแปลง java เป็น VB ให้หน่อยนะคะ เอาไปใช้ไม่ถูกเลยT^T
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
 Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)





ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2025 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่