Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
De ce TVR nu mai emite pe DVB T2?

Vrem sa ne reparam/infrumusetam p...

Ce rasa de catei sunt?

Sfat mașina sh
 Ledvance nu mai funcționeaza...

Sa bagam latina, religia la bac -...

Știri și mișcari c...

O chestiune despre "legendara...
 ACM lipsa - Motan Start BT

Sfat cumparare masina noua

Ford Mondeo IV 2.0 TDCI

S10+ amprenta cu folie dubla
 FED (US) creste din nou dobanda c...

Tubulatura ventilatie 75 prin arm...

Patriotismul economic, subventii ...

MacBook Air 2017 problema la bate...
 

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

Bun venit pe Forumul Softpedia!

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