PCTuning fórum

Potreboval bych taky pomoc ve Visual Basicu.

1)Napište logickou funkci JeJude,která bude vracet TRUE,jestliže její parametr je sudé číslo

2)Programem vytvořte soubor „cisla.txt“ a zapište do něj 200 náhodných celých čísel v rozsahu -10 až 50.

3)Napište část programu,která vypisuje přirozená čísla od A do B,kde A a B jsou proměnné.

4)Napište část programu,která vytiskne zprávu,zda hodnota proměnné X je kladná,záporná nebo nulová.

5)Deklarujte proměnnou Jménu type String

6)Do dvou sloupců vypisujte tabulku funkce x2 pro x jdoucí od 0 do 10 s krkem 0.5.

7)Deklarujte pole A prvků typu Integer pro indexy od 1 do 50.

8)Napište proceduru ,která na formulář nakreslí obdélník s úhlopříčkami(libovolné velikosti)

9)Pomocí ovládacího prvku Timer a funkci Now ,Date, a Time naprogramujte digitální budík.

10)Proměnnou Cislo zvětšete o hodnotu proměnné X.


Předem děkuju za pomoc.

Co se nejdriv kouknout, jestli uz tu neco z toho neni vyreseneho (a ze je), nebo jestli se nekdo neptal na uplne to same?

Promin, porad mi tedy s timhle


1)Napište logickou funkci JeJude,která bude vracet TRUE,jestliže její parametr je sudé číslo


3)Napište část programu,která vypisuje přirozená čísla od A do B,kde A a B jsou proměnné.

7)Deklarujte pole A prvků typu Integer pro indexy od 1 do 50.

8)Napište proceduru ,která na formulář nakreslí obdélník s úhlopříčkami(libovolné velikosti)

9)Pomocí ovládacího prvku Timer a funkci Now ,Date, a Time naprogramujte digitální budík.

10)Proměnnou Cislo zvětšete o hodnotu proměnné X.

Dík

1.
private function JeSude(N as Integer) as boolean
if N/2 = int(N/2) then JeSude = true else JeSude = false
end function

3.
(listbox list1)
for i = A to B
listbox1.additem str(i)
next i

7.
dim A(1 to 50) as integer

8. (presne momentalne nevim)
deklarovat 6x Line a jejich X a Y nastavit tak, aby delaly obdelnik s uhloprickama

9. Nad tim se mi ted nechce premyslet

10.
Cislo = Cislo + X

Dekuju ti moc velmi si mi pomohl.
Obdivuju tvoje schopnosti.
Díííííík

Ale kdyby se ti chtelo nekdy nad tou 9 trochu zapremejslet tak napis ,ale jinak za vse dík

Za ten nový thread se omlouvám ,jestli mas na to oprávnění tak ho smaž.
Koukal jsem na všechny ostatní thready ale stejný příklady jako jsem napsal v minulem threadu jsem nenasel jsou si hodně podobný ale nejsou to voni.
Vim se te kazdej furt pta na to samy a je to unavujicí me by to taky uz nebavilo,ale buhuzel ten náš profesor to neumí vysvětlit a k tomu mu jeste nikdo nerozumí.

K tomu z toho druhyho threadu:
1.
private function RAD(cislo as integer) as string
dim l as integer
l = len(cislo)
select case len
case 1
RAD = "Jednotky"
case 2
RAD = "Desítky"
case 3
RAD = "Stovky"
case 4
RAD = "Tisíce"
case 5
RAD = "Desetitisíce"
end select
end function

2.
Na to uz mas v tomhle threadu odpoved, proc se ptas znovu?

3.
Line (500, 500)-(2000, 1000)
Line (500, 1000)-(2000, 500)
Line (500, 500)-(2000, 1000), , B

4.
Co si predstavujes pod pojmem cist prirozena cisla?

5.
(textbox text1)
open app.path & "cisla.txt" for input as #1
text1 = ""
dim s as string
do while not eof(1)
line input #1, s
text1.text = text1.text + str(s)
loop
close #1

6.
Ten budik si predstavujes konkretne jak?

Sám nevim pořádně co tím je mysleno.To budou nejspíš asi normální čísla od 1 do 20.
Budík uz ani nedelej myslím ze to uz stačí.

Tak to jsem zvedavej jak to dopadne pulka tridy tady byla,sranda by byla kdyby profesor sem zavítal.
Minuly pololetí s toho bylo pár 3 jinak samy 4 a nekolik i 5.

Krys píše:Sám nevim pořádně co tím je mysleno.To budou nejspíš asi normální čísla od 1 do 20.

Ja vim, co sou to prirozeny cisla, ale z toho zadani nechapu, co se s nima ma delat

To bude jako s temi hvězdičkami,prostě je jenom vypsat na formu

V tom pripade
for i = 1 to 20
print str(i)
next i