Igra Moj broj

Igra Moj broj

offline
  • Pridružio: 03 Okt 2006
  • Poruke: 30

Pravim program slican igri Moj broj iz kviza Slagalica i imam problem s dobijanjem konacnog rezultata kad izraz nije pravilno unet.
Kako da dobijem poruku o gresci kad se unese nepotpun izraz sa nezatvorenim zagradama ili operatorima +,*,-,\ na kraju izraza.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Ou, ne gledam slagalicu pa neznam o kojoj se igri radi Sad Napsi kada igra slagalica pa cu pogledati. A do tada probaj ovo:

Private Sub Command1_Click() Dim a As String Dim b, c As Integer b = 0 c = 0 For i = 1 To Len(Text1.Text)     a = Mid(Text1.Text, i, 1)   If a = "(" Then     b = b + 1   End If   If a = ")" Then     c = c + 1   End If Next i If b <> c Then MsgBox "Error", vbCritical, "Error" End Sub

Dopuna: 15 Jan 2007 14:22

Evo i code za pronalazenje znakova kao sto su +,-,* i / na kraju:

Private Sub Command1_Click() If Mid(Text1.Text, Len(Text1.Text), 1) = "+" Or _    Mid(Text1.Text, Len(Text1.Text), 1) = "-" Or _    Mid(Text1.Text, Len(Text1.Text), 1) = "*" Or _    Mid(Text1.Text, Len(Text1.Text), 1) = "/" Then MsgBox "Error", vbCritical, "Error" End If End Sub



Ko je trenutno na forumu
 

Ukupno su 1298 korisnika na forumu :: 41 registrovanih, 5 sakrivenih i 1252 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 357magnum, A.R.Chafee.Jr., Asparagus, Atomski čoban, BlekMen, bojanM84, BORUTUS, comi_pfc, Dimitrise93, dragoljub11987, Griffon vulture, GveX, Ilija Cvorovic, Istman, Karla, kolle.the.kid, kovinacc, MILO-VAN, milutin134, misa1xx, Mixelotti, mnn2, NoOneEver Dreams, ostoja, pacika, pein, procesor, Rakenica, Sir Budimir, Sirius, slonic_tonic, solic, Srle993, suton, Tragač, tubular, vaso1, vathra, VP6919, yrraf, 125