Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Vanzare cumparare fara transfer b...

Receptie ciudata, in functie de t...

Dupa 20 ani de facultate, am uita...

Mobile.de ofera imprumut de bani ...
 problema test grila

Digi24 a disparut de pe TV Lg

Drept de proprietate intelectuala...

Jante noi shitbox
 Trinitas TV 4K

Dacia 1316 cu 6 usi ...

Frecventa modificata radio

Un nou pericol pt batrani
 Ar trebuii sa vindem imobiliarele...

Dupa renuntarea la aparat dentar

pelerinaj in Balcik

Noul format Jpegli iși propu...
 

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

Neurochirurgie minim invazivă Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

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