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,037

HOME > .NET Framework > Forum > ปรึกษาเรื่องโค้ด vb หน่อยครับ "ถ้าค่าปัจจุบันมีค่าเป็น 90 ถ้ากด start เเล้วปุ่ม 0 ต้องไม่ทำงาน"



 

ปรึกษาเรื่องโค้ด vb หน่อยครับ "ถ้าค่าปัจจุบันมีค่าเป็น 90 ถ้ากด start เเล้วปุ่ม 0 ต้องไม่ทำงาน"

 



Topic : 132221



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



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



ปรึกษาโค้ดหน่อยครับ
รายละเอียดรูป 0310

"คือถ้าค่าเป็น Call = 90 เวลาที่เราเริ่มเข้าโปรแกรมอีกรอบ ในขณะที่เรากด Start ปุ่ม Call ไม่ทำงาน
ปัจจุบันโค้ดผมมันยังทำงาน มันผิดตรงใหนหรอครับ
#ฝึกเขียนครับ"

Code (VB.NET)
Private Sub btStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btStart.Click
        Dim currenttime As DateTime
        StartSecond = 0
        checkKey = "0"

        If warehouse_finsih = "90" Then
            Me.btcall.Enabled = False

        End If

        If Me.lblItemCode.Text <> "" Then
            If Me.cobOperator.Text = "" Then
                MsgBox("Plase input Operator No.", vbCritical + vbOKOnly)
                currenttime = Format(dtServerDateTime2, "yyyy-MM-dd H:mm:ss")

                Me.cobOperator.Focus()
                Me.btStart.Enabled = False
                Me.btStop.Enabled = False
                Me.btAdd.Enabled = False
                Me.btRemove.Enabled = False
                '//currenttime = System.DateTime.Now.ToString("yyyy-MM-dd H:mm:ss")

            Else
                currenttime = Format(dtServerDateTime2, "yyyy-MM-dd H:mm:ss")
                Call Start_Data_New()
                Call Load_ExpectTime()

                Timer1.Enabled = True
                token_start = 0
                Me.btStart.Enabled = False
                Me.btStop.Enabled = True
                Me.btAdd.Enabled = True
                Me.btAdd.Focus()
                Me.btRemove.Enabled = True
                Me.btcall.Enabled = True

                '//เพิ่มปุ่ม finish ทำงานหลังจากการที่กด start แล้ว
                Me.btCloseOrder.Enabled = True
                '//currenttime = System.DateTime.Now.ToString("yyyy-MM-dd H:mm:ss")

            End If

        End If
    End Sub




Tag : .NET, VB.NET, Windows







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2018-10-03 09:07:09 By : conan008 View : 915 Reply : 11
 

 

No. 1



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



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


Code (VB.NET)
Private Sub btStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btStart.Click
        Dim currenttime As DateTime
        StartSecond = 0
        checkKey = "0"

        If warehouse_finsih = "90" Then
            Me.btcall.Enabled = False
           Exit Sub // ใส่ตรงนี้ครับ ถ้าไม่ใส่ loop การทำงานมันยังไปต่อ คำสั่งนี้ไว้ให้ออกจากการทำงานครับ
        End If

        If Me.lblItemCode.Text <> "" Then
            If Me.cobOperator.Text = "" Then
                MsgBox("Plase input Operator No.", vbCritical + vbOKOnly)
                currenttime = Format(dtServerDateTime2, "yyyy-MM-dd H:mm:ss")

                Me.cobOperator.Focus()
                Me.btStart.Enabled = False
                Me.btStop.Enabled = False
                Me.btAdd.Enabled = False
                Me.btRemove.Enabled = False
                '//currenttime = System.DateTime.Now.ToString("yyyy-MM-dd H:mm:ss")

            Else
                currenttime = Format(dtServerDateTime2, "yyyy-MM-dd H:mm:ss")
                Call Start_Data_New()
                Call Load_ExpectTime()

                Timer1.Enabled = True
                token_start = 0
                Me.btStart.Enabled = False
                Me.btStop.Enabled = True
                Me.btAdd.Enabled = True
                Me.btAdd.Focus()
                Me.btRemove.Enabled = True
                Me.btcall.Enabled = True

                '//เพิ่มปุ่ม finish ทำงานหลังจากการที่กด start แล้ว
                Me.btCloseOrder.Enabled = True
                '//currenttime = System.DateTime.Now.ToString("yyyy-MM-dd H:mm:ss")

            End If

        End If
    End Sub









ประวัติการแก้ไข
2018-10-03 10:10:19
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-10-03 10:09:53 By : realizejoke
 


 

No. 2



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



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


เรื่องตัวเลข 90 ของคุณยังแก้ไขไม่ได้หรอครับเห็นหลายๆกระทู้แล้ว
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-10-03 10:11:08 By : outhai
 

 

No. 3

Guest


