ต่อไป »

[marketting]

ท่านใดพอทราบการเขียน VB2005 บ้างครับ +1
พอดีกำลังจะเขียน แบบตรวจเฉพาะ สระในภาษาอังกฤษ ไม่รู้จะกำหนดแบบ IFElse แบบไหนดี

ขอขอบคุณทุกท่านมากครับ

 

[SekRanger]

สระในภาษาอังกฤษคืออะไรครับ
AEIOU เนี่ยเหรอ

[marketting]

สระในภาษาอังกฤษคืออะไรครับ
AEIOU เนี่ยเหรอ

ใช่ครับ แบบว่ารับแต่ AEIOU อย่างเดียวกรอกตัวอื่นก็จะ ขึ้น NO ไปครับ ถ้ากรอกถูกก็จะ YES

[workshop]

ขอรายละเอียดด้วยครับ ว่าอยากตรวจสอบอะไร เดี๋ยวลองทำให้

[mrtomson]

โค๊ด:

// SARACHX.cpp : Defines the entry point for the console application.
//

#include "stdafx.h"

int check_sara(char *input) {
	int i,s;
	char allow_char[] = "AEIOU";
	for(i=0;i<strlen(input);i++) {
		for(s=0;s<strlen(allow_char);s++) {
			if(input[i]==allow_char[s]) {
				return 1;
			}
		}
	}
	return 0;
}

int _tmain(int argc, _TCHAR* argv[])
{
	if(check_sara("AEIOUs")) {
		printf("Yes\n");
	} else {
		printf("No\n");
	}
	system("pause");
	return 0;
}

ว่างพอดีเลยช่วยเขียนให้ครับ

EDIT : ตัวอักษรที่อณุญาตให้ใช้ได้ให้ ให้กำหนดในตัวแปร allow_char จากตัวอย่างที่ให้ไปมี AEIOU ซึ่งเป็นตัวพิมพ์ใหญ่ ถ้าต้องการตัวพิมพ์เล็กด้วยก็ให้ใส่เป็น "AEIOUaeiou"
กล่าวคือให้ใส่ตัวอักษรที่กรอกได้ลงในตัวแปร allow_char ตัวใดที่ไม่ได้กำหนดไว้คือใส่ไม่ได้ การจะเช็คก็เพียงเรียกใช้ฟังก์ชั่น check_sara ตามตัวอย่างได้เลยครับ

[candygurl]

  ตะกี้ใส่ไม่ครบ 555+ ผู้เขียนอาจงงได้ 

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

Dim allowedChars As String = "0123456789$,"

    If allowedChars.IndexOf(e.KeyChar) = -1 Then
        ' Invalid Character
        e.Handled = True
    End If

End Sub

ลองไปศึกษาดูนะค่ะ แก้แค่นิดเดียวได้เลย  vb ไม่ค่อยถนัดเลยอ่ะ ถนัดแต่ c# วันหลังถามc#ได้มั้ย 555+  

[marketting]

+1 ทุกท่านแล้วนะครับ ขอบคุณมากๆ เลยครับ เด๋วเอาไปศึกษาเพิ่มเติมต่อนะครับ

 

ยินดีครับ ท่าน candygurl

 

[candygurl]

+1 ทุกท่านแล้วนะครับ ขอบคุณมากๆ เลยครับ เด๋วเอาไปศึกษาเพิ่มเติมต่อนะครับ

 

ยินดีครับ ท่าน candygurl

 

ขอบคุณค่ะไม่รู้เข้าใจถูกมั้ย ว่าให้ดักจับตัวอักษรนั้นๆ ประมาณนี้หรือเปล่า ไม่รู้ว่าคุณจะดักจับ aeiouไปทำอะไรแต่ถ้าจะดักจับตัวอักษรพวกนี้ก็เอาไปประยุกต์ใช้ได้ค่ะ

[workshop]

โค๊ด:

    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim Textinput As String = e.KeyChar
        Select Case Textinput.ToLower
            Case "a", "e", "i", "o", "u"
                Debug.Print("Yes")
            Case Else
                Debug.Print("No")
        End Select
    End Sub

[mrtomson]

โอ้วๆ VB2005 ผมอ่านผิดเป็น VC 2005 โทษทีครับเขียนภาษา C ให้เฉยเลย