[VB6] Program Odštevalnik - verjetno preprosta rešitev ampak jest je ne najdem

Najprej LP vsem, je moj prvi post.
OK, začel sem mal igrat s programiranjem, Visual Basic 6.0 (vem da je to kao jezik za pussye, ampak se mi zdi še najbolj razumljiv & user-friendly). Pregledu sem forum in dal skoz 2 video tutoriala (Micro$ in nek www.seangreasly.com; praktično identična), pa ni mel še nihče podobnega problema. In to je:

Naredu sem en mali programchic, ki mu vpišeš minute in on te po preteku tega časa opozori da je konc z msgBox-om. Do zdaj je blo med odštevanjem viden samo napis "Odštevam", rad bi pa da bi kazal kok minut je še do konca. For-Next ali Do Loop ne prideta v poštev ker ne iterira v intervalu ki ga jest hočem (1min). Da bo mal bol razumljivo, je tuki 'izvorna koda':)

Private Sub cmdExit_Click() 'izhod
MsgBox "Hvala da ste uporabljali moj program!"
End
End Sub

Private Sub cmdStart_Click() 'gumb začni odštevanje
If txtCas.Text = "" Then
MsgBox "Prosimo vpišite željeni čas"
Else
tmrMain.Interval = txtCas.Text
lblStatus1.Visible = True
lblStatus2.Visible = True
tmrMain.Enabled = True
tmrClock.Enabled = True
lblCounter.Caption = txtCas.Text
lblCounter.Visible = True
End If
End Sub

Private Sub cmdStop_Click() 'gumb ustavi odštevanje
tmrMain.Enabled = False
tmrClock.Enabled = False
lblStatus.Visible = False
lblCounter.Visible = False
End Sub

Private Sub tmrClock_Timer()
lblCounter.Caption = txtCas.Text - 1
End Sub

Private Sub tmrMain_Timer()
tmrMain.Enabled = False
tmrClock.Enabled = False
lblStatus1.Visible = False
lblStatus2.Visible = True
lblCounter.Visible = False
MsgBox "Čas je potekel"
End Sub


Mal komentarja: v txtCas napises čas v minutah in če polje ni prazno začne odštevat glede na tmrMain. Večina ostale solate je prikazovanje in skrivanje napisov in ugašanje in prižiganje tajmerjev.

Kaj ne zmorem? V predzadnjem subu je zapisano da naj odšteje vpisani željeni čas za 1, vsako minuto (oz. cikel tmrClock). To se dejansko tud zgodi, ampak samo enkrat. Kakor vem naj bi se to dogajalo pa nastavljenih intervalih dokler je tmrClock vklopljen. Zakaj se ne??

Dobili smo novo strokovnjakinjo za VB! Woohoo! ;>

Jap, v kaksna gorja nas prisilijo delodajalci... ;)

Jaz si to upam rect ;>

Dvomim, bolj bi stavil na C/C++.

Tole zveni bolj kot mit. Vsaj Google ne najde nič pametnega, vsi pišejo samo, kako je VB pripraven (namenjen) interakciji med različnimi Office programi in podobno.

Sladkor:
1. za odševanje moraš uporabiti timer z nižjim intervalom ali pa uporabit api klic gettickcount (poglej v api viewer za celotno deklaracijo) in zanko z doevents.
2. če uporabiš odštevanje v sekundah, moraš vneseno vrednost pomnožit s 60

npr. kaj takega:
celo kodo lahko daš v form objekt

Private Declare Function GetTickCount Lib "kernel32" () As Long

Sub Odstevaj(casVMinutah As Single, izpis As Label)
Dim temp As Long
Dim prekini As Boolean
Dim cas As Long
Dim razlika As Long


temp = GetTickCount
prekini = False

Do Until prekini = True
DoEvents

If GetTickCount - temp >= 1000 Then 'Vsako sekundo
cas = cas + 1

razlika = casVMinutah * 60 - cas

