textbox renklendirme hk.

[chakistes]

merhaba arkadaşlar textboxda 30 dan büyük sayıları kırmızı renk yapıyor fakat 30dan küçük olup, 1.50 veya 2.30 gibi sayıdan sonra nokta olduğunda da kırmızı renk yapıyor.
benim istediğim 30dan küçük olduğunda 1.50 ,2.4 veya 22.5 gibi değerler girsemde 30 dan küçük olduğu için beyaz renge dönüşsün.
If toplam > 29 Then
toplam.BackColor = &HFF&
Else
toplam.BackColor = &H80000005
End If
If toplam > "" Then
Else
toplam.BackColor = &H80000005
End If

 

[Orion1]

1.3 girmeyin.
Ondalık ayıraç için eğer Türkçe windows kullanıyorsanız virgül kullanın.
İngilizce windows kullanıyorsanız ondalık ayıracı nokta olarak kullanın.
Buyurun.

If Not IsNumeric(Toplam) Then
    MsgBox "Lütfen sayı giriniz!!", vbCritical, "UYARI"
    Toplam.SetFocus
    Exit Sub
End If
If CDbl(Toplam.Value) > 29 Then
Toplam.BackColor = &HFF&
Else
Toplam.BackColor = &H80000005
End If

 

[chakistes]

iyi akşamlar öncelikle yardımın için teşekkür ederim. fakat bizim kullandığımız programda mecburi olarak öğrenci devamsızlığı yazdığımız için 1.50 -2.50- 13.5 gibi küsüratlı olan öğrenciler olduğundan nokta haricinde çalışmamaktadır.

 

[Orion1]

Eğer Windows'unuz Türkçe ise ondalık ayıracı virgül kullanmazsanız yanlış hesaplar.

 

[FERAZ]

Dim bul As Integer, xx As Integer

If toplam.Value = "" Then GoTo son
bul = InStr(1, toplam.Value, ".")

If bul = 0 Then xx = 0
If bul > 0 Then xx = Split(toplam.Value, ".")(1) + 0

If Split(toplam.Value, ".")(0) + 0 >= 30 And xx > 0 Then
    toplam.BackColor = &HFF&
ElseIf Split(toplam.Value, ".")(0) + 0 > 30 Then
    toplam.BackColor = &HFF&
Else
    toplam.BackColor = &H80000005
End If
Exit Sub
son:
toplam.BackColor = &H80000005

 

[chakistes]

teşekkür ederim çalıştı

 

[FERAZ]

Rica ederim.