2 problema

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

E ovako: Želim da napravim exe fajl koji će da prekine rad trenutne aplikacije konkretno radi se o igrici Max Payne 2. Ja znam da se rad trenutno aktivne aplikacije može prekinuti ovako:

Private Sub Form_Load( )
sendkeys “%{F4}”, true
unload me
End Sub

Ali u ovoj kao i u većini driguh igrica kombinacija tastera Alt+F4 ne pomaže pa me zanima da li postoji jos neki načnin za ukidanje trenutno aktivne aplikacije......

Moj drugi problem je u tome što ne znam kako da uklonim soposteveni splash screen znam da zvuči smešno ali tako je.
Ja već dugo radim na jednom projektu koji se zove Osnovni pojmovi o računaru (opor) to je elektronska enciklopedejia namenjna početnicima i sad hoću da u program ubacim opcije tipa pokazuj splash screen ili ne pokazuj, podesi težinu testa..... E sa splash screenom je nastao problem. Naime kad sam nacrtao sve objekte u formi a to su jeden check box (ne prikazuj splash screen) i dva tastera (OK i Cancel) u proceduri za taster OK napisao sam sledeće:

Private Sub cmdOK_Click( )
if chkSplash.value then
frmslash.hide
else
frmsplash.show
Unload me
End Sub

I on to navodno odradi ali kad sledeći put pokrenem program ja i dalje vidim splash u čemu je problem?

Unapred hvala

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

za ovo prvo probaj sa app. pa ce ti se otvoriti menu pa probaj... ja ne znam tacno da li uopste tako moze...

za ovo drugo moze da se uradi tako sto ces vrednost checkboxa upisati u registra ili txt file, ali ti ja preporucujem txt file...

npr.

ako zelis da ti opcije budu kao .ini fajl onda moras da imas funkciju koja ce da cita samo text posle npr. =

Primer:

u txt file-u imas

Prikazi splash screen = 1

end Primer

Prikazi splash screen je samo tebi informacija da znas za sta sluzi taj red, a ti ces procitati citav red i funkcijom koju cu ti dati uzeti samo vrednost, a to je 1...

posle na pocetnoj stranici ponovo ucitas taj isti fajl i u neku promenljivu smestis vrednost tog procitanog polja... npr.

dim opt_splash 'ovde ce se nalaziti 1 dim str_splash as integer on error resume next open app.path & "\ime_fajla.txt" for input as #1        input #1, str_splash close #1 opt_spalsh = pronadji(str_splash,"=",2) 'ovaj iznad kod koristi na formi koja sluzi za opcije i na splash screenu i na load ili activate splasha pitaj da li je opt_spalsh 1 ili 0 i naravno znas sta treba ciniti... 'posle ovoga ce se u opt_splash nalaziti broj 1... broj 2 kao zadnji argument funkcije sluzi da kaze f-ji od kog mesta cmpSign da uzme rezultat... npr. da si umesto 2 stavio 1 rezultat bi bio " 1", a ne "1"

kada zelis da snimis ono sto si izabrao u opcijama dugmetu dodas sledeci kod:


on error resume next open app.path & "\ime_fajla.txt" for output as #1        print #1,"Prikazi splash screen = ", checkbox.value close #1

kada budes kliknuo na dugme vrednost checkboxa ce biti upisano u jednoj liniji zajedno sa "Prikazi splash screen = "


f-ja
Public Function pronadji(strUlaz As String, cmpSign As String, Optional Position As Integer) As String Dim i As Integer Dim j As Integer Dim a(100) As String Dim rez As String If Position = 0 Then     Position = 0 End If For i = 1 To Len(strUlaz)     a(i) = Mid(strUlaz, i, 1) Next i For i = 1 To Len(strUlaz)     If a(i) = cmpSign Then         j = i         Exit For     End If Next i For i = j + Position To Len(strUlaz)     rez = rez + a(i) Next i pronadji = rez End Function 'pronadji

NOTE: ako kojim slucajem program ne radi javi mi pa cu proveriti posto sam ovo pisao brzo i nije mi bas pregledno u ovom delu za pisanje posta...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Snoope hvala ti na trudu ali (ne zameri) sve si mi to nekako ne pregledno objasnio to mi je previse informacija ja necu samo pasivno da iskopiram tvoje kodove vec da shvatim sustinu zato bi bilo dobro da me ukoliko mozes vodis korak po korak.........