izpis.Caption = Int(razlika / 60) & ":" & Format(Int(razlika Mod 60), "00")

If razlika = 0 Then prekini = True

temp = GetTickCount
End If
Loop
End Sub

Ko pa hočeš uporabit timer, pa daš na form en label (Label1), pa kličeš:
Odstevaj 10, Label1
MsgBox "Konec!"


Drugače pa če začenjaš s programiranjem, si rajš mal več časa vzem pa se c++ nauči. Ker res je, da je vb enostaven, je pa počasen ko hudič.

darklord: Verjemi mi, da je. Preizkusi hitrost izvajanja zank v vb-ju ali pa javi,c++, in ostalih. 10-20x razlika v času za isto kodo!

ni problem:
poskusi kaj takega:

dim a as long
for x=1 to 10000
for y=1 to 10000
a=x+y
next y
next x

pa podobno v c-ju

long a=0;
for (long x=0;x< 10000;x++)
{
for (long y=0;y< 10000;y++)
{
a=x+y;
}
}

upam da sem v c-ju prav napisu, drugač pa sej veš kaj mislim, pa sam probi

Itak.. "osnovna" napaka...

Če dodaš še Dim x as long, y as long so malo drugačni rezultati...

Test1 je moja koda, test2 pa tvoja

Test1|0,415116|0,410587|0,462186|0,441364|0,715366
Test2|14,927981|14,904604|15,521111|15,223007|15,797127

37x hitrejše

pa še neki: si poskusil tudi v c-ju?

te optimizacije pa ne upoštevajo kode, na katero se v nadaljevanju ne sklicuješ. Če bi potem še a nekje uporabil, bi bila pa malce drugačna situacija.

darko: sam bi težko bolje pokazal zakaj je VB zanič. Prazna koda bi morala stati 0.

Owca: a tvoj priljubljeni programski jezik pa APIje kliče, brez da bi porabil kaj časa za to?

Itak da je nesmiselen... jaz sem samo odgovoril na tisto trditev zgoraj, kajti vseeno stvari niso glih takšne...

Množenje matrik? Lahko probamo

Še neki ne smete pozabit ko ste se šli koliko časa se vrtita tisti dve zanki... Namreč tip procesorja... Jz, sam pr seb nism mogu vrjet, k sm naredu eno res ekstremno dolgo zanko, tm recimo za i=100000000 in je Intel P4 2.4GHz popušiv pred AMD Athlon 1.333.
Namreč AMD proc je hitrej pršu čez zanko, kot pa Intel CPU... Jz nism mogu verjet k sm to vidu... Tko da zgleda je zlo pomembna arhitektura proca... Sepravi da je velikra razlika AMD vs INTEL, v računanju spremenlljivk tipa LONG...

Na ta način so skalibrirani špili, kolk časa gre čez eno zanko in potem nastavi neke parametre, se spomnite Gorilaz v QBASIC-u. Ena zanka in po defaultu je tm nekje do 10.000, dans k so proci hitrejši gre hitr čez zanko in vrne 0 in potem nekje naprej v kodi deli z 0 in vrne napako Devision by 0. Podobno napako sm zasledu pri inštalaciji SBLive driverjev Klasična napaka, povečat je treba zanko, tako da se ne zgodi da bo delil z 0. To čist sam tko kot zanimivost...

S odgovorm se strijam. Zdej pa malo offtopic, da odgovorim na nekatere stvari kar so nekateri spraševali ..

Od kje vam, ideja, da je VB samo eden in edini jezik!? Od kje!=?
Enkrat za vselej: VB ima različne verzije jezika, v različnih komponentah. Kot prvo, oba Word in Excel imata vgrajen (interni) skriptni jezik VBA (Visual Basic for Applications). Je nekakšen "batch jezik" za Office programe. Z njim lahko "upravljate" cel program iz zbirke Offica.
Potem imamo ASP 3, ki je ubistvu VB prirejen za delo na Server Side IIS. Potem imamo VBS (Visual Basic Script), ki je "batch jezik" za operacijski sistem Windows. Ja skripte delate v njem lahko!!

