VB6, moze mala pomoc?

[mLaki]

Treba da proverim ono sto se unosi u text box i u zavisnosti od toga da postavljam flag A na 1 ako nema nicega u texboxu, na 2 ako u stringu postoje neki znakovi koji nisu brojevi ili slova i 0 ako je sve u redu (na primer HGF456), znaci u textboxu je string koji mora biti sacinjen samo od slova i brojeva.

Ovako sam ispiso kod:

If (txtINDEX.Text = "") Then
A = 1
Else
If Not (IsCharAlphaNumeric(txtINDEX.Text)) Then
A = 2
Else
A = 0
End If
End If

Kad kompajliram kod, VB izbaci gresku:

Compile Error:

Sub or Function not defined.

i selektuje mi ono IsCharAlphaNumeric.

Jel zna neko u cemu je problem, to jest gde gresim?

 

[G-D]

A gde si prethodno deklarisao tu API funkciju?

 

[mnicic]

Mozes sa asc() da vratis ASCII kod karaktera pa da onda proveris ako je ASCII kod izmedju 48 i 57 (znakovi od 0 do 9) ili 65-90 (velika slova) ili 97-122 (mala slova) da vratis A=2. Da ne bi deklarisao funkciju neku posebno.

 

[voodoo_]

IsCharAlphaNumeric je funkcija iz Windowsovog API-ja, moraš na početak programa staviti

Private Declare Function IsCharAlphaNumeric Lib "User32" Alias "IsCharAlphaNumericA" (ByVal cChar As Byte) As Long

 

[Ralex2]

Znam da nije odgovor na ovu temu, ali imam jedno pitanje pa da ne otvaram novu temu. Treba mi kod za sortiranje elemenata u okviru jednog niza, na primer ako hocu da sortiram brojeve od veceg ka najmanjem i obrnuto, ili niz sacinjen od vise reci pa ih redjam abecedno. Posto sam novajlija u programiranju voleo bih sto jednostavnji i razumniji kod. Hvala unapred.

 

[milekitic]

Znam da nije odgovor na ovu temu, ali imam jedno pitanje pa da ne otvaram novu temu. Treba mi kod za sortiranje elemenata u okviru jednog niza, na primer ako hocu da sortiram brojeve od veceg ka najmanjem i obrnuto, ili niz sacinjen od vise reci pa ih redjam abecedno. Posto sam novajlija u programiranju voleo bih sto jednostavnji i razumniji kod. Hvala unapred.

Sub QuickSort(arr As Variant, Optional numEls As Variant, _
Optional descending As Boolean)

Dim value As Variant, temp As Variant
Dim sp As Integer
Dim leftStk(32) As Long, rightStk(32) As Long
Dim leftNdx As Long, rightNdx As Long
Dim i As Long, j As Long

' account for optional arguments
If IsMissing(numEls) Then numEls = UBound(arr)
' init pointers
leftNdx = LBound(arr)
rightNdx = numEls
' init stack
sp = 1
leftStk(sp) = leftNdx
rightStk(sp) = rightNdx

Do
If rightNdx > leftNdx Then
value = arr(rightNdx)
i = leftNdx - 1
j = rightNdx
' find the pivot item
If descending Then
Do
Do: i = i + 1: Loop Until arr(i) <= value
Do: j = j - 1: Loop Until j = leftNdx Or arr(j) >= value
temp = arr(i)
arr(i) = arr(j)
arr(j) = temp
Loop Until j <= i
Else
Do
Do: i = i + 1: Loop Until arr(i) >= value
Do: j = j - 1: Loop Until j = leftNdx Or arr(j) <= value
temp = arr(i)
arr(i) = arr(j)
arr(j) = temp
Loop Until j <= i
End If
' swap found items
temp = arr(j)
arr(j) = arr(i)
arr(i) = arr(rightNdx)
arr(rightNdx) = temp
' push on the stack the pair of pointers that differ most
sp = sp + 1
If (i - leftNdx) > (rightNdx - i) Then
leftStk(sp) = leftNdx
rightStk(sp) = i - 1
leftNdx = i + 1
Else
leftStk(sp) = i + 1
rightStk(sp) = rightNdx
rightNdx = i - 1
End If
Else
' pop a new pair of pointers off the stacks
leftNdx = leftStk(sp)
rightNdx = rightStk(sp)
sp = sp - 1
If sp = 0 Then Exit Do
End If
Loop
End Sub

 

[ikonoklast]

^ Cek, jel ovo Pascal ? Relikvija proslosti. :d

Evo u C-u, Dev-C++ IDE... Ovo ti je za sortiranje brojeva od veceg ka manjem, za obrnuto samo promenis u if-u '>' sa '<'.

#include <stdio.h>
#include <stdlib.h>

void sort(int a[], int n)
{    int i,j,p;
     for(i=0; i<n-1; i++)
       for(j=i+1; j<n; j++)
         if(a[j] > a[i])
         {  p=a[i];
            a[i]=a[j];
            a[j]=p;  
         }
}

main()
{     int n, a[20], i;
      printf("Broj clanova niza: ");
      scanf("%d", &n);
      for(i=0; i<n; i++) scanf("%d", &a[i]);
      sort(a,n); 
      for(i=0; i<n; i++) printf("%d ", a[i]);
      system("Pause");
}