Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Nu pot accesa monitorulsv.ro de l...

Cum sa elimini urmele de acnee?

Wc Geberit

Routere detinute in trecut si in ...
 Teii din fața casei

E-Mail in serie prin Excel si Out...

Modul alimentare rulou/jaluzea ex...

Recuperare fișiere dupa form...
 Aplicatii stress test RAM

Asigurare auto hibrid

Asus B550M - PC-ul nu porneste di...

Tzanca Uraganu - Inconjurat de Fe...
 explicatie montaj breadboard

3 Doors Down - Kryptonite

Semnalizati cand virati pe un dru...

Succesiune - mostenire apartament...
 

Textbox

- - - - -
  • Please log in to reply
9 replies to this topic

#1
virusel2013

virusel2013

    Active Member

  • Grup: Members
  • Posts: 1,215
  • Înscris: 24.04.2006
Tocmai ce am inceput la faculate sa studiez visual basic asa ca nu stiu sa fac prea multe.
Am facut un algoritm de aflare a urmatoarelor 2 numere impare dupa un numar dat. Numai ca vreau sa aduc ceva in plus aplicatiei; as vrea sa adaug un textbox prin care userul sa poata introduce numarul pentru care vrea sa afle urmatoarele numere impare si nu stiu cum sa fac legatura dintre textbox si varibila "nr"

Module nr_impare
	Sub nr()
		Dim nr As Integer
		Dim rest As Integer
		Dim next1 As Integer
		Dim next2 As Integer

		nr = 11			   (aici sa fie ceva de genu nr=textbox1)
		rest = nr Mod 2


		If rest = 0 Then
			next1 = nr + 1
			next2 = nr + 3
		Else
			next1 = nr + 2
			next2 = nr + 4

		End If
		MsgBox("Urmatoare numere impare dupa numarul " & nr & " sunt " & next1 & "," & next2)
	End Sub

End Module


#2
Sandstorm

Sandstorm

    Member

  • Grup: Banned
  • Posts: 632
  • Înscris: 30.04.2009
Private Sub Command1_Click()

		Dim nr As Integer
		Dim rest As Integer
		Dim next1 As Integer
		Dim next2 As Integer

		nr = txtNumar.Text	   ' (aici sa fie ceva de genu nr=textbox1)
		rest = nr Mod 2


		If rest = 0 Then
			next1 = nr + 1
			next2 = nr + 3
		Else
			next1 = nr + 2
			next2 = nr + 4

		End If
		MsgBox ("Urmatoare numere impare dupa numarul " & nr & " sunt " & next1 & "," & next2)

End Sub

Am modificat aici:         nr = txtNumar.Text       ' (aici sa fie ceva de genu nr=textbox1) (vezi si poza)

Edited by Sandstorm, 09 October 2010 - 13:36.


#3
virusel2013

virusel2013

    Active Member

  • Grup: Members
  • Posts: 1,215
  • Înscris: 24.04.2006
posteaza o arhiva te rog cu proiectul. multumesc

Command1_Click() nu imi dau seama cum ai pus asta.
Codul l-ai pus dupa ce ai dat dublu click pe buton sau pe textbox?

#4
Sandstorm

Sandstorm

    Member

  • Grup: Banned
  • Posts: 632
  • Înscris: 30.04.2009
Ti l-am atasat.

#5
Sandstorm

Sandstorm

    Member

  • Grup: Banned
  • Posts: 632
  • Înscris: 30.04.2009
Ti l-am atasat.

L.E. Rog un moderator sa stearga mesajul meu de mai sus (cel fara atasament) pt. ca imi picase browser-ul in timp ce postam.
Multumesc!

Edited by Sandstorm, 09 October 2010 - 15:26.


#6
virusel2013

virusel2013

    Active Member

  • Grup: Members
  • Posts: 1,215
  • Înscris: 24.04.2006
Mai am o intrebare.

Cum fac sa salvez tot si sa rulez ca o aplicatie desktop?

Edited by virusel2013, 09 October 2010 - 15:29.


#7
Sandstorm

Sandstorm

    Member

  • Grup: Banned
  • Posts: 632
  • Înscris: 30.04.2009
Adica?
Eu ti l-am si compilat deja.
Intrii in File - Make NumeProiect.exe
Dupa compilare il poti folosi ca pe orice alt program.

#8
virusel2013

virusel2013

    Active Member

  • Grup: Members
  • Posts: 1,215
  • Înscris: 24.04.2006
hmm nu am nimic de genu make ....
folosesc visual studio

#9
Sandstorm

Sandstorm

    Member

  • Grup: Banned
  • Posts: 632
  • Înscris: 30.04.2009
Cred ca te-a durut mana sa scrii ce soft folosesti.
Eu ti-l facusem in VB6, acelasi lucru il faci si in VS.
Eu am folosit VS 2008 si am procedat astfel.
Click dreapta pe proiect - Properties - Compile si de acolo cred ca te descurci.
Am inteles ca abia acum studiezi acest program, dar sa nu te astepti sa vina altii sa iti faca munca si tu sa nu stii nici lucrurile de baza.
Nici eu nu am lucrat in VS, dar am avut vointa si am umblat prin el sa vad ce se gaseste acolo si ce fac anumite optiuni.

#10
virusel2013

virusel2013

    Active Member

  • Grup: Members
  • Posts: 1,215
  • Înscris: 24.04.2006
Multumesc mult

Anunturi

Chirurgia cranio-cerebrală minim invazivă Chirurgia cranio-cerebrală minim invazivă

Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne.

Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate