Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]


Groups > it.comp.programmare > #77 > unrolled thread

Problema VB.NET - Da Combox a piu Textbox

Started by"Ettore" <ettor50@nomail.com>
First post2018-05-19 19:44 +0200
Last post2018-05-19 20:09 +0200
Articles 2 — 1 participant

Back to article view | Back to it.comp.programmare


Contents

  Problema VB.NET - Da Combox a piu Textbox "Ettore" <ettor50@nomail.com> - 2018-05-19 19:44 +0200
    Re: Problema VB.NET - Da Combox a piu Textbox "Ettore" <ettor50@nomail.com> - 2018-05-19 20:09 +0200

#77 — Problema VB.NET - Da Combox a piu Textbox

From"Ettore" <ettor50@nomail.com>
Date2018-05-19 19:44 +0200
SubjectProblema VB.NET - Da Combox a piu Textbox
Message-ID<pdpnpk$npg$1@dont-email.me>
Buongiorno a tutto il gruppo.
Premetto che sono neofita e sto cercando di imparare quanto possibile a 58 anni.
Mi piacerebbe imparare tanto su VB.NET !
Anche se vengo da excel e mi sono aggiustato in tante cose, scopro un mondo nuovo.

Ho un problema che spero riuscire a risolvere.
Sistema ---------Windows 7.64b. 16gb ram I7. ---VISUAL STUDIO. 2017.enterpr.
Devo fare questo-

Debbo fare un programma di AstroExcel, traslando cose dall'excel
Devo selezionare una serie di Citta', che hanno Latitudine (3 campi), Nord o Sud (1 
campo), valore Decimale Latitudine (1 campo), Valore h.slm..(1 campo) e altri 3 campi che 
comprendono ora, offset e un TZone. Piu Longitudine.(3 campi)
Praticamente quando scelgo da una Combox dove ho diversi campi, debbo riempire le 
equivalenti TextBox- Che sono circa 12 campi !

La foto dei dati e qui'.
http://scambiolink.superweb.ws/downl/tabella_D.jpg  ,,,,,  oppure preferito
=> https://tinyurl.com/ya78kl6r

A QUESTO LINK TROVATE LA FOTO DI QUELLO CHE INTENDO PER PRENDERE DATI m oltre al fuile zip 
eseguibile di quello dove sono arrivato in VB.NET di quello che voglio fare.
------------------------------------------------------------------------
https://drive.google.com/open?id=1Wo7npMza-0XHyJv4jFUDWdD9NZ7MnwqI
VEDASI TABELLA 3

Esempio "PYR.KHEOPE" , mi estragga in
altrettante textbox, anche altri dati come........ Latitudine gradi, minuti
e secondi, se nord o sud, poi la longitudine con gradi, minuti, secondi ,
oltre alla serie di dati inerenti  che vedete a fianco .... "-W/E", "Fuso
ora", "offset", "hSlm" -
Non so' come gestire la miriade di dati.

Sto cercando in internet google, ma essendo poco pratico, trovo problemi che non so' 
risolvere.
Perché tra l'altro se immettessi in access, non saprei come prelevare i dati di 
connessione e inserire la scelta di una Citta' con, .... ... i suoi elementi, nelle 
rispettive textbox, dove essendo interi saranno "INTEGER" e "DOuble" per altri dati 
decimali.

Grazie per ogni vostro aiuto.

PS. Rimuovete pure il testo citato nella risposta, lasciando la base iniziale per evitare 
di perdere tempo nell'insieme.




[toc] | [next] | [standalone]


#78

From"Ettore" <ettor50@nomail.com>
Date2018-05-19 20:09 +0200
Message-ID<pdpp98$1fk$1@dont-email.me>
In reply to#77
> Mi rispondo forse ho trovato ma non so' se la soluzione con 300 citta mondiali e 
> italiani, puo' funzionare.
=====================================================================
Public Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    If ComboBox1.SelectedItem = "Piramide_Kheope" Then
        TextBox1.Text = "29"
        TextBox2.Text = "58"
        TextBox3.Text = "48"
        TextBox4.Text = "N"
        TextBox6.Text = "31"
        TextBox7.Text = "8"
        TextBox8.Text = "3"
        Dim txt5dec As Decimal = Val(TextBox5.Text)
        Dim LatGrad As Integer = Val(TextBox1.Text)
        Dim LatMin As Integer = Val(TextBox2.Text)
        Dim LatSec As Decimal = Val(TextBox3.Text)
        txt5dec = CDec(LatGrad + (LatMin / 60) + (LatSec / 3600))
        TextBox5.Text = FormatNumber(txt5dec, 6)

    ElseIf ComboBox1.SelectedItem = "Piramide_Khufu" Then
        TextBox1.Text = "29"
        TextBox2.Text = "58"
        TextBox3.Text = "38"
        TextBox4.Text = "N"
        TextBox6.Text = "31"
        TextBox7.Text = "7"
        TextBox8.Text = "50.8"


    End If
End Sub
================================================

DOMANDONE, SE CAMBIO LA CITTA' DALLA SELEZIONE DELLA COMBOBOX .. E voglio ottenere nuovi 
dati ....... OK
Indi passo alla Combobox scelta 2 Piramide_Khufu,, ,... Le variabili "DIM" sono gia' come 
si dice....... dichiarate...quindi diviene ripetitivo.. come mi comporto con la selezione 
seconda e successive ?

Poi e' funzionale per 300 citta' ripetendo ? Allungando linee di codice ?? sono cose che 
non conosco e chiedo lumi a chi riesce a rispondere.
Grazie ancora. ! 

[toc] | [prev] | [standalone]


Back to top | Article view | it.comp.programmare


csiph-web