-
Fórumok
LOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokPROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Tabletek, E-bookok Nyomtatók, szkennerek PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
Új hozzászólás Aktív témák
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
Megoldottam. Hiba: Az átadást arra a formra kell írni amelyiken az átadást kezdeményező esemény található.
-
[HUN]Zolee
őstag
Meg tudja valaki mondani, miért nem viszi át a textbox tartalmát, csak amit alapértelmezetten írok be? [link]
-
[HUN]Zolee
őstag
Üdv.
hogy lehet egy új objektumnak aminek a nevét egy tömbbe tároljuk eseménykezelést csinálni?
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
Azért nem jó ez így, mert egyik feltétel sem kapcsolódik a másikhoz.
If x2.TextLength = 0 or x.TextLength = 0 or cons.TextLength=0 Then
adathiany.Show()
else {
If x2.Text = 0 Then
x2biztos.Show()
x2igen.Show()
End If
If x.Text = 0 Then
xbiztos.Show()
xigen.Show()
End If
If cons.Text = 0 Then
consbiztos.Show()
consigen.Show()
End If
}
End IfValahogy így kellene kinézni, de én már régóta nem programoztam VB-ben
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
Üdv.
Hogy tudok egy függvénynek megadni egy 2 dimenziós tömböt /egyszerre az egészet/ , majd a függvény értéke is egy tömb legyen?
Function fuggv (x(,)) As Array (,)
műveletek
End Function
Public Sub main()
Dim a(2,2) as Integer
a(,)=fuggv(a(,))
End Subvalami ilyesmi kellene hogy legyen, de nem tudom pontosan.
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
nah elővettem a könyvet és találtam egy ilyen pédát pont erre, hogy csak számokat lehetsen beírni:
Private Sub TextBox1_KeyPress(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles TExtbox1.KeyPress
If (e.KeyChar < ''0'' Or e.KeyChar > ''9'') Then
e.Handled=True
End If
End Sub
Ha így nem íródna be, akkor meg az e.Handled=True -t cseréld ki erre TextBox1.Text=TextBox.Text+e.KeyChar
Remélem érthető volt
bár itt csak számokat lehet beírni! De kibővíteni nem olyan nehéz -
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
én meg még a pontal meg a deletével is kiegészíteném a tiedet, hogy teljes legyen a sor.
Amúgy 6-ba írtam számológépet. Ott asszem úgy csináltam, hogy zároltam a textboxot, és a gomb lenyomás eseméynre írtam meg az elágazást, hogy csak a megadott karaktereknél írja hozzá a karaktereket. Bár ez nem biztos hogy jó neki, de egy kipróbált módszer
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
úgy a legegyszerűbb megoldani, hogy letárolod az eddíg generált számokat, és mindíg amikor generálja az új számot, akkor megnézed, hogy volt-e már ilyen szám, ha volt akkor újrageneráltatsz vele egy számot, mindaddíg amíg olyan számot nem ad, ami még nem volt.
igaz ez rengeteg számolást igényel a gép részéről, de nem hiszem hogy olyan hosszú szavakat fogsz használni, ami észrevehetően lassan állítana elő.
amúgy a VB7 elég sokmindenbe kölünbözik, bár itt csak az elméletről beszélünk, szóval ha tudod a megfelelő parancsokat, akkor ugyan úgy megoldható abba is
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
7 be így néz ki
Dim elemek(3) As Object
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
elemek(1) = Label1
elemek(2) = Button1
elemek(3) = TextBox1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If elemek(1).text = ''AK'' Then
elemek(1).text = ''ASdf''
elemek(2).text = ''Gomb''
elemek(3).text = ''Doboz''
End If
End Sub
ez csak az hogy hogyan gondoltam, a ciklus meg a beolvasás nincs benne, de gondolom az menni fog
(7 be a label nek caption helyett text-je van már.)
[Szerkesztve] -
[HUN]Zolee
őstag
Üdv. pl egy jó megoldás, ha minden egyes objektumot beleszórsz egy nagy tömbbe beleteszed az összes objektumot, és akkor a beolvasott fáljban lévő neveket könnyen át lehet állítani
objektumok : object
beolvasás :
nyelv(X,2) : szöveg
ciklus eof(file)
i+=1
nyelv(1,1)=cimkenév
nyelv(1,2)=magyar szöveg
ciklus vége
magyarítás:
for i=1 to X
for j=1 to X
ha objektumok(i)=nyelv(j,1) akkor
objektumok(i).text/value = nyelv(j,2)
elágazás vége
ciklus vége
ciklus vége
asszem ennyi az elméletem
remélem érted.
7 be működik, 6 om nincs fent
[Szerkesztve] -
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
van egy ilyen típusu tömböm :
Structure ttipus
Dim id As Integer
Dim nev As String
Dim aber As Integer
Dim tber As Integer
Dim tszam As Integer
End Structure
ezt hogy tudom fáljba menteni, és visszaolvasni?
VB 7 be kell megoldani.
[Szerkesztve] -
[HUN]Zolee
őstag
Ezt úgyoldottam meg, hogy egy poligont rajzoltatok ki mindíg ,csa hozzáveszem az új képpontot.
VB7 be kb így néz ki :
e = egér esemény
korivp1 = a pontokat tartalmazó tömb, amelynek elemszam nagyságú
Dim p As New Point(e.X, e.Y)
pont = p
korok()
ReDim Preserve korivp1(elemszam)
korivp1(elemszam) = p
elemszam += 1
g.DrawArc(pens.Red,
volt = True
If elemszam >= 2 Then
g.DrawLines(Pens.Red, korivp1)
End If -
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
mi volt a hibaüzenet, és mi volt a feltételed?
-
[HUN]Zolee
őstag
ha mindkét feltátelnek telejesülnie kell, akkor And el kapcsolod össze, ha csak az egyiknek akkor Or -al.
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
Azt megutdod csinálni, hogy a beírt szöveget az aktuális dátum legyen a neve? A betöltésnél meg egy openfiledialog-jönne fel ahol kiválaszthatnám hogy melyik file-t akarom megnyitni. Ha így nemmegy(mármint az openfiledialog, a dátumnév nem fontos), akkor írja mindíg felül az aktuális file-t.
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
Ha valaki megírna nekem egy kis progit VB6 ban azt megköszönném, 7-be megírtam, megy is nálam, csak .NET kell hozzá, és akinek írtam nála nem lehetséges a telepítés. 367 soros a program ebből 122 a objektumok. Egy akasztófa programról van szó.
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
mingyárt megnézem neked ezt a fügvényt

vagyis amint megjöttem este a melóból
[Szerkesztve] -
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
hány oszlop :
Sub mennyi_van_kitoltve_a()
Worksheets(''Munka1'').Select
Db = 0
If [a1].Value = '''' Then
Db = 0
Else
If [a2].Value = '''' Then
Db = 1
Else
For Each cella In Range([a1], [a1].End(xlToRight))
Db = Db + 1
Next
End If
End If -
[HUN]Zolee
őstag
az első kérdésre, mingyárt megírom a macrot
a második engem is érdekelne
Hány cella van egy oszlopba :
Sub mennyi_van_kitoltve()
Worksheets(''Munka1'').Select
Db = 0
If [A1].Value = '''' Then
Db = 0
Else
If [A2].Value = '''' Then
Db = 1
Else
For Each cella In Range([A1], [A1].End(xlDown))
Db = Db + 1
Next
End If
End If
ActiveCell.Value = Db
End Sub
[Szerkesztve] -
[HUN]Zolee
őstag
Hogy lehet hexa kódvól szöveget csinálni?
-
[HUN]Zolee
őstag
Hogy lehet új objektumot adni a VB . NET be kódbol ? ( most egy PictureBox-ot kéne hozzadni). Nem sikerült még rájönnöm

-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
op(i) az a szakasz végpontjai, vagyis e közül kerül ki a kör középpontja.
alappont az a 0°os körívnél lévő pont
fixp az a kezeti pont ahonnan indítjuk a köríavet
vp az a változó pont, ami mindíg az aktiális egérelmozdulási értéket kapja meg (ez még nincs kész)
és a i=kpont(fixp.X,fixp.Y) kell. töbszem többet lát
[Szerkesztve] -
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
Segítséget kérnék a hiba mivoltáról.
Valami túlcsordul, csak nemtom mi :S
[link] -
[HUN]Zolee
őstag
Hogy tom felvinni a cosinusztételt beírni VB.be, hogyha a szög az ismeretlen?
alfa = cos^ -1 (a^2+b^2-c^2)
Új hozzászólás Aktív témák
-
Fórumok
LOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokPROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Tabletek, E-bookok Nyomtatók, szkennerek PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Vezetékes FEJhallgatók
- Milyen videókártyát?
- exHWSW - Értünk mindenhez IS
- Autós topik
- LG LCD és LED TV-k
- Aranylemezre került a Forza Horizon 6
- iPhone topik
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- További aktív témák...
- Jura C60 Black I Szervizelve I Easy-cappuccino fej I 3 hónap garancia I Számla I Beszámítás
- HIBÁTLAN iPhone 15 Pro Max 256GB Black Titanium -2 ÉV GARANCIA - Kártyafüggetlen
- GYÖNYÖRŰ iPhone 13 128GB Midnight -2 ÉV GARANCIA - Kártyafüggetlen
- GYÖNYÖRŰ iPhone 14 Pro 128GB Space Black -2 ÉV GARANCIA - Kártyafüggetlen, MS5184
- HIBÁTLAN iPhone 16 Pro 128GB Natural Titanium -2 ÉV GARANCIA - Kártyafüggetlen
- OUTLET DELL PowerEdge R630 rack szerver - 2xE5-2683v4 (32c/64t, 2.1/3.0GHz), 384GB RAM, 4x1G, áfás
- GAMER PC! Intel Ultra 7 265 / RTX 5070 / 32GB 6000MHz / 1TB Gen4 / 750w Gold!
- Samsung Galaxy S23+ / 8/128GB / Kártyafüggetlen / 12Hó Garancia
- Corsair iCUE ELITE CPU Cooler LCD Display Upgrade Kit
- Eredeti Microsoft Windows 10 / 11 Pro OEM licenc Akciós áron! 64/32 bit Azonnali kézbesítéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest



nem 10 hanem 13 , de mindegy, ugaz én textboxnál ellenőriztem.