Potem je tu VB v Visual Studiu 6, ki je večnameski jezik, usmerjen bolj v izzdelavo programov, ki imajo back-end podprt z bazo, bodisi Access ali MS SQL 2k ali My SQL preko MyODBC driverja, ki je viden v Control Panel-u pod "ODBC"ikono. Ni pa nujno, saj lahko programira bilo kaj drugega. Razen DirectX, se neda direktno s VB6.

Potem je tu, PRVI IN PRAVI VEČNAMESKI VB imenovan VB.Net za platformo .Net! TO pa je že moderen (OOP) jezik, ki je CEL usmerjen v objektni model, spremenjivke SE morajo prej definirati, preden se jim priredi vrednost in tako naprej.. (da se direktno v DirectX dostopat )

C++ JE NEPRIMEREN za začetnika!! O tem NI GOVORA, da bi se ga učil!! Ker bo nekaj krepkih let porabil, preden, ga bo dodobra spoznal. C++ PREVEČ PONUJA programerjem, ker pomeni, da živ bog ne more več prebirat za vami, kaj ste hoteli napisati!! Razredni modeli, ala MFC, ATL so WAY komplicirani in zahtevajo PREVELIKO koncentracijo z delom s samim sistemom, kot da bi se programer ukvarjal s samim problemom.
C#, VB.Net pa sta OKLEŠČENA, kar je DOBRO!! VB6 je OKLEŠČEN kar je DOBRO!! VB6 hitrost je ZELO hitra, samo, da niso problemi s knjižnicami!! Močno priporočam!! Nisem ŠE srečal VB6 programa, ki bi bil "počasen"!! a-a
In prosim, ne postajte, ker ni smiselno, sploh dodajat kaj. Človek je na pravi poti! Ko bo spoznal VB do obisti, naj POTEM poizkuša in se igra s C++, da vidi to plat medalje! NIČ PREJ!! TO je pošten in premiišljen odgovor, glede jezikov od MS pod MS Windows platformo, da se razumemo!

PS: VB6 je poznal Edit&Continue. To se vrača v Visual studiu 2005

OwcA:

Vseeno pa ne moreš dat vseh programov (recimo takih ki služijo povezavi z bazo in takih, ki množijo 10x10 matrike) v isti koš... Nenazadnje poznamo ravno zaradi tega kopico raznih jezikov (nekateri probajo bit vsenamenski, nekateri so pač samo za določene stvari) in to je tudi eden od razlogov, da VB še vedno ostaja tako zelo popularen...

To bi morala biti izjava tedna...

Hehe, Dijkstra je bil model ja.

Saj jaz sem tudi z BASIC-om zacel. Samo sem potem na C presaltal, kar je bil (upam:) dovolj velik protistrup.

Obskurnih jezikov je na tone za vsak sistem, raj pokaži, kaj in koliko je s tem narejeno.

Cesa se v VB 6.0 ne da naredit, kar se v C++ da? (Z uporabo API-jev v VB seveda)

Že teorija izračunljivosti ti zagotavlja, da vse, zato je to bedasto vprašanje.

OwcA: Vsak prevajalnik, ki zna delat z NAND ukazom, zna izracunati vse. Jaz pa nisem spraseval po izracunljivosti(sem nekako mislil, da bo to implicitno razvidno). V VB 6.0 brez uporabe API funkcij ne mores klicati sistemskih funkcij operacijskega sistema, torej pri takem VB dosti funkcionalnosti odpade.

Lahko bi naredil hardverski interpreter VB-ja. Potem bi bil VB se bolj sistemski jezik, kot je C v unixih in winsih. Saj ne, da bi si to res zelel .

Vedno znova me preseneča, zakaj bi si kdo sploh želel pisati v basicu ...