btStart_Click มันแค่ สั่งให้ Timer1 มันทำงาน
แต่ตรงคำว่า อีกรอบนั้นไม่มี

ลองเขียนขั้นตอนการทำงานมาให้ดูหน่อยได้ไม๊ครับ
แล้วบอกด้วยว่าติดที่ขั้นตอนไหน

วิธีง่ายๆเวลาเจอปัญหา คือ เขียน ขั้นตอน อย่างละเอียด จากนั้นก็เช็คเลยว่ามันติดตรงขั้นตอนที่เท่าไหร่
จะช่วยได้เยอะมาก ครับ เวลาไปทำงานจริง และ ทำงานร่วมกับคนอื่น
เขาจะได้รู้รายละเอียดโดยไม่ต้องมานั่งอ่านโค้ดเรา ด้วยครับ

แค่เขามองขั้นตอน เขาก็จะรู้ได้ทันทีเลยว่าขั้นตอนไหนควรเขียนโค้ดยังไง
แทนที่เราจะแก้ทีละจุด แต่กลับมองไปทั้งโครงสร้าง ทำให้มีประสิทธิภาพในการแก้โค้ดมากกว่าครับ

คิดง่ายๆครับ
เราเอาโค้ดแค่

Code (VB.NET)
Private Sub btStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btStart.Click
        Dim currenttime As DateTime
        StartSecond = 0
        checkKey = "0"

        If warehouse_finsih = "90" Then
            Me.btcall.Enabled = False

        End If

        If Me.lblItemCode.Text <> "" Then
            If Me.cobOperator.Text = "" Then
                MsgBox("Plase input Operator No.", vbCritical + vbOKOnly)
                currenttime = Format(dtServerDateTime2, "yyyy-MM-dd H:mm:ss")

                Me.cobOperator.Focus()
                Me.btStart.Enabled = False
                Me.btStop.Enabled = False
                Me.btAdd.Enabled = False
                Me.btRemove.Enabled = False
                '//currenttime = System.DateTime.Now.ToString("yyyy-MM-dd H:mm:ss")

            Else
                currenttime = Format(dtServerDateTime2, "yyyy-MM-dd H:mm:ss")
                Call Start_Data_New()
                Call Load_ExpectTime()

                Timer1.Enabled = True
                token_start = 0
                Me.btStart.Enabled = False
                Me.btStop.Enabled = True
                Me.btAdd.Enabled = True
                Me.btAdd.Focus()
                Me.btRemove.Enabled = True
                Me.btcall.Enabled = True

                '//เพิ่มปุ่ม finish ทำงานหลังจากการที่กด start แล้ว
                Me.btCloseOrder.Enabled = True
                '//currenttime = System.DateTime.Now.ToString("yyyy-MM-dd H:mm:ss")

            End If

        End If
    End Sub


เดินไปถามรุ่นพี่ที่ทำงาน เราก็จะได้แก้แค่โค้ด ที่เราส่งไป
แต่ถ้าเรา เอา ขั้นตอนทำงานต่างๆไปด้วย
เขาจะเห็นภาพชัดขึ้นว่าก่อนที่จะมาเป็นโค้ดตัวปัญหา และ หลังจากโค้ดตัวปัญหา เราควรปรับตัวไหนบ้าง
เป็นการปรับทั้งโครงสร้าง ซึ่งจะดีกว่าปรับจุดเดียว และปรับ เรื่อยๆ หรือไม่ก็ปรับตลอดครับ
บางทีแก้ไปแก้มา ปรากฎว่า เจ้าโค้ดตัวปัญหา มันไม่จำเป็นต้องมีมาแต่แรก ก็เคยเป็น ครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-10-03 10:47:58 By : วิ่งราว
 


 

No. 4



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



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

ตอบความคิดเห็นที่ : 2 เขียนโดย : outhai เมื่อวันที่ 2018-10-03 10:11:08
รายละเอียดของการตอบ ::
อันนี้ออกแบบตาม ผู้ใช้ครับ เขาต้องการเก็บ 2 ตัวนี้

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-10-03 11:04:30 By : conan008
 


 

No. 5



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



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

ปรากฏว่าปุ่ม Start กดไม่ได้เลยครับ
ขอบคุณครับ


