Benjamin Rojas
Nvnap!!!!!

 
Bejelentkezs
Felhasznlnv:

Jelsz:
SgSg
Regisztrci
Elfelejtettem a jelszt
 
Men
 
Pontos d
 
Ltogatk:
Induls: 2005-03-16
 
Figyelem!

A Chatet csak regisztrlt tagok vehetik ignybe!
Itt tudsz regisztrlni klikk ide.

 
Httrzene
 
Informatika

Ebben a rszben az n sajt dolgaimat teszem fl. Fknt VB rai munkk.


Dim a, b, c As Integer

Sub main()
a = CInt(InputBox("a="))
b = CInt(InputBox("b="))
c = CInt(InputBox("c="))
If c / a < 0 Then
MsgBox ("Az egyik gyk negatv, a msik pozitv!")
ElseIf -(b / a) < 0 Then
MsgBox ("Mindkt gyk negatv!")
Else: MsgBox ("Minden gyk pozitv!")
End If

End Sub


Option Explicit

Dim A As Double

Dim B As Double

Sub main()

A = InputBox("Szm A:", _"A szm megadsa")

B = InputBox("Szm B:", _"B szm megadsa")

If A Mod B = 0 Then

MsgBox "B Oszt=ja A-nak:"

ElseIf B Mod A = 0 Then

MsgBox "A Oszt=ja B-nak:"

Else

MsgBox "Nem oszthat: "

End If

End Sub


VBgyak 3

Option Explicit
Dim w(9) As Integer, I As Integer, S As String, Z As Integer

Sub main()
Randomize
S = "A generlt szmok" + Chr(13)
For I = 0 To 9
w(I) = Int(50 * Rnd + 1)
S = S + CStr(w(I)) + " "
Next
MsgBox S
Z = 0
For I = 1 To 9 Step 2
Z = Z + w(I)
Next
MsgBox "Paratlan indexu : " + CStr(Z / 5)

Z = 0
For I = 0 To 8 Step 2
Z = Z + w(I)
Next
MsgBox "Paros indexu : " + CStr(Z / 5)

End Sub


Sub Main()

Dim A As Integer

A = 2

MsgBox "A=" + CStr(A)

Call els(A)

MsgBox "Els utn=" + CStr(A)

Call msodik(A)

MsgBox "M.utan" + CStr(A)

End Sub

Sub els(ByVal X As Integer)

X = X + 2

MsgBox "X=" + CStr(X)

End Sub

Sub msodik(ByRef y As Integer)

y = y ^ 2

MsgBox "Y=" + CStr(y)

End Sub


Dim x As Double

Dim y As Double

Sub Main()

x = 2

y = Parabola(x)

MsgBox "Y=" + CStr(y)

End Sub

Function Parabola(ByVal z As Double) As Double

Parabola = z ^ 2 - 2 * z + 1

End Function


Option Explicit
Dim A As Double, B As Double
Dim M As Double, SZ As Double

Sub main()
A = InputBox("A szam:")
B = InputBox("B szam:")
M = Mertani(A, B)
Call Szamtani(A, B, SZ)
MsgBox "Mertani: " + CStr(M) + _
" Szamtani: " + CStr(SZ)
End Sub

Function Mertani(ByVal A As Double, _
ByVal B As Double) _
As Double
Mertani = (A * B) ^ (1 / 2)
End Function

Sub Szamtani(ByVal A As Double, _
ByVal B As Double, _
ByRef SZ As Double)
SZ = (A + B) / 2
End Sub


HFFFFFFF

Option Explicit
Dim A As Integer

Sub main()
Call Beolvas(A)
If A <= 0 Then
Else
MsgBox "Negatv szmot adtll meg!"
End
End If

End Sub

Sub Beolvas(ByRef A As Integer)
A=InputBox ("Add meg az A szmot")
End Sub


Option Explicit
Dim Ta As Double, Tm As Double
Dim Ter As Double, Fel As Double

Sub main()
  Call Beolvas(Tm)
  Call Beolvas(Ta)
 Ter = Terfogat(Ta, Tm)
  Call Felszin(Ta, Tm, Fel)
  MsgBox "Terfogat: " + CStr(Ter) + _
         "  Felszin: " + CStr(Fel)
End Sub

