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

HOME > .NET Framework > Forum > รบกวนขอคำปรึกษาหน่อยครับ เกียวกับการเช่าพื้นที่หลายๆที่ ประมาณ 300 บล็อค



 

รบกวนขอคำปรึกษาหน่อยครับ เกียวกับการเช่าพื้นที่หลายๆที่ ประมาณ 300 บล็อค

 



Topic : 098407

Guest




สอบถามหน่อยครับ จริงๆมันไม่มีอะไรมากมาย
นอกจากผมเขียน คำสั่งมาทั่งหมด 300 ชุดในการเช่า ซึ่งเสียเวลา


จากภาพมี 24 บล็อค ก็ต้องเขียนคำสั่ง 24 ชุด
asd



พอมีแนวทางในการเขียนแบบสั้นกว่านี้ไหมครับ



Tag : .NET, VS 2010 (.NET 4.x), VS 2012 (.NET 4.x)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2013-07-29 13:29:40 By : แมก View : 1313 Reply : 48
 

 

No. 1



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



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


ไม่ค่อยเข้าใจคำถามนะครับ เขียน เป็น OOP น่าจะได้ หรือไม่ง่าย ๆ ก็เขียนเป็น Sub เขียนครั้งเดียวแล้วก็ เรียกใช้ Sub เอาครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-29 15:21:44 By : CPU4Core
 


 

No. 2



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



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

นี้ยุค OP แล้วครับ เขียนทีเดียวแล้วนำมาใช้ได้หลายๆครั้งครับ

ลองเอาโค้ดมาดูสิครับ ว่าต้องการประมาณไหนเผื่อช่วยอธิบายได้
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-29 15:47:08 By : 01000010
 

 

No. 3

Guest


ก็ code ก็ทั่วไปครับ กดปุ่มไหนก็ ให้มันไปอัพเดทปุ้มนั้นว่า ไม่ว่าง และอัพเดทฐานข้อมูล

แต่ละปุ่มคำสั่ง sql จะเหมือนกัน แต่ต่างกันแค่ values ที่อัพเดทครับ

ผมก็ต้องมานั่งทำ 300 กว่าชัด copy paste

เขียนแบบ sub ผมเขียนได้ครับผม แต่คิดไม่ออกว่าจะเขียนยังไง ในเมื่อแต่ละปุ่ม values มันต่างกันครับผม

ขอบคุฯครับผม
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-29 19:48:28 By : แมก
 


 

No. 4

Guest


เพิ่มเติมครับ ทุกปุ่มมันค้ือการอัพเดทครับผม
เช่นปุ่ม 1 ก็ Code (VB.NET)
update test (testpk,teststatus)values('"&"01"&"','"&"เช่าแล้ว"&"')

และปุ่มที่ 2 ก็ Code (VB.NET)
update test (testpk,teststatus)values('"&"02"&"','"&"เช่าแล้ว"&"')

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-29 19:53:11 By : แมก
 


 

No. 5

Guest


แก้ไขครับ นั้นมัน insert ผิดๆ อันนี้นะครับถูก
ปุ่มแรก
Code (VB.NET)
ีีupdate test set teststatus='"& "เช่าแล้ว" & "' where testpk='"&"01"&"'

ปุ่มสอง
Code (VB.NET)
ีีupdate test set teststatus='"& "เช่าแล้ว" & "' where testpk='"&"02"&"'

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-29 20:26:20 By : แมก
 


 

No. 6



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



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

Code (C#)
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
    public class MainButton : Button
    {
        private string m_ValueNumber;
        public MainButton(string ValueNumber,Point PLocation)
        {
            this.Text = "ป " + ValueNumber.ToString();
            m_ValueNumber = ValueNumber;
            this.Size = new Size(60,60);
            this.Font = new Font(Font.FontFamily,8);
            this.BackColor = Color.Yellow;
            this.Margin = new Padding(0);
            this.Location = PLocation;
        }

        protected override void OnClick(EventArgs e)
        {
            MessageBox.Show(m_ValueNumber.ToString());
        }
    }

    public partial class Form1 : Form
    {
        
        public Form1()
        {
            InitializeComponent();
        }

        private void Form1_Load(object sender, EventArgs e)
        {
            this.WindowState = FormWindowState.Maximized;
            this.AutoScroll = true;
           short x = 0;
            for (int b = 1; b <= 12; b++)
            {
                for (int a = 1; a <= 25; a++)
                {  
                    Button Button_Child = new MainButton(Add_Zero(x+a,3), new Point(a * 80,b * 80));
                    this.Controls.Add(Button_Child);
                }
                x += 25;
            }
    

        }
        private string Add_Zero(int Number, int Amount)
        {
            string result = Number.ToString();
            string zero = string.Empty;
            int LengthNum = result.Length;

            for (; LengthNum < Amount; LengthNum++)
            {
                zero += "0";
            }
            result = zero + result;
            return result;
        }
    }
}



หมายเหตุ : ลองสร้าง Project ใหม่ขึ้นมา กดดับเบิ้ลคลิกที่ฟอร์ม แล้วนำโค้ดทั้งหมดนี้ไปวางทับของเก่า

แล้วลอง Debug ดูการทำงาน ศึกษาโค้ดในนี้ดูครับ แล้วประยุกต์กับการ Update ของคุณครับ


ประวัติการแก้ไข
2013-07-29 21:19:27
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-29 21:18:57 By : 01000010
 


 

No. 7

Guest


ขอบคุณ 0100 0010 ครับผม
แต่ปัญหาคือ 300 โต๊ะตอนนี้ มันไม่ได้เรียงครับ
เอาเป็นว่าผมจัดการเรื่องปุ่ม 300 ปุ่มเสร็จแล้ว
แต่ก็ยังต้องเขียน 300 ชุด ซึ่งผมนำ code MessageBox.Show(m_ValueNumber.ToString()); ไปประยุกก์แล้วมันก็ไม่แสดงค่าอะไรทั่งนั้นเพราะปุ่มผมสร้างด้วย แมนน้วล รบกวนหน่อยครับ

มีวิธีไหนอีกบ้างครับที่เขียนคำสั่งชุดเดียว แต่ปุ่มผมทำเรียบร้อยแล้วครับผม
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-30 19:39:29 By : แมก
 


 

No. 8

Guest


เพิ้มเติมครับ เผิื้อจะไม่เข้าใจ

ตอนนี้คือผมจัดเรียง 300 ชุดแล้วตามแบบแผนที่ผมต้องการ >จบ

แต่ก็ต้องเขียน 300 ชุด เพราะแต่ละปุ้ม values ไม่เหมือนกัน


รบกวนหน่อยเน้อครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-30 19:42:37 By : แมก
 


 

No. 9

Guest


1. ลบ SourceCode ออกให้หมด
2. เขียนความต้องการ [ใหม่] เอาไว้ที่อีเวน ฟอร์มโหลด (FormLoad)

Code (VB.NET)
    Private Sub Form_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        For Each c As Control In Me.Controls
            If TypeOf c Is Button Then
                AddHandler c.Click, AddressOf JimThai
            End If
        Next
    End Sub

    Private Sub JimThai()
       'TODO
    End Sub


***** GoodLuck *****
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-30 20:16:30 By : ผ่านมา
 


 

No. 10

Guest


แก้ไข Private Sub JimThai
(Dynamic Handler with Parameters)

Code (VB.NET)
    Sub JimThai(sender As Object, e As EventArgs)
        'TO DO
        MsgBox(DirectCast(sender, Button).Text)
        'TO DO
    End Sub

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-30 20:32:31 By : ผ่านมา
 


 

No. 11

Guest


ผมลืมบอกไปว่า #NO 6 เป็นวิธีเริ่มต้นที่ดีที่สุด
#NO 9 และ #NO 10 เป็นการแก้ไขปัญหา เฉพาะหน้า (พระเจ้าเท่านั้นเป็นผู้ประทานคำตอบ ว่าดีที่สุด)
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-30 20:50:14 By : ผ่านมา
 


 

No. 12

Guest


#NO 11 ผมลืมบอกไปว่า ที่ผมอาศัยอยู่ ไม่มีคำว่า [color=red]เทพเจ้า[/color]
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-30 20:58:33 By : ผ่านมา
 


 

No. 13



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



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

ตอบความคิดเห็นที่ : 8 เขียนโดย : แมก เมื่อวันที่ 2013-07-30 19:42:37
รายละเอียดของการตอบ ::
การแก้ปัญหาที่ปลายเหตุมีดังนี้นะครับ

เมื่อคุณเจ้าของกระทู้ สร้างปุ่มทั้ง สามร้อยปุ่มเสร็จแล้ว > จบ

ต่อไป เราจะมาเขียน เหตุการณ์ เมื่อปุ่มทั้งหมดคลิก ไว้ที่ ๆ เดียวกันครับ

Code (C#)
       private void Form1_Load(object sender, EventArgs e)
        {
            foreach (Control c in this.Controls)
            {
                if (c is Button)
                    c.Click += new EventHandler(ChildButton_Click);

            }
        }


โค้ดด้านบนนี้ คือการผูกเหตุการณ์ไว้กับ Control Button บนฟอร์มทุกตัว ให้มันทำที่ ChildButton_Click ที่เดียว

Code (C#)
       private void ChildButton_Click(object sender, EventArgs e)
        {
            Button b = (Button)sender;
            MessageBox.Show(b.Text.ToString());
        }


โค้ดด้านบนนี้ คือเมื่อคลิกปุ่มในฟอร์ม จะเกิดเหตุการณ์ในโค้ดด้านบน

และเราจะรับพารามิเตอร์ sender (ปุ่มที่คลิกเข้ามา) เข้ามาก่อน

หลังจากนั้นเราต้องนำมันมา แปลง(Cast) จาก object

ให้เป็นปุ่ม(Button) เสียก่อน และเราจึงสามารถใช้ Property ต่าง ๆ ของปุ่มได้ครับ ลองประยุกต์ดู





ประวัติการแก้ไข
2013-07-30 21:07:52
2013-07-30 21:52:36
2013-07-30 21:53:38
2013-07-30 21:57:25
2013-07-30 21:58:13
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-30 21:06:25 By : 01000010
 


 

No. 14

Guest


อันนี้คือแรงบันดาลใจของผม (อาจจะเป็นคุณด้วยก็ได้) ครับ

Code (VB.NET)
    Public Shared Function CrossOrTranspose(Of T)(source As IEnumerable(Of IEnumerable(Of T))) As IEnumerable(Of IEnumerable(Of T))
        Return From r In source
               From c In r.Select(Function(x, i) New KeyValuePair(Of Integer, T)(i, x))
               Group c.Value By c.Key Into c = Group
               Select TryCast(c, IEnumerable(Of T))
    End Function

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-30 21:08:33 By : ผ่านมา
 


 

No. 15

Guest


#NO 13 ผมยอมรับครับและให้ ***** โดยที่ผมไม่ต้องลังเล (ยอดเยี่ยมมากฯ)
โดยเฉพาะบรรทัดที่ 6

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-30 21:16:36 By : ผ่านมา
 


 

No. 16

Guest


ตอบความคิดเห็นที่ : 13 เขียนโดย : 01000010 เมื่อวันที่ 2013-07-30 21:06:25
รายละเอียดของการตอบ ::
x1. บรรทัดที่ 13 c.Click += new EventHandler(ChildButton_Click);
x2. หลังจากนั้นเราต้องนำมันมา แปลง(Cast) จาก object
ให้เป็นปุ่ม(Button) เสียก่อน และเราจึงสามารถใช้ Property ต่าง ๆ ของปุ่มได้ครับ ลองประยุกต์ดู



x1. สมมุติว่าผมแกล้งไม่เข้าใจจริงฯ สองบรรทัีดด้านล่างมันแตกต่างกันอย่างไร? ครับ
Code (VB.NET)
AddHandler c.Click, AddressOf JimThai
AddHandler c.Click, New EventHandler(AddressOf JimThai)


x2. สมมุติว่าผมแกล้งไม่เข้าใจจริงฯ ทำไมเราต้องแปลง Object ครับ (Cast Object)


[x] #NO 13 คำอธิบาย/SourceCode ของคุณสมบูรณ์แบบไร้ที่ติ เพียงแต่ผมแกล้งสงสัยเิพิ่มเติมเท่านั้นครับ (Fake)
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-31 08:19:36 By : ผ่านมา
 


 

No. 17

Guest


อ่าครับ ต้องขอขอบพระคุณอย่างมากครับ ลดการทำงานได้เยอะเลย

แต่อยากจะทราบอีกอย่าง คือ ผมก็ต้องเขียน 300 ชุดเหมือนเดิมให้มันมาเช็คในฐานข้อมูลว่า ว่าง หรือ ไม่ว่าง แล้วมาเอาแสดงใน button ต่างๆ
Code (VB.NET)
  Try
                Dim P52 As New SqlDataAdapter("select zonestatus,ZONEDATEEXPIRE from zone where zonenamep='" & "ป52" & "'", strcon)
                Dim d52 As New DataTable
                P52.Fill(d52) 'นำคำสั่ง sql ที่รันจาก d1 มาโชไนตาราง
                If d52.Rows(0)("ZONEDATEEXPIRE").ToString = Now.Date Then
                    ป52.Enabled = True
                    ป52.BackColor = Color.Yellow
                    ป52.Text = "ป 52"
                    Dim update As String
                    update = "update zone set zonestatus='" & "ว่าง" & "' where zonenamep='" & "ป52" & "'"
                    Savedata(update)
                Else
                    If d52.Rows(0)("zonestatus").ToString = "ไม่ว่าง" Then
                        ป52.Enabled = False
                        ป52.BackColor = Color.Red
                        ป52.Text = "ไม่ว่าง"
                    Else
                        ป52.Enabled = True
                        ป52.BackColor = Color.Yellow
                        ป52.Text = "ป 52"
                    End If
                End If
            Catch ex As Exception
            End Try


อ่าหะ 300 ชุด

พอมีแนวในการเขียนแบบ 1 ชุดเหมือนด้านบนไหมครับ

ผมถามนี้ผมลองทำแล้วนะครับ แต่ไม่สำเร็จครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-31 09:35:14 By : แมก
 


 

No. 18

Guest


คนมี "เกียรติยศ/คนเก่ง" ในสายตาของผม
คือคนที่สามารถ ย่อ ปัญหาของตัวเองบนระบบงานจริง นำ Source Code (ความจริงใจ) มาตั้งเป็นคำถามได้


[x] ผมเข้าใจว่า มันหายากมากฯ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-31 09:56:25 By : ผ่านมา
 


 

No. 19



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



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

ตอบความคิดเห็นที่ : 16 เขียนโดย : ผ่านมา เมื่อวันที่ 2013-07-31 08:19:36
รายละเอียดของการตอบ ::
สมมุติว่าผมไม่เข้าใจจริง ๆ (Fake) ผมคิดว่าการตอบตอนนี้อาจจะได้คำตอบที่ไม่ชัดเจนและไม่ถูกต้อง (ซึ่งตัวผมอาจจะยังไม่เข้าใจจริง ๆ)

ผมขออนุญาติเก็บคำถามของคุณไปเป็นการบ้านของผม และจะมาอธิบายด้วยความเข้าใจที่แท้จริงอีกทีนะครับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-31 10:20:08 By : 01000010
 


 

No. 20



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



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

ตอบความคิดเห็นที่ : 17 เขียนโดย : แมก เมื่อวันที่ 2013-07-31 09:35:14
รายละเอียดของการตอบ ::
ตอบคุณเจ้าของกระทู้ : ตอนนี้ผมทำงานอยู่อาจจะไม่สะดวกทำให้ และช่วงนี้ผมอาจจะยังไม่ค่อยมีเวลาว่าง ถ้าผมว่างจะมาต่อให้นะครับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-31 10:21:27 By : 01000010
 


 

No. 21

Guest


ตอบความคิดเห็นที่ : 20 เขียนโดย : 01000010 เมื่อวันที่ 2013-07-31 10:21:27
รายละเอียดของการตอบ ::


อย่าไปคิดอะไรมากครับ

คุณคือ หญ้า
เจ้าของกระทู้คือ อาชา
ผมคือ คนบ้า หาหญ้าให้ ม้า อิ่ม
อื่นฯ คือ สนามแข่ง

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-31 10:38:36 By : ผ่านมา
 


 

No. 22

Guest


ถ้าจะถาม แล้วใช้คำว่าสมมุติว่าไม่เข้าใจแบบนี้แล้วใครจะมาตอบจ๊ะ ถามแบบนี้ชาวบ้านเรียกลองภูมิ

Quote:
x1. สมมุติว่าผมแกล้งไม่เข้าใจจริงฯ สองบรรทัีดด้านล่างมันแตกต่างกันอย่างไร? ครับ

AddHandler c.Click, AddressOf JimThai
AddHandler c.Click, New EventHandler(AddressOf JimThai)


- เราตอบด้วยโค้ด c# แล้วกัน

Code (C#)
// แบบเต็ม
Button1.Click += new EventHandler(Button1_Click);
//แบบย่อ
Button1.Click += Button1_Click;


Quote:
x2. สมมุติว่าผมแกล้งไม่เข้าใจจริงฯ ทำไมเราต้องแปลง Object ครับ (Cast Object)


- เรา delegate EventHandler แบบนี้

Code (C#)
public delegate void EventHandler(object source, EventArgs e);


เนื่องจากทุกๆ อย่าง ต้องมี type ของมัน แต่เรายัด button ลงใน object source

จะเห็นว่ามันไม่ error เพราะ button สืบทอดมาจาก class object สามารถใช้อ้างอิง

ถึงโครตเง้าของมันได้ แต่เราไม่สามารถใช้ความสามารถของ button ได้ เพราะ

button ที่ส่งมามันยังไม่แนะนำตัวเอง ที่มันเข้ามาใน method นี้ได้เพราะมันใช้เส้นของโครตเง้ามันมา

ดังนั้นจึงต้อง cast type กลับเป็น button เพื่อเราจะได้ใช้ property และ method ของมันได้
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-31 11:04:23 By : ห้ามตอบเกินวันละ 2 กระทู้
 


 

No. 23

Guest


ตอบความคิดเห็นที่ : 17 เขียนโดย : แมก เมื่อวันที่ 2013-07-31 09:35:14
รายละเอียดของการตอบ ::
รบกวนหน่อนครับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-07-31 14:24:05 By : แมก
 


 

No. 24



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



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

ตอบความคิดเห็นที่ : 21 เขียนโดย : ผ่านมา เมื่อวันที่ 2013-07-31 10:38:36
รายละเอียดของการตอบ ::
ตอบ คุณผ่านมา : เนื่องจากคุณผ่านมามีคำถามจะถามผมแบบลองภูมิ

ซึ่งผมยอมรับว่า ผมยังไม่เข้าใจเรื่อง Event Delegate พวกนี้อย่างแท้จริง จึงขออนุญาติไปหาข้อมูลก่อน

หลังจากได้อ่านมาบ้างแล้วก็พอเริ่มจะเข้าใจขึ้นมาบ้างแล้ว (แต่ยังไม่ทะลุปรุโปร่ง)

ซึ่งผมจะขอตอบตามความเข้าใจของผม มันอาจจะถูกบ้างผิดบ้าง ก็ขออภัยด้วยนะครับ

x1. สมมุติว่าผมแกล้งไม่เข้าใจจริงฯ สองบรรทัีดด้านล่างมันแตกต่างกันอย่างไร? ครับ

สองบรรทัดนี้ มันน่าจะมีความหมายเหมือนกันแค่มันแบบเต็ม กับแบบย่อ เหมือนที่คุณ ห้ามตอบเกินวันละ 2 กระทู้ กล่าว

Code (VB.NET)
AddHandler c.Click, New EventHandler(AddressOf JimThai)


ขออนุญาติแปลงเป็น C#

Code (C#)
c.Click += new EventHandler(JimThai);


บรรทัดบนนี้ น่าจะมีความหมายว่า สร้างอินสแตนของ delegate และกำหนดให้ (Member Event)Click ของคลาส Button มีการชี้ Method ไปยัง Sub JimThai เมื่อเกิดเหตุการณ์คลิก ก็จะวิ่งไปทำงานในเมธอด JimThai ที่ถูกชี้อยู่


x2. สมมุติว่าผมแกล้งไม่เข้าใจจริงฯ ทำไมเราต้องแปลง Object ครับ (Cast Object)

ข้อนี้เหมือนคุณ ห้ามตอบเกินวันละ 2 กระทู้ จะตอบแบบเคลียร์ไปแล้ว

แต่ถ้าตอบตามที่ผมเข้าใจ ก็จะตอบว่า คลาส Object มันคือคลาสแม่ของทุกคลาสใน .net

ซึ่งจะเก็บ Class ใดลงไปก็ได้ แต่มันจะมองไม่เห็น Property และ Method ของคลาสเหล่านั้นให้เรียกใช้

ซึ่งจะต้องมีการ แปลง เป็นคลาสนั้น หรือคลาสในสายที่มันสืบทอดมาก่อน ถึงจะเรียกใช้ Property และ Method ได้ครับ



แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-01 09:00:30 By : 01000010
 


 

No. 25

Guest


#NO22, #NO24

มันไม่ใช่เรื่องง่ายฯที่จะ สรุปคำอธิบาย ออกมาได้แบบนี้ ครบถ้วนและชัดเจน
และที่สำคัญอ่านแล้ว ผมได้ความรู้ปนความสุข
(ง่ายสำหรับคนอื่น มันอาจจะเป็นเรื่องยากสำหรับผม และในทางกลับกัน)

นี่คือความจริงผมไม่ได้รู้ไปหมดทุกเรื่อง (ความรู้ของผมมีเท่าเม็ดทราย) ผมมีข้อสังเกตุเล็กฯน้อยฯ ดังนี้ครับ
C# ดูดีกว่าและชัดเจนกว่า VB
Code
Button1.Click += new EventHandler(Button1_Click); AddHandler Button1.Click, New EventHandler(AddressOf Button1_Click)


ขอบคุณครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-01 15:29:31 By : ผ่านมา
 


 

No. 26



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



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

ตอบความคิดเห็นที่ : 25 เขียนโดย : ผ่านมา เมื่อวันที่ 2013-08-01 15:29:31
รายละเอียดของการตอบ ::
C# ดูดีกว่าและชัดเจนกว่า VB

ผมเห็นด้วยกับคำพูดนี้ครับ แต่ก่อนผมเขียน VB ปัจจุบันจำเป็นต้องใช้ C# ในการทำงาน

รู้สึกสะอาดและชัดเจนกว่ามากครับ



ประวัติการแก้ไข
2013-08-01 15:40:59
2013-08-01 15:41:24
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-01 15:40:43 By : 01000010
 


 

No. 27

Guest


ตอบความคิดเห็นที่ : 17 เขียนโดย : แมก เมื่อวันที่ 2013-07-31 09:35:14
รายละเอียดของการตอบ ::
...


คุณดูที่ #NO10 ทางไปและทางกลับมันทางเดียวกันครับ ยกเว้นคุณหลงทาง

Code (VB.NET)
Sub JimThai(sender As Object, e As EventArgs)
    Dim b As Button = DirectCast(sender, Button)    
    MsgBox(b)
    'TO DO
    Call Beautiful(b)
End Sub

Sub Beautiful(ByVal b As Button)
    Dim strName As String = b.Name
    Dim strMsg As String = b.Text
    Dim strExt As String = b.Tag '*****
    b.Eanbled = True   
    '"update zone set zonestatus='" & "ว่าง" & "' where zonenamep='"  & strName  & "'"
End Sub


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-01 15:44:17 By : ผ่านมา
 


 

No. 28

Guest


ตอบความคิดเห็นที่ : 26 เขียนโดย : 01000010 เมื่อวันที่ 2013-08-01 15:40:43
รายละเอียดของการตอบ ::
C# ดูดีกว่าและชัดเจนกว่า VB

ผมเห็นด้วยกับคำพูดนี้ครับ แต่ก่อนผมเขียน VB ปัจจุบันจำเป็นต้องใช้ C# ในการทำงาน

รู้สึกสะอาดและชัดเจนกว่ามากครับ


มันต้องแยกเป็นกรณีฯ ไปครับ มีข้อดีก็ต้องมีข้อเสีย
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-01 16:05:56 By : ผ่านมา
 


 

No. 29



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



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

ตอบความคิดเห็นที่ : 28 เขียนโดย : ผ่านมา เมื่อวันที่ 2013-08-01 16:05:56
รายละเอียดของการตอบ ::
ทุกอย่างในเอกภพมี สองด้านเป็นธรรมดาครับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-01 16:13:52 By : 01000010
 


 

No. 30

Guest


ตอบความคิดเห็นที่ : 27 เขียนโดย : ผ่านมา เมื่อวันที่ 2013-08-01 15:44:17
รายละเอียดของการตอบ ::
error ครับผใ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-01 21:28:26 By : แมก
 


 

No. 31



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



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

ตอบความคิดเห็นที่ : 30 เขียนโดย : แมก เมื่อวันที่ 2013-08-01 21:28:26
รายละเอียดของการตอบ ::
Error แน่นอนครับ คุณ ผ่านมาเขียน ด้วย VB คุณเขียนด้วย C#

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-01 21:36:26 By : 01000010
 


 

No. 32

Guest


ตอบความคิดเห็นที่ : 31 เขียนโดย : 01000010 เมื่อวันที่ 2013-08-01 21:36:26
รายละเอียดของการตอบ ::
พระเจ้าคุ่มครอง

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-01 21:47:49 By : นน
 


 

No. 33



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



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

ตอบความคิดเห็นที่ : 32 เขียนโดย : นน เมื่อวันที่ 2013-08-01 21:47:49
รายละเอียดของการตอบ ::
ขอบคุณครับพระเจ้า

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-01 21:59:24 By : 01000010
 


 

No. 34

Guest


ตอบความคิดเห็นที่ : 30 เขียนโดย : แมก เมื่อวันที่ 2013-08-01 21:28:26
รายละเอียดของการตอบ ::
error ครับผใ


error ครับผม

ถ้าคุณไม่รู้จักคำว่ารักคนอื่น อย่างน้อยผมก็ขอให้คุณ รักตัวเองให้เป็น รักให้มากฯ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-02 08:28:02 By : ผ่านมา
 


 

No. 35

Guest


Code
หลงลู่หลงทางยังพอรู้ หลงล้วงหลงรูกู่ไม่กลับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-02 08:30:15 By : ผ่านมา
 


 

No. 36

Guest


Code (VB.NET)
Try
    Dim P52 As New SqlDataAdapter("select zonestatus,ZONEDATEEXPIRE from zone where zonenamep='" & "ป52" & "'", strcon)
    Dim d52 As New DataTable
    P52.Fill(d52) 'นำคำสั่ง sql ที่รันจาก d1 มาโชไนตาราง
    If d52.Rows.Count > 0 Then    '*****
        If d52.Rows(0)("ZONEDATEEXPIRE") = Now.Date Then    '*****
            ป52.Enabled = True
            ป52.BackColor = Color.Yellow
            ป52.Text = "ป 52"
            Dim update As String
            update = "update zone set zonestatus='" & "ว่าง" & "' where zonenamep='" & "ป52" & "'"
            Savedata(update)
        Else
            If d52.Rows(0)("zonestatus").ToString = "ไม่ว่าง" Then
                ป52.Enabled = False
                ป52.BackColor = Color.Red
                ป52.Text = "ไม่ว่าง"
            Else
                ป52.Enabled = True
                ป52.BackColor = Color.Yellow
                ป52.Text = "ป 52"
            End If
        End If
    Else
        'TODO
    End If
Catch ex As Exception
    MsgBox(ex.Message) 
End Try


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-02 08:38:07 By : ผ่านมา
 


 

No. 37

Guest


อ้างถึงหัวข้อที่ #NO27 ความมุ่งมั่นพยายาม

Code (VB.NET)
Sub JimThai(sender As Object, e As EventArgs)
    Dim b As Button = DirectCast(sender, Button)    
    MsgBox(b)
    'TO DO
    Call Beautiful(b)
End Sub

Sub Beautiful(ByVal b As Button)
Try
    Dim P52 As New SqlDataAdapter("select zonestatus,ZONEDATEEXPIRE from zone where zonenamep='" & b.Text & "'", strcon)
    Dim d52 As New DataTable
    P52.Fill(d52) 'นำคำสั่ง sql ที่รันจาก d1 มาโชไนตาราง
    If d52.Rows.Count > 0 Then    '*****
        If d52.Rows(0)("ZONEDATEEXPIRE") = Now.Date Then    '*****
            b.Enabled = True
            b.BackColor = Color.Yellow
            'b.Text = b.Text
            Dim update As String
            update = "update zone set zonestatus='" & "ว่าง" & "' where zonenamep='" & b.Text & "'"
            Savedata(update)
        Else
            If d52.Rows(0)("zonestatus").ToString().Trim() = "ไม่ว่าง" Then
                b.Enabled = False
                b.BackColor = Color.Red
                b.Text = "ไม่ว่าง"
            Else
                b.Enabled = True
                b.BackColor = Color.Yellow
                'b.Text = b.Text
            End If
        End If
    Else
        'TODO
    End If
Catch ex As Exception
    MsgBox(ex.Message) 
End Try

End Sub


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-02 08:57:19 By : ผ่านมา
 


 

No. 38

Guest


*****

Code (VB.NET)
Private Sub Form_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    For Each c As Control In Me.Controls
        If TypeOf c Is Button Then
            AddHandler c.Click, AddressOf JimThai
            c.Tag = c.Text '***** เก็บค่าเดิมเอาไว้อ้างอิง
        End If
    Next
End Sub

Sub JimThai(sender As Object, e As EventArgs)
    Dim b As Button = DirectCast(sender, Button)    
    MsgBox(b)
    'TO DO
    Call Beautiful(b)
End Sub

Sub Beautiful(ByVal b As Button)
Try
    Dim P52 As New SqlDataAdapter("select zonestatus,ZONEDATEEXPIRE from zone where zonenamep='" & b.Text & "'", strcon)
    Dim d52 As New DataTable
    P52.Fill(d52) 'นำคำสั่ง sql ที่รันจาก d1 มาโชไนตาราง
    If d52.Rows.Count > 0 Then    '*****
        If d52.Rows(0)("ZONEDATEEXPIRE") = Now.Date Then    '*****
            b.Enabled = True
            b.BackColor = Color.Yellow
            b.Text = b.Tag ' *****
            Dim update As String
            update = "update zone set zonestatus='" & "ว่าง" & "' where zonenamep='" & b.Text & "'"
            Savedata(update)
        Else
            If d52.Rows(0)("zonestatus").ToString().Trim() = "ไม่ว่าง" Then
                b.Enabled = False
                b.BackColor = Color.Red
                b.Text = "ไม่ว่าง"
            Else
                b.Enabled = True
                b.BackColor = Color.Yellow
                b.Text = b.Tag ' *****
            End If
        End If
    Else
        'TODO
    End If
Catch ex As Exception
    MsgBox(ex.Message) 
End Try

End Sub




***** GoodLuck *****
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-02 09:30:18 By : ผ่านมา
 


 

No. 40

Guest


Code (VB.NET)
Private Sub Form_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    For Each c As Control In Me.Controls
        If TypeOf c Is Button Then
            AddHandler c.Click, AddressOf JimThai
            c.Tag = c.Text '***** เก็บค่าเดิมเอาไว้อ้างอิง
        End If
    Next
End Sub


ตอบความคิดเห็นที่ : 38 เขียนโดย : ผ่านมา เมื่อวันที่ 2013-08-02 09:30:18
รายละเอียดของการตอบ ::
สมมุติว่า เราไม่เข้าใจเรื่อง lambda expression เราจะย่อโค้ดนี้ยังไง

ปล. ชงให้โชว์เลยนะเนี่ย

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-02 10:26:46 By : ห้ามตอบเกินวันละ 2 กระทู้
 


 

No. 41



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



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

ตอบความคิดเห็นที่ : 40 เขียนโดย : ห้ามตอบเกินวันละ 2 กระทู้ เมื่อวันที่ 2013-08-02 10:26:46
รายละเอียดของการตอบ ::


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-02 10:50:16 By : 01000010
 


 

No. 42

Guest


ตอบความคิดเห็นที่ : 40 เขียนโดย : ห้ามตอบเกินวันละ 2 กระทู้ เมื่อวันที่ 2013-08-02 10:26:46
รายละเอียดของการตอบ ::
สมมุติว่า เราไม่เข้าใจเรื่อง lambda expression เราจะย่อโค้ดนี้ยังไง


หนามยอกเอาหนามบ่ง

[x] เสียดายไม่สิ้น ลิ้น มีเพียงหนึ่งไม่ถึงร้อยพัน
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-02 11:27:55 By : ผ่านมา
 


 

No. 43

Guest


แสบสันต์ Me.Controls.OfType(Of Button)() '
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-02 11:37:47 By : ผ่านมา
 


 

No. 44

Guest


ผมคิดว่าน่าจะมีวิธีที่ดีกว่านี้ (Without Recursive Controls)

Code (VB.NET)
Me.Controls.OfType(Of Button)().ToList().ForEach(Sub(c As Button)
                                                     AddHandler c.Click, AddressOf xxx
                                                     c.Tag = c.Text
                                                 End Sub)


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-02 12:01:40 By : ผ่านมา
 


 

No. 45

Guest


#NO 44 จะยังคงคลอบคลุม (ใช้งานได้ดี) อยู่หรือไม่?
Code
FormXXX PanelXX1 Button1.Text = ป 51 Button2.Text = ป 52 PanelXX2 Button3.Text = ป 1/1 Button4.Text = ป 1/2 ... ... ...

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-02 12:11:59 By : ผ่านมา
 


 

No. 46

Guest


ตอบความคิดเห็นที่ : 41 เขียนโดย : 01000010 เมื่อวันที่ 2013-08-02 10:50:16
รายละเอียดของการตอบ ::



พวกคุณคือคน รุ่นใหม่
(ก้าวต่อไป)

ผมคนรุ่นเก่า (ภรรยาของผม ยกทรง ไม่จำเป็น (เด็กฯ เีรียกว่า ยายจ๋า))
อีกไม่กี่วันผมก็กลายเป็น ปุ่ยบำรุงดิน
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-02 13:42:50 By : ผ่านมา
 


 

No. 47



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

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

เยี่ยม ๆ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-02 17:18:54 By : mr.win
 


 

No. 48

Guest


ตอบความคิดเห็นที่ : 47 เขียนโดย : mr.win เมื่อวันที่ 2013-08-02 17:18:54
รายละเอียดของการตอบ ::
ขอบคุณครับ



[x] ผมเขียน C# ไม่เป็น (ไม่คล่อง) แต่ พวกคุณ คือ อาจารย์ของผม ครับ
ทุกวันนี้ผมคิดว่า C#/VB ไม่ใช่อุปสรรคสำหรับผม



ขอบคุณครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-02 18:31:27 By : ผ่านมา
 


 

No. 49



โพสกระทู้ ( 1,348 )
บทความ ( 1 )



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


ตอบความคิดเห็นที่ : 47 เขียนโดย : mr.win เมื่อวันที่ 2013-08-02 17:18:54
รายละเอียดของการตอบ ::
... คงไม่ได้เยี่ยมตรงที่เค้าบอกว่า จะเป็นปุ๋ยดอกนะ...

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-02 20:17:11 By : watcharop
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : รบกวนขอคำปรึกษาหน่อยครับ เกียวกับการเช่าพื้นที่หลายๆที่ ประมาณ 300 บล็อค
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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 00
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 อัตราราคา คลิกที่นี่