ตอบความคิดเห็นที่ : 1 เขียนโดย : realizejoke เมื่อวันที่ 2018-10-03 10:09:53
รายละเอียดของการตอบ ::
Code (VB.NET)
Private Sub btStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btStart.Click
        Dim currenttime As DateTime
        StartSecond = 0
        checkKey = "0"

        If warehouse_finsih = "90" Then
            Me.btcall.Enabled = False
            Exit Sub
        End If

        If Me.lblItemCode.Text <> "" Then
            If Me.cobOperator.Text = "" Then
                MsgBox("Plase input Operator No.", vbCritical + vbOKOnly)
                currenttime = Format(dtServerDateTime2, "yyyy-MM-dd H:mm:ss")

                Me.cobOperator.Focus()
                Me.btStart.Enabled = False
                Me.btStop.Enabled = False
                Me.btAdd.Enabled = False
                Me.btRemove.Enabled = False
                '//currenttime = System.DateTime.Now.ToString("yyyy-MM-dd H:mm:ss")

            Else
                currenttime = Format(dtServerDateTime2, "yyyy-MM-dd H:mm:ss")
                Call Start_Data_New()
                Call Load_ExpectTime()

                Timer1.Enabled = True
                token_start = 0
                Me.btStart.Enabled = False
                Me.btStop.Enabled = True
                Me.btAdd.Enabled = True
                Me.btAdd.Focus()
                Me.btRemove.Enabled = True
                Me.btcall.Enabled = True

                '//เพิ่มปุ่ม finish ทำงานหลังจากการที่กด start แล้ว
                Me.btCloseOrder.Enabled = True
                '//currenttime = System.DateTime.Now.ToString("yyyy-MM-dd H:mm:ss")

            End If

        End If
    End Sub


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-10-03 11:20:20 By : conan008
 


 

No. 6



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



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

ตอบความคิดเห็นที่ : 3 เขียนโดย : วิ่งราว เมื่อวันที่ 2018-10-03 10:47:58
รายละเอียดของการตอบ ::
โปรแกรมตัวนี้ไม่มีอะไรซับซ้อนครับ
1.ถ้าไม่กดปุ่มสตาทจะไม่สามารถกดปุ่มอื่นใด้
2.ถ้ากดปุ่ม start ปุ่มอื่นจะกดได้
3.ถ้าค่าเป็น 90 ปุ่ม call จะไม่สามารถกดใด้ครับ (ขั้นตอนนี้ยังกดอยู่)




ประวัติการแก้ไข
2018-10-03 11:47:43
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-10-03 11:28:28 By : conan008
 


 

No. 7

Guest


ตอบความคิดเห็นที่ : 6 เขียนโดย : conan008 เมื่อวันที่ 2018-10-03 11:28:28
รายละเอียดของการตอบ ::
พอขั้นตอนมันไม่ละเอียด เราก็จะมองไม่เห็นปัญหาเป็นเรื่องปกติครับ

งั้นถามง่ายๆครับ
รู้ไม๊ครับ ว่า มันติดที่ขั้นตอนไหน แล้ว ลองดูรายละเอียดโค้ดนั้นดูว่ามันติดที่บรรทัดไหน

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-10-03 11:34:07 By : วิ่งราว
 


 

No. 8



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



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

ตอบความคิดเห็นที่ : 7 เขียนโดย : วิ่งราว เมื่อวันที่ 2018-10-03 11:34:07
รายละเอียดของการตอบ ::


ติดตรงนี้ครับ ปัจจุบันเป็นค่า 90 เเต่ปุ่ม Call ยังสามารถกดได้อยู่


Code (VB.NET)
 If warehouse_finsih = "90" Then
            Me.btcall.Enabled = False

        End If


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-10-03 11:46:49 By : conan008
 


 

No. 9



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



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


ตัวแปร warehouse_finsih
เป็น String หรือ Int หรืออะไรครับ
ลอง MsgBox(warehouse_finsih) ดูครับว่าค่ามันเท่าไร
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-10-03 11:53:49 By : realizejoke
 


 

No. 10

Guest


ตามต่อได้เลยครับว่า

warehouse_finsih

method ไหนเป็นตัวกำหนดค่ามันอยู่ แล้วก็เช็คด้วยว่าตอนกด btStart_Click ค่า warehouse_finsih เป็นเท่าไหร่
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-10-03 12:05:42 By : วิ่งราว
 


 

No. 11

Guest


ถ้ายังไม่ได้ ให้ไปเขียน Flowchart ก่อนนะครับ เขียนเป็นไหมครับ ถ้าไม่เป็นหาในเน็ตได้ครับ
เพราะอะไรรู้ไหมครับ เพราะเราจะได้เข้าใจขั้นตอน และลำดับการทำงาน
ผมเขียนโปรแกรมมาก็หลายปี ไม่เคยทิ้งเลย ไม่ว่าจะงานง่ายๆหรืออยากๆ
เข้าใจว่าต้องการคำตอบ แต่อันนี้คิดว่าทำเองได้เลย บ่ตอบ อย่าว่าข่อยเด้อ
และระวังจุดเล็กๆที่บังตาอยู่ หาอย่างไงก็ไม่เจอ พอทิ้งไว้สักพัก เออกูดักตัวเองเด้อ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-10-03 16:32:28 By : บัญดิษฐ
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ปรึกษาเรื่องโค้ด vb หน่อยครับ "ถ้าค่าปัจจุบันมีค่าเป็น 90 ถ้ากด start เเล้วปุ่ม 0 ต้องไม่ทำงาน"
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

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