-
GAMEPOD.hu
Új hozzászólás Aktív témák
-
ViragL
tag
Sziasztok!
Delphiben szeretnék képernyő-billentyűzetet csinálni. Konkrétan, vannak a formon kontrolljaim, egyszerű TTextEdit-ek és egy Devexpress Quantumgrid. Egy DockPanelen lebeg egy numerikus billentyűzet amivel szeretném az adatbevitelt megvalósítani.
Az egyszerű kontrollokkal nincs probléma (vagyis van olyan megoldásom ami ezekkel működik, de a griddel nem, tehát ez vagy jó megoldás vagy nem majd kiderül), de a griddel nem boldogulok. Van valakinek ezirányú tapasztalata? THX -
Deer_
csendes tag
Üdv mindenkinek!
Pdf-ekben próbálok kutakodni Delphi alkalmazáson keresztül.
Adobe Reader 8.0 van telepítve, van is hozzá egy királyságos típuskönyvtár AcroRd32.dll néven.
Ezt bemásoltam a project mellé, átneveztem Acrobat.tlb-re. Ezt regisztráltam, mint type library-t.Ezután kétféleképp próbáltam dll-t elérni:
...
uses Acrobat_TLB // ezt generálta, mikor regisztráltam
...
procedure TForm1.FormCreate(Sender: TObject);
var
a : AcroApp;
v : variant;
begin
a := CoAcroApp.Create;
v := CreateOleObject('Acroapp');
end;Na, egyik se műxik. Az elsőnél kiírja, hogy 'Az osztály nincs regisztrálva', a másodiknál pedig, hogy 'Érvénytelen osztályú karaktarlánc'.
Légyszi, ha valaki tud, segítsen nekem
Előre is köszi,
Üdv,
Déer -
amargo
addikt
Mit is szeretnél tulajdonképpen?
Mert azt nehezen képzelem el, hogy az Adobe ingyen adna neked egy inteface-t egy létező PDF manipulálásához.Amúgy meg(Borland most nincs a közelemben), de ha jól rémlik ott is hozzá tudsz adni komponenseket valahol a pakage-ek környékén és ott fel is ajánlja az Adoble dll használatát, ez meg is fog jelenni a toolbar-on és feltudsz majd rakni egy objektumot, amivel PDF-et tudsz megjeleníteni.
“The workdays are long and the weekend is short? Make a turn! Bike every day, bike to work too!”
-
Deer_
csendes tag
Teljesen ingyenes Adobe Reader 8.0-m van.
Elsősorban kulcsszavakra keresnék rá a pdf-ben az AcroRd32.dll-ben lévő Menuitemexecute('Find') (Vagy 'Keresés') függvénnyel.
.. De lehet, hogy az is jó lenne, ha ki tudnám tenni clipboardra az egész szöveget, bevágnám egy Memo-ba, aztán ebben keresgélnék. De akkor mondjuk ki kéne találnom valami gyors keresési algoritmust, amivel a szövegben keresek.Amiről írtál, talán az ActiveX control lehetett. Ezt kirakom a formra és kész, de ez csak megjeleníti a pdf-et, keresni pl nem tudok benne, de kijelölni sem.
ps : Douglas Adams az Isten )
-
amargo
addikt
Léteznek erre ingyenes komponensek, amivel megtudod nyitni a PDF-et és ad arra is interface-t, hogy keresni tudjál benne.
A sourceforge.net, találtam pár hónapja egy egész ígéretesnek tűnő komponenst itt ami ingyenes (csak most nem találom a nevét, csak amit én használok, de az pénzes volt).Maga az API-at kell neked hsználni majd az Adobe-től.
Ismert jó pár keresési eljárás, ezeket googléval meg is találhatod, a Memos ötletet már most elvetném csírájában
Nem tudom mennyi időd van rá, de én inkább komponenst keresnék, fentebb írtam, hogy létezik jó pár.
“The workdays are long and the weekend is short? Make a turn! Bike every day, bike to work too!”
-
Deer_
csendes tag
Elég sokat keresgéltem, de nem találtam ilyen INGYENES komponenst.
Viszont letöltöttem egy Adobe Reader SDK-t a az Adobe oldalról. Ez azt írja, hogy járható a dolog, amit én gondoltam - igaz, hogy Visual Basicet vagy C#-ot ajánl.
Van ebben a leírásban 1 Visual Basic kódrészlet:Private Sub myGoto(ByVal where As Integer)
Dim app as Object, avdoc as Object, pageview as Object
Set app = CreateObject("AcroExch.App")
Set avdoc = app.GetActiveDoc
Set pageview = avdoc.GetAVPageView
pageview.Goto(where)
End SubElvileg ez a megoldás a problémámra.
Nem nagyon értek basicül, de ha jól gondolom ,ez Delphiben így nézne ki:procedure TForm1.FormCreate(Sender: TObject);
var
app : variant;
begin
app := CreateOleObject('AcroExch.App');
/ stb...stb..
end;Nekem erre kiírja, hogy 'Érvénytelen osztályú karakterlánc'. Az érdekelne, hogy miért.
Tudsz nekem ebben segíteni? -
Deer_
csendes tag
Ennek ugyanúgy működnie kéne, mint pl annak, hogy CreateOleObject('Word.Application'), vagy Excel.Application, stb....
-
amargo
addikt
PDFSharp. Ez egy .NET es library.
GsPDF Ezt is érdemes megnézned.Igaz konzolos:
{$APPTYPE CONSOLE}
uses
Windows,SysUtils,ShellApi,Forms,ComObj,Variants;
var Input,InputNew : string;
FileTest : boolean;
App, AVDoc : Variant;
CoInitFlags : Integer = -1;
VarTest : IDispatch;
test : PVariant;
function RenameFile(const OldName, NewName: string): boolean;
//renames files, taken from
//http://www.dsdt.info/tipps/?id=128&search=RenameFile
var
sh: TSHFileOpStruct;
begin
sh.Wnd := Application.Handle;
sh.wFunc := fo_Rename;
//terminate with null byte to set list ending
sh.pFrom := PChar(OldName + #0);
sh.pTo := PChar(NewName + #0);
sh.fFlags := fof_Silent or fof_MultiDestFiles;
Result:=ShFileOperation(sh)=0;
end; //end function
begin //begin program
Application.Initialize;
//Read given filename
Input:= ParamStr(1);
//InputNew = original filename with ending "-preview" (e.g. test-preview.pdf)
InputNew:= copy(Input,1,Length(Input)-4); //remove ".pdf"
InputNew:= InputNew+'-preview.pdf';
//check if renamed file exists
FileTest:= FileExists(InputNew);
//Create OLE-object for the program Acrobat or Adobe Viewer
App:=CreateOleObject('AcroExch.App');
//test if given file already exists
if FileTest = true then
begin
//close old file
AVDoc:=App.GetActiveDoc; //handle of the active document
VarTest:=AVDoc;
test:= PVariant(VarTest);
if test <> PVariant(0) then //when handle is existing
begin
try
AVDoc.Close(true);
except
Application.Terminate;
end;
end;
//delete old file
DeleteFile(InputNew);
end; //end if FileTest
//rename file
RenameFile(Input,InputNew);
//open renamed file in Acobat or Adobe Viewer
App.Show; //show window
App.Restore(true); //restore window size to make window active
App.Maximize(true); //maximize window
AVDoc:=CreateOleObject('AcroExch.AVDoc'); //create OLE object for file
AVDoc.Open(''+InputNew+'',''); //open file
end. //end program[ Szerkesztve ]
“The workdays are long and the weekend is short? Make a turn! Bike every day, bike to work too!”
-
Deer_
csendes tag
Köszi szépen amargo
A gsPDFfel nem boldogultam, a PDFSharp az alap ActiveX controlt használja, ami szinte csak megjeleníteni és nyomtatni tud. (így ez a solution is).
A konzolossal az a gond, hogy ugyanúgy az alapja az App:=CreateOleObject('AcroExch.App'); sor, ami nekem hibát dob. Azért kipróbáltam ezt a kis progit is, de ezen a soron megakadt a szokásos hibával.
Egyszerűen nem fogom fel, hogy miért nem sikerül ez nekem, pedig nagyon kell a megoldásNagyon köszönöm az eddigi segítséget!
-
amargo
addikt
Szia nincs mit, csak a két projekt nevét cserélted fel érzésem szerint ;)
Delphi nincs a gépemen ezért nem tudok ebben többet segíteniSok sikert hozzá!
A gsPDF-nek talán van valami telepítője is, hátha abban több dolog van én csak a zip-et néztem meg..a PDFShap viszont elég igéretes, ha c#-ban is írhatod, de akár c++ ra is tudok ajánlani elég jót, de az nem ingyenes..
“The workdays are long and the weekend is short? Make a turn! Bike every day, bike to work too!”
-
barnam_
nagyúr
Tudna valaki Perl-ben segíteni? Kaptam egy házit, de nem azt csinálja amit én akarok
A standard inputrol beker ket szamot!
A ket bekert szam kozti szamokbol egy listat kepez (pl: ha a ket
szam 42 es 48, akkor a lista elemei: 42,43,44,45,46,47,48), es
kiiratja a lista elemeinek erteket a kovetkezo formaban: i.index=x
(a bekert szamok sorrendjetol fuggetlenul a szamsor csokkeno legyen)
Pelda a mukodesre:
inputok: 10, 15
> ./feladat1.sh
0. index=15
1. index=14
2. index=13
3. index=12
4. index=11
5. index=10For ciklussal kitudom iratni a két szám közötti számokat, de a tömböt nem úgy tölti fel, ahogy kellene. Próbáltam úgy, hogy a cikluson kívül van az értékadás, ekkor csak az utolsó értéket írja ki.
#!/usr/bin/perl -w
$szam1=<STDIN>;
chomp $szam1;
$szam2=<STDIN>;
chomp $szam2;
print "$szam1\n";
print "$szam2\n";
for ( $i=$szam1; $i <= $szam2; $i=$i+1 )
{
@list=$i;
print "@list\n";
} -
amargo
addikt
válasz barnam_ #3311 üzenetére
Csak hogy jól értem, amit írsz:
for ( $i=10; $i <= 15; $i=$i+1 )
{
@list=$i;
print "@list\n";
}
Akkor ez szépen 10-től 15 ig feltölti növekvőileg a listát és ki is írja
ami neked kell(gondolom): hmm nem írom le, kicsit gondolkozásra ösztökélek.
Hogyan éred el a ciklussal, hogy csökkenőileg írja ki a számokat?“The workdays are long and the weekend is short? Make a turn! Bike every day, bike to work too!”
-
shev7
veterán
válasz barnam_ #3313 üzenetére
ez tobb szempontbol sem jo. Egyreszt mikozben toltod fel a tombot nincs ertelme megforditani csak a vegen, miutan mar fel van toltve. masreszt ez semmit nem csinal ha a nagyobb szamot adod be neki elsonek.
''Gee, Brain, what do you want to do tonight?'' ''The same thing we do every night, Pinky: Try to take over the world!''
-
amargo
addikt
válasz barnam_ #3313 üzenetére
Hopp késő van és nem értelmeztem a feladatot.. de egy gyors megjegyzés, cikluson belül nem látom, hol írnád ki a 0. index=15 sort? Te csak a 15-t írod ki, amit a két szám közti max meghatározás és a ciklus megfelelő felparaméterezése után csökkentve mész végig rajta
De(ha a feladatot nézem, akkor 2 ciklus kell):
bekérsz 2 számot, abból eldöntöd melyik a nagyobb.
Majd, a ciklusoddal feltöltöd a listát, megkapod, hogy 42,43,44,45,46,47,48
a deltád a 7 itt akár a listára alkalmazhatod is a reverse (de csak 1x!)
majd egy másik ciklusban, a delta szerinti értékig mész, növelve a ciklust, ez nem túl jó megoldás, de megoldás.Léteznek szebb és frappánsabb megoldások is ennél, de szerintem ez most elég lesz
Már ha alkalmazhattok listát, mert ha nem akkor bizony a másik ciklust csökkenteni kell és egy konstans delta értékből kivonva a ciklus delta értékét, a listából pedig a delta értékét csökkentve veszed ki az elemeket.Jutsz el a fordítva kiírásig
“The workdays are long and the weekend is short? Make a turn! Bike every day, bike to work too!”
-
barnam_
nagyúr
Most itt tartok:
$n=-1;
for ( $i=$szam1; $i <= $szam2; $i=$i+1 )
{
@list=$i;
$size=@list;
for ( $b=0; $b < $size; $b=$b+1)
{
print "$b. index: $list[$n]\n;";
$n=$n-1;
}
}Külön működött (feltöltöttem kézzel egy listát), de a for ciklusba ágyazva nem jó. A hibaüzenet a $b.index-re utal, a "."-al van baja.
-
MODERÁTOR
Sziasztok!
Python -ban kéne egy kis help. Sajnos nagyon nemvágom a dolgokat és szardára kéne alkotnom valamit. Írni kell egy kis progit ami letölt egy komplett honlatop vhogy igy:
/..
/kepek
/index.html(satöbbi... ez csak 1 példa )
Itt tartok. Idáig müködik. Most hogyan tovább?
urrlib
-bet kell használni. Sajnos használható dokumentációt idáig nemtaláltam + ha kapnék megköszönném! Előre is köszi!
Kód:
#!/usr/bin/python
import sys
from Tkinter import *
from urllib import *
root = Tk()
root.title('The Program')
def Get():
url = input.get()
f = urlopen("http://" + url)
f.close()
print f.read()
print 'http://' + url + ' - downloading...'
Label(root, font = ("Courier", 16), fg = 'Black', text = 'http://').pack(fill = X, expand = True)
input = Entry(root, font = ("Arial", 10), fg = 'Black', width = '25')
input.pack()
Button(root, text = 'Download', command = Get, padx = 5, font = ("Arial", 12), fg = 'black').pack()
root.mainloop()"Ott szimatol a sarkadban vasfogait csattogtatva, minden egyes hétköznapod: kirúzsozott medvecsapda."
-
barnam_
nagyúr
válasz barnam_ #3316 üzenetére
Azóta sikerült megcsinálnom
Viszont akadt egy kis problémám, vagyis egy figyelmeztetés, amit el kellene tüntetnem.
Ha 0-t adok meg az 1. változónak, működik a program, de ezt kapom:Use of uninitialized value in concatenation (.) or string at ./feladat5.sh line 28, <STDIN> line 4.
Annyit kiderítettem, hogy valami Define-t kellene használnom, de semmit se találtam arról, hogyan kellene használnom.
#!/usr/bin/perl -w
print "elso:\n";
$szam1=<STDIN>;
chomp $szam1;
print "diff:\n";
$diff=<STDIN>;
chomp $diff;
print "hanyadik elemeket:\n";
$elem=<STDIN>;
chomp $elem;
print "osszesen mennyi elemet:\n";
$osszes=<STDIN>;
chomp $osszes;
$hatar=$diff * $osszes * $elem;
for ($i=$szam1; $i<$hatar; $i=$i + $diff)
{
@list=(@list, $i);
}
$size=@list;
for ($i=0; $i<=$size; $i=$i + $elem)
{
print "$list[$i] ";
}
print "\n"; -
Goose-T
veterán
Ezt a kérdést megírtam az XML topikban is, de azt sajnos elég ritkán látogatják, ezért feldobom ide is.
Gyors kérdés: van egy Word doksim, amit Word 2003 XML formátumban akarok használni sablonként. Az lenne a célom, hogy tegyek bele olyan mezőket, amiket majd egy sima XML parser rutinnal (.NET-ben) kicseréljek tetszőleges szövegre úgy, hogy a formázás megmaradjon. Hogy lehet ezt megcsinálni, milyen XML recordokat/nodeokat használjak, mire cseréljem őket?
Rockbandám: https://fb.me/scharlotterhodes *** Gitárelektronikai műhelyem: https://www.fb.me/goosetgitar
-
amargo
addikt
-
Goose-T
veterán
Nem adott a sablon, csak egy sima Word doksi van, amiből sablont akarok készítetni. Hogy kell belerakni sablon-mezőt egy doksiba, és mire kell kicserélni (XML parserrel)?
Rockbandám: https://fb.me/scharlotterhodes *** Gitárelektronikai műhelyem: https://www.fb.me/goosetgitar
-
amargo
addikt
válasz Goose-T #3323 üzenetére
Áhhh értem, bocsánat Igaz most is csak nesze neki fogdmeg jól tanács jün, mert konkrétan én sem ismerem ezeket a könyvtárakat..
Nos én ezt úgy oldottam meg, hogy írtam egy interface-t amibe VB ből szedtem ki hogy mik a paraméterei egy Word doksinak (.NET alatt ez már egyszerű, igaz nekem is utána kellene nézni, de.. )
using Word;Sajnos csak ilyen megoldást ismerek, de 2007-es officet elnézve, ez már biztos készen van és nem Neked kell kihámozni, hogy mi micsoda, mert gondolom van egy pár lehetőség.. Sajnálom én ennyit tudok, holnap meg kérdem egy kollegámat, hátha Ő ismeri is a könyvtár nevét
“The workdays are long and the weekend is short? Make a turn! Bike every day, bike to work too!”
-
FehérHolló
veterán
Sziasztok ismét!
Az lenne a kérdésem, hogy hogyan lehetne eltüntetni a konzolt, vagy ablakot úgy, hogy a program még fusson, de a user számára ne legyen ilyen feltűnő?
C vagy cpp kód, Visual Studio 2005, és inkább a konzolos alkalmazást preferálnám, mint az ablakosat.
(Gugli, MSDN és fórumokon hozzászólás keresgetés nem segített rajtam. )
[ Szerkesztve ]
Skynet is real. It's called Google.
-
amargo
addikt
válasz FehérHolló #3326 üzenetére
Szia!
Pl.:
ShellExecute(NULL, "open", "cmd.exe", "/c C:/windows/system32/taskkill /F /IM AcroRd32.exe", NULL, SW_HIDE);Goose-T: Megkérdeztem kollegát, nem foglalkozott ilyennel XML kapcsán..
Viszont, ha egy 2007-ben lenne a doksi, akkor egyszerűbb lenne (lehet megérné átformázni is) minden esetre tesztképpen, elmentesz egy 2007-es docx-et átnevezed zip-re és ott van amit keresel word\styles.xml néven.“The workdays are long and the weekend is short? Make a turn! Bike every day, bike to work too!”
-
Goose-T
veterán
Asszem megoldottam. Rekurzív fabejárás az XML struktúrában, majd a legmélyebb szinten, ahol a szöveg van, keresés-és-csere, XML mentése, és kész is. Egyszerű, mint az ágybaszarás. Felhasznált VB.NET parancsok, ojjektumok és tulajdonságok (System.Xml névtér kell hozzá): XmlDocument, XmlNode, XmlNode.InnerText, XmlNode.HasChildNode, String.Replace, Like, XmlDocument.Load, XmlDocument.Save, XmlNode.Childnodes, XmlDocument.ChildNodes. Aztán írtam hozzá még egy kicsit, amivel meglévő sorokat tudok sokszorozni, ehhez kellettek még az XmlNode.InsertAfter, XmlNode.Clone, XmlNode.Name tagfüggvények és tulajdonságok.
Rockbandám: https://fb.me/scharlotterhodes *** Gitárelektronikai műhelyem: https://www.fb.me/goosetgitar
-
amargo
addikt
válasz FehérHolló #3331 üzenetére
Bocsánat, de akkor én nem értem, hogy mit is szeretnél?
“The workdays are long and the weekend is short? Make a turn! Bike every day, bike to work too!”
-
FehérHolló
veterán
System startupkor automatikusan elinduló programot, amiről jobb, ha a (z illetéktelen) felhasználó nem tud. Ha felugrik akár egy másodpercre is egy konzol, az már halott dolog.
Mint ahogy már írtam, én ezt így némi utánajárás/-kérdezgetés után szolgáltatás formájában látom legegyszerűbben kivitelezhetőnek, de építő jellegű ötletekre nyitott vagyok.
Skynet is real. It's called Google.
-
amargo
addikt
válasz FehérHolló #3333 üzenetére
Igen, ehhez szolgáltatást érdemes csinálni.
“The workdays are long and the weekend is short? Make a turn! Bike every day, bike to work too!”
-
ViragL
tag
Sziasztok!
Most ismerkedem Haskell nyelvvel, lenne néhány banális kérdésem. Van itt olyan aki ismeri a nyelvet?
-
B-L-A-C-K
titán
Szicsú egy egyszerú program megoldásában nem tudna valaki segiteni? Aki tudna irjon privit minél hamarabb kéne....
Előre is 1000 hála
-
joufiu
csendes tag
-
piadex2
senior tag
Sziasztok!
Egy olyan kérdésem lenne, hogy van-e olyan program, ami ha ráeresztik egy MS dokumentumra, akkor értelmezi a formázását, és például HTML formázássá alakítja.
Teszem azt van egy rejtett szöveg vagy egy duplán aláhúzott szöveg a dokumentumban, és azt vagy HTML kóddá alakítja, vagy valamilyen egyéb kóddá alakítja. (Például azt írja egy rejtett szöveg köré, hogy "<hidden>...</hidden>".
Előre is kösz a segítséget.piadex2
kontakt: +36 70 502 2167 ; mail, privát
-
B-L-A-C-K
titán
Valaki aki tudna segiteni még mindig várom a válaszát meg kéne irnom 1 programot mind1 mibe csak fusson , és több feladat közül lehet választani amiből csak 1 kéne...
joufiu kollega mondta segit de nem kaptam tőle pár napja választ és az idő nagyon sürget mert csötörtökre kéne...
[ Szerkesztve ]
-
B-L-A-C-K
titán
Pl itt van egy része de még van egy pár, de mivel nemértek hozzá igy nem tudom eldönteni mi a legkönyebb....
Adott ládáknak egy sorozata. Minden láda kocka alakú és egyik oldala nyitott. A ládákat egy robotnak kell összepakolni úgy, hogy egy ládát belerakhat egy másik ládába, ha az utóbbinak a mérete kisebb. Azonbana robot csak sorban balról-jobbra haladva tudja a pakolást elvégezni, teháta soron következő ládát vagy belerakja egy másik, már összepakolt ládába,vagy külön hagyja. Az a cél, hogy a lehető legkevesebb összerakott láda keletkezzen.
Feladat:Írj programot (LADA.PAS vagy LADA.C) amely megmondja, hogy minimálisan hány ládába lehet a ládasorozatot összepakolni, továbbá megadja, hogy mely ládák lesznek egybepakolva.
Bemenet:
A LADA.BE állomány első sorában a ládák N száma (0<=N<=10000) van. A második sorban N db pozitív egész szám van, a ládák méretei. Mindenszám értéke 1 és 30000 közötti.
Kimenet:
A LADA.KI állomány első sorába az összepakoláshoz minimálisan szükséges ládák M számát kell írni. A következő M sor mindegyike egy összepakolást ad meg, azaz azon ládák sorszámai szerepelnek egy sorban, amelyeket egybe kell pakolnia a robotnak a kiírás sorrendjében.Példa: [link]
[ Szerkesztve ]
-
Protezis
őstag
válasz B-L-A-C-K #3345 üzenetére
ooo, felreneztem.
Szoval kb. ennyit kellene csinalni:
Nyilvantartod az osszes megkezdett ladakupacod meretet (mekkora benne a legkisebb lada), es a soronkovetkezo ladat belerakod azon ladakupac valamelyikebe, amibe belefer. Ha nem fer bele egyikbe se, uj kupacot kezdesz.A megvalositasrol:
Minden ladakupac lehet mondjuk egy lancolt lista, a legkisebb ladat mindig a lista elejere fuzod fel. Ezeket a kupacokat pedig szinten egy lancolt listaba rakhatod.
Ezen kupacokat kell vegigjarni, es megnezni minden kupac (lista) elejet.[ Szerkesztve ]
-
Protezis
őstag
válasz Protezis #3346 üzenetére
Keso van mar...
Arra kell meg figyelni, hogy ha tobb ladakupachoz is hozzafuzheted az adott ladadat, akkor ahhoz fuzd hozza, amelyikben a legkisebb lada a legkisebb...
Pl.:
7 5 6
8 4 32-es meretu ladat a 2. sorba rakod (3 < 6), mert ha a kovetkezo a 4-es lada, es a 2-est az elsobe rakod, akkor a 4-es lada uj kupac lenne.
[ Szerkesztve ]
-
B-L-A-C-K
titán
Én láma vagyok nem értek ezekhez sose programoztam nem tudnád nekem megcsinálni, 1 kéne csak....
[ Szerkesztve ]
-
joufiu
csendes tag
válasz B-L-A-C-K #3345 üzenetére
Joufiu kolleganak nem volt ideje erdemben foglalkozni a dologgal, csak a HM interfest csinalta meg, de azt megosytja barkivel
function gyakorlat(action);
if nargin<1
action='Start';
uicontrol('Style','Pushbutton','Units','Normalized','Position',[.83 .1 .16 .06],...
'Callback','close','String','Cancel');
uicontrol('Style','Pushbutton','Units','Normalized','Position',[.63 .1 .16 .06],...
'String','Open','CallBack','gyakorlat(''Open'')');
uicontrol('Style','Pushbutton','Units','Normalized','Position',[.43 .1 .16 .06],...
'String','Ok','CallBack','gyakorlat(''Ok'')');
end
if strcmp(action,'Start')
elseif strcmp(action,'Open')
myopen;
end
function myopen
[file,path]=uigetfile('terkep.be*');
F=fopen([path,file],'r');
s=fread(F);
[o,i]=beolvas(s,2,1)
N=o(1);M=o(2);
function [o,i]=beolvas(s,k,i)
for j=1:1:k
o(j)=0;
end
while ((s(i)<48)&(s(i)>57))
i=i+1;
end
for j=1:1:k
while ((s(i)>=48)&(s(i)<=57))
o(j)=o(j)*10+s(i)-48;
i=i+1;
end
i=i+1;
endMatlab
[ Szerkesztve ]
-
B-L-A-C-K
titán
Á nem igaz senki se tud segíteni....
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Milyen autót vegyek?
- MasterDeeJay: Volta a bányából azaz CMP 100-210 kisteszt (Tesla V100 mining)
- Telekom mobilszolgáltatások
- Kertészet, mezőgazdaság topik
- exHWSW - Értünk mindenhez IS
- Facebook és Messenger
- EAFC 24
- Házimozi haladó szinten
- OLED TV topic
- Székesfehérvár és környéke adok-veszek-beszélgetek
- További aktív témák...
- LG NanoCell 55NANO766QA Halvány píxel csík
- Philips 58PUS8545/12 1 ÉV GARANCIA Játék üzemmód
- Tyű-ha! HP EliteBook 850 G7 Fémházas Szuper Strapabíró Laptop 15,6" -65% i7-10610U 32/512 FHD HUN
- Bomba ár! HP EliteBook 840 G5 - i5-8G I 8GB I 128GB SSD I 14" FHD I HDMI I Cam I W10 I Gari!
- The Last of Us Part I Ps5