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 1654 korisnika na forumu :: 94 registrovanih, 6 sakrivenih i 1554 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 5253 - dana 09 Dec 2025 16:26

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 015, 4thFlavian, A.R.Chafee.Jr., amaterSRB, awathorn, Betta, Bivan, Bo96, bojcistv, bokisha253, boromir, BOXRR, Brana01, BrcakRS, BSD, Bubimir, coaaco, darkojbn, dayal, Despot Đurađ, Django777, Djuza, Dobi, draganl, dragoljub11987, Duh sa sekirom, dusanobr, eagle.rs, ElvisP, EXIT78, FileFinder, Hardenberg, HogarStrashni, HrcAk47, ikan, Ivoo, Jakonjveliki, jodzula, Jomini, Jonbonjovi, Kajzer Soze, king111, kingkong1947, Kobrim, kovinacc, lafa008, Lazarus, Litostroton, Marko Marković, Mercury, Michellefromrezistance, Milan A. Nikolic, Milanče222, mile.ilic75, Miler88, Milos ZA, milos.cbr, Moldovan, Mrav Obrad, N.e.m.a.nj.a., naki011, nebidrag, nnovakis, Orc, paja69, Pavel Medved, pein, raptorsi, RecA, rodoljub, ruma, sales, Sevatar, Sharpshooter, Sioux7674, Smajser, Smiljkovich, Spreewerk, SympathyForTheDevil, tanakadzo, tritonus, tubular, Tvrtko I, vathra, veljko82, Vlada1389, vlahale, voja64, Vzor50, wolverined4, XBMC, Zoca, |_MeD_|, šumar bk2