Visual basic noob question @ Slo-Tech

Forum » Programiranje »
Visual basic noob question

Visual basic noob question

DonMatejo :: 4. mar 2008, 19:06

Zdravo

Zanima me, kako pobereš recimo besedilo, številke iz TextBoxa da lahko potem z njimi operiraš znotraj programa...

2. če bodo v textboxu samo številke, ali potrebujem "drugačen" textbox, prirejen temu?

hvala

salesky :: 4. mar 2008, 19:10

Kak Visual Basic maš v mislih?

Drgač je pa

imeTextboxa.text --- to ti vrne vsebino textboxa

Kaj je lahko not, pa nastavljaš lahko v nastavitvah textboxa (če maš VisualStudio je to zelo enostavno).

LP

DonMatejo :: 4. mar 2008, 19:18

ja, visual studio... recimo jst dam notr eno cifro, k mi jo more pretvort potem v eno drugo...

recimo mam xx pa yy

xx vnesem v textbox... potem bi pa rad iz textboxa xx vzel v podprogram, pa tm obdelal recimo yy = 1,8 * ( xx + 32 )

s tem bi dobil yy, ki bi ga pa potem po textbox.text = yy oddal v drugi textbox...

______________
vprašanje ostaja? kako pridobiti podatke, kakšen je ukaz? da podatke iz textboxa poberem ter jih lahko vstavim v enačbo?

salesky :: 4. mar 2008, 19:19

Dej si poglej kake začetniške tutoriale od VB.net. Maš tega zelo veliko na googlu.

MarkookraM :: 5. mar 2008, 15:17

Treba je pretvoriti tekst v številko.

int stevilo = CInt(textbox1.Text)

StratOS :: 8. mar 2008, 10:34

Hja prej bi še pogledal če je numerični vnos

if IsNumeric(Text1.Text) then ...

Da nebi prišlo do kakšnih alfanumeričnih napak ipd ...
Če uporabljaš tudi decimalke raje vzemi Long ali Double, torej Clng, CDbl transformacijo.

Na hitro :

Dim Vred As Long
Dim Res As Long
If IsNumeric(Text1.Text) Then
    Vred = CLng(Text1.Text)
    Res = 1.8 * (Vred + 32)
    Text2.Text = Res
End If

"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."

DonMatejo :: 10. mar 2008, 20:09

najlepša hvala... tale .text mi je manjkal...

zdaj pa še eno vprašanje: kako bi naredil funkcijo, ki bi mi računala števila faktorialno? ala n!.... 1! =1 , 2! = 1*2 3! = 1*2*3

???

najlepša hvala

Pyr0Beast :: 10. mar 2008, 20:25

s for zanko ...

Some nanoparticles are more equal than others

Good work: Any notion of sanity and critical thought is off-topic in this place

DonMatejo :: 10. mar 2008, 20:27

a lahk prosim prosim sam mal boljš razložiš?

kak se ta for zanka uporablja, pa prosim ,ne me na tutoriale poslat, k sm že 2x znoru tm, k delam po 10 strani, pa ne zvem nč novga...

najboljši ste, tnX

Pyr0Beast :: 10. mar 2008, 20:56

Tlele se mi zdi, da imaš dobro razloženo, primer pa napišem, ko bom primerno razpoložen

Preprosto rečeno, pri for zanki postaviš spodnjo in zgornjo limito (kje začet in kje končat), izbereš, kako velik 'korak' dela pri štetju (i=2) ter ali naj prišteva ali odšteva (i++/i--)
Zanka se izvede, pri tem pa lahko vsakič s seboj 'potegne' nekaj kode, ki se tako izvaja iz kroga v krog, dokler pogoji niso izpolnjeni.

Some nanoparticles are more equal than others

Good work: Any notion of sanity and critical thought is off-topic in this place

Zgodovina sprememb…

spremenil: Pyr0Beast (10. mar 2008 ob 21:00)

StratOS :: 10. mar 2008, 21:28

Private Sub cmdCalc_Click()
Dim N, M As Integer
Dim Res As Double

Res = 1
If IsNumeric(No.Text) Then
    N = CInt(No.Text)
    No.Text = N
    If N < 0 Or N > 170 Then MsgBox "Čez mejo !": Exit Sub
    For M = 1 To N
        Res = Res * M
    Next M
    MsgBox N & "! = " & Res
Else
MsgBox "Vnesi številko 1- 170"
End If
End Sub

"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."

DonMatejo :: 10. mar 2008, 22:16

hvala vsem... ste vsi pomagali... uglavnem sem pa potem sam pršel do dna, kar je najpomembnejše d se neki spet naučim.... mozgat je treba, pa papir imet pred sabo... :)

Dim Vnos As Double
Dim Stevec As Double
Dim N As String = txtPodatki.Text

If IsNumeric(txtPodatki.Text) = True Then

Stevec = 0
Vnos = 1
While Stevec < N
Stevec = Stevec + 1
Vnos = Vnos * Stevec
End While
Else
MsgBox("NAPAKA!")

End If
txtIzpis.Text &= N & vbTab & Vnos & vbNewLine

hvala vsem

Vredno ogleda ...

	Tema	Sporočila	Ogledi	Zadnje sporočilo
	Tema	Sporočila	Ogledi	Zadnje sporočilo
»	Visual Basic - matrike z datagridview sara95 Oddelek: Programiranje	8	1145 (817)	blay44 19. feb 2017 13:53:33
»	[VB][.NET] pretvorba niza v število Bela01 Oddelek: Programiranje	18	1083 (931)	Bela01 18. dec 2006 18:46:21
»	[VB] Ocena programa MihaFirst Oddelek: Programiranje	12	1399 (1263)	mtosev 22. okt 2006 00:21:44
»	visual basic-seštevanje tx-z Oddelek: Programiranje	5	796 (738)	Red_Mamba 21. mar 2003 19:15:51
»	Kateri jezik je bolji? cahahopie Oddelek: Programiranje	46	2110 (1647)	Monster 12. sep 2001 20:37:05

Več podobnih tem

Zadnje novice

Zadnji članki

Išči:

Forum » Programiranje »
Visual basic noob question

Visual basic noob question