Προς το περιεχόμενο

Voithia gia katasskevi programmatos.


therock

Προτεινόμενες αναρτήσεις

Δημοσ.

Eisai arxarios kai theleis na ftiakseis me th mia Image converter / Viewer? Ksekina me kati pio efkolo opws enan Euro - Drachmas converter.. Kai ystera kati pio dyskolo..

 

Oson afora ton Image Viewer pou les, kalytera ase to interface gia meta kai katse sxediase prwta to functionality tou programatos kai ystera asxolhsou me to interface..

 

Kalytera tha htan na ksekinouses na diavazeis ena vivlio mias glwssas programatismou..

 

Filika, UNPAIKTABLE

Δημοσ.

dikio exis file unpaiktable aplos to converter den nomizo na ine diskolo mias kai tha dini entoli na sximatisti ena arxio pou tha ginete rename se oti tou orisis.p.x. an valis ena .bmp kai thes na kanis .jpg tote na dini entoli oste na kanio rename to arxio xx.bmp se xx.jpg!den nomiz oti ine kati diskolo.Kai apo ionterface ontos asto.Aplos rotisa me poio programma sxediazis.To converter pou thelo as ine tou stil,drag and drop se dos parathiraki kai na vgazi tin foto se diaforetiko format.

Δημοσ.

Το θέμα είναι ότι ένα απλό rename του αρχείου , δεν αλλάζει και το format της εικόνας.Πίσω από όλες αυτές τις καταλήξεις κρύβονται αλγόριθμοι συμπίεσης και άλλοι που δεν είναι και τόσο εύκολοι. <img border="0" title="" alt="[Wink]" src="images/icons/wink.gif" />

 

Οπότε μια απλή μετονομασία δεν αρκεί!

Δημοσ.

To herv aplos gia ayto thelo na ftiakso ena "aplo programma pou aplos nma kani rename tis foto!Poio tha ine to programming code tote?Epanalamvano mono rename apo ena format se allo,etsi gia arxi! <img border="0" title="" alt="[Wink]" src="images/icons/wink.gif" />

Δημοσ.

Eυκολα με VB , με Java , με οτιδηποτε ...αναλογα εσυ τι προτιμας , σε VB ή Java ειναι μερικα λεπτα δουλειας , ειδικα στην VB παιρνεις τα Common Dialog Controls και κανουν την δουλεια..

Θες βοηθεια στον κωδικα? θα ηθελες καποιος να σου κανει την αρχη? θες να το αρχησεις ολο εσυ απο την αρχη?

Δημοσ.

ʼντε πάρε κώδικα σε VB6

 

New Project

Βάζουμε ένα πλήκτρο που λέγεται command1

Βάζουμε ένα commonDialog που λέγεται CommonDialog1

 

Private Sub Command1_Click()

CommonDialog1.ShowOpen

 

If CommonDialog1.FileName <> "" Then

newname = Mid(CommonDialog1.FileName, 1, Val(Len(CommonDialog1.FileName) - 4))

newname = newname & ".bmp"

Name CommonDialog1.FileName As newname

End If

End Sub

 

1. Ελέγχουμε αν έχει επιλεχθεί όνομα

2. Κόβουμαι τους 4 τελευταίους χαρακτήρες του αρχείου ( την τελεία και 3 σαν extension)

ΠΡΟΣΟΧΗ! Με αυτό τον κώδικα κάνεις rename ΜΟΝΟ αρχεία που έχουν 3 extesion chars

3. Βάζει τα νέα extension

4. Κάνει rename

 

Have fun!

 

ΥΓ. Χρειάστηκε μόνο λίγα δεύτερα και είναι αρκετά πρόχειρος. Χρίζει διορθώσεις <img border="0" title="" alt="[Wink]" src="images/icons/wink.gif" />

Δημοσ.

</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">quote:</font><hr /><font size="2" face="Verdana, Helvetica, sans-serif">Originally posted by timiman:

<strong>ʼντε πάρε κώδικα σε VB6

 

Private Sub Command1_Click()

CommonDialog1.ShowOpen

 

If CommonDialog1.FileName <> "" Then

newname = Mid(CommonDialog1.FileName, 1, Val(Len(CommonDialog1.FileName) - 4))

newname = newname & ".bmp"

Name CommonDialog1.FileName As newname

End If

End Sub

 

</strong></font><hr /></blockquote><font size="2" face="Verdana, Helvetica, sans-serif">Ekana copy+paste ayto se c++ source code kai mou vgazi 3 errors!ti kano lathos?

Δημοσ.

Ο κώδικας είναι Visual Basic, όχι c++. Μιας και είσαι αρχάριος σου προτείνω να ξεκινήσεις με κάνενα βιβλίο και ακόμα καλύτερα με κάποια απλή γλώσσα προγραμματισμού όχι σε γραφικό περιβάλλον.

Δημοσ.

Νομιζω oti o bandito εχει δικιο , ετσι δεν προκειται να καταλαβεις και πολλα , μιας και αυτη η εφαρμογη κουτσα στραβα εγινε , με τον κωδικα του timiman και μια πηνελια απο δικο σου GUI editing στην VB.Αν θελεις πραγματικα να μαθεις τοτε πρεπει να ακολουθησεις τον δυσκολο δρομου που προανεφερε ο bandito.

Αρχειοθετημένο

Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.

  • Δημιουργία νέου...