Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
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...

Dade, dade

Probleme accesare nr test telefon

Parola la lock screen
 Deparazitare externa pisici fara ...

Seriale turcesti/coreene online H...

Merita un Termostat Smart pentru ...

Sfat achizitie MTB Devron Riddle
 

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 spinală minim invazivă Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

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