Function Terfogat(ByVal A As Double, _
                 ByVal M As Double) _
                 As Double
  Terfogat = A * A * M
End Function

Sub Felszin(ByVal A As Double, _
            ByVal M As Double, _
            ByRef Vfel As Double)
  Vfel = A * A + 4 * A * M
End Sub

 
Sub Beolvas(ByRef Ta As Double)
 Do
 Ta = InputBox("Ta")
 If Ta < 0 Then
MsgBox "nem pozitiv szam"
End If
Loop Until Ta > 0
End Sub

 
Extra

Lemaradtl a Csacska angyal valamelyik rszrl?
klikk ide

 
Segts nekem!

Segts nekem, hogy n is segthessek. Ha neked megvan Vhs-en vagy Dvd-n a Csacska angyal 1-3, 5, 102, 122, 127, 131, 136, 137, 139, 170 a msodik szribl a 57, 118 valamelyike akkor krlek rjl nekem.
bpotor@freemail.hu

Leveleiteket elre is ksznm.

 
Segts!

Ha vannak j tleteid, vagy csak olyan dolgok amik nincsenek meg a lapon s megszeretnd osztani msokkal akkor rjl a bpotor@freemail.hu e-mailre.

 
Forrsaim:

Az albbi menpontoknak a tartalma a www.csacskaangyal.
gportal.hu
 -rl vannak.
Benjamin
Magyar hangok
Floricienta cd magyar szvege

 
Linkecskk :)

 

Mindig tudnod kell, melyik kikötõ felé tartasz. - ROSE HARBOR, a mi városunk - FRPG    *****    A boroszkányok gyorsan megtanulják... Minden mágia megköveteli a maga árát. De vajon mekkora lehet ez az ár? - FRPG    *****    Alkosd meg a saját karaktered, és irányítsd a sorsát! Vajon képes lenne túlélni egy ilyen titkokkal teli helyen? - FRPG    *****    why do all monsters come out at night - FRPG - Csatlakozz közénk! - Írj, és éld át a kalandokat!    *****    Aki szörnyekkel küzd, vigyázzon, nehogy belõle is szörny váljék. S ha hosszasan tekintesz egy örvénybe, az örvény vissza    *****    Rose Harbor, ahol a tenger suttog és a múlt sosem tûnik el teljesen. - FRPG - csatlakozz közénk te is :)    *****    Egy kikötõ, ahol minden hullám egy új kezdetet ígér. Rose Harbor, több mint egy város, egy világ a világ mögött.    *****    Rose Harbor &#8211; kisvárosi báj, nagy titkokkal - légy részese te is ennek a kalandnak :) - FRPG    *****    Óceán, erdõ, csillagfény &#8211; minden ösvény Rose Harborba vezet - aktív FRPG közösség    *****    Itachi Shinden 1. kötet Magyarul elérhetõ a konoha.hu -n. Nézzetek be! *** Itachi Shinden 1. kötet Magyarul elérhetõ!!!    *****    ÁGICAKÖNYVTÁRA - KÖNYVEK, KÖNYVEK, KÖNYVEK - ÁGICAKÖNYVTÁRA    *****    MOVIE-NIGHT -> Filmek, Sorozatok <- MOVIE-NIGHT    *****    Movie-    *****    Játssz a színekkel keress szebbnél szebb képeket, építs, szépítsd a portálod, hogy szebb és színesebb legyen a világod!    *****    Debrecen Huszti Lakóparki napelemes családiház eladó. 06209911123 Debrecen Huszti Lakóparki napelemes családiház eladó.    *****    Pont ITT Pont MOST! Pont NEKED! Már fejlesztés alatt is szebbnél színes szebb képek! Ha gondolod gyere less be!    *****    Kedves Csokoládé kedvelõk! Segítségeteket kérném a kérdõívem kitöltéséhez! Témája a CSOKOLÁDÉ MÁRKÁK! Köszön    *****    Homlokzati hõszigetelés! Vállaljuk családi házak, lakások, nyaralók és egyéb épületek homlokzati hõszigetelését!    *****    * Beugrós munkavállalók éjjel-nappal. * Beugrós munkavállalók éjjel-nappal. * Beugrós munkavállalók éjjel-nappal. *    *****    Elindult a Játék határok nélkül rajongói oldal! Ha te is szeretted a '90-es évek népszerû mûsorát, nézz be ide!