Unapred hvala

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

pisacu ti korak po korak u smislu da kada uradis ovo napisacu ti sledece posto sada nemam vremena za sve da pisem....

ovako....

zamisli da pocinjes ispocetka i da nemas nijednu formu (koju zapravo imas)....

napravi formu koju mislis da koristis za splash screen i jednu koja ti sluzi kao stranica na kojoj ce se nalaziti ono glavno za sta program sluzi...

splash nazovi frm_splash, a ovu drugu formu frm_main

zamisli da u fajlu ime_falja.txt se nalazi jedna linija

Prikazi splash screen = 1

frm_splash je stavljen kao visible = false, ali se on prvi ucitava ili mozes da napravis jos jednu formu koja ce sluziti samo da proveri sta je korisnik radio po opcijama u tom slucaju ovaj kod stavljas u tu formu...

sada kod
dim str_splash as integer 'koristi za proveru open app.path & "\ime_fajla.txt" for input as #1        input #1, str_splash 'ovde se upisuje ceo jedan red iz txt fajla close #1 str_splash = pronadji(str_slash, "=", 2) 'str_splash = 1 'onda pitas da li je str_splash = 1 if (str_splash = 1) then         frm_splash.visible = true else         frm_splash.visible = true end if 'i to je to... :)

sledeci kod cu posle dodati, sada moram da idem na Counter

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

imas u meniju app (pises app.) da izaberes koja ce ti forma biti prva. tu izaberi.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

@snoop
Dakle ovako:
Ja treba da napravim txt fajl u kome će pisati Prikaži slash = 1, a zatim da napravim formu koja će biti nevidljiva i koja će služti za proveru vrednosti check box-a u formi opcije i u koju ulazi dole napisani kod.
Jesam li te dobro shvatio?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

da, samo u toj nevidljivoj formi (bilo da je nova forma ili frm_splash) ces na formi koja sluzi za opcije postaviti vrednost checkboxa kao sto je upisano u txt fajlu npr.

frm_opcije.chk_box.value = str_splash

ovaj code bi trebao da cekira checkbox u formi opcije...

sledeci kod kada se vratim iz skole... negde oko 7-8 pm....

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

mnicic ::imas u meniju app (pises app.) da izaberes koja ce ti forma biti prva. tu izaberi.

to moze da se izabere i u procesu projektovanja programa u meniju Project > properties..., ali moze i tako, OK....

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

brksi ::@snoop
Dakle ovako:
Ja treba da napravim txt fajl u kome će pisati Prikaži slash = 1, a zatim da napravim formu koja će biti nevidljiva i koja će služti za proveru vrednosti check box-a u formi opcije i u koju ulazi dole napisani kod.
Jesam li te dobro shvatio?

Ja sam sve ovo odradio i prijavljuje mi gresku u kodu za nevidljivu formudim str_splash as integer 'koristi za proveru open [color=red]app[/color].path & "\ime_fajla.txt" for input as #1        input #1, str_splash 'ovde se upisuje ceo jedan red iz txt fajla close #1 str_splash = pronadji(str_slash, "=", 2) 'str_splash = 1 'onda pitas da li je str_splash = 1 if (str_splash = 1) then         frm_splash.visible = true else         frm_splash.visible = true end if

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

brksi ::@snoop
Dakle ovako:
Ja treba da napravim txt fajl u kome će pisati Prikaži slash = 1, a zatim da napravim formu koja će biti nevidljiva i koja će služti za proveru vrednosti check box-a u formi opcije i u koju ulazi dole napisani kod.
Jesam li te dobro shvatio?

Ja sam sve ovo odradio i prijavljuje mi gresku u kodu za nevidljivu formudim str_splash as integer 'koristi za proveru open app.path & "\ime_fajla.txt" for input as #1        input #1, str_splash 'ovde se upisuje ceo jedan red iz txt fajla close #1 str_splash = pronadji(str_slash, "=", 2) 'str_splash = 1 'onda pitas da li je str_splash = 1 if (str_splash = 1) then         frm_splash.visible = true else         frm_splash.visible = true end if