Skocz do zawartości

dzelo3

Użytkownicy
  • Postów

    66
  • Dołączył

  • Ostatnia wizyta

Odpowiedzi opublikowane przez dzelo3

  1. Witam, ciężko napisać co chcę osiągnąć, więc pokaże to na przykładzie :

     

    mam dwie tablice:

     

    $users[0]="gosc";

    $users[1]="user";

    $users[2]="admin";

     

    $pass[0]="ehyefg";

    $pass[1]="rstjhr";

    $pass[2]="adssgg";

     

    i teraz otrzymuję dwie zmienne: $login oraz $haslo

    i najpierw chcę sprawdzić czy dany $login znajduje się w $users a potem czy $haslo pasuje do odpowiadającego pola w $pass według pozycji w tabeli.

     

    np. $login jeżeli będzie miał wartość "admin", to ma jeszcze sprawdzić czy $pass ma wartość "adssgg".

    chyba wszyscy zrozumieją o co chodzi, to ma być prosty skrypt logowania bez bazy mysql...

     

    próbowałem fukcji in_array ale nie wiem jak wyciągnąć z tabeli numer po podaniu wartości ;/

  2. potrzebuję umieścić w grze ruchomy napis, który będzie widoczny tylko na tle spritu, ma być niewidoczny, podczas gdy znajduje się na tle...

    Nie chodzi mi tutaj o porównanie pozycji tekstu i sprita... tylko dokładne wyświetlanie np. połowy litery, która znajduje się na spricie

     

    (sprite jest prostokątny)

     

    i mały przykładzik :

     

    scr.png

     

    Pomożecie ?

  3. wychodzi na to że jest to 378, gdyż w przykładzie napisanym w delphi z kolei do zlportio.sys tak jest i działa...

    ale mi to za cholere nie chce wyjść, próbuje jako word, jako bit, i nic nie reaguje...

     

    tu jest kod z delphi na 90% działający z tym , że do innego sterownika:

     

     

    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Zlportio, StdCtrls, ExtCtrls;
    
    type
      TForm1 = class(TForm)
        Label1: TLabel;
        Timer1: TTimer;
        Label2: TLabel;
        procedure FormCreate(Sender: TObject);
        procedure Timer1Timer(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    const
      LPTdata=$378;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    if ZLIOStarted then
       Label1.Caption := 'Sterownik załadowany poprawnie.'
    else
       Label1.Caption := 'Nie można załadować sterownika.';
    portwriteb(LPTdata,$10);    // wpisanie wartosci 00010000 (bin)
    end;
    
    procedure TForm1.Timer1Timer(Sender: TObject);
    var   b:byte;
    begin
      b:=portreadb(LPTdata);          // czytamy bieżącą wartość
      b:=b shl 1;                     // przesuwamy w lewo o jeden
      if b=0 then b:=$10;             // warunek przekroczenia zakresu
      portwriteb(LPTdata,b);          // wpisujemy nową wartość
      Label2.Caption:=IntToStr(b);    // kontrolnie wypisujemy liczbę
    end;
    
    end.

     

    napisałbyś coś z tego, gotowe do odpalenia i działające ? ;/ wtedy już dam sobie rade i zostawie cię w spokoju ;P

  4. mam windows XP sp3

    dll ładuje się poprawnie, jednak funkcja io_is_driver_installed() wywala -1 czyli chyba coś jest nie tak...

     

    nie jestem też pewien czy dobrze adresuje port... przy jakichś demkach pisanych w delphi wyszło na to że moje gniazdo to LPT1 (378-37F)

    więc zapisuje np.

     

    io_set_port_bit('378-37F',8)

     

    ale nie działa(raczej)

    przynajmniej jak bróbowałem wszystkie czyścić i wszystkie ustawiać...

     

    mam do gniazda podpięte 4 diody które przy demkach z delphi działały ale z gm nie chcą działać...

     

    załączam plik gmk w którym uruchamiam wszystko.

    dziwnie to działa... jak wyczyszcze i ustawie, to bity 32 i 128 mają wartość -1 a reszta nic...

     

    https://gmclan.org/up6064_4_io_dll_gmk.html

  5. emm... zaimportowałem skrypt do gm8.0 ...

    na start wyskakuje błąd :

    ___________________________________________

    ERROR in

    action number 1

    of Create Event

    for object object0:

     

    Error defining an external function.

     

     

    wtedy ignoruje to 16 razy (tyle ile dll ma funkcji) po czym wyskakuje message 'blad' czyli nie chce sie wczytac dll...

    co jest źle ?

  6. witam, mam duży problem, a mało czasu...

    potrzebuję wysterować 4 złącza na gnieździe LPT

     

    znalazłem kilka materiałów w internecie, jednak jestem zbyt zielony aby je wykorzystać...

    najlepiej prosiłbym o gotowe rozwiązanie... ;/ w grę wchodzi tylko GameMaker...

    wiem, że o wiele prosze, ale mam naprawdę mało czasu na wykonanie tego...

     

    znalezione materiały :

     

    http://gmc.yoyogames.com/index.php?showtopic=360653

    http://gmc.yoyogames.com/?showtopic=165308 - od Tymona

     

    linki do bibliotek :

     

    IO - http://www.geekhideout.com/iodll.shtml

    Inpout32 - http://logix4u.net/component/content/artic...dows-982000ntxp

  7. dokładnie o to mi chodzi...

    wyglądałoby mniej więcej tak :

     

    1. uruchamiam virtual dj i odpalam utwór

    2. uruchamiam mój program napisany w gm

    3. program zaczyna bez przerwy pobierać miejsce w takcie, grającego aktualnie kawałka

    3. w oknie mojej apki pojawia się sprite po kolei w 4 miejscach, w zależności od pozycji w takcie

     

    edit :

     

    metrum nie potrzebne, zakładam że będę odtwarzał tylko 1/4 (chyba tak to się pisało ;p zapomniałem już)

  8. Witam.

    Od razu mówie że nie trzeba znać PHP żeby mi pomóc... ;p

     

    A więc połączyłem kilka przykładów z gmclan i wykorzystałem je do łączenia z bazą danych.

    tekst pobrany z bazy jest wyświetlony po naciśnięciu przycisku,

     

    jednak gdy po raz drugi kliknę przycisk, poprzedni tekst zostaje, a nowy nachodzi

    na poprzedni i znajduje się linijkę niżej od poprzedniego. Jest tak z każdym kolejnym...

     

    dodam że tekstem jest pętla zmiennych utworzona w php.

    dołączam plik gmk, ponieważ nie chce mi się wklejać skryptów ;]

     

    Ostrzegam że nie za bardzo mam porządek w kodzie... ;/ ;)

     

    Projekt GMK

×
×
  • Dodaj nową pozycję...