หน้าแรก
คอมมูนิตี้
ห้อง
แท็ก
คลับ
ห้อง
แก้ไขปักหมุด
ดูทั้งหมด
เกิดข้อผิดพลาดบางอย่าง
ลองใหม่
แท็ก
แก้ไขปักหมุด
ดูเพิ่มเติม
เกิดข้อผิดพลาดบางอย่าง
ลองใหม่
{room_name}
{name}
{description}
กิจกรรม
แลกพอยต์
อื่นๆ
ตั้งกระทู้
เข้าสู่ระบบ / สมัครสมาชิก
เว็บไซต์ในเครือ
Bloggang
Pantown
PantipMarket
Maggang
ติดตามพันทิป
ดาวน์โหลดได้แล้ววันนี้
เกี่ยวกับเรา
กฎ กติกา และมารยาท
คำแนะนำการโพสต์แสดงความเห็น
นโยบายเกี่ยวกับข้อมูลส่วนบุคคล
สิทธิ์การใช้งานของสมาชิก
ติดต่อทีมงาน Pantip
ติดต่อลงโฆษณา
ร่วมงานกับ Pantip
Download App Pantip
Pantip Certified Developer
อธิบายโค๊ดอันนี้ให้หน่อยนะ.....ด่วนสุดๆ
กระทู้คำถาม
Private Sub Command1_Click()
Dim x As Integer
x = 11
Do
Print x
x = x + 1
Loop Until x >= 10
End Sub
▼
กำลังโหลดข้อมูล...
▼
แสดงความคิดเห็น
กระทู้ที่คุณอาจสนใจ
excel,VBA กำหนดช่วง วน loop ให้ตัวแปร ?
ช่องใน excel A1 = 120 A2=200 A3=5 ---------------------------------------------- อันนี้พยายามลองเขียนดูค่ะ ไม่เป็นเลยค่ะ Public Sub Quantity() Dim x As Byte Dim y As Integer Do y = x * Range("A1
ส้มตำไก่ย่างข้าวเหนียว
ทำไหมมันผิดครับพอดีพึงหัดใช่ หาวิธีไม่เจอจริงๆ ใช่ Microsoft Visual Basic 6.0
Dim a, b, c, d, e, f, g, h, i As Integer Dim m As Integer Dim n As Integer Dim x As Integer Sub checkWnner() If a + b + c = 3 Then x = 10 If d + e + f = 3 Then x = 10 If g + h + i = 3 Then x =
สมาชิกหมายเลข 4211828
รบกวนเซียน excel หน่อยครับ
ผมอยากจะให้มีการจัด cell ดังรูป (before) ให้เป็นตามรูปแบบ (after) เป็นแบบอัตโนมัติ เขีัยนเป็นสูตร เงื่อนไข 1) เมื่อค่าเป็น +1 ให้เลื่อนขึ้นไป cell หนึ่ง 2) เมื่อค่าเป็น -1 ให้เลื่อนลงไป cell หนึ่ง พ
MeasureMind
ช่วยอธิบาย โค้ดเเมโคร พวกนี้หน่อยว่า มันหน้าที่อะไร
พอดีกำลังศึกษา เเต่ไม่รู้โค้ดในเเต่บะข้อมันทำหน้าที่อะไรบ้าง รบกวนผู้รู้ช่วยหน่อย T T __________________________________________ (1) Sub main() &nb
สมาชิกหมายเลข 6171673
ทำไงให้ขึ้นชื่อเพื่อนทุกคนครับ
Public Class Form1 Dim Stu_Score(6) As Integer Dim Begin, Last As Integer Dim IP$ Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Begin = 1 : Last
สมาชิกหมายเลข 4790152
ช่วยแปลภาษา VB ให้หน่อยค่ะ
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, sum As Integer TextBox1.Text = "" For i = 1 To 12 sum
สมาชิกหมายเลข 1162762
รบกวนช่วยดู Code VB ให้หน่อยคะ
พอดีว่าจะทำระบบ E-Lerning แบบง่ายๆ ที่ใช้ภายในบริษัทฯ โดยทำ VB ใน Powerpoint จขกท.เขียนโค้ดตามสื่อการสอนใน Internet ด้านล่างเป็นโค้ดที่เขียน และต้องการให้ข้อมูล ชื่อผู้สอบ, ผลคะแนนสอบ และวันที่สอบไป
error_wa
ช่วยดูโค๊ด Vb6 ascii หน่อยครับ
Private Sub HighLightKey(ByVal parLetter As String, ByVal par_color As Long) Dim i As Integer If (Asc(parLetter) >= 65 And Asc(parLetter) <= 65 + 25) Or _ ตรงตัวหน่าอะครับ คือ 65 คืออักษร A-Z
สมาชิกหมายเลข 2875719
ช่วยแปลงโค๊ดรันแบบ Console เป็นรันบน Windows Form ทีครับ VB2008
เป็นตัวโปรแกรม Chat Server ครับ ผมต้องการแปลงให้มันรันได้ บน Windows Form อะครับ เพื่อที่จะเอาไปประยุกต์ใช้งานครับ แต่ลองพยายามแปลงเองแล้วก็ไม่ได้ครับ ใครพอรู้หรือพอจะแนะนำได้ ขอความกรุณาหน่อยครับผม!
สมาชิกหมายเลข 1547025
บนสุด
ล่างสุด
อ่านเฉพาะข้อความเจ้าของกระทู้
หน้า:
หน้า
จาก
แชร์ :
โปรดศึกษาและยอมรับนโยบายข้อมูลส่วนบุคคลก่อนเริ่มใช้งาน
อ่านเพิ่มเติมได้ที่นี่
ยอมรับ
อธิบายโค๊ดอันนี้ให้หน่อยนะ.....ด่วนสุดๆ
Dim x As Integer
x = 11
Do
Print x
x = x + 1
Loop Until x >= 10
